Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag (Insgesamt 2):
gtoXX • Bjuti
Hallo black_adept,black_adept hat geschrieben:Hallo Bjuti,
da du dich in einer Faktura rumtreibst und ja auch schon die Tabelle T185F erwähnt hast, solltest du dich mal in der VertriebsbelegFolgeBildSteuerung umschauen ( Transaktion VFBS ) und dort dann einen eigenen ( den von dir ausgelösten ) Funktionscode hinterlegen, damit das Rahmenprogramm wieder weiß was es nach dem Prozessieren des Funktionscodes denn tun soll.
Code: Alles auswählen.
LOOP AT SCREEN.
IF SCREEN-NAME EQ 'TABSTRIP_TAB06'.
"Aufbau Tab
IF sy-ucomm EQ 'PUSH_BUTTON'.
sy-ucomm = ''.
ENDIF.
ENDIF.
ENDLOOP.
Code: Alles auswählen.
Data: ok_code LIKE sy-ucomm.
MODULE vor_Ausgabe OUTPUT.
clear ok_code.
".....
ENDMODULE.
MODULE nach_Eingabe INPUT.
".....
ok_code = sy-ucomm.
clear sy-ucomm.
CASE ok_code.
WHEN 'PUSH_BUTTON'
CALL TRANSACTION 'VL03'.
ENDCASE.
".....
ENDMODULE.
Code: Alles auswählen.
IF fcode EQ 'SICH'.
IF sy-tcode = 'VF01' OR sy-tcode = 'VF02'.
LOOP AT xvbrk[] INTO xvbrk.
SELECT SINGLE xegld FROM t005 INTO eu
WHERE land1 = vbrk-land1.
IF eu IS NOT INITIAL AND sy-tcode EQ 'VF01'
xvbrk-yysd_glbvgbel = vbuk-vbeln.
ELSEIF eu IS NOT INITIAL AND sy-tcode EQ 'VF02'
SELECT SINGLE vgbel FROM vbrp INTO xvbrk-yysd_glbvgbel
WHERE vbeln = vbrk-vbeln.
ENDIF.
MODIFY xvbrk[] FROM xvbrk
TRANSPORTING yysd_glbvgbel.
ENDLOOP.
ENDIF.
ENDIF.