BOM

清疚 2023-01-08 05:18 145阅读 0赞

report zpp001.  
  
*\*----------------------------------------------------------------------\**  
*\* **数据字典引用*  
*\*----------------------------------------------------------------------\**  
tables:  
  mast,  
  stko,  
  sscrfields.  
*\*----------------------------------------------------------------------\**  
*\* **类型声明*  
*\*----------------------------------------------------------------------\**  
types:  
  begin of ty\_upload\_data,  
    stktx   type stko\-stktx,  
    stlan   type mast\-stlan,  
    werks   type mast\-werks,  
    stlal   type mast\-stlal,  
    matnr   type mast\-matnr,  
    maktx   type makt\-maktx,  
    bmeng   type menge\_d,  
    idnrk   type idnrk,  
    ojtxp   type ojtxp,  
    alpgr   type stpo\-alpgr,  
    alprf   type stpo\-alprf,  
    menge   type menge\_d,  
    ausch   type stpo\-ausch,  
    avoau   type stpo\-avoau,  
    sanka   type stpo\-sanka,  
    ewahr   type stpo\-ewahr,  
    select  type char01,  
    light   type icon\_d,  
    message type bapi\_msg,  
    error   type char01,  
    datuv   type d,  
    bmein   type stko\-bmein,  
    meins   type stpo\-meins,  
    yield   type p decimals 2, *"**收率*  
  end of ty\_upload\_data,  
  
  begin of ty\_stpo,  
    stlty type stpox\-stlty,  
    stlnr type stpox\-stlnr,  
    stlal type mast\-stlal,  
    matnr type matnr,  
    maktx type maktx,  
    bmeng type stko\-bmeng,  
    bmein type stko\-bmein,  
    stktx type stko\-stktx,  
  end of ty\_stpo,  
  
  begin of ty\_mast\_key,  
    matnr type matnr,  
    werks type werks\_d,  
  end of ty\_mast\_key,  
  
  tt\_mast\_key type standard table of ty\_mast\_key with non-unique default key.  
*\*----------------------------------------------------------------------\**  
*\* **全局变量声明*  
*\*----------------------------------------------------------------------\**  
constants:  
  begin of gc\_icon,  
    green  type icon\_d value '@5B@',  
    red    type icon\_d value '@5C@',  
    yellow type icon\_d value '@5D@',  
  end of gc\_icon,  
  
  gc\_bom\_group\_identification type bapi1080\_bgr\_c\-bom\_group\_identification  
                              value 'BAPI\_SMP\_COL1',  *"*  
  gc\_object\_id                type bapi1080\_bgr\_c\-object\_id value 'SIMPLE1'.  
  
data:  
  gt\_result type standard table of ty\_upload\_data with non-unique default key.  
*\*----------------------------------------------------------------------\**  
*\* **宏定义*  
*\*----------------------------------------------------------------------\**  
define mc\_add\_fieldcat.  
  clear ls\_fieldcat.  
  ls\_fieldcat\-fieldname = &1.  
  ls\_fieldcat\-coltext   = &2.  
  ls\_fieldcat\-scrtext\_l = &2.  
  ls\_fieldcat\-scrtext\_m = &2.  
  ls\_fieldcat\-scrtext\_s = &2.  
  ls\_fieldcat\-ref\_table = &3.  
  
  if &4 is initial.  
    ls\_fieldcat\-ref\_field = &1.  
  else.  
    ls\_fieldcat\-ref\_field = &4.  
  endif.  
  
*\*  ls\_fieldcat-qfieldname = &5.*  
  case &1.  
    when 'LIGHT'.  
      ls\_fieldcat\-icon     = abap\_true.  
    when 'SELECT'.  
      ls\_fieldcat\-checkbox = abap\_true.  
      ls\_fieldcat\-edit     = abap\_true.  
  endcase.  
  
  append ls\_fieldcat to pt\_fieldcat.  
end-of-definition.  
*\*----------------------------------------------------------------------\**  
*\* **选择屏幕*  
*\*----------------------------------------------------------------------\**  
selection-screen function key 1.*"**下载导入模板*  
selection-screen begin of block b1 with frame title text\-001.  
  parameters:  
    p\_upload radiobutton group gp1 user-command sel,  
    p\_query  radiobutton group gp1.  
selection-screen end of block b1.  
selection-screen begin of block b2 with frame title text\-002.  
  parameters:  
    p\_path type rlgrap\-filename modif id m01.  
selection-screen end of block b2.  
selection-screen begin of block b3 with frame title text\-003.  
  select-options:  
    s\_werks for mast\-werks modif id m02,  
    s\_matnr for mast\-matnr modif id m02,  
    s\_stlan for mast\-stlan modif id m02,  
    s\_stlal for mast\-stlal modif id m02,  
    s\_annam for mast\-annam modif id m02,  
    s\_andat for mast\-andat modif id m02,  
    s\_stlst for stko\-stlst modif id m02.  
  parameters:  
    p\_multi as checkbox modif id m02.  
selection-screen end of block b3.  
selection-screen begin of block b4 with frame title text\-004.  
  selection-screen begin of line.  
    selection-screen: comment 1(75) text\-w01 modif id m01.  
  selection-screen end of line.  
  
  selection-screen begin of line.  
    selection-screen: comment 1(75) text\-w02 modif id m01.  
  selection-screen end of line.  
  
  selection-screen begin of line.  
    selection-screen: comment 1(75) text\-w03 modif id m01.  
  selection-screen end of line.  
