ECC
IF whead-mblnr IS NOT INITIAL AND whead-mblnr NE space.
SET PARAMETER ID 'AUN' FIELD whead-mblnr.
CALL TRANSACTION 'MB03' AND SKIP FIRST SCREEN.
ENDIF.
S4
CALL FUNCTION 'MIGO_DIALOG'
EXPORTING
I_ACTION = 'A04'
I_REFDOC = 'R02'
I_MBLNR = WHEAD-MBLNR
I_MJAHR = WHEAD-DOC_DATE+0(4)
EXCEPTIONS
ILLEGAL_COMBINATION = 1
OTHERS = 2.
s