2006 Apr 01 8:20 AM
Hi,
Is there any standard BAPI to upload data (Change delivery document ) into transaction code VL02N or should I have to go to BDC.?
If anyone done this before..Please send me sample code if possible.
Hi,
Is there any standard BAPI to upload data (Change delivery document ) into transaction code VL02N or should I have to go to BDC.?
If anyone done this before..Please send me sample code if possible.
2006 Apr 01 10:02 AM
CLEAR: GS_VBKOK, GT_VBPOK.
REFRESH: GT_VBPOK.
header data
GS_VBKOK-VBELN_VL = LIKP-VBELN.
GS_VBKOK-KZPOD = 'B'.
GS_VBKOK-PODAT = LIKP-PODAT.
GS_VBKOK-POTIM = LIKP-POTIM.
LOOP AT GT_LIPSPOD.
IF ( ( GT_LIPSPOD-GRUND EQ SPACE OR
GT_LIPSPOD-GRUND EQ '0000' ) AND NOT
GT_LIPSPOD-LFIMG_DIFF IS INITIAL ).
IF ( GT_LIPSPOD-GRUND EQ SPACE AND NOT
GT_LIPSPOD-LFIMG_DIFF IS INITIAL ).
MESSAGE I685(VL) WITH GT_LIPSPOD-POSNR.
MOVE 'X' TO LF_ERROR_QUIT.
ELSEIF ( ( GT_LIPSPOD-GRUND NE SPACE AND NOT
GT_LIPSPOD-GRUND EQ '0000' ) AND
GT_LIPSPOD-LFIMG_DIFF IS INITIAL ).
ELSEIF ( GT_LIPSPOD-GRUND NE SPACE AND
GT_LIPSPOD-LFIMG_DIFF IS INITIAL ).
MESSAGE I684(VL) WITH GT_LIPSPOD-POSNR GT_LIPSPOD-GRUND.
MOVE 'X' TO LF_ERROR_QUIT.
ENDIF.
GT_VBPOK-VBELN_VL = GT_LIPSPOD-VBELN.
GT_VBPOK-POSNR_VL = GT_LIPSPOD-POSNR.
GT_VBPOK-MATNR = GT_LIPSPOD-MATNR.
GT_VBPOK-CHARG = GT_LIPSPOD-CHARG.
GT_VBPOK-LIANP = 'X'.
GT_VBPOK-KZPOD = ' '.
GT_VBPOK-LFIMG = GT_LIPSPOD-LFIMG.
GT_VBPOK-VRKME = GT_LIPSPOD-VRKME.
GT_VBPOK-LGMNG = GT_LIPSPOD-LGMNG.
GT_VBPOK-MEINS = GT_LIPSPOD-MEINS.
APPEND GT_VBPOK.
ENDLOOP.
CHECK LF_ERROR_QUIT EQ SPACE.
CALL FUNCTION 'LE_POD_READ_IN_BUFFER'
TABLES
XTVPOD = GT_TVPOD.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = GS_VBKOK
SYNCHRON = 'X'
NO_MESSAGES_UPDATE = ' '
COMMIT = 'X'
DELIVERY = LIKP-VBELN
UPDATE_PICKING = ' '
NICHT_SPERREN = ' '
IF_CONFIRM_CENTRAL = ' '
IF_WMPP = ' '
TABLES
VBPOK_TAB = GT_VBPOK
PROT = LT_PROTT
TVPOD_TAB = GT_TVPOD. "n_772484
2006 Apr 01 11:26 AM
Hi Christopher!
If you are on release 620 or higher, you can also use BAPIs:
BAPI_OUTB_DELIVERY_CHANGE
BAPI_INB_DELIVERY_CHANGE
Regards,
Christian