Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

VL02N

Former Member
0 Likes
582

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.

2 REPLIES 2
Read only

JackGraus
Active Contributor
0 Likes
494

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

Read only

christian_wohlfahrt
Active Contributor
0 Likes
494

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