selection-screen end of block b4.  
*\*----------------------------------------------------------------------\**  
*\* initialization/**初始化*  
*\*----------------------------------------------------------------------\**  
initialization.  
  perform initialization.  
*\*----------------------------------------------------------------------\**  
*\* **选择屏幕显示控制*  
*\*----------------------------------------------------------------------\**  
at selection-screen output.  
  perform pbo.  
*\*----------------------------------------------------------------------\**  
*\* **搜索帮助*  
*\*----------------------------------------------------------------------\**  
at selection-screen on value-request for p\_path.  
  perform f4\_path changing p\_path.  
*\*at selection-screen on value-request for field2.*  
*\*  perform f4\_field2.*  
*\*----------------------------------------------------------------------\**  
*\* **检查用户输入*  
*\*----------------------------------------------------------------------\**  
at selection-screen.  
  perform at\_selection\_screen.  
*\*----------------------------------------------------------------------\**  
*\* start-of-selection/**开始选择屏幕*  
*\*----------------------------------------------------------------------\**  
start-of-selection.  
  perform start\_of\_selection.  
*\*----------------------------------------------------------------------\**  
*\* end-of-selection/**结束选择屏幕（程序结束处理，输出等）*  
*\*----------------------------------------------------------------------\**  
end-of-selection.  
  perform end\_of\_selection.  
*\*&---------------------------------------------------------------------\**  
*\*& Form INITIALIZATION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form initialization .  
  data:  
    ls\_functxt type smp\_dyntxt.  
  
  ls\_functxt\-icon\_id    = icon\_export.  
  ls\_functxt\-icon\_text  =  
  ls\_functxt\-quickinfo  = text\-q01.  
  sscrfields\-functxt\_01 = ls\_functxt.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form START\_OF\_SELECTION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form start\_of\_selection .  
  
  case abap\_true.  
    when p\_upload.  
      perform upload.  
    when p\_query.  
      perform query.  
  endcase.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form END\_OF\_SELECTION*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form end\_of\_selection .  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form pbo*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form pbo .  
  data:  
    lv\_hide type char03.  
  
  case abap\_true.  
    when p\_upload.  
      lv\_hide = 'M02'.  
    when p\_query.  
      lv\_hide = 'M01'.  
    when others.  
      lv\_hide = 'M02'.  
  endcase.  
  
  loop at screen.  
    if screen\-group1 = lv\_hide.  
      screen\-active = 0.  
      modify screen.  
    endif.  
  endloop.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form f4\_path*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- P\_PATH*  
*\*&---------------------------------------------------------------------\**  
form f4\_path  changing p\_path type rlgrap\-filename.  
  
  call function 'WS\_FILENAME\_GET'  
    exporting  
*\*     mask             = ',\*.\* ,\*.\*.'*  
      mode             = '0'  
      title            = '请选择要上传的信息文件'  
    importing  
      filename         = p\_path  
    exceptions  
      inv\_winsys       = 1  
      no\_batch         = 2  
      selection\_cancel = 3  
      selection\_error  = 4  
      others           = 5.  
  if sy\-subrc <> 0.  
*\*    message id sy-msgid type sy-msgty number sy-msgno*  
*\*            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.*  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form upload*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form upload .  
  
  if p\_path is not initial.  
    perform get\_upload\_data.  
  
    if lines( gt\_result ) > 0.  
      perform show\_data\_upload.  
    else.  
      message text\-s04 type 'S'.  
    endif.  
  else.  
    message text\-s03 type 'S'.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form query*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form query .  
  
  perform check\_input.  
  
  perform get\_data.  
  
  if lines( gt\_result ) > 0.  
    perform show\_data.  
  else.  
    message s001(00) with text\-s02.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form check\_input*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form check\_input .  
  
  if s\_werks\[\] is initial.  
    message s001(00) with text\-s01 display like 'E'.  
    stop.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form get\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form get\_data .  
  data:  
    lt\_mast     type standard table of ty\_upload\_data with non-unique default key,  
    ls\_mast     type ty\_upload\_data,  
    ls\_result   type ty\_upload\_data,  
    lt\_stb      type standard table of stpox with non-unique default key,  
    ls\_stb      type stpox,  
    lt\_stpo     type standard table of ty\_stpo with non-unique default key,  
    ls\_stpo     type ty\_stpo,  
    lv\_total    type i,  
    lv\_index    type i,  
    lv\_menge    type stpo\-menge,  
    lt\_mast\_key type tt\_mast\_key,  
    ls\_mast\_key type ty\_mast\_key.  
  
  select mast~matnr  
         werks  
         stktx  
         stlan  
         mast~stlal  
         bmeng  
         makt~maktx  
         bmein  
    into corresponding fields of table lt\_mast  
    from mast  
    join stko  
    on stko~stlty = 'M'  
    and mast~stlnr = stko~stlnr  
    and mast~stlal = stko~stlal  
    left join makt  
    on makt~matnr = mast~matnr  
    and makt~spras = sy\-langu  
    where mast~matnr in s\_matnr  
      and werks in s\_werks  
      and stlan in s\_stlan  
      and mast~stlal in s\_stlal  
      and mast~annam in s\_annam  
      and mast~andat in s\_andat  
      and stlst in s\_stlst.  
  
  lv\_total = lines( lt\_mast ).  
  
  loop at lt\_mast into ls\_mast.  
  
    lv\_index = lv\_index + 1.  
  
    perform progress\_indicator\_percentage using lv\_index  
                                                lv\_total  
                                                text\-p01.  
  
    call function 'CS\_BOM\_EXPL\_MAT\_V2'  
      exporting  
        aufsw                 = ' '  
        capid                 = 'PP01'  
        datuv                 = sy\-datum *"S\_DATUV-LOW                     "v1-19 add*  
        ehndl                 = '1'  
        mbwls                 = ' '  
        mtnrv                 = ls\_mast\-matnr  
*\*       mehrs                 = p\_multi*  
        mmory                 = '1'  
        werks                 = ls\_mast\-werks  
        aumgb                 = 'X'  
        stlal                 = ls\_mast\-stlal  
        stlan                 = ls\_mast\-stlan  
        emeng                 = ls\_mast\-bmeng  
      tables  
        stb                   = lt\_stb  
      exceptions  
        material\_not\_found    = 1  
        no\_plant\_data         = 2  
        no\_bom\_found          = 3  
        no\_suitable\_bom\_found = 4  
        alt\_not\_found         = 5  
        missing\_authorization = 6  
        error\_message         = 7  
        others                = 8.  
  
    loop at lt\_stb into ls\_stb.  
      clear ls\_result.  
      move-corresponding ls\_mast to ls\_result.  
  
      move-corresponding ls\_stb to ls\_result.  
  
      append ls\_result to gt\_result.  
  
      ls\_mast\_key\-matnr = ls\_stb\-idnrk.  
      ls\_mast\_key\-werks = ls\_stb\-werks.  
      collect ls\_mast\_key into lt\_mast\_key.  
    endloop.  
  
  endloop.  
  
  if p\_multi = abap\_true.  
    perform bom\_explosion using lt\_mast\_key.  
  endif.  
  
  sort gt\_result by werks matnr stlan stlal idnrk.  
  delete adjacent duplicates from gt\_result comparing werks matnr stlan stlal idnrk.  
  
  lt\_mast = gt\_result.  
  delete adjacent duplicates from lt\_mast comparing werks matnr stlan stlal.  
  
  *"**计算收率*  
  *"**基本数量**/**每个组件单位为**KG**的正需求的【组件需求数量】的和*  
  loop at lt\_mast into ls\_mast.  
  
    clear lv\_menge.  
  
    read table gt\_result with key werks = ls\_mast\-werks  
                                  matnr = ls\_mast\-matnr  
                                  stlan = ls\_mast\-stlan  
                                  stlal = ls\_mast\-stlal  
                                  binary search  
                                  transporting no fields.  
    if sy\-subrc = 0.  
      lv\_index = sy\-tabix.  
  
      loop at gt\_result into ls\_result from lv\_index.  
  
        if ls\_result\-werks <> ls\_mast\-werks  
          or ls\_result\-matnr <> ls\_mast\-matnr  
          or ls\_result\-stlan <> ls\_mast\-stlan  
          or ls\_result\-stlal <> ls\_mast\-stlal.  
          exit.  
        endif.  
  
        if ls\_result\-menge > 0  
          and ls\_result\-meins = 'KG'  
          and ( ls\_result\-alprf = '00' or ls\_result\-alprf = '01' ).  
  
          lv\_menge = lv\_menge + ls\_result\-menge.  
        endif.  
      endloop.  
  
      ls\_result\-yield = switch \#( lv\_menge when 0 then 0  
                                           else ls\_mast\-bmeng / lv\_menge \* 100 ).  
  
      modify gt\_result from ls\_result transporting yield  
                                      where werks = ls\_mast\-werks  
                                        and matnr = ls\_mast\-matnr  
                                        and stlan = ls\_mast\-stlan  
                                        and stlal = ls\_mast\-stlal.  
    endif.  
  endloop.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form show\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form show\_data .  
  data:  
    ls\_layout   type lvc\_s\_layo,  
    lt\_fieldcat type lvc\_t\_fcat.  
  
  *"**设置布局*  
  ls\_layout\-cwidth\_opt = 'X'.       *"**列宽自适应*  
  ls\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  perform fill\_fieldcat changing lt\_fieldcat.  
  
  call function 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    exporting  
      i\_callback\_program = sy\-repid   *"**回调程序名*  
