采购订单确认视图维护

data: lt_xuekes type table of UEKES,
       ls_xuekes type UEKES.


data: lt_ekes type table of ekes,
       ls_ekes type ekes.

data op type c.

 op = 'U'.    "修改
*op = 'D'.   "新增
*op = 'I'.   "删除

case op.

   when 'U'.


*读取确认
     CALL FUNCTION 'ZPP142_GET_EKES'
       EXPORTING
         I_EBELN = '4900177648'
         I_EBELP = '00010'
       TABLES
         T_ekes  = lt_ekes.
     .
*准备修改现有条目
     loop at lt_ekes into ls_ekes.
       MOVE-CORRESPONDING ls_ekes to ls_xuekes.
       ls_xuekes-eindt = '20180303'.
       ls_xuekes-kz = 'U'.
       append ls_xuekes to lt_xuekes.
       clear: ls_ekes.
     endloop.

     if lt_xuekes is not INITIAL.
       CALL FUNCTION 'ME_CONFIRMATION_UPDATE'
         EXPORTING
           I_EBELN       = '4900177648'
         TABLES
           XEKES         =  lt_xuekes
*    YEKES         =
                 .

       if sy-subrc = 0.

         commit WORK AND WAIT.
         write 'update ok'.
       else.
         write 'update not ok'.
       endif.
     endif.

   when 'I'.
*准备添加新条目

     clear:ls_xuekes,lt_xuekes.

     ls_xuekes-ebeln = '4900177648'.
     ls_xuekes-ebelp = '00010'.

     sort lt_ekes DESCENDING by ebeln ebelp etens.
     read table lt_ekes into ls_ekes index 1.

     if sy-subrc = 0.
       ls_xuekes-etens = ls_ekes-etens + 1.
     else.
       ls_xuekes-etens = '0001'.
     endif.

     ls_xuekes-ebtyp = 'LA'.
     ls_xuekes-eindt = '20160707'.
     ls_xuekes-lpein = '1'.
     ls_xuekes-erdat = sy-datum.
     ls_xuekes-ezeit = sy-uzeit.
     ls_xuekes-menge = '22.222'.
     ls_xuekes-estkz = '1'.
     ls_xuekes-kzdis = 'X'.
     ls_xuekes-xblnr = 'A-LJC-SB'.
     ls_xuekes-kz = 'I'.

     append ls_xuekes to lt_xuekes.

     BREAK-POINT.
     if lt_xuekes is not INITIAL.
       CALL FUNCTION 'ME_CONFIRMATION_UPDATE'
         EXPORTING
           I_EBELN       = '4900177648'
         TABLES
           XEKES         =  lt_xuekes
*    YEKES         =
                 .

       if sy-subrc = 0.

         commit WORK AND WAIT.
         write 'insert ok'.
       else.
         write 'insert not ok'.
       endif.
     endif.

   when 'D'.
     clear:ls_xuekes,lt_xuekes.

     data: lt_yuekes type table of UEKES,
           ls_yuekes type UEKES.
*读取确认
     CALL FUNCTION 'ZPP142_GET_EKES'
       EXPORTING
         I_EBELN = '4900177648'
         I_EBELP = '00010'
       TABLES
         T_ekes  = lt_ekes.
     .
*准备删除现有条目
     loop at lt_ekes into ls_ekes.
       MOVE-CORRESPONDING ls_ekes to ls_yuekes.
       ls_yuekes-kz = 'D'.
       append ls_yuekes to lt_yuekes.
       clear: ls_ekes.
     endloop.

     if lt_yuekes is not INITIAL.
       CALL FUNCTION 'ME_CONFIRMATION_UPDATE'
         EXPORTING
           I_EBELN = '4900177648'
         TABLES
           XEKES   = lt_xuekes
           YEKES   = lt_yuekes.

       if sy-subrc = 0.

         commit WORK AND WAIT.
         write 'Delete ok'.
       else.
         write 'Delete not ok'.
       endif.

     endif.
endcase.