用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.