*\*     i\_callback\_pf\_status\_set = 'PF\_STATUS\_SET'*  
*\*     i\_callback\_user\_command  = 'USER\_COMMAND'*  
      is\_layout\_lvc      = ls\_layout    *"**布局*  
      it\_fieldcat\_lvc    = lt\_fieldcat  *"**字段目录*  
      i\_save             = 'A'  
    tables  
      t\_outtab           = gt\_result   *"**所要显示数据的内表*  
    exceptions  
      program\_error      = 1  
      others             = 2.  
  if sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  endif.  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form PROGRESS\_INDICATOR\_PERCENTAGE*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> p\_tabix*  
*\*&      --> p\_total*  
*\*&      --> p\_text*  
*\*&---------------------------------------------------------------------\**  
form progress\_indicator\_percentage using p\_tabix type sy\-tabix  
                                         p\_total type sy\-tabix  
                                         p\_text.  
  data:  
    lv\_percentage type i,  
    lv\_text       type c length 150.  
  
  statics:  
    lv\_old\_percentage type i value \-1.  
  
  lv\_percentage = p\_tabix \* 100 / p\_total.  
  lv\_text       = |\{ p\_text \}(\{ p\_tabix \}/\{ p\_total \})...|.  
  *"**显示进度*  
  if lv\_old\_percentage <> lv\_percentage.  
    call function 'SAPGUI\_PROGRESS\_INDICATOR'  
      exporting  
        percentage = lv\_percentage  
        text       = lv\_text.  
  
    lv\_old\_percentage = lv\_percentage.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form fill\_fieldcat*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- LT\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
