用CSAI_BOM_MAINTAIN修改WBS BOM

注意在修改之前要先用'CSAI_BOM_READ读取该BOM的数据 。

可实现对BOM行项目做增删改的操作，而且可以带上更改号。

 

 

REPORT  ZTEST5.

data wa_csin type CSIN.

data tab_stpob type table of STPOB.
data tab_STKOB type table of STKOB.
data tab_DEP_DATA type table of CSDEP_DAT.
 data tab_DEP_DESCR type table of CSDEP_DESC.
data tab_DEP_ORDER type table of CSDEP_ORD.
data tab_DEP_SOURCE type table of CSDEP_SORC.
data tab_DEP_DOC type table of CSDEP_DOC.

data g_warn_stlnr type STZUB-STLNR.

data g_flwarning type CAPIFLAG-FLWARNING.
cLEAR wa_csin.

wa_csin-MATNR = '000000000000001040'.
wa_csin-EMENG = 2.
wa_csin-datuv = sy-datum.
wa_csin-PSPNR = '00065061'.
wa_csin-werks = '2000'  .
wa_csin-stlan = '1'.  " 4
wa_CSIN-STLNR = '00001548'.
wa_csin-stlty = 'P'.


data: l_text type string.


CALL FUNCTION 'CSAI_BOM_READ'
  EXPORTING
    ECSIN              = wa_csin
  IMPORTING
    fl_warning = g_flwarning
  TABLES
   t_stpob            = tab_stpob
   T_STKOB            = tab_stkob
   T_DEP_DATA         = tab_dep_data
   T_DEP_DESCR        = tab_dep_descr
   T_DEP_ORDER        = tab_dep_order
   T_DEP_SOURCE       = tab_dep_source
   T_DEP_DOC          = tab_dep_doc
 EXCEPTIONS
   ERROR              = 1
   OTHERS             = 2
          .
IF SY-SUBRC <> 0.
   MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO into l_text
      WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   write l_text.
else.



data wa_stpob  like STPOB.
data wa_stzub  like STZUB.

data wa_STKOB like STKOB.


* wa_csin-aennr = '009900159470'.


read table tab_stkob into wa_stkob index 1.
wa_stkob-stlST = '1'.
WA_STKOB-BMENG = 3.
WA_STKOB-AENNR = 'A-4008057012'.
CLEAR wa_stzub.
wa_stzub-stlty = 'P'.



loop at tab_stpob into wa_stpob.
   IF WA_STPOB-IDNRK ='000000000000001090'.
*      WA_stpob-vbkz = 'D'.     "与删除相关
*      wa_stpob-aennr = 'A-4008057012'.
*      MODIFY TAB_STPOB FROM WA_STPOB.
   elseIF WA_STPOB-IDNRK = '000000000000001080'.
       wa_stpob-menge = 150.
       wa_stpob-aennr = 'A-4008057012'.
       modify tab_stpob from wa_stpob.
   ENDIF.
   CLEAR wa_stpob.
endloop.

 

 " 新增行项目
*CLEAR wa_stpob.
*wa_stpob-stlty = 'P'.
*wa_stpob-idnrk = '000000000000001201'.
*wa_stpob-postp = 'L'.
*wa_stpob-posnr = '0418' .
*wa_stpob-menge = 6.
*WA_STPOB-AENNR = 'A-4008057012'.
*wa_stpob-potx1 = 'liu'.
*wa_stpob-potx2 =  'jin'.
*wa_stpob-datuv = sy-datum.
*APPEND wa_stpob TO tab_stpob.


*CLEAR wa_stpob.
*wa_stpob-stlty = 'P'.
*wa_stpob-idnrk = '000000000000001060'.
*wa_stpob-postp = 'L'.
*wa_stpob-posnr = '0016' .
*wa_stpob-menge = 3.
*wa_stpob-potx1 = 'liu2'.
*wa_stpob-potx2 =  'jin3'.
*wa_stpob-datuv = sy-datum.
*APPEND wa_stpob TO tab_stpob.
*CLEAR wa_stpob.

data tab2 like tab_stpob.

WA_CSIN-AENNR = 'A-4008057012'.

CALL FUNCTION 'CSAI_BOM_MAINTAIN'
  EXPORTING
*   FL_BOM_CREATE                      = ' '
*   FL_NEW_ITEM                        = ''
*   FL_COMPLETE                        = ' '
    ECSIN                              = wa_csin
    ESTKOB                             = wa_stkob
    ESTZUB                             = wa_stzub
*   FL_NO_CHANGE_DOC                   = ' '
    FL_COMMIT_AND_WAIT                 = 'X'
*   FL_NO_COMMIT_WORK                  = ' '
*   FL_ALE                             = ' '
*   FL_DEFAULT_VALUES                  = 'X'
*   FL_NEW_ROMEN                       = 'X'
*   FL_RECURSIVE                       = ' '
   FL_IMPLICIT_SUBITEM_DELETION       = 'X'
*  IMPORTING
*    fl_warning = g_flwarning
*   ASTKOB                             =
*   ASTZUB                             =
  TABLES
    T_STPOB                            =  tab_stpob
*    ET_STPOB                           = tab2
*   T_STPUB                            =
*   T_LTX_ITM                          =
*   T_LTX_BOM                          =
 EXCEPTIONS
   ERROR                              = 1
   OTHERS                             = 2
          .
IF sy-subrc NE 0.   " here Sy-subrc is 1
  MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO into l_text
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
          write l_text.

else.
  write 'OK'.

   CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
     EXPORTING
       WAIT          = 'X'
*    IMPORTING
*      RETURN        =
             .

ENDIF.




ENDIF.