Hi,
I worked on similar issue earlier, just try whether my solution will work for you or not ..
1) First check the table 'SHP_IDX_GDSI', to findout whether the PGI done for the delivery or not, The table SHP_IDX_GDSI will store all the deliveries for whose PGI not done.
2) If you are sure that PGI is not done for the delivery then, you can use the below logic, when order quantity is confirmed.
DATA: l_kostk TYPE vbuk-kostk."Picking
*If order quantity is picked completely
*Check the status of picking
SELECT SINGLE kostk FROM vbuk
INTO l_kostk
WHERE vbeln = w_del.
if l_kostk = c_charC.
f_flag2 = c_charx.
else.
clear f_flag2.
endif.
READ TABLE i_idoc_data WITH KEY segnam = c_e1edl18 INTO wa_idoc_data.
IF sy-subrc = 0.
MOVE wa_idoc_data-sdata TO wa_e1edl18.
IF f_flag2 = c_charx.
wa_e1edl18-qualf = 'PGI'.
else.
clear wa_e1edl18-qualf.
endif.
MOVE wa_e1edl18 TO wa_idoc_data-sdata.
MODIFY i_idoc_data FROM wa_idoc_data
TRANSPORTING sdata WHERE segnam = c_e1edl18.
ENDIF.
CALL FUNCTION 'IDOC_INPUT_DELVRY'
EXPORTING
input_method = w_in_method
mass_processing = w_mass
TABLES
idoc_contrl = idoc_contrl
idoc_data = i_idoc_data
idoc_status = idoc_status
return_variables = return_variables
serialization_info = serialization_info.
Regards,
Donepudi.
Reward, if its helpful.
Bluesky
