Code: Alles auswählen.
SAPMV45A 5003 X
0000 BDC_OKCODE /00
0000 BDC_SUBSCR SAPMV45A 4013SUBSCREEN_HEADER
0000 BDC_SUBSCR SAPLV69A 6201SUBSCREEN_BODY
0000 BDC_CURSOR KOMV-KBETR(06)
0000 KOMV-KSCHL(06) zprg
0000 KOMV-KBETR(06) 99
SAPMV45A 5003 X
0000 BDC_OKCODE /EBACK
0000 BDC_SUBSCR SAPMV45A 4013SUBSCREEN_HEADER
0000 BDC_SUBSCR SAPLV69A 6201SUBSCREEN_BODY
0000 BDC_CURSOR KOMV-KSCHL(07)
SAPMV45A 4001 X
0000 BDC_OKCODE =ITEM
0000 BDC_SUBSCR SAPMV45A 4021SUBSCREEN_HEADER
0000 VBKD-BSTKD tghj
0000 VBKD-BSTDK 25.06.2008
0000 BDC_SUBSCR SAPMV45A 4701PART-SUB
0000 KUAGV-KUNNR 165
0000 KUWEV-KUNNR 165
0000 BDC_SUBSCR SAPMV45A 4411SUBSCREEN_BODY
0000 VBAK-ANGDT 25.06.2008
0000 VBAK-BNDDT 30.06.2008
0000 RV45A-KPRGBZ T
0000 RV45A-KETDAT 25.06.2008
0000 BDC_SUBSCR SAPMV45A 4912SUBSCREEN_TC
0000 BDC_CURSOR RV45A-MABNR(02)
0000 BDC_SUBSCR SAPMV45A 4050SUBSCREEN_BUTTONS
SAPMV45A 5003 X
0000 BDC_OKCODE /00
0000 BDC_SUBSCR SAPMV45A 4013SUBSCREEN_HEADER
0000 BDC_SUBSCR SAPLV69A 6201SUBSCREEN_BODY
0000 BDC_CURSOR KOMV-KBETR(06)
0000 KOMV-KSCHL(06) zprg
0000 KOMV-KBETR(06) 500
SAPMV45A 5003 X
0000 BDC_OKCODE /EBACK
0000 BDC_SUBSCR SAPMV45A 4013SUBSCREEN_HEADER
0000 BDC_SUBSCR SAPLV69A 6201SUBSCREEN_BODY
0000 BDC_CURSOR KOMV-KSCHL(07)
Code: Alles auswählen.
LOOP AT it_konv INTO wa_konv.
* Ruft das Dynpro 5003 auf und schreibt die Konditionen
* Konditionswert und zugehöriger Nettowert werden in Zeile 14 des Tabel
* Controls geschrieben, da die dort eingefügte Zeile automatisch vom
* System in die erste Zeile gesetzt wird.
PERFORM bdc_dynpro USING 'SAPMV45A' '5003'.
PERFORM bdc_field USING 'KOMV-KSCHL(14)' " Konditionsart
wa_konv-kschl.
* Schreibt den Konditionsbetrag für die Position
WRITE wa_konv-kbetr TO l_nettobetrag.
PERFORM bdc_field USING 'KOMV-KBETR(14)' " Nettowert
l_nettobetrag.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
ENDLOOP.
So ist's richtig!!errorist hat geschrieben:Finde bei uns im System auch keine Verwendungsnachweis etc, an dem ich mir das aml anguckenkönnte. Leider sind alle Entwickler im Moment ausser Haus, so dass ich keinen Fragen kann.
Werde mich aber da durch beissen. Wäre ja gelacht.
Gern geschehen!errorist hat geschrieben:Meine Aufgabe liegt seit 2 Jahren rum, da kommt es jetzt auf ein paar Tage mehr oder weniger nicht an.
Auf jeden Fall vielen Dank für deine guten Antworten und deine Mühe!