Code: Alles auswählen.
bdcdata-program = 'RFPUEB00'. " Post Parked Document
bdcdata-dynpro = '1000'. " start with selection screen for list
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
CLEAR bdcdata.
Code: Alles auswählen.
"call transaction fbv0
CALL TRANSACTION 'FBV0'
USING
bdcdata
MODE 'A' " A TODO: use 'N' for production
UPDATE 'S'
MESSAGES INTO messtab.
" output status messages produced while running transaction
LOOP AT messtab.
CONCATENATE messtab-tcode messtab-dyname messtab-dynumb messtab-msgtyp messtab-msgspra messtab-msgid messtab-msgnr INTO msg SEPARATED BY space.
PERFORM log USING 'i' msg.
ENDLOOP.
Code: Alles auswählen.
" goto dynpro 1000
bdcdata-fnam = 'BDC_OKCODE'.
bdcdata-fval = '/ELST'. " auch ohne Erfolg mit '/05' probiert
APPEND bdcdata.
CLEAR bdcdata.
Code: Alles auswählen.
Programm Screen Start-ID Field name Field Value
T FBV0
SAPMF05V 0100 X
BDC_OKCODE /ELST
BDC_CURSOR RF05V-BUKRS
RFPUEB00 1000 X
BDC_CURSOR BUDAT-LOW
BDC_OKCODE /00
BUKRS-LOW 0010
BUDAT-LOW 120416
USNAM-LOW
RFPUEB00 1000 X
BDC_CURSOR BUDAT-LOW
BDC_OKCODE =ONLI
BUKRS-LOW 0010
BUDAT-LOW 12.04.2016
RFPUEB00 1000 X
BDC_OKCODE /EE
BDC_CURSOR BUKRS-LOW
RF05V-BUKRS 0010