Coding umbauen
Die Frage ist als "gelöst" markiert. Den entsprechend Beitrag findest du hier.
5 Beiträge
•
Seite 1 von 1
5 Beiträge
Seite 1 von 1
Hallo liebe Experten!
Ich muß folgendes Coding umbauen.
Ich habe in mein Programm eine select-option eingebaut. In diese soll der Benutzer die gewünschte Satzart eingeben.
Ich möchte anstatt jedesmal alles mit einer IF Anwendung abzufragen, das ganze mit einer DO Schleife lösen.
Hoffe Ihr könnt mir helfen.
Vielen vielen Dank
Robin
Ich muß folgendes Coding umbauen.
Ich habe in mein Programm eine select-option eingebaut. In diese soll der Benutzer die gewünschte Satzart eingeben.
Ich möchte anstatt jedesmal alles mit einer IF Anwendung abzufragen, das ganze mit einer DO Schleife lösen.
Hoffe Ihr könnt mir helfen.
Vielen vielen Dank
Robin
Code: Alles auswählen.
SELECT-OPTIONS: so_cost FOR wa_zwerb-satzart NO-EXTENSION NO INTERVALS.
FORM get_kagru.
CLEAR flg_kagru.
CLEAR: wa_findstruk-kagru.
CLEAR: it_kstar, it_return.
REFRESH: it_kstar, it_return.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
coarea = con_kokrs
date = sy-datum
costelementgroup = con_cost_elem_kst
TABLES
costelementlist = it_kstar
return = it_return.
READ TABLE it_kstar WITH KEY cost_elem = wa_zwerb-satzart.
IF sy-subrc IS INITIAL AND it_return[] IS INITIAL.
wa_findstruk-kagru = con_cost_elem_kst.
ELSE.
CLEAR: it_kstar, it_return.
REFRESH: it_kstar, it_return.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
coarea = con_kokrs
date = sy-datum
costelementgroup = con_cost_elem_eo
TABLES
costelementlist = it_kstar
return = it_return.
READ TABLE it_kstar WITH KEY cost_elem = wa_zwerb-satzart.
IF sy-subrc IS INITIAL AND it_return[] IS INITIAL.
wa_findstruk-kagru = con_cost_elem_eo.
ELSE.
CLEAR: it_kstar, it_return.
REFRESH: it_kstar, it_return.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
coarea = con_kokrs
date = sy-datum
costelementgroup = con_cost_elem_crm
TABLES
costelementlist = it_kstar
return = it_return.
READ TABLE it_kstar WITH KEY cost_elem = wa_zwerb-satzart.
IF sy-subrc IS INITIAL AND it_return[] IS INITIAL.
wa_findstruk-kagru = con_cost_elem_crm.
ENDIF.
ENDIF.
ENDIF.
ENDFORM. " get_kagru
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Hab mich vorher nicht eingeloggt. 
So sieht momentan mein Coding aus.
Bei return = it_return bekomme ich einen Kurzdump.
Danke für Eure Hilfe!
So sieht momentan mein Coding aus.
Bei return = it_return bekomme ich einen Kurzdump.
Danke für Eure Hilfe!
Code: Alles auswählen.
FORM get_kagru.
CLEAR flg_kagru.
CLEAR: wa_findstruk-kagru.
CLEAR: it_kstar, it_return.
REFRESH: it_kstar, it_return.
DO.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
coarea = con_kokrs
date = sy-datum
costelementgroup = so_cost
TABLES
costelementlist = it_kstar
return = it_return.
READ TABLE it_kstar WITH KEY cost_elem = wa_zwerb-satzart.
IF sy-subrc IS INITIAL AND it_return[] IS INITIAL.
wa_findstruk-kagru = so_cost.
ENDIF.
IF so_cost = wa_zwerb-satzart.
exit.
ENDIF.
ENDDO.
ENDFORM
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Und dürfte man auch erfahren, was in dem Kurzdump so drin steht?
Aber davon mal abgesehen. Aus welchem Grund verwendest du hier eine DO-Schleife?
Es gibt jetzt 2 Möglichkeiten.
Falls bein Einstieg in die FORM "so_cost" ungleich "wa_zwerb-satzart" ist, bekommst du eine Endlosschleife,
falls nicht, wird die Schleife genau 1x durchlaufen.
In beiden Fällen ist der Einsatz einer DO-ENDDO-Schleife mehr als flüssig.
Aber davon mal abgesehen. Aus welchem Grund verwendest du hier eine DO-Schleife?
Es gibt jetzt 2 Möglichkeiten.
Falls bein Einstieg in die FORM "so_cost" ungleich "wa_zwerb-satzart" ist, bekommst du eine Endlosschleife,
falls nicht, wird die Schleife genau 1x durchlaufen.
In beiden Fällen ist der Einsatz einer DO-ENDDO-Schleife mehr als flüssig.
Hallo Stefan!
Es sollten dann in der select option mehrere Werte eingegeben werden.
Für jeden Wert soll die Schleife durchlaufen werden.
Wie könnte ich das am besten machen? Sorry daß ich so frage, aber bin leider noch ziemlicher Anfänger.
Freue mich über jede Hilfe.
Danke
Robin
Es sollten dann in der select option mehrere Werte eingegeben werden.
Für jeden Wert soll die Schleife durchlaufen werden.
Wie könnte ich das am besten machen? Sorry daß ich so frage, aber bin leider noch ziemlicher Anfänger.
Freue mich über jede Hilfe.
Danke
Robin
Hallo Stefan!
Mein Coding stüzt zumindest nicht mehr ab.
Habe jetzt nurmehr das Problem, daß die Spalte KOSTL mit falschen Daten gefüllt ist (F003).
Was habe ich noch falsch?
Die select options lautet nun.
SELECT-OPTIONS: so_cost FOR wa_zwerb-satzart NO INTERVALS.
Damit der Benutzer die Werte eingeben kann. z.B.: kst, eo, crm. Die Liste die ich eingebe hat nur crm Daten.
Danke
Robin
Mein Coding stüzt zumindest nicht mehr ab.
Habe jetzt nurmehr das Problem, daß die Spalte KOSTL mit falschen Daten gefüllt ist (F003).
Was habe ich noch falsch?
Die select options lautet nun.
SELECT-OPTIONS: so_cost FOR wa_zwerb-satzart NO INTERVALS.
Damit der Benutzer die Werte eingeben kann. z.B.: kst, eo, crm. Die Liste die ich eingebe hat nur crm Daten.
Danke
Robin
Code: Alles auswählen.
FORM get_kagru.
CLEAR flg_kagru.
CLEAR: wa_findstruk-kagru.
CLEAR: it_kstar, it_return.
REFRESH: it_kstar, it_return.
data: wa_cost type kagru.
loop at so_cost into wa_cost.
CALL FUNCTION 'BAPI_COSTELEM_GETLIST'
EXPORTING
coarea = con_kokrs
date = sy-datum
costelementgroup = wa_cost
TABLES
costelementlist = it_kstar
return = it_return.
READ TABLE it_kstar WITH KEY cost_elem = wa_zwerb-satzart.
IF sy-subrc IS INITIAL AND it_return[] IS INITIAL.
wa_findstruk-kagru = wa_cost.
ENDIF.
IF wa_cost = wa_zwerb-satzart.
exit.
ENDIF.
endloop.
* KOSTL
PERFORM findsingle USING 'KOSTL'
''.
wa_zwerbsap-kostl = p_fval.
IF wa_findstruk-kagru IS INITIAL.
wa_zwerbsap-kostl = 'F003'.
ENDIF.
Seite 1 von 1
Vergleichbare Themen
12
Antw.
Antw.
7596
Views
Views
6
Antw.
Antw.
2671
Views
Views
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.