Vorbelegung im Selektionsbildschirm berechnen
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.Hallo, ich fange gerade an mit ABAP und habe da eine kleine frage:
Ich muss in einem von bis Feld standartmäsik vom Vormonat bis zum aktuellen selektieren. Den aktuellen bekomme ich ganz einfach mit default sy-datum. Aber wie berechne ich die Vorbelegung für das 'von' Feld?
Danke Schonmal
Ich muss in einem von bis Feld standartmäsik vom Vormonat bis zum aktuellen selektieren. Den aktuellen bekomme ich ganz einfach mit default sy-datum. Aber wie berechne ich die Vorbelegung für das 'von' Feld?
Code: Alles auswählen.
selection-screen begin of block a with frame title t1.
DATA: vormonat TYPE d.
vormonat = sy-datum.
vormonat+6(2) = '01'.
vormonat = vormonat - 1.
select-options: dlifnr for lfa1-lifnr.
select-options: dekorg for lfm1-ekorg obligatory
no intervals
memory id eko.
select-options: dbukrs for lfb1-bukrs obligatory
no intervals
memory id buk.
select-options: dktokk for lfa1-ktokk no intervals.
select-options: dspmon for s012-spmon default vormonat to sy-datum.
*ende selektionsbildschirm
selection-screen end of block a.
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hallo (Herr) Kaiser,Kaiser hat geschrieben:Hallo, ich fange gerade an mit ABAP und habe da eine kleine frage:
Ich muss in einem von bis Feld standartmäsik vom Vormonat bis zum aktuellen selektieren. Den aktuellen bekomme ich ganz einfach mit default sy-datum. Aber wie berechne ich die Vorbelegung für das 'von' Feld?
Danke SchonmalCode: Alles auswählen.
selection-screen begin of block a with frame title t1. DATA: vormonat TYPE d. vormonat = sy-datum. vormonat+6(2) = '01'. vormonat = vormonat - 1. select-options: dlifnr for lfa1-lifnr. select-options: dekorg for lfm1-ekorg obligatory no intervals memory id eko. select-options: dbukrs for lfb1-bukrs obligatory no intervals memory id buk. select-options: dktokk for lfa1-ktokk no intervals. select-options: dspmon for s012-spmon default vormonat to sy-datum. *ende selektionsbildschirm selection-screen end of block a.
Dein Codebeispiel geht schon in die richtige Richtung:
Code: Alles auswählen.
TABLES:
lfa1,
lfb1,
lfm1,
s012.
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE t1.
SELECT-OPTIONS: dlifnr FOR lfa1-lifnr.
SELECT-OPTIONS: dekorg FOR lfm1-ekorg OBLIGATORY
NO INTERVALS
MEMORY ID eko.
SELECT-OPTIONS: dbukrs FOR lfb1-bukrs OBLIGATORY
NO INTERVALS
MEMORY ID buk.
SELECT-OPTIONS: dktokk FOR lfa1-ktokk NO INTERVALS.
SELECT-OPTIONS: dspmon FOR s012-spmon NO INTERVALS.
*ende selektionsbildschirm
SELECTION-SCREEN END OF BLOCK a.
INITIALIZATION.
dspmon-sign = 'I'.
dspmon-option = 'BT'.
dspmon-low = sy-datum.
dspmon-low+6(2) = '01'.
dspmon-low = dspmon-low - 1.
dspmon-high = sy-datum.
APPEND dspmon TO dspmon.
Für solche Vorbelegungen steht das Ereignis INITILIZATION zur Verfügung.
Damit ist es dann auch möglich mehr als nur eine Wertezeile vorzubelegen.
Das Ereignis wird auch pro Programmauflauf nur einmalig hinter dem Ereignis LOAD-OF-PROGRAM prozessiert.
(siehe dazu auch die SAP-Hilfe)
Kaiser hat geschrieben:... standartmäsik ...
Danke. Habe es jetzt hin bekommen.
bis zum nächstem Problem dann. 
Code: Alles auswählen.
initialization.
*Titel in variable t1 schreiben
t1 = 'Selektion Lieferant'.
*Berechnung der Vorbelegung in spmon
dspmon-low = sy-datum.
dspmon-low+4(2) = dspmon-low+4(2) - 1.
if dspmon-low+4(2) = '00'.
dspmon-low+4(2) = '12'.
dspmon-low(4) = dspmon-low(4) - 1.
endif.
dspmon-high = sy-datum.
append dspmon to dspmon.sagen wir fastAnonymous hat geschrieben:Nein.eldenio hat geschrieben:müßte so eigentlich passen, oder?
Warum soll man da 100 oder mehr Tage abziehen?
wenn der datentyp statt "d" ein char8 ist klappt es mit dem coding auch...
natürlich ist das nicht besonders elegant, aber es klappt.
der eleganteste weg ist übrigens folgender:
CALL FUNCTION 'SUBTRACT_TIME_FROM_DATE'
EXPORTING ...
mit den entsprechenden parametern kann man dann sogar direkt auf/abrunden...
Das nächste Problem hast Du schon.Kaiser hat geschrieben:Danke. Habe es jetzt hin bekommen.
bis zum nächstem Problem dann.Code: Alles auswählen.
initialization. *Titel in variable t1 schreiben t1 = 'Selektion Lieferant'. *Berechnung der Vorbelegung in spmon dspmon-low = sy-datum. dspmon-low+4(2) = dspmon-low+4(2) - 1. if dspmon-low+4(2) = '00'. dspmon-low+4(2) = '12'. dspmon-low(4) = dspmon-low(4) - 1. endif. dspmon-high = sy-datum. append dspmon to dspmon.
(Subtraktionen und Additionen auf Teilfelder (Offset und Länge) arten immer in Bastelorgien aus.
z.B. hat nicht jeder Monat 31 Tage.)
Hallo Kaiser,
Dein Originalcode muß nur minimal abgeändert werden (ergibt sich auch aus den obigen Lösungen) um eine sichere Berechnung des Vormonatsersten zu erreichen.
selection-screen begin of block a with frame title t1.
DATA: vormonat TYPE d.
vormonat = sy-datum - sy-datum+6(2).
vormonat+6(2) = '01'.
* vormonat = vormonat - 1.
select-options: dlifnr for lfa1-lifnr.
MfG
Thomas R.
Dein Originalcode muß nur minimal abgeändert werden (ergibt sich auch aus den obigen Lösungen) um eine sichere Berechnung des Vormonatsersten zu erreichen.
selection-screen begin of block a with frame title t1.
DATA: vormonat TYPE d.
vormonat = sy-datum - sy-datum+6(2).
vormonat+6(2) = '01'.
* vormonat = vormonat - 1.
select-options: dlifnr for lfa1-lifnr.
MfG
Thomas R.
Hallo Kaiser,Kaiser hat geschrieben:Hallo, ich fange gerade an mit ABAP und habe da eine kleine frage:
...Danke SchonmalCode: Alles auswählen.
... select-options: dspmon for s012-spmon default vormonat to sy-datum. ...
wie mir gerade aufgefallen ist, handelt es sich bei dem Feld S012-SPMON keineswegs um ein Datumfeld.
Vielmehr handelt es sich hier um ein NUMC6-Feld mit der Bedeutung 'Analysezeitraum - Monat'.
Daher bin ich jetzt etwas verwirrt, weil Du ja eine Lösung benutzt, die funktionieren soll.
Kaiser hat geschrieben:Danke. Habe es jetzt hin bekommen.
bis zum nächstem Problem dann.Code: Alles auswählen.
initialization. *Titel in variable t1 schreiben t1 = 'Selektion Lieferant'. *Berechnung der Vorbelegung in spmon dspmon-low = sy-datum. dspmon-low+4(2) = dspmon-low+4(2) - 1. if dspmon-low+4(2) = '00'. dspmon-low+4(2) = '12'. dspmon-low(4) = dspmon-low(4) - 1. endif. dspmon-high = sy-datum. append dspmon to dspmon.
Hallo,
Bis jetzt funktioniert alles so wie es soll. Zumindest habe ich noch keine Fehler in den Ergebnissen gefunden.
Das das Feld kein Datumsformat ist hab ich erst gerade gesehen, sorry. Aber es läuft.
Wenn das allerdings schöner geht bin ich für Lösungen dankbar.
MfG
Bis jetzt funktioniert alles so wie es soll. Zumindest habe ich noch keine Fehler in den Ergebnissen gefunden.
Das das Feld kein Datumsformat ist hab ich erst gerade gesehen, sorry. Aber es läuft.
Wenn das allerdings schöner geht bin ich für Lösungen dankbar.
MfG
dann muss ich mal vermuten, dass in der Tabelle S012 Monatszuordnungen in der Form YYYYMM stehen und Du 'versehentlich' den richtigen Selektionswert berechnet hast...Kaiser hat geschrieben:Hallo,
Bis jetzt funktioniert alles so wie es soll. Zumindest habe ich noch keine Fehler in den Ergebnissen gefunden.
Das das Feld kein Datumsformat ist hab ich erst gerade gesehen, sorry. Aber es läuft.
Wenn das allerdings schöner geht bin ich für Lösungen dankbar.
MfG
À propos, die Zuweisung
Code: Alles auswählen.
dspmon-low = sy-datum.Schau Dir doch mal die Selektionstabelle im Debugger an. Ich vermute, es sieht in etwa so aus:
dspmon => 'IBT200502200503'.
Vergleichbare Themen
0
Antw.
Antw.
876
Views
Views
2
Antw.
Antw.
1840
Views
Views
3
Antw.
Antw.
10882
Views
Views
0
Antw.
Antw.
1124
Views
Views
IS-M/SD: Vorbelegung JKKUEND-XFKRUECK
von thanxforyourhelp » 11.01.2008 13:41 • Verfasst in Sales and Distribution
von thanxforyourhelp » 11.01.2008 13:41 • Verfasst in Sales and Distribution
Frage die ABAP Experten
Über diesen Beitrag
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.