Hi Folks,
I am updating KODAT from WS_delivery_update_2 for delivery but not able update in delivery. If anyone know is any field more we have to update in header structure for kodat update in delivery. Below what I have done through this I am able to update picking quantity but not date . Could anyone please suggest.
Loop at gt_datatab into lw_datatab.( data from external file)
WA_VBKOK-VBELN_VL = lw_datatab-vbeln
wa_vbok-posnr_vl = lw_datatab-posnr.
wa_vbok-kodat = lw_datatab-kodat.
SELECT SINGLE vbelv FROM VBFA into l_vbelv WHERE VBELN = WA_VBKOK-VBELN_VL AND posnn = lw_datatab-posnr.
IF SY-SUBRC = 0.
I_VBPOK-VBELN_VL = lw_datatab-vbeln.
I_VBPOK-POSNR_VL = lw_datatab-posnr.
ENDIF.
I_VBPOK-VBELN_VL = lw_datatab-vbeln.
I_VBPOK-POSNR_VL = lw_datatab-posnr.
SELECT SINGLE vbelv posnv FROM VBFA into ( l_vbelv, l_posnv ) WHERE VBELN = WA_VBKOK-VBELN_VL AND posnn = lw_datatab-posnr.
IF SY-SUBRC = 0.
I_VBPOK-VBELN = l_vbelv. " Sales and distribution document
I_VBPOK-POSNN = l_posnv. " Item of an SD document
ENDIF.
I_VBPOK-MATNR = lw_datatab-matnr
I_VBPOK-CHARG = lw_datatab-matnr.
I_VBPOK-PIKMG = lw_datatab-matnr.
APPEND I_VBPOK.
CALL FUNCTION 'WS_DELIVERY_UPDATE_2'
EXPORTING vbkok_wa = wa_vbkok " Header Data
synchron = 'X' commit = 'X'
delivery = lw_datatab-vbeln
update_picking = 'X'
if_database_update_1 = '1'
TABLES vbpok_tab = i_vbpok " Item Data
prot = it_return. " Message Return Table
Endloop.
