Hi Friends,
REPORT ZJBAPI_DELI_COMMIT.
DATA : deli_docu TYPE vbeln,
it_STOCK TYPE TABLE OF BAPIDLVREFTOSTO,
wa_STOCK TYPE BAPIDLVREFTOSTO,
it_return TYPE TABLE OF BAPIRET2,
wa_return TYPE BAPIRET2.
PARAMETER REF_DOC(10).
wa_stock-REF_DOC = REF_DOC.
APPEND wa_stock to it_stock.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_STO'
IMPORTING
DELIVERY = deli_docu
TABLES
stock_trans_items = it_stock
RETURN = it_return.
SKIP.
WRITE: / 'Delivery Document Number: ', deli_docu.
SKIP.
WRITE : / 'Return Values: '.
LOOP AT it_return INTO wa_return.
WRITE / wa_return-MESSAGE.
ENDLOOP.
CLEAR it_return.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
****************************************AUTO PICKING**********************************
data : wa_lips type lips,
it_lips TYPE TABLE OF lips,
wa_likp TYPE likp,
it_likp TYPE TABLE OF likp.
data : v_pikmg type lipsd-pikmg.
SELECT SINGLE * from lips into wa_lips where vbeln = deli_docu.
if sy-subrc <> 0.
message 'No value found from LIPS' type 'I'.
endif.
SELECT SINGLE * from likp into wa_likp where vbeln = deli_docu.
if sy-subrc <> 0.
message 'No value found from LIKP' type 'I'.
endif.
*read table it_lips into wa_lips index 1.
*read table it_likp into wa_likp index 1.
SELECT SINGLE rfmng from vbfa into v_pikmg
where vbelv = wa_lips-vbeln
and posnv = wa_lips-posnr
and vbeln = wa_lips-vgbel
and ( vbtyp_n = 'Q'
or vbtyp_v = 'J' ).
If v_pikmg is INITIAL.
data:wa_VBKOK type VBKOK.
data:wa_vbpok type vbpok,
it_VBPOK TYPE TABLE OF VBPOK.
wa_VBKOK-VBELN_VL = wa_likp-vbeln. " 0080001420
wa_VBKOK-VBTYP_VL = wa_likp-vbtyp. " J
wa_VBKOK-KODAT = wa_likp-kodat. " 01/09/2008
wa_VBPOK-VBELN_VL = wa_lips-vbeln. " 0080001420
wa_VBPOK-POSNR_VL = wa_lips-posnr. " 000010
wa_VBPOK-VBELN = wa_lips-vgbel. " 8200001248
wa_VBPOK-POSNN = wa_lips-vgpos. " 000010
wa_VBPOK-PIKMG = wa_lips-lfimg. " 1.000
wa_VBPOK-MATNR = wa_lips-matnr. " SC540206FUR2
wa_VBPOK-CHARG = wa_lips-charg. " 1000000009
wa_VBPOK-WERKS = wa_lips-werks. " 8380
append wa_vbpok to it_VBPOK.
CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING_1'
EXPORTING
VBKOK_WA = wa_VBKOK
SYNCHRON = 'X'
NO_MESSAGES_UPDATE_1 = ' '
NICHT_SPERREN_1 = ' '
AUFRUFER_T_1 = ' '
IF_ERROR_MESSAGES_SEND_1 = 'X'
IF_LATE_DELIVERY_UPD = ' '
IT_SERNR_UPDATE =
TABLES
VBPOK_TAB = it_VBPOK.
endif.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
This code is working fine in debug mode, but wn i execute normally, im getting an error message as, Delivery not found.
Plz solve my problem.
points will be awarded.