ABAP-交货单BAPI增强

 1 *三代增强
 2 *LE_SHP_DELIVERY_PROC
 3   METHOD if_ex_le_shp_delivery_proc~change_delivery_item.
 4 
 5     TYPES:BEGIN OF ty_data ,
 6             posnr      TYPE lips-posnr,
 7             lgort      TYPE lips-lgort,
 8           END OF ty_data.
 9 
10     DATA:lt_import TYPE TABLE OF ty_data,
11          ls_import TYPE ty_data.
12 
13     IMPORT lt_import = lt_import FROM MEMORY ID 'ZBSD011'.
14     IF sy-subrc = 0 .
15 
16       READ TABLE lt_import INTO ls_import WITH KEY posnr = cs_lips-posnr .
17       IF sy-subrc = 0 .
18         IF ls_import-lgort IS NOT INITIAL .
19           cs_lips-lgort = ls_import-lgort .
20         ENDIF .
21 
22     ENDIF .
23 
24   ENDMETHOD.