采购信息记录批导完美版

短命女 2022-04-17 05:56 142阅读 0赞

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

![20181113212508219.png][]

![20181113212547392.png][]

![20181113212613881.png][]

![20181113212316674.png][]

\*&---------------------------------------------------------------------\*  
\*& Report ZMMR036  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT ZMMR036B.  
  
  
INCLUDE ZMMR036B\_TOP.  
\*INCLUDE ZMMR036\_top.  
  
INCLUDE ZMMR036B\_SCR.  
\*INCLUDE ZMMR036\_scr.  
  
INCLUDE ZMMR036B\_FRM.  
\*INCLUDE ZMMR036\_frm.  
  
  
  
  
INITIALIZATION.  
  "下载模板按钮  
\* 工具栏添加下载模板按钮  
  CLEAR g\_function\_key.  
  g\_function\_key-icon\_id   = icon\_read\_file.  
  g\_function\_key-icon\_text = '供应商导入模版下载'.  
  g\_function\_key-quickinfo = '供应商导入模版下载'.  
  sscrfields-functxt\_01 = g\_function\_key.  
  
\*----------------------------------------------------------------------\*  
\*           AT SELECTION-SCREEN OUTPUT                                 \*  
\*----------------------------------------------------------------------\*  
\*显示注释  
AT SELECTION-SCREEN OUTPUT.  
\*  MOVE '1、请选择正确的模板填写数据'  TO T1.  
\*  MOVE '1、请严格按照模板要求填写数据'  TO t2.  
  
\*----------------------------------------------------------------------\*  
\*           AT SELECTION-SCREEN                                        \*  
\*----------------------------------------------------------------------\*  
AT SELECTION-SCREEN.  
\* 下载数据导入模板  
  IF sscrfields-ucomm = 'FC01'.  
    PERFORM frm\_excel\_down.  
    sscrfields-ucomm = ''.  
  ENDIF.  
\*----------------------------------------------------------------------\*  
\*           AT SELECTION-SCREEN  ON VALUE-REQUEST                      \*  
\*----------------------------------------------------------------------\*  
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p\_file.  
\* 选择文件搜索帮助  
  PERFORM frm\_set\_file\_f4 USING p\_file.  
  
  
  
  
START-OF-SELECTION.  
\* 文件必输校验  
  PERFORM frm\_file\_obligatory.  
\* 批量导入数据  
  if r\_1 eq 'X' .  
  PERFORM frm\_upload\_data.    "模版阶梯纵向  
  ENDIF .  
  IF R\_2 EQ 'X' .  
  PERFORM frm\_upload\_data2.  "模版阶梯横向  
  ENDIF .  
END-OF-SELECTION.  
\* alv显示  
\* PERFORM frm\_display\_data.  
  perform  frm\_display\_alv2 .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMR036\_TOP  
\*&---------------------------------------------------------------------\*  
  
TABLES sscrfields.  
INCLUDE <list>.  
INCLUDE <icon>.  
  
DATA:   g\_function\_key TYPE smp\_dyntxt .         "功能按钮  
DATA: lv\_msg TYPE string.  
  
  
DATA: gs\_bdcdata LIKE bdcdata,  
      gs\_messtab LIKE bdcmsgcoll.  
DATA: gt\_bdcdata LIKE TABLE OF bdcdata.   "OCCURS 0 WITH HEADER LINE.  
DATA:  gwa\_messtab LIKE bdcmsgcoll.  
DATA: gt\_messtab LIKE TABLE OF bdcmsgcoll." O  
DATA: l\_option TYPE ctu\_params.  
  
DATA: wa\_eina     TYPE eina,  
      wa\_eine     TYPE eine,  
      wa\_eina\_new TYPE eina,  
      wa\_eine\_new TYPE eine.  
  
  
DATA: it\_head TYPE STANDARD TABLE OF mestxh,  
      it\_line TYPE STANDARD TABLE OF mestxl.  
  
  
DATA: it\_eina TYPE STANDARD TABLE OF eina WITH HEADER LINE,  
      it\_eine TYPE STANDARD TABLE OF eine.  
  
  
DATA: return TYPE STANDARD TABLE OF bapireturn WITH HEADER LINE.  
DATA: l\_netpr LIKE ekpo-netpr.  
DATA: l\_komv TYPE komv,  
      l\_ekpo TYPE ekpo.  
  
DATA: BEGIN OF gs\_alv ,  
        matnr    LIKE eina-matnr, "物料  
        lifnr    LIKE eina-lifnr, " 供应商编号  
        vkorg    LIKE eine-ekorg, "采购组织  
        werks    LIKE eine-werks, " 工厂  
\*        netpr LIKE eine-netpr," 净价  
        netpr    TYPE string,  
        mwskz    LIKE eine-mwskz ,  "税率  
\*        peinh    LIKE eine-peinh, " 价格单位  
        peinh    TYPE string,  " 价格单位  
        waers    LIKE eine-waers , "币种  
\*        lifab LIKE wa\_eina-lifab ,  "  
\*        lifbi LIKE wa\_eina-lifbi  , "  
        lifab    TYPE string ,  "  
        lifbi    TYPE string  , "  
        kstbm    LIKE  konm-kstbm , "等级  
        kbetr    LIKE  konm-kbetr , "等级价格  
        p        TYPE c,  
        w        TYPE c,  
        mark     TYPE c,  
        light(4),  
        result   TYPE c LENGTH 100,  
  
      END OF gs\_alv .  
DATA : gt\_alv LIKE   TABLE OF gs\_alv .  
  
  
  
DATA: gt\_fieldcat TYPE TABLE OF  slis\_fieldcat\_alv.  
DATA: gs\_fieldcat TYPE slis\_fieldcat\_alv.  
DATA: gs\_layout TYPE slis\_layout\_alv .  
  
  
DATA:  gv\_c TYPE c ."有效期重叠控制  
  
  
DATA: ls\_alv  LIKE gs\_alv .  
DATA: lt\_alv LIKE TABLE OF gs\_alv .  
DATA: ls\_alv2  LIKE gs\_alv .  
DATA: lt\_alv2 LIKE TABLE OF gs\_alv .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMR036\_SCR  
\*&---------------------------------------------------------------------\*  
  
SELECTION-SCREEN BEGIN OF BLOCK blk02 WITH FRAME TITLE TEXT-005.  
PARAMETERS p\_file LIKE rlgrap-filename.  
SELECTION-SCREEN END OF BLOCK blk02.  
  
\*SELECTION-SCREEN BEGIN OF BLOCK blk03 WITH FRAME TITLE TEXT-006.  
PARAMETERS : r\_1 RADIOBUTTON GROUP g1 .  
PARAMETERS : r\_2 RADIOBUTTON GROUP g1 DEFAULT 'X' .  
\*SELECTION-SCREEN BEGIN OF BLOCK blk03 WITH FRAME TITLE TEXT-006.  
  
PARAMETERS : r\_3 RADIOBUTTON GROUP g2 .  
PARAMETERS : r\_4 RADIOBUTTON GROUP g2 .  
  
  
PARAMETERS : cb\_1 AS CHECKBOX .  
\*PARAMETERS : cb\_2 AS CHECKBOX .

\*&---------------------------------------------------------------------\*  
\*& 包含               ZMMR036\_FRM  
\*&---------------------------------------------------------------------\*  
  
FORM frm\_file\_obligatory .  
  IF p\_file IS INITIAL.  
    MESSAGE '请选择导入的文件' TYPE 'S' DISPLAY LIKE 'E'.  
    LEAVE LIST-PROCESSING.  
  ENDIF.  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_UPLOAD\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_upload\_data .  
\* 局部变量的定义  
  DATA:lt\_excel TYPE TABLE OF alsmex\_tabline.        "参照类型有标准的调整为ZALSMEX\_TABLINE\_LINE。  
  DATA:    ls\_excel TYPE alsmex\_tabline.  
  
\*\*\*  IF RB1 = 'X'.  
  CLEAR gt\_alv.  
\* 选择文件后做后续处理  
  CHECK p\_file IS NOT INITIAL.  
\* 把文件的数据变成内表  
  CALL FUNCTION 'ALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
    EXPORTING  
      filename                = p\_file  
      i\_begin\_col             = 1  
      i\_begin\_row             = 2  
      i\_end\_col               = 16  
      i\_end\_row               = 5000  
      "SHEET\_NAME              = '新增修改扩展'  
    TABLES  
      intern                  = lt\_excel  
    EXCEPTIONS  
      inconsistent\_parameters = 1  
      upload\_ole              = 2  
      OTHERS                  = 3.  
  
\* 处理内表数据  
  CLEAR ls\_excel.  
  
  
  LOOP AT lt\_excel INTO ls\_excel.  
  
  
  
  
    CASE ls\_excel-col.  
      WHEN 1.  
        gs\_alv-lifnr             = ls\_excel-value."供应商代码 (4)  
      WHEN 3.  
        gs\_alv-matnr            = ls\_excel-value."物料代码(4)  
      WHEN 5.  
        gs\_alv-vkorg             = ls\_excel-value."采购组织(4)  
      WHEN 6.  
        gs\_alv-werks             = ls\_excel-value."工厂 (4)  
      WHEN 7.  
        gs\_alv-netpr             = ls\_excel-value."净价 (4)  
      WHEN 8.  
        gs\_alv-waers             = ls\_excel-value."币种(4)WHEN 1.  
      WHEN 9.  
        gs\_alv-peinh             = ls\_excel-value."价格系数(4)WHEN 1.  
      WHEN 10.  
        gs\_alv-mwskz             = ls\_excel-value."税码(4)WHEN 1.  
      WHEN 11.  
        gs\_alv-lifab             = ls\_excel-value."有效开始日期 (4)WHEN 1.  
      WHEN 12.  
        gs\_alv-lifbi             = ls\_excel-value."有效结束日期 (4)WHEN 1.  
      WHEN 13.  
        gs\_alv-p                 = ls\_excel-value."采购  
      WHEN 14.  
        gs\_alv-w                 = ls\_excel-value."委外  
      WHEN 15.  
        gs\_alv-kstbm            = ls\_excel-value."阶梯数量  
      WHEN 16.  
        gs\_alv-kbetr             = ls\_excel-value."阶梯价  
  
  
  
    ENDCASE.  
    AT END OF row.  
      APPEND gs\_alv TO gt\_alv.  
      CLEAR gs\_alv.  
    ENDAT.  
  
  ENDLOOP .  
  
\*  下面是供应商导入程序  
\*  LOOP AT lt\_excel INTO ls\_excel.  
\*    CASE ls\_excel-col.  
\*      WHEN 1.  
\*        gs\_alv-partner          = ls\_excel-value."SAP 供应商号码 (10)  
\*        IF gs\_alv-partner IS NOT INITIAL.  
\*          CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
\*            EXPORTING  
\*              input  = gs\_alv-partner  
\*            IMPORTING  
\*              output = gs\_alv-partner.  
\*        ENDIF.  
\*  
\*  
\*  
\*      WHEN 2.  
\*        gs\_alv-bukrs            = ls\_excel-value."公司代码 (4)  
\*      WHEN 3.  
\*        gs\_alv-ekorg            = ls\_excel-value."采购组织代码 (4)  
\*      WHEN 4.  
\*        gs\_alv-bu\_group         = ls\_excel-value."分组(4)  
\*      WHEN 5.  
\*        gs\_alv-name\_org1        = ls\_excel-value."供应商名称 1 (40)  
\*      WHEN 6.  
\*        gs\_alv-name\_org2        = ls\_excel-value."供应商名称 2(40)  
\*      WHEN 7.  
\*        gs\_alv-name\_org3        = ls\_excel-value."供应商名称 3 (40)  
\*      WHEN 8.  
\*        gs\_alv-name\_org4        = ls\_excel-value."供应商名称 4 (40)  
\*      WHEN 9.  
\*        gs\_alv-bu\_sort1              = ls\_excel-value."搜索项目1 (20)  
\*      WHEN 10.  
\*        gs\_alv-bu\_sort2              = ls\_excel-value."搜索项目2 (20)  
\*      WHEN 11.  
\*        gs\_alv-street              = ls\_excel-value."供应商地址 1 (35)  
\*      WHEN 12.  
\*        gs\_alv-post\_code1         = ls\_excel-value."邮政编码 (6)  
\*      WHEN 13.  
\*        gs\_alv-regio         = ls\_excel-value."地区（3）  
\*      WHEN 14.  
\*        gs\_alv-city1         = ls\_excel-value."城市(40)  
\*      WHEN 15.  
\*        gs\_alv-land1         = ls\_excel-value."国家 (2)  
\*      WHEN 16.  
\*        gs\_alv-langu         = ls\_excel-value."语言  
\*      WHEN 17.  
\*        gs\_alv-tel\_number          = ls\_excel-value."电话  
\*      WHEN 18.  
\*        gs\_alv-mob\_number             = ls\_excel-value."移动电话  
\*      WHEN 19.  
\*        gs\_alv-fax\_number              = ls\_excel-value."传真  
\*      WHEN 20.  
\*        gs\_alv-smtp\_addr              = ls\_excel-value."Email  
\*      WHEN 21.  
\*        gs\_alv-kunnr              = ls\_excel-value."客户  
\*        CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
\*          EXPORTING  
\*            input  = gs\_alv-kunnr  
\*          IMPORTING  
\*            output = gs\_alv-kunnr.  
\*  
\*      WHEN 22.  
\*        gs\_alv-taxnum              = ls\_excel-value."税号(18)  
\*      WHEN 23.  
\*        gs\_alv-akont             = ls\_excel-value."统驭科目  
\*        CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
\*          EXPORTING  
\*            input  = gs\_alv-akont  
\*          IMPORTING  
\*            output = gs\_alv-akont.  
\*      WHEN 24.  
\*        gs\_alv-zterm             = ls\_excel-value."付款条件  
\*      WHEN 25.  
\*        gs\_alv-reprf          = ls\_excel-value."检查双重发票  
\*      WHEN 26.  
\*        gs\_alv-waers          = ls\_excel-value."订单币别  
\*      WHEN 27.  
\*        gs\_alv-zterm2              = ls\_excel-value."付款条件  
\*      WHEN 28.  
\*        gs\_alv-webre            = ls\_excel-value."基于收货的发票校验  
\*      WHEN 29.  
\*        gs\_alv-telf1              = ls\_excel-value."供应商业务员  
\*      WHEN 30.  
\*        gs\_alv-verkf              = ls\_excel-value."供应商业务员电话  
\*      WHEN 31.  
\*        gs\_alv-ktonr             = ls\_excel-value."伙伴功能：L1  
\*\*      WHEN 32.  
\*\*        gs\_alv-verkf              = ls\_excel-value.  
\*\*      WHEN 33.  
\*\*        gs\_alv-telf1              = ls\_excel-value.  
\*\*      WHEN 34.  
\*\*        gs\_alv-ktonr              = ls\_excel-value.  
\*\*      WHEN 35.  
\*\*        gs\_alv-ekgrp              = ls\_excel-value.  
\*      WHEN OTHERS.  
\*    ENDCASE.  
\*    AT END OF row.  
\*      APPEND gs\_alv TO gt\_alv.  
\*      CLEAR gs\_alv.  
\*    ENDAT.  
\*  ENDLOOP.  
\*  
\*  LOOP AT gt\_alv INTO gs\_alv.  
\*    SELECT COUNT(\*)  
\*      FROM lfa1  
\*      WHERE lifnr = gs\_alv-partner.  
\*    IF sy-subrc EQ 0.  
\*      CONCATENATE '供应商编号:' gs\_alv-partner '已经存在' INTO gs\_alv-remark.  
\*      gs\_alv-icon\_a = '@0A@ '.  
\*      MODIFY gt\_alv FROM gs\_alv.  
\*    ENDIF.  
\*  ENDLOOP.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_EXCEL\_DOWN  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_excel\_down .  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_SET\_FILE\_F4  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*      -->P\_P\_FILE  text  
\*&---------------------------------------------------------------------\*  
FORM frm\_set\_file\_f4  USING    i\_file TYPE rlgrap-filename.  
\* 局部变量-文件名定义  
  DATA l\_filename TYPE rlgrap-filename.  
  CLEAR l\_filename.  
\* 选择文件搜索帮助  
  CALL FUNCTION 'WS\_FILENAME\_GET'  
    EXPORTING  
      def\_path         = i\_file  
      mask             = ',\*.xlsx,\*.XLSX,\*.xls,\*.XLS.'  
      mode             = '0'  
      title            = TEXT-002  
    IMPORTING  
      filename         = l\_filename  
    EXCEPTIONS  
      inv\_winsys       = 1  
      no\_batch         = 2  
      selection\_cancel = 3  
      selection\_error  = 4  
      OTHERS           = 5.  
\* 如果选择了文件  
  IF sy-subrc = 0 AND l\_filename IS NOT INITIAL.  
    p\_file = l\_filename.  
  ENDIF.  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_DATA  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_data .  
\* alv相关变量定义  
  DATA:lt\_fcat TYPE lvc\_t\_fcat,  
       ls\_layo TYPE lvc\_s\_layo.  
  
\* FIELDCAT字段填充  
  CLEAR lt\_fcat\[\].  
  PERFORM frm\_fill\_fcat TABLES lt\_fcat.  
  
\* 布局设置  
  CLEAR ls\_layo.  
  ls\_layo-zebra      = 'X'.    "斑马线  
  ls\_layo-cwidth\_opt = 'X'.    "最优宽  
  ls\_layo-box\_fname  = 'SEL'.  "选择模式  
  
\* ALV显示数据  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program       = sy-repid  
      is\_layout\_lvc            = ls\_layo  
      i\_callback\_pf\_status\_set = 'FRM\_SET\_STATUS'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'  
      it\_fieldcat\_lvc          = lt\_fcat\[\]  
      i\_save                   = 'A'  
    TABLES  
      t\_outtab                 = gt\_alv\[\]  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
\* 数据显示失败  
  IF sy-subrc NE 0.  
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno  
             WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  
  ENDIF.  
  
ENDFORM.  
  
\*&---------------------------------------------------------------------\*  
\*       设定状态栏  
\*----------------------------------------------------------------------\*  
FORM frm\_set\_status USING extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'ZSTANDARD\_FULLSCREEN'.  
\*  DATA: BEGIN OF ls\_code,  
\*          code LIKE sy-ucomm,  
\*        END OF ls\_code.  
\*  DATA: lt\_code LIKE TABLE OF ls\_code.  
\*  ls\_code-code = 'INSERT'.  
\*  APPEND ls\_code TO lt\_code.  
\*  ls\_code-code = 'CHANGE'.  
\*  APPEND ls\_code TO lt\_code.  
\*  
\*  SET PF-STATUS 'ZSTANDARD\_FULLSCREEN' EXCLUDING lt\_code.  
\*  SET TITLEBAR 'TI\_1000'.  
  
ENDFORM. " FRM\_SET\_STATUS  
  
  
FORM frm\_user\_command USING i\_ucomm LIKE sy-ucomm  
                            i\_selfield TYPE slis\_selfield.  
  
  
  IF sy-ucomm  EQ 'IMPORT' .  
  
  ENDIF .  
\*  CASE i\_ucomm.  
\*    WHEN 'BACK'.  
\*      LEAVE TO SCREEN 0.  
\*  
\*    WHEN 'EXIT'.  
\*      LEAVE PROGRAM.  
\*  
\*    WHEN 'IMPORT'. "采购信息记录创建  
\*      LOOP AT gt\_alv INTO gs\_alv.  
\*        PERFORM frm\_data\_import.  
\*      ENDLOOP .  
  
\*    WHEN 'CHANGE'.  
\*      PERFORM frm\_data\_change.            "供应商信息修改  
\*  
\*    WHEN 'INSERT'.  
\*      PERFORM frm\_data\_insert.            "已存在供应商扩展  
\*  
\*    WHEN 'INSERT2'.  
\*      " PERFORM FRM\_DATA\_INSERT2.           "客户扩展供应商  
  
\*\*\*    WHEN 'EXPORT'.                                    "------------------------------------20160722注销，采用系统标准电子表格。  
\*\*\*      PERFORM FRM\_DATA\_EXPORT.  
  
\*    WHEN OTHERS.  
\*  ENDCASE.  
ENDFORM. " FRM\_USER\_COMMAND  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_FILL\_FCAT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*      -->P\_LT\_FCAT  text  
\*&---------------------------------------------------------------------\*  
FORM frm\_fill\_fcat TABLES t\_fcat TYPE lvc\_t\_fcat.  
  "局部变量的定义  
  DATA ls\_fcat TYPE lvc\_s\_fcat.  
  
  DEFINE m\_fieldcat.  
    CLEAR ls\_fcat.  
    ls\_fcat-fieldname = &1.  
    ls\_fcat-coltext   = &2.  
    ls\_fcat-outputlen = &3.  
    ls\_fcat-no\_zero   = &4.  
    IF ls\_fcat-fieldname = 'ICON\_A'.  
      ls\_fcat-icon = 'X'.  
    ENDIF.  
    APPEND ls\_fcat TO t\_fcat.  
  END-OF-DEFINITION.  
  
\*  m\_fieldcat 'ICON\_A    '  '指示灯                  ' '' ''.  
  m\_fieldcat 'MATNR'  '物料' '' ''.  
  m\_fieldcat 'LIFNR'  '供应商代码 ' '' ''.  
  m\_fieldcat 'VKORG'  '采购组织 ' '' ''.  
  m\_fieldcat 'WERKS'  '工厂  ' '' ''.  
  m\_fieldcat 'NETPR'  '净价  ' '' ''.  
  m\_fieldcat 'MWSKZ'  '税率 ' '' ''.  
  m\_fieldcat 'PEINH'  '价格单位 ' '' ''.  
  m\_fieldcat 'WAERS'  '币种' '' ''.  
  m\_fieldcat 'LIFAB'  '有效开始日期' '' ''.  
  m\_fieldcat 'LIFBI'  '有效结束日期 ' '' ''.  
  
  
  
  
  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DATA\_IMPORT  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_data\_import .  
  
  CLEAR :wa\_eina,wa\_eine,wa\_eina\_new,wa\_eine\_new,it\_head,it\_line,it\_eina,it\_eine,return,l\_netpr,l\_komv,l\_ekpo.  
  
\* \*\*供应商主数据加前导零  
  CALL FUNCTION 'CONVERSION\_EXIT\_ALPHA\_INPUT'  
    EXPORTING  
      input  = gs\_alv-lifnr  
    IMPORTING  
      output = gs\_alv-lifnr.  
  
  wa\_eina-lifnr = gs\_alv-lifnr.  " 供应商编号  
  wa\_eina-matnr = gs\_alv-matnr.  "物料  
  wa\_eine-ekorg = gs\_alv-vkorg.  "采购组织  
  wa\_eine-werks = gs\_alv-werks.  " 工厂  
  wa\_eine-esokz = '0'. " 0 标准采购 3 委外  
  wa\_eine-netpr = gs\_alv-netpr.  " 净价  
  wa\_eine-waers = gs\_alv-waers ."币种  
\*  wa\_eine-ekgrp = 'D01'.        ” 采购组  
  wa\_eine-norbm = '1'.            "标准采购订单数量  
  wa\_eine-aplfz = '1'.            "计划交货时间  
\*  wa\_eine-effpr = gs\_alv-abmpr.   "采购信息记录中的有效价格  
  wa\_eine-mwskz = gs\_alv-mwskz.           " 税码  
  wa\_eine-peinh = gs\_alv-peinh.   " 价格单位  
  
  wa\_eine-webre = 'X'  ." 基于收货的发票校验  
  
\*  wa\_eina-lifab = gs\_alv-lifab.  "有效开始日期 没用  
\*  wa\_eina-lifbi = gs\_alv-lifbi.  "有效结束日期  没用  
  
  " 报价单号  
  
  
\*  CONCATENATE 'ZSDP201创建' INTO WA\_EINA-IDNLF.  
  
  CALL FUNCTION 'ME\_INITIALIZE\_INFORECORD'.  
  
  
  CALL FUNCTION 'ME\_DIRECT\_INPUT\_INFORECORD'  
    EXPORTING  
      activity         = 'V' "V 修改,H创建  
      i\_eina           = wa\_eina  
      i\_eine           = wa\_eine  
      i\_no\_suppose     = ''  
      i\_vorga          = 'A'  
\*     I\_NO\_SUPPOSE     = 'X'"重要  
\*     I\_VORGA          = 'B'  
\*     i\_skip\_nr\_check  = '1'  
    IMPORTING  
      e\_eina           = wa\_eina\_new  
      e\_eine           = wa\_eine\_new  
    TABLES  
      t\_head           = it\_head  
      t\_line           = it\_line  
    EXCEPTIONS  
      textname\_invalid = 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.  
  ENDIF.  
  
  
  
  
  CALL FUNCTION 'ME\_POST\_INFORECORD'  
    EXPORTING  
      i\_matnr  = wa\_eina-matnr  
      o\_matnr  = wa\_eina-matnr  
    TABLES  
      t\_eina\_i = it\_eina.  
  
  
\*APPEND wa\_eine\_new to it\_eine.  
  CALL FUNCTION 'ME\_UPDATE\_INFORECORD\_COND'  
    TABLES  
      reine = it\_eine.  
  
  
  
  CALL FUNCTION 'BAPI\_TRANSACTION\_COMMIT'.  
  
  READ TABLE it\_eina INDEX 1.  
  
\*  WRITE:/ icon\_green\_light   AS ICON, l\_tabix,'行','采购信息记录创建成功,信息记录号：',it\_eina-infnr.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DISPLAY\_ALV2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_display\_alv2 .  
  
  
  DEFINE append\_field.  
    gs\_fieldcat-fieldname = &1.  
    gs\_fieldcat-seltext\_l = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  
  append\_field 'LIGHT'  '指示灯 ' .  
  append\_field 'RESULT'  '处理结果 ' .  
  append\_field: 'MATNR'  '编号' .  
  append\_field 'LIFNR'  '供应商代码 '.  
  append\_field 'VKORG'  '采购组织 '.  
  append\_field 'WERKS'  '工厂  '.  
  append\_field 'NETPR'  '净价  ' .  
  append\_field 'MWSKZ'  '税率 ' .  
  append\_field 'PEINH'  '价格单位 ' .  
  append\_field 'WAERS'  '币种' .  
  append\_field 'LIFAB'  '有效开始日期' .  
  append\_field 'LIFBI'  '有效结束日期 ' .  
  append\_field 'P'  '采购' .  
  append\_field 'W'  '委外' .  
  append\_field 'KSTBM'  '阶梯数量' .  
  append\_field 'KBETR'  '阶梯价格' .  
  
  
  
  
  
  gs\_layout-box\_fieldname = 'MARK'.  
  gs\_layout-colwidth\_optimize = 'X'.  
  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY'  
    EXPORTING  
      i\_callback\_program       = sy-repid  
      i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET2'  
      i\_callback\_user\_command  = 'FRM\_USER\_COMMAND2'  
\*  
\*     I\_GRID\_SETTINGS          =  
      is\_layout                = gs\_layout  
      it\_fieldcat              = gt\_fieldcat  
\*     ES\_EXIT\_CAUSED\_BY\_USER   =  
    TABLES  
      t\_outtab                 = gt\_alv  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy-subrc <> 0.  
\* Implement suitable error handling here  
  ENDIF.  
  
ENDFORM.  
  
  
FORM frm\_status\_set2 USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'ZSTANDARD\_FULLSCREEN'.  
  
ENDFORM.  
  
  
FORM frm\_user\_command2 USING uv\_ucomm LIKE sy-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  
  IF  sy-ucomm EQ 'IMPORT' .  
\*    LOOP AT gt\_alv into gs\_alv .  
\*   PERFORM   frm\_data\_import .  
\*   ENDLOOP .  
    CLEAR gv\_c .  
  
    IF cb\_1 EQ 'X'.  
      gv\_c = 'X' .  
    ENDIF .  
  
  
    lt\_alv = gt\_alv .  
    SORT lt\_alv BY matnr lifnr vkorg werks p w.  
    DELETE  ADJACENT DUPLICATES FROM lt\_alv COMPARING matnr lifnr vkorg werks p w .  
  
    LOOP AT lt\_alv INTO ls\_alv  WHERE mark EQ 'X' .  
      IF r\_3 EQ 'X' .  
        PERFORM  frm\_data\_import\_bdc .  "新增加  
      ELSE .  
        PERFORM   frm\_data\_import\_bdc2  ."修改  
      ENDIF .  
      CLEAR ls\_alv.  
    ENDLOOP .  
\*     更新结果  
    SORT lt\_alv BY matnr lifnr vkorg werks p w.  
    LOOP AT gt\_alv INTO gs\_alv .  
      CLEAR ls\_alv .  
      READ TABLE lt\_alv INTO ls\_alv WITH KEY  matnr = gs\_alv-matnr  
                                              lifnr = gs\_alv-lifnr  
                                              vkorg = gs\_alv-vkorg  
                                              werks = gs\_alv-werks  
                                              p     = gs\_alv-p  
                                              w     = gs\_alv-w  
                                              BINARY SEARCH .  
      gs\_alv-light = ls\_alv-light .  
      gs\_alv-result = ls\_alv-result .  
  
      MODIFY gt\_alv FROM gs\_alv .  
  
    ENDLOOP .  
  
  
  ENDIF  .  
  us\_selfield-refresh = 'X'.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DATA\_IMPORT\_BDC  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_data\_import\_bdc .  
\*   \*设置方式  
  l\_option-dismode = 'N'.  
\*    l\_option-dismode = 'E'.  
  l\_option-updmode = 'S'.  
  l\_option-defsize = 'X'.  
  l\_option-nobinpt = 'X'.  
  l\_option-racommit = 'X'." ne.  
  CLEAR:gt\_bdcdata,gt\_bdcdata\[\].  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0100'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINE-EKORG' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '/00' .  
  PERFORM frm\_bdc\_field      USING 'EINA-LIFNR' ls\_alv-lifnr. "  供应商编号  
  PERFORM frm\_bdc\_field      USING 'EINA-MATNR' ls\_alv-matnr. "物料  
  PERFORM frm\_bdc\_field      USING 'EINE-EKORG' ls\_alv-vkorg .  "采购组织  
  PERFORM frm\_bdc\_field      USING 'EINE-WERKS' ls\_alv-werks .  " 工厂  
  IF ls\_alv-p EQ 'X' .  
    PERFORM frm\_bdc\_field      USING 'RM06I-NORMB' 'X' .  "标准采购  
  ENDIF .  
  
  IF ls\_alv-w EQ 'X' .  
    PERFORM frm\_bdc\_field      USING 'RM06I-LOHNB' 'X' .  "标准采购  
  ENDIF .  
  
  
  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0101'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINA-MAHN1' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=EINE' .  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0102'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINE-MWSKZ' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=KO' .  
  PERFORM frm\_bdc\_field      USING 'EINE-APLFZ' '10' .  
  PERFORM frm\_bdc\_field      USING 'EINE-NORBM' '1' .  
  PERFORM frm\_bdc\_field      USING 'EINE-MWSKZ' ls\_alv-mwskz.  " 税码  
  PERFORM frm\_bdc\_field      USING 'EINE-NETPR' ls\_alv-netpr . " 净价  
  PERFORM frm\_bdc\_field      USING 'EINE-WAERS' ls\_alv-waers . "币种  
  PERFORM frm\_bdc\_field      USING 'EINE-PEINH' ls\_alv-peinh . " 价格单位  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0201'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'RV13A-DATAB' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=SICH' .  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab .  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  .  
  
  
  
  
  CLEAR : gt\_messtab\[\] .  
  CALL TRANSACTION 'ME11' USING gt\_bdcdata  
                           OPTIONS FROM l\_option  
                           MESSAGES INTO gt\_messtab.  
  
  
 READ TABLE gt\_messtab INTO gs\_messtab WITH KEY msgid = '06' msgnr = '331'.  
  IF sy-subrc <> 0.  
    LOOP AT gt\_messtab INTO gwa\_messtab.  
      CALL FUNCTION 'MESSAGE\_TEXT\_BUILD'  
        EXPORTING  
          msgid               = gwa\_messtab-msgid  
          msgnr               = gwa\_messtab-msgnr  
          msgv1               = gwa\_messtab-msgv1  
          msgv2               = gwa\_messtab-msgv2  
          msgv3               = gwa\_messtab-msgv3  
          msgv4               = gwa\_messtab-msgv4  
        IMPORTING  
          message\_text\_output = lv\_msg.  
  
      IF ls\_alv-result IS INITIAL.  
        ls\_alv-result = lv\_msg.  
      ELSE.  
        CONCATENATE lv\_msg '/' ls\_alv-result INTO ls\_alv-result.  
      ENDIF.  
      CLEAR: gwa\_messtab.  
    ENDLOOP.  
    ls\_alv-light = '@0A@'.  
  ELSE.  
    ls\_alv-light = '@08@'.  
    ls\_alv-result = '处理成功！'.  
  
  ENDIF.  
  
  MODIFY lt\_alv FROM ls\_alv TRANSPORTING light result .  
  CLEAR: ls\_alv.  
  
  
  
ENDFORM.  
  
FORM frm\_bdc\_dynpro  USING  program  dynpro.  
  CLEAR: gs\_bdcdata.  
  gs\_bdcdata-program  = program.  
  gs\_bdcdata-dynpro   = dynpro.  
  gs\_bdcdata-dynbegin = 'X'.  
  APPEND gs\_bdcdata TO gt\_bdcdata.  
ENDFORM.  
  
  
FORM frm\_bdc\_field  USING  fnam  fval.  
  CLEAR gs\_bdcdata.  
  gs\_bdcdata-fnam = fnam.  
  gs\_bdcdata-fval = fval.  
  APPEND gs\_bdcdata TO gt\_bdcdata.  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_DATA\_IMPORT\_BDC2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_data\_import\_bdc2 .  
  
\*  \*   \*设置方式  
  l\_option-dismode = 'N'.  
\*    l\_option-dismode = 'E'.  
  l\_option-updmode = 'S'.  
  l\_option-defsize = 'X'.  
  l\_option-nobinpt = 'X'.  
  l\_option-racommit = 'X'." ne.  
  CLEAR:gt\_bdcdata,gt\_bdcdata\[\].  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0100'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINE-EKORG' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '/00' .  
  PERFORM frm\_bdc\_field      USING 'EINA-LIFNR' ls\_alv-lifnr. "  供应商编号  
  PERFORM frm\_bdc\_field      USING 'EINA-MATNR' ls\_alv-matnr. "物料  
  PERFORM frm\_bdc\_field      USING 'EINE-EKORG' ls\_alv-vkorg .  "采购组织  
  PERFORM frm\_bdc\_field      USING 'EINE-WERKS' ls\_alv-werks .  " 工厂  
  IF ls\_alv-p EQ 'X' .  
    PERFORM frm\_bdc\_field      USING 'RM06I-NORMB' 'X' .  "标准采购  
  ENDIF .  
  
  IF ls\_alv-w EQ 'X' .  
    PERFORM frm\_bdc\_field      USING 'RM06I-LOHNB' 'X' .  "标准采购  
  ENDIF .  
  
  IF ls\_alv-p IS INITIAL AND ls\_alv-w IS  INITIAL .  
  
    MESSAGE '信息记录类别为空' TYPE 'E' .  
    EXIT .  
  
  ENDIF .  
  
  
  
  "  
  
  "陶经理  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0101'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINA-MAHN1' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=EINE' .  
  
  
  "税码  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMM06I' '0102'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'EINE-MWSKZ' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=KO' .  
  PERFORM frm\_bdc\_field      USING 'EINE-MWSKZ' ls\_alv-mwskz .  
  
  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPLV14A' '0102' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'VAKE-DATAB(01)' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=NEWD' .  
  
  
\*  PERFORM frm\_bdc\_dynpro     USING 'SAPLV13A' '0201' .  
\*  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'RV13A-DATAB' .  
\*  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '/00' .  
\*  PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
\*  PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  
  
  
  
  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0201'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'KONP-KSCHL(01)' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=PSTF' .  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  PERFORM frm\_bdc\_field      USING 'RV130-SELKZ(01)' 'X' .  
  
  
  
  PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0303'.  
  PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'KONM-KBETR(07)' .  
  PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '/00' .  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
  PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  
  
  
  
  
  CLEAR lt\_alv2\[\] .  
  LOOP AT gt\_alv INTO gs\_alv    WHERE  matnr = ls\_alv-matnr  
                                  AND  lifnr = ls\_alv-lifnr  
                                  AND  vkorg = ls\_alv-vkorg  
                                  AND  werks  = ls\_alv-werks  
                                  AND   p     = ls\_alv-p  
                                  AND   w     = ls\_alv-w .  
  
    APPEND gs\_alv TO lt\_alv2 .  
    CLEAR gs\_alv .  
  
  ENDLOOP .  
  
  SORT lt\_alv2 BY  lifnr matnr vkorg werks kstbm p w.  
  
  DATA lv\_lines TYPE i .  
  DESCRIBE TABLE lt\_alv2  LINES lv\_lines .  
  DATA: ls\_str TYPE string .  
  DATA lv\_tabix TYPE sy-tabix .  
  LOOP AT lt\_alv2 INTO ls\_alv2 .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy-tabix  .  
    ls\_str =  ls\_alv2-kstbm  .  
    IF lv\_tabix EQ 1 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(01)' ls\_str ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 2 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(02)' ls\_str ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 3 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(03)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 4 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(04)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 5 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(05)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 6 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(06)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 7 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(07)' ls\_str  ."结束有效日  
    ENDIF .  
  
    CLEAR  : ls\_alv2 ,ls\_str .  
  ENDLOOP .  
  
  
  LOOP AT lt\_alv2 INTO ls\_alv2 .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy-tabix  .  
  
    ls\_str = ls\_alv2-kbetr   .  
    IF lv\_tabix EQ 1 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(01)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 2 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(02)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 3 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(03)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 4 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(04)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 5 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(05)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 6 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(06)' ls\_str  ."结束有效日  
    ENDIF .  
    IF lv\_tabix EQ 7 .  
      PERFORM frm\_bdc\_field      USING 'KONM-KBETR(07)' ls\_str  ."结束有效日  
    ENDIF .  
  
  
    CLEAR  : ls\_alv2 ,ls\_str .  
  ENDLOOP .  
  "价格系数  
  PERFORM frm\_bdc\_field      USING 'RV13A-KPEIN(01)'  ls\_alv-peinh  ."价格单位  
  
  
  IF lv\_lines < 8 .  
    PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0303'.  
    PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'KONM-KSTBM(01)' .  
    PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=SICH' .  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  
  ENDIF .  
  
  "8~阶梯处理  
  IF lv\_lines >= 8 .  
    PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0303'.  
    PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'KONM-KBETR(01)' .  
    PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=NEWP' .  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  
    PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0303'.  
    PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'KONM-KBETR(07)' .  
    PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=SICH' .  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATAB' ls\_alv-lifab . "开始有效日  
    PERFORM frm\_bdc\_field      USING 'RV13A-DATBI' ls\_alv-lifbi  ."结束有效日  
  
  
  
    LOOP AT lt\_alv2 INTO ls\_alv2 .  
      CLEAR lv\_tabix .  
      lv\_tabix =  sy-tabix  .  
      ls\_str =  ls\_alv2-kstbm  .  
      IF lv\_tabix EQ 8 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(02)' ls\_str ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 9 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(03)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 10 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(04)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 11 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(05)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 12 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(06)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 13 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KSTBM(07)' ls\_str  ."结束有效日  
      ENDIF .  
  
      CLEAR  : ls\_alv2 ,ls\_str .  
    ENDLOOP .  
  
  
    LOOP AT lt\_alv2 INTO ls\_alv2 .  
      CLEAR lv\_tabix .  
      lv\_tabix =  sy-tabix  .  
  
      ls\_str = ls\_alv2-kbetr   .  
      IF lv\_tabix EQ 8 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(02)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 9 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(03)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 10 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(04)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 11 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(05)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 12 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(06)' ls\_str  ."结束有效日  
      ENDIF .  
      IF lv\_tabix EQ 13 .  
        PERFORM frm\_bdc\_field      USING 'KONM-KBETR(07)' ls\_str  ."结束有效日  
      ENDIF .  
  
  
      CLEAR  : ls\_alv2 ,ls\_str .  
    ENDLOOP .  
  
  
  ENDIF .  
  
  
  IF gv\_c EQ 'X' .  
    PERFORM frm\_bdc\_dynpro     USING 'SAPMV13A' '0121'.  
    PERFORM frm\_bdc\_field      USING 'BDC\_CURSOR' 'RV13A-DATAB' .  
    PERFORM frm\_bdc\_field      USING 'BDC\_OKCODE' '=BSTA' .  
  ENDIF .  
  
  
  
  CLEAR : gt\_messtab\[\] .  
  
  
  CALL TRANSACTION 'ME12' USING gt\_bdcdata  
                           OPTIONS FROM l\_option  
                           MESSAGES INTO gt\_messtab.  
  
  
  
  
  READ TABLE gt\_messtab INTO gs\_messtab WITH KEY msgid = '06' msgnr = '335'.  
  IF sy-subrc <> 0.  
    LOOP AT gt\_messtab INTO gwa\_messtab.  
      CALL FUNCTION 'MESSAGE\_TEXT\_BUILD'  
        EXPORTING  
          msgid               = gwa\_messtab-msgid  
          msgnr               = gwa\_messtab-msgnr  
          msgv1               = gwa\_messtab-msgv1  
          msgv2               = gwa\_messtab-msgv2  
          msgv3               = gwa\_messtab-msgv3  
          msgv4               = gwa\_messtab-msgv4  
        IMPORTING  
          message\_text\_output = lv\_msg.  
  
      IF ls\_alv-result IS INITIAL.  
        ls\_alv-result = lv\_msg.  
      ELSE.  
        CONCATENATE lv\_msg '/' ls\_alv-result INTO ls\_alv-result.  
      ENDIF.  
      CLEAR: gwa\_messtab.  
    ENDLOOP.  
    ls\_alv-light = '@0A@'.  
  ELSE.  
    ls\_alv-light = '@08@'.  
    ls\_alv-result = '处理成功！'.  
  
  ENDIF.  
  
  MODIFY lt\_alv FROM ls\_alv TRANSPORTING light result .  
  CLEAR: ls\_alv.  
  
ENDFORM.  
\*&---------------------------------------------------------------------\*  
\*& Form FRM\_UPLOAD\_DATA2  
\*&---------------------------------------------------------------------\*  
\*& text  
\*&---------------------------------------------------------------------\*  
\*& -->  p1        text  
\*& <--  p2        text  
\*&---------------------------------------------------------------------\*  
FORM frm\_upload\_data2 .  
  
\*  \* 局部变量的定义  
  DATA:lt\_excel TYPE TABLE OF alsmex\_tabline.        "参照类型有标准的调整为ZALSMEX\_TABLINE\_LINE。  
  DATA:    ls\_excel TYPE alsmex\_tabline.  
  DATA:  kstbm2    LIKE  konm-kstbm ."等级  
  DATA:  kbetr2    LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm3    LIKE  konm-kstbm ."等级  
  DATA:  kbetr3    LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm4  LIKE  konm-kstbm ."等级  
  DATA:  kbetr4  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm5  LIKE  konm-kstbm ."等级  
  DATA:  kbetr5  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm6  LIKE  konm-kstbm ."等级  
  DATA:  kbetr6  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm7  LIKE  konm-kstbm ."等级  
  DATA:  kbetr7  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm8  LIKE  konm-kstbm ."等级  
  DATA:  kbetr8  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm9  LIKE  konm-kstbm ."等级  
  DATA:  kbetr9  LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm10 LIKE  konm-kstbm ."等级  
  DATA:  kbetr10 LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm11 LIKE  konm-kstbm ."等级  
  DATA:  kbetr11 LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm12 LIKE  konm-kstbm ."等级  
  DATA:  kbetr12 LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm13 LIKE  konm-kstbm ."等级  
  DATA:  kbetr13 LIKE  konm-kbetr . "等级价格  
  DATA:  kstbm14 LIKE  konm-kstbm ."等级  
  DATA:  kbetr14 LIKE  konm-kbetr . "等级价格  
  
  
  
\*\*\*  IF RB1 = 'X'.  
  CLEAR gt\_alv.  
\* 选择文件后做后续处理  
  CHECK p\_file IS NOT INITIAL.  
\* 把文件的数据变成内表  
  CALL FUNCTION 'ALSM\_EXCEL\_TO\_INTERNAL\_TABLE'  
    EXPORTING  
      filename                = p\_file  
      i\_begin\_col             = 1  
      i\_begin\_row             = 2  
      i\_end\_col               = 42  
      i\_end\_row               = 5000  
      "SHEET\_NAME              = '新增修改扩展'  
    TABLES  
      intern                  = lt\_excel  
    EXCEPTIONS  
      inconsistent\_parameters = 1  
      upload\_ole              = 2  
      OTHERS                  = 3.  
  
\* 处理内表数据  
  CLEAR ls\_excel.  
  
  
  LOOP AT lt\_excel INTO ls\_excel.  
  
  
  
  
    CASE ls\_excel-col.  
      WHEN 1.  
        gs\_alv-lifnr             = ls\_excel-value."供应商代码 (4)  
      WHEN 3.  
        gs\_alv-matnr            = ls\_excel-value."物料代码(4)  
      WHEN 5.  
        gs\_alv-vkorg             = ls\_excel-value."采购组织(4)  
      WHEN 6.  
        gs\_alv-werks             = ls\_excel-value."工厂 (4)  
      WHEN 7.  
        gs\_alv-netpr             = ls\_excel-value."净价 (4)  
      WHEN 8.  
        gs\_alv-waers             = ls\_excel-value."币种(4)WHEN 1.  
      WHEN 9.  
        gs\_alv-peinh             = ls\_excel-value."价格系数(4)WHEN 1.  
      WHEN 10.  
        gs\_alv-mwskz             = ls\_excel-value."税码(4)WHEN 1.  
      WHEN 11.  
        gs\_alv-lifab             = ls\_excel-value."有效开始日期 (4)WHEN 1.  
      WHEN 12.  
        gs\_alv-lifbi             = ls\_excel-value."有效结束日期 (4)WHEN 1.  
      WHEN 13.  
        gs\_alv-p                 = ls\_excel-value."采购  
      WHEN 14.  
        gs\_alv-w                 = ls\_excel-value."委外  
      WHEN 15.  
        gs\_alv-kstbm            = ls\_excel-value."阶梯数量  
      WHEN 16.  
        gs\_alv-kbetr             = ls\_excel-value."阶梯价  
      WHEN 17.  
        kstbm2            = ls\_excel-value."阶梯数量  
      WHEN 18.  
        kbetr2             = ls\_excel-value."阶梯价  
      WHEN 19.  
        kstbm3            = ls\_excel-value."阶梯数量  
      WHEN 20.  
        kbetr3             = ls\_excel-value."阶梯价  
      WHEN 21.  
        kstbm4            = ls\_excel-value."阶梯数量  
      WHEN 22.  
        kbetr4             = ls\_excel-value."阶梯价  
      WHEN 23.  
        kstbm5            = ls\_excel-value."阶梯数量  
      WHEN 24.  
        kbetr5             = ls\_excel-value."阶梯价  
      WHEN 25.  
        kstbm6            = ls\_excel-value."阶梯数量  
      WHEN 26.  
        kbetr6             = ls\_excel-value."阶梯价  
      WHEN 27.  
        kstbm7            = ls\_excel-value."阶梯数量  
      WHEN 28.  
        kbetr7             = ls\_excel-value."阶梯价  
      WHEN 29.  
        kstbm8            = ls\_excel-value."阶梯数量  
      WHEN 30.  
        kbetr8             = ls\_excel-value."阶梯价  
      WHEN 31.  
        kstbm9            = ls\_excel-value."阶梯数量  
      WHEN 32.  
        kbetr9             = ls\_excel-value."阶梯价  
      WHEN 33.  
        kstbm10            = ls\_excel-value."阶梯数量  
      WHEN 34.  
        kbetr10             = ls\_excel-value."阶梯价  
      WHEN 35.  
        kstbm11            = ls\_excel-value."阶梯数量  
      WHEN 36.  
        kbetr11             = ls\_excel-value."阶梯价  
      WHEN 37.  
        kstbm12            = ls\_excel-value."阶梯数量  
      WHEN 38.  
        kbetr12             = ls\_excel-value."阶梯价  
      WHEN 39.  
        kstbm13            = ls\_excel-value."阶梯数量  
      WHEN 40.  
        kbetr13             = ls\_excel-value."阶梯价  
      WHEN 41.  
        kstbm14            = ls\_excel-value."阶梯数量  
      WHEN 42.  
        kbetr14             = ls\_excel-value."阶梯价  
  
  
  
  
    ENDCASE.  
    AT END OF row.  
      APPEND gs\_alv TO gt\_alv.  
      IF kstbm2  <> 0 .  
        gs\_alv-kstbm = kstbm2 .  
        gs\_alv-kbetr = kbetr2 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm3  <> 0 .  
        gs\_alv-kstbm = kstbm3 .  
        gs\_alv-kbetr = kbetr3 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm4  <> 0 .  
        gs\_alv-kstbm = kstbm4 .  
        gs\_alv-kbetr = kbetr4 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm5  <> 0 .  
        gs\_alv-kstbm = kstbm5 .  
        gs\_alv-kbetr = kbetr5 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm6  <> 0 .  
        gs\_alv-kstbm = kstbm6 .  
        gs\_alv-kbetr = kbetr6 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm7  <> 0 .  
        gs\_alv-kstbm = kstbm7 .  
        gs\_alv-kbetr = kbetr7 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm8  <> 0 .  
        gs\_alv-kstbm = kstbm8 .  
        gs\_alv-kbetr = kbetr8 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm9  <> 0 .  
        gs\_alv-kstbm = kstbm9 .  
        gs\_alv-kbetr = kbetr9 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm10  <> 0 .  
        gs\_alv-kstbm = kstbm10 .  
        gs\_alv-kbetr = kbetr10 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm11  <> 0 .  
        gs\_alv-kstbm = kstbm11 .  
        gs\_alv-kbetr = kbetr11 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm12  <> 0 .  
        gs\_alv-kstbm = kstbm12 .  
        gs\_alv-kbetr = kbetr12 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm13  <> 0 .  
        gs\_alv-kstbm = kstbm13 .  
        gs\_alv-kbetr = kbetr13 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
      IF kstbm14  <> 0 .  
        gs\_alv-kstbm = kstbm14 .  
        gs\_alv-kbetr = kbetr14 .  
        APPEND gs\_alv TO gt\_alv.  
      ENDIF .  
  
      CLEAR gs\_alv.  
      CLEAR : kstbm2 , kbetr2 ,kstbm3 , kbetr3  ,kstbm4 , kbetr4 ,kstbm5 , kbetr5 ,kstbm6 , kbetr6 ,  
              kstbm7 , kbetr7 ,kstbm8 , kbetr8  ,kstbm9 , kbetr9 ,kstbm10 , kbetr10 ,kstbm11 , kbetr11  ,  
              kstbm12 , kbetr12 ,kstbm13 , kbetr13  ,kstbm14 , kbetr14 .  
  
    ENDAT.  
  
  ENDLOOP .  
  
ENDFORM.

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20220417/76e5c7acb9ec4710b95f50534a8efc7c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20220417/16dca52de8144e74b316b58e6e9ffa56.png
[20181113212508219.png]: /images/20220417/9a8e8cb783ac4e47a2bccaaf3e12311f.png
[20181113212547392.png]: /images/20220417/0504ac39935c44b9ac0e310a340fcf3d.png
[20181113212613881.png]: /images/20220417/16dd492635124ce1beba730ecad498a5.png
[20181113212316674.png]: /images/20220417/faf8a67be5ff4b8c85d454d292833d4a.png