2010 Feb 18 6:30 AM
Hi All,
WS_DELIVERY_UPDATE_2 is working fine for updating picking when i run the program in debug mode but not working when i run in normal mode ? Can anyone help me regarding this ?
Thanks.
2010 Feb 19 4:58 AM
hi,
use this function module it will work.
call function 'BAPI_DELIVERYPROCESSING_EXEC'
EXPORTING
DELIVERY_EXTEND =
TECHN_CONTROL =
tables
request = lt_request
createditems = lt_createditems
return = lt_return.
*
*loop at lt_return where type = 'A'
*or type = 'E'.
*exit.
*endloop.
if sy-subrc = 0.
Use the BAPI for Commit
*call function 'BAPI_TRANSACTION_COMMIT'
*exporting
*wait = 'H'.
carry out goods issue
l_vbkok-vbeln_vl = lt_createditems-DOCUMENT_NUMB.
l_vbkok-vbtyp_vl = 'A'.
l_vbkok-vbeln = lt_createditems-DOCUMENT_NUMB.
l_vbkok-wabuc = 'X'.
lx_vbpok-vbeln_vl = lt_createditems-DOCUMENT_NUMB.
lx_vbpok-posnr_vl = WA_DATA-posnr.
lx_vbpok-vbeln = lt_createditems-DOCUMENT_NUMB.
lx_vbpok-posnn = WA_DATA-posnr.
lx_vbpok-matnr = wa_data-matnr.
*lx_vbpok-charg = p_batch.
lx_vbpok-werks = wa_data-werks.
lx_vbpok-taqui = 'X'.
lx_vbpok-pikmg = wa_data-qty.
APPEND lx_vbpok ."TO li_vbpok.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = L_VBKOK
SYNCHRON = 'X'
COMMIT = 'X'
DELIVERY = lt_createditems-DOCUMENT_NUMB
UPDATE_PICKING = 'X'
NICHT_SPERREN = 'X'
IF_DATABASE_UPDATE = '1'
IF_ERROR_MESSAGES_SEND_0 = 'X'
TABLES
VBPOK_TAB = lx_vbpok
.
2010 Feb 18 11:49 AM
can you describe what it does if does not work as desired? any error messages?
2010 Feb 19 4:58 AM
hi,
use this function module it will work.
call function 'BAPI_DELIVERYPROCESSING_EXEC'
EXPORTING
DELIVERY_EXTEND =
TECHN_CONTROL =
tables
request = lt_request
createditems = lt_createditems
return = lt_return.
*
*loop at lt_return where type = 'A'
*or type = 'E'.
*exit.
*endloop.
if sy-subrc = 0.
Use the BAPI for Commit
*call function 'BAPI_TRANSACTION_COMMIT'
*exporting
*wait = 'H'.
carry out goods issue
l_vbkok-vbeln_vl = lt_createditems-DOCUMENT_NUMB.
l_vbkok-vbtyp_vl = 'A'.
l_vbkok-vbeln = lt_createditems-DOCUMENT_NUMB.
l_vbkok-wabuc = 'X'.
lx_vbpok-vbeln_vl = lt_createditems-DOCUMENT_NUMB.
lx_vbpok-posnr_vl = WA_DATA-posnr.
lx_vbpok-vbeln = lt_createditems-DOCUMENT_NUMB.
lx_vbpok-posnn = WA_DATA-posnr.
lx_vbpok-matnr = wa_data-matnr.
*lx_vbpok-charg = p_batch.
lx_vbpok-werks = wa_data-werks.
lx_vbpok-taqui = 'X'.
lx_vbpok-pikmg = wa_data-qty.
APPEND lx_vbpok ."TO li_vbpok.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = L_VBKOK
SYNCHRON = 'X'
COMMIT = 'X'
DELIVERY = lt_createditems-DOCUMENT_NUMB
UPDATE_PICKING = 'X'
NICHT_SPERREN = 'X'
IF_DATABASE_UPDATE = '1'
IF_ERROR_MESSAGES_SEND_0 = 'X'
TABLES
VBPOK_TAB = lx_vbpok
.
2010 Feb 19 12:52 PM