form fill\_fieldcat  changing pt\_fieldcat type lvc\_t\_fcat.  
  data:  
    ls\_fieldcat   type lvc\_s\_fcat.  
  
  mc\_add\_fieldcat:  
    'WERKS' text\-h01 'MAST' '',  
    'MATNR' text\-h02 'MAST' '',  
    'MAKTX' text\-h03 'MAKT' '',  
    'IDNRK' text\-h04 'STPO' '',  
    'OJTXP' text\-h05 'STPOX' '',  
    'ALPGR' text\-h06 'STPOX' '',  
    'ALPRF' text\-h07 'STPOX' '',  
    'EWAHR' text\-h08 'STPOX' '',  
    'MENGE' text\-h09 'STPOX' '',  
    'STKTX' text\-h10 'STKO' '',  
    'STLAN' text\-h11 'MAST' '',  
    'STLAL' text\-h12 'STKO' '',  
    'AUSCH' text\-h13 'STPOX' '',  
    'AVOAU' text\-h14 'STPOX' '',  
    'BMENG' text\-h17 'STKO' '',  
    'BMEIN' text\-h18 'STKO' '',  
    'MEINS' text\-h19 'STPO' '',  
    'YIELD' text\-h20 '' ''.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form get\_upload\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form get\_upload\_data .  
  data:  
    lt\_excel\_data                 type zsalsmex\_tabline2 occurs 0 with header line,  
    ls\_excel\_data                 type zsalsmex\_tabline2,  
    ls\_result                     type ty\_upload\_data,  
    lr\_cx\_sy\_conversion\_no\_number type ref to cx\_sy\_conversion\_no\_number.  
  field-symbols <fs\_value>.  
  
  call function 'ZALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
    exporting  
      filename                = p\_path  
      i\_begin\_col             = 1  
      i\_begin\_row             = 2        *"**读取开始行**: 5.*  
      i\_end\_col               = 35       *"**读取的列数*  
      i\_end\_row               = 50000    *"**最多读取**5**万行** "65535.*  
    tables  
      intern                  = lt\_excel\_data  
    exceptions  
      inconsistent\_parameters = 1  
      upload\_ole              = 2  
      others                  = 3.  
  
  loop at lt\_excel\_data into ls\_excel\_data.  
    at new row.  
      clear ls\_result.  
    endat.  
  
    try.  
        assign component ls\_excel\_data\-col of structure ls\_result to <fs\_value>.  
        move ls\_excel\_data\-value to <fs\_value>.  
      catch cx\_sy\_conversion\_no\_number into lr\_cx\_sy\_conversion\_no\_number.  
  
        call function 'UNITS\_STRING\_CONVERT'  
          exporting  
            units\_string  = ls\_excel\_data\-value  
            dcpfm         = 'X'  
          importing  
            units         = <fs\_value>  
          exceptions  
            invalid\_type  = 1  
            error\_message = 2  
            others        = 3.  
  
        if sy\-subrc <> 0.  
          ls\_result\-message = ls\_result\-message && ';' && |\{ ls\_excel\_data\-value \}\{ text\-e04 \}|.  
        endif.  
    endtry.  
  
    at end of row.  
  
      if ls\_result\-stlan <> 'E'  
        and ls\_result\-stlan <> 'P'.  
  
        ls\_result\-message = ls\_result\-message && ';' && text\-e01.  
      endif.  
  
      *"**基本数量不能为负数*  
      if ls\_result\-bmeng < 0.  
        ls\_result\-message = ls\_result\-message && ';' && text\-e05.  
      endif.  
  
*\*      if ls\_result-menge < 0.*  
*\*        ls\_result-message = ls\_result-message && ';' && text-e06.*  
*\*      endif.*  
  
      perform conversion\_exit\_matn1\_input changing ls\_result\-matnr  
                                                   ls\_result\-message.  
  
      perform conversion\_exit\_matn1\_input changing ls\_result\-idnrk  
                                                   ls\_result\-message.  
  
      ls\_result\-stlal = |\{ ls\_result\-stlal alpha = in \}|.  
      ls\_result\-datuv = sy\-datum.  
  
      if ls\_result\-message is not initial.  
        ls\_result\-error = abap\_true.  
  
        condense ls\_result\-message.  
        shift ls\_result\-message left deleting leading ';'.  
      endif.  
  
      append ls\_result to gt\_result.  
    endat.  
  endloop.  
  
  sort gt\_result by werks matnr stlan stlal.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form at\_selection\_screen*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form at\_selection\_screen .  
  
  case sscrfields\-ucomm.  
    when 'FC01'.  
      perform template\_download.*"**下载通过**SMW0**上传的导入文件模版*  
  endcase.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form template\_download*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form template\_download .  
  data:  
    lv\_objid    type w3objid value sy\-repid,  
    lv\_filename type string value 'BOM导入模版'.  
  
  call function 'ZFM\_TEMPLATE\_DOWNLOAD'  
    exporting  
      i\_objid    = lv\_objid  
      i\_filename = lv\_filename  
*\*     i\_extension = 'xls'*  
    exceptions  
      error      = 1  
      others     = 2.  
  if sy\-subrc <> 0.  
    message id sy\-msgid type sy\-msgty number sy\-msgno  
      with sy\-msgv1 sy\-msgv2 sy\-msgv3 sy\-msgv4.  
  else.  
    clear:sscrfields\-ucomm.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form CONVERSION\_EXIT\_MATN1\_INPUT*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- p\_matnr*  
*\*&---------------------------------------------------------------------\**  
form conversion\_exit\_matn1\_input  changing p\_matnr type matnr  
                                           p\_message type bapi\_msg.  
  
  call function 'CONVERSION\_EXIT\_MATN1\_INPUT'  
    exporting  
      input         = p\_matnr  
    importing  
      output        = p\_matnr  
    exceptions  
      error\_message = 1  
      length\_error  = 2  
      others        = 3.  
  
  if sy\-subrc <> 0.  
    p\_message = p\_message && ';' && |\{ text\-e02 \}：\{ p\_matnr \}\{ text\-e03 \}|.  
  endif.  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form show\_data\_upload*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form show\_data\_upload .  
  data:  
    ls\_layout   type lvc\_s\_layo,  
    lt\_fieldcat type lvc\_t\_fcat.  
  
  *"**设置布局*  
  ls\_layout\-cwidth\_opt = 'X'.       *"**列宽自适应*  
  ls\_layout\-zebra      = 'X'.      *"**斑马线*  
  ls\_layout\-box\_fname  = 'SELECT'.  
  
  perform fill\_fieldcat\_upload changing lt\_fieldcat.  
  
  call function 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    exporting  
      i\_callback\_program       = sy\-repid   *"**回调程序名*  
      i\_callback\_pf\_status\_set = 'PF\_STATUS\_SET'  
      i\_callback\_user\_command  = 'USER\_COMMAND'  
      is\_layout\_lvc            = ls\_layout    *"**布局*  
      it\_fieldcat\_lvc          = lt\_fieldcat  *"**字段目录*  
      i\_save                   = 'A'  
    tables  
      t\_outtab                 = gt\_result   *"**所要显示数据的内表*  
    exceptions  
      program\_error            = 1  
      others                   = 2.  
  if sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  endif.  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  pf\_status\_set*  
*\*&---------------------------------------------------------------------\**  
*\*       **设置**ALV**状态栏*  
*\*----------------------------------------------------------------------\**  
*\*      -->RT\_EXTAB   text*  
*\*----------------------------------------------------------------------\**  
form pf\_status\_set using pt\_extab type slis\_t\_extab.  
  
  set pf-status 'STANDARD' excluding pt\_extab.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*&      Form  FRM\_PF\_STATUS\_M*  
*\*&---------------------------------------------------------------------\**  
*\*       **设置**ALV**状态栏*  
*\*----------------------------------------------------------------------\**  
*\*      -->RT\_EXTAB   text*  
*\*----------------------------------------------------------------------\**  
form user\_command using p\_ucomm like sy\-ucomm  
                        ps\_selfield type slis\_selfield.  
  
  ps\_selfield\-refresh    = abap\_true.  
  ps\_selfield\-col\_stable = abap\_true.  
  ps\_selfield\-row\_stable = abap\_true.  
  
  case p\_ucomm.  
    when 'CREATE'.  
      perform create.  
  
    when others.  
  endcase.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form create*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
form create .  
  data:  
    lt\_key                type standard table of ty\_upload\_data with non-unique default key,  
    ls\_key                type ty\_upload\_data,  
    lv\_tabix              type sy\-tabix,  
    lv\_item\_no            type numc4,  
    lv\_total              type i,  
    ls\_bomgroup           type bapi1080\_bgr\_c,  
    lt\_bomgroup           type table of bapi1080\_bgr\_c,  
    ls\_variants           type bapi1080\_bom\_c,  
    lt\_variants           type table of bapi1080\_bom\_c,  
    ls\_items              type bapi1080\_itm\_c,  
    lt\_items              type table of bapi1080\_itm\_c,  
    lt\_return             type table of bapiret2,  
    ls\_return             type bapiret2,  
    ls\_materialrelations  type bapi1080\_mbm\_c,  
    lt\_materialrelations  type table of bapi1080\_mbm\_c,  
    ls\_itemassignments    type bapi1080\_rel\_itm\_bom\_c,  
    lt\_itemassignments    type table of bapi1080\_rel\_itm\_bom\_c,  
    ls\_subitemassignments type bapi1080\_rel\_sui\_itm\_c,  
    lt\_subitemassignments type table of bapi1080\_rel\_sui\_itm\_c,  
    ls\_subitems           type bapi1080\_sui\_c,  
    lt\_subitems           type table of bapi1080\_sui\_c.  
  
  read table gt\_result with key select = abap\_true  
                                transporting no fields.  
  if sy\-subrc <> 0.  
    message text\-s05 type 'S' display like 'E'.  
    exit.  
  endif.  
  
  move-corresponding gt\_result to lt\_key.  
  delete lt\_key where select = space.  
  
  sort lt\_key by werks matnr stlan stlal.  
  sort gt\_result by werks matnr stlan stlal.  
  delete adjacent duplicates from lt\_key comparing werks matnr stlan stlal.  
  
  *"**检查是否包含错误数据*  
  loop at lt\_key into ls\_key.  
    lv\_tabix = sy\-tabix.  
  
    read table gt\_result with key werks = ls\_key\-werks  
                                  matnr = ls\_key\-matnr  
                                  stlan = ls\_key\-stlan  
                                  stlal = ls\_key\-stlal  
                                  error = abap\_true  
                                  transporting no fields.  
    if sy\-subrc = 0.  
      delete lt\_key index lv\_tabix.  
    endif.  
  
  endloop.  
  
  *"**取出物料单位*  
  select t1~matnr,  
         t1~meins  
    from mara as t1  
    join @gt\_result as t2  
    on ( t1~matnr = t2~matnr  
    or t1~matnr = t2~idnrk )  
    and t2~error = ''  
    into table @data(lt\_mara).  
  
  select t1~matnr,  
         t1~werks,  
         t1~stlan,  
         t1~stlal  
    from mast as t1  
    join @lt\_key as t2  
    on t1~matnr = t2~matnr  
    and t1~werks = t2~werks  
    and t1~stlan = t2~stlan  
    and t1~stlal = t2~stlal  
    into table @data(lt\_mast).  
  
  sort lt\_mara by matnr.  
  delete adjacent duplicates from lt\_mara comparing matnr.  
  
  sort lt\_mast by werks matnr stlan stlal.  
  
  lv\_total = lines( lt\_key ).  
  
  loop at lt\_key into ls\_key.  
    lv\_tabix = sy\-tabix.  
  
    clear:  
      lt\_bomgroup,  
      lt\_variants,  
      lt\_materialrelations,  
      lt\_return,  
      lt\_subitemassignments,  
      lt\_subitems,  
      lt\_itemassignments,  
      lt\_items,  
      lv\_item\_no.  
  
    perform progress\_indicator\_percentage using lv\_tabix  
                                                lv\_total  
                                                text\-p02.  
  
    read table lt\_mast with key matnr = ls\_key\-matnr  
                                werks = ls\_key\-werks  
                                stlan = ls\_key\-stlan  
                                stlal = ls\_key\-stlal  
                                binary search  
                                transporting no fields.  
    if sy\-subrc = 0.  
      call function 'CSAP\_MAT\_BOM\_DELETE'  
        exporting  
          material           = ls\_key\-matnr        *"**物料*  
          plant              = ls\_key\-werks  *"**工厂*  
          bom\_usage          = ls\_key\-stlan    *"BOM**用途*  
          alternative        = ls\_key\-stlal    *"**可选**BOM*  
          fl\_commit\_and\_wait = abap\_true  
        exceptions  
          error              = 1  
          others             = 2.  
    endif.  
  
    read table gt\_result with key werks = ls\_key\-werks  
                                  matnr = ls\_key\-matnr  
                                  stlan = ls\_key\-stlan  
                                  stlal = ls\_key\-stlal  
                                  binary search  
                                  transporting no fields.  
    if sy\-subrc = 0.  
      lv\_tabix = sy\-tabix.  
      loop at gt\_result into data(ls\_result) from lv\_tabix.  
  
        if ls\_result\-werks <> ls\_key\-werks  
          or ls\_result\-matnr <> ls\_key\-matnr  
          or ls\_result\-stlan <> ls\_key\-stlan  
          or ls\_result\-stlal <> ls\_key\-stlal.  
          exit.  
        endif.  
  
        clear ls\_items.  
        lv\_item\_no = lv\_item\_no + 10.  
  
        ls\_items\-bom\_group\_identification = gc\_bom\_group\_identification.  
        ls\_items\-object\_type              = 'ITM'.  
        ls\_items\-object\_id                = gc\_object\_id.  
        ls\_items\-item\_no                  = lv\_item\_no.                     *"**项目号*  
        ls\_items\-item\_cat                 = 'L'.*"ls\_result-postp.               "**项目类型*  
        ls\_items\-component                = ls\_result\-idnrk.               *"**子件料号*  
        ls\_items\-comp\_qty                 = ls\_result\-menge.               *"**子件数量*  
  
        read table lt\_mara into data(ls\_mara) with key matnr = ls\_result\-idnrk  
                                                       binary search.  
        if sy\-subrc = 0.  
          ls\_items\-comp\_unit                = ls\_mara\-meins.           *"**子件单位*  
        endif.  
  
*\*        ls\_items-item\_text1               = ls\_result-potx1.               "**行**1**（项目文本）*  
*\*        ls\_items-item\_text2               = ls\_result-potx2.              "**行**2**（项目文本）*  
        ls\_items\-cost\_rel                 = ls\_result\-sanka.               *"**成本核算标识相关*  
        ls\_items\-prod\_rel                 = abap\_true.                     *"**生产相关和成本相关都为空会自动按配置表**T416V**默认值*  
        ls\_items\-comp\_scrap               = ls\_result\-ausch.               *"**组件报废百分比*  
        ls\_items\-alt\_item\_group           = ls\_result\-alpgr.               *"**替代项目：组*  
        ls\_items\-alt\_item\_prio            = ls\_result\-alprf.               *"**替代项目：评比定单*  
        ls\_items\-opr\_scrap                = ls\_result\-avoau.              *"**工序损耗*  
  
        if ls\_result\-alpgr is not initial.  
          ls\_items\-alt\_item\_strategy = '1'.               *"**替代项目：策略*  
        endif.  
  
        if ls\_result\-alprf = '01'.  
          ls\_items\-usage\_prob = 100.               *"**使用可能性*  
        endif.  
*\*        if ls\_ztpp006-alpgr is not initial.*  
*\*          ls\_items-alt\_item\_strategy = 2.*  
*\*          ls\_items-usage\_prob = 100.*  
*\*        endif.*  
  
        append ls\_items to lt\_items.  
  
      endloop.  
  
      clear ls\_bomgroup.  
      ls\_bomgroup\-bom\_group\_identification = gc\_bom\_group\_identification.  
      ls\_bomgroup\-object\_type              = 'BGR'.  
      ls\_bomgroup\-object\_id                = gc\_object\_id.  
      ls\_bomgroup\-bom\_usage                = ls\_key\-stlan.            *"bom**用途*  
      ls\_bomgroup\-created\_in\_plant         = ls\_key\-werks.  
      ls\_bomgroup\-technical\_type           = 'M'.  
      append ls\_bomgroup to lt\_bomgroup.  
  
      clear ls\_materialrelations.  
      ls\_materialrelations\-bom\_group\_identification = gc\_bom\_group\_identification.  
      ls\_materialrelations\-material                 = ls\_key\-matnr.                 *"**主物料*  
      ls\_materialrelations\-bom\_usage                = ls\_key\-stlan.                 *"BOM**用途*  
      ls\_materialrelations\-plant                    = ls\_key\-werks.                  *"**工厂*  
      ls\_materialrelations\-alternative\_bom          = ls\_key\-stlal.           *"**可选的**BOM*  
      append ls\_materialrelations to lt\_materialrelations.  
  
      clear ls\_variants.  
      ls\_variants\-bom\_group\_identification = gc\_bom\_group\_identification.  
      ls\_variants\-object\_type              = 'BOM'.  
      ls\_variants\-object\_id                = gc\_object\_id.  
      ls\_variants\-alternative\_bom          = ls\_key\-stlal.     *"**可选的**BOM*  
      ls\_variants\-bom\_status               = '01'.             *"BOM**状态*  
      ls\_variants\-alt\_text                 = ls\_key\-stktx.     *"BOM**描述*  
      ls\_variants\-base\_qty                 = ls\_key\-bmeng.     *"BOM**数量*  
  
      read table lt\_mara into ls\_mara with key matnr = ls\_key\-matnr  
                                               binary search.  
      if sy\-subrc = 0.  
        ls\_variants\-base\_unit                = ls\_mara\-meins. *"BOM**单位*  
      endif.  
  
      ls\_variants\-valid\_from\_date          = ls\_key\-datuv.     *"**有效起始日*  
      ls\_variants\-function                 = 'NEW'.  
      append ls\_variants to lt\_variants.  
  
      clear ls\_itemassignments.  
      ls\_itemassignments\-bom\_group\_identification = gc\_bom\_group\_identification.  
      ls\_itemassignments\-sub\_object\_type          = 'ITM'.  
      ls\_itemassignments\-sub\_object\_id            = gc\_object\_id.  
      ls\_itemassignments\-super\_object\_type        = 'BOM'.  
      ls\_itemassignments\-super\_object\_id          = gc\_object\_id.  
      ls\_itemassignments\-valid\_from\_date          = ls\_key\-datuv.  
      ls\_itemassignments\-function                 = 'NEW'.  
      append ls\_itemassignments to lt\_itemassignments.  
  
      clear ls\_subitemassignments.  
      ls\_subitemassignments\-bom\_group\_identification = gc\_bom\_group\_identification.  
      ls\_subitemassignments\-sub\_object\_type          = 'SUI'.  
      ls\_subitemassignments\-sub\_object\_id            = 'SIM1'.  
      ls\_subitemassignments\-super\_object\_type        = 'ITM'.  
      ls\_subitemassignments\-super\_object\_id          = gc\_object\_id.  
      append ls\_subitemassignments to lt\_subitemassignments.  
  
      call function 'BAPI\_MATERIAL\_BOM\_GROUP\_CREATE'  
        exporting  
          all\_error          = abap\_true  
        tables  
          bomgroup           = lt\_bomgroup  
          variants           = lt\_variants  
          items              = lt\_items  
          materialrelations  = lt\_materialrelations  
          itemassignments    = lt\_itemassignments  
          subitems           = lt\_subitems  
          subitemassignments = lt\_subitemassignments  
          return             = lt\_return.  
  
      loop at lt\_return into ls\_return where type ca 'EAX'.  
        if ls\_key\-message is initial.  
          ls\_key\-message = ls\_return\-message.  
        else.  
          concatenate ls\_key\-message ';' ls\_return\-message into ls\_key\-message.  
        endif.  
      endloop.  
      if sy\-subrc = 0.  
        call function 'BAPI\_TRANSACTION\_ROLLBACK'.  
  
        ls\_key\-light = gc\_icon\-red.  
      else.  
        call function 'BAPI\_TRANSACTION\_COMMIT'  
          exporting  
            wait = abap\_true.  
  
        ls\_key\-light   = gc\_icon\-green.  
        ls\_key\-message = text\-s06.  
      endif.  
  
      modify gt\_result from ls\_key transporting light  
                                                message  
                                    where werks = ls\_key\-werks  
                                      and matnr = ls\_key\-matnr  
                                      and stlan = ls\_key\-stlan  
                                      and stlal = ls\_key\-stlal.  
    endif.  
  endloop.  
  if sy\-subrc <> 0.  
    message text\-s07 type 'S' display like 'E'.  
    exit.  
  endif.  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form fill\_fieldcat\_upload*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      <-- LT\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
form fill\_fieldcat\_upload  changing pt\_fieldcat type lvc\_t\_fcat.  
  data:  
    ls\_fieldcat   type lvc\_s\_fcat.  
  
  mc\_add\_fieldcat:  
    'LIGHT'   text\-h15 '' '',  
    'MESSAGE' text\-h16 '' '',  
    'STKTX' text\-h10 'STKO' '',  
    'STLAN' text\-h11 'MAST' '',  
    'WERKS' text\-h01 'MAST' '',  
    'STLAL' text\-h12 'STKO' '',  
    'MATNR' text\-h02 'MAST' '',  
    'MAKTX' text\-h03 'MAKT' '',  
    'BMENG' text\-h17 'STKO' '',  
    'IDNRK' text\-h04 'STPO' '',  
    'OJTXP' text\-h05 'STPOX' '',  
    'ALPGR' text\-h06 'STPOX' '',  
    'ALPRF' text\-h07 'STPOX' '',  
*\*    'EWAHR' text-h08 'STPOX' '',*  
    'MENGE' text\-h09 'STPOX' '',  
    'AUSCH' text\-h13 'STPOX' '',  
    'AVOAU' text\-h14 'STPOX' '',  
    'SANKA' text\-h21 'STPOX' ''  
    .  
  
endform.  
*\*&---------------------------------------------------------------------\**  
*\*& Form bom\_explosion*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> LT\_MAST\_KEY*  
*\*&---------------------------------------------------------------------\**  
form bom\_explosion  using    pt\_mast\_key type tt\_mast\_key.  
  data:  
    lt\_mast     type standard table of ty\_upload\_data with non-unique default key,  
    ls\_mast     type ty\_upload\_data,  
    ls\_result   type ty\_upload\_data,  
    lt\_stb      type standard table of stpox with non-unique default key,  
    ls\_stb      type stpox,  
    lv\_total    type i,  
    lv\_index    type i,  
    lv\_menge    type stpo\-menge,  
    lt\_mast\_key type tt\_mast\_key,  
    ls\_mast\_key type ty\_mast\_key.  
  
  select mast~matnr,  
         mast~werks,  
         stko~stktx,  
         mast~stlan,  
         mast~stlal,  
         stko~bmeng,  
         makt~maktx,  
         stko~bmein  
    from mast  
    join stko  
    on stko~stlty = 'M'  
    and mast~stlnr = stko~stlnr  
    and mast~stlal = stko~stlal  
    left join makt  
    on makt~matnr = mast~matnr  
    and makt~spras = @sy\-langu  
    join @pt\_mast\_key as t3  
    on t3~matnr = mast~matnr  
    and t3~werks = mast~werks  
    into corresponding fields of table @lt\_mast.  
  
  lv\_total = lines( lt\_mast ).  
  
  loop at lt\_mast into ls\_mast.  
  
*\*    lv\_index = lv\_index + 1.*  
*\**  
*\*    perform progress\_indicator\_percentage using lv\_index*  
*\*                                                lv\_total*  
*\*                                                text-p01.*  
  
    call function 'CS\_BOM\_EXPL\_MAT\_V2'  
      exporting  
        aufsw                 = ' '  
        capid                 = 'PP01'  
        datuv                 = sy\-datum *"S\_DATUV-LOW                     "v1-19 add*  
        ehndl                 = '1'  
        mbwls                 = ' '  
        mtnrv                 = ls\_mast\-matnr  
*\*       mehrs                 = p\_multi*  
        mmory                 = '1'  
        werks                 = ls\_mast\-werks  
        aumgb                 = 'X'  
        stlal                 = ls\_mast\-stlal  
        stlan                 = ls\_mast\-stlan  
        emeng                 = ls\_mast\-bmeng  
      tables  
        stb                   = lt\_stb  
      exceptions  
        material\_not\_found    = 1  
        no\_plant\_data         = 2  
        no\_bom\_found          = 3  
        no\_suitable\_bom\_found = 4  
        alt\_not\_found         = 5  
        missing\_authorization = 6  
        error\_message         = 7  
        others                = 8.  
  
    loop at lt\_stb into ls\_stb.  
      clear ls\_result.  
      move-corresponding ls\_mast to ls\_result.  
  
      move-corresponding ls\_stb to ls\_result.  
  
      append ls\_result to gt\_result.  
  
      ls\_mast\_key\-matnr = ls\_stb\-idnrk.  
      ls\_mast\_key\-werks = ls\_stb\-werks.  
      collect ls\_mast\_key into lt\_mast\_key.  
    endloop.  
  
  endloop.  
  
  if lines( lt\_mast\_key ) > 0.  
    perform bom\_explosion using lt\_mast\_key.  
  endif.  
  
endform.