2021-01-25 SAP批导程序模板

*& REPORT  ZEWM_RE0006
*&
*&---------------------------------------------------------------------*
*& CREATE BY QIANYUN.LIU 2018.8.21
*&
*&---------------------------------------------------------------------*

REPORT ZEWM_RE0006.
TYPE-POOLS SLIS.
TABLES:LIKP,AUFK.
*&---------------------------------------------------------------------*
*&              TABLES
*&---------------------------------------------------------------------*
* 模板数据结构
TYPES: BEGIN OF GTY_UPLOAD,
         VALUE_0001(10) TYPE  C ,    "销售凭证
         VALUE_0002 TYPE   POSNR_VA,     "销售凭证项目
         VALUE_0003(12)  TYPE C,     "生产订单号
         VALUE_0004(18)  TYPE C,     "物料号
         VALUE_0005(13) TYPE C,      "目标数量
         VALUE_0006(40) TYPE C,      "PO/日期码
         VALUE_0007(40) TYPE C,      "客户货号
       END OF GTY_UPLOAD.

TYPES : BEGIN OF TY_DATA ,
          VBELN       TYPE VBELN_VA, "销售凭证
          POSNR       TYPE POSNR_VA, "销售凭证项目
          AUFNR       TYPE AUFNR,    "生产订单号
          MATNR       TYPE MATNR,    "物料号
          MAKTX       TYPE ARKTXT,   "物料描述
          ZMENG       TYPE DZMENG,   "目标数量
          ZPODAT      TYPE ZPODAT,   "PO/日期码
          ZZHH        TYPE ZZHH,     "客户货号
          ID(30)      TYPE  C,       "
          MSG         TYPE CHAR255,  "
          TYPE        TYPE CHAR1,    "
*--------2018/9/28 ADD BY LQY START---------*
          WERKS       TYPE WERKS_D,
*--------2018/9/28 ADD BY LQY END-----------*
          CHK,"20181023 ADD BY LQY
        END OF TY_DATA.

TYPES : BEGIN OF TY_MSG ,
          INDEX  TYPE I,
          ID(30) TYPE  C,
          MSG    TYPE CHAR255,
          TYPE   TYPE CHAR1,

        END OF TY_MSG .

DATA: BEGIN OF GT_TEMPLATE OCCURS 0,
        TAB1(40) TYPE C  VALUE  '销售凭证',
        TAB2(10) TYPE C  VALUE  '销售凭证项目',
        TAB3(6)  TYPE C  VALUE  '生产订单号',
        TAB4(3)  TYPE C  VALUE  '物料号',
        TAB5(10) TYPE C  VALUE  '目标数量(PCS)',
        TAB6(18) TYPE C  VALUE  'PO/日期码',
        TAB7(18) TYPE C  VALUE  '客户货号',
        TAB8(18) TYPE C  VALUE  '',
        TAB9(18) TYPE C  VALUE  '',
        TAB10(50) TYPE C VALUE  '销售凭证,销售凭证项目,物料号3个必填，PO/日期码 与 客户货号 二选一',
      END OF GT_TEMPLATE.

DATA: GT_UPLOAD TYPE STANDARD TABLE OF GTY_UPLOAD,
      GS_UPLOAD TYPE  GTY_UPLOAD.
DATA : GT_DATA TYPE STANDARD TABLE OF TY_DATA,
       GS_DATA TYPE TY_DATA,
       LT_DATA TYPE STANDARD TABLE OF TY_DATA,
       LS_DATA TYPE TY_DATA,
       GT_VBAK TYPE STANDARD TABLE OF VBAK,
       GS_VBAK TYPE VBAK,
       GT_MARA TYPE STANDARD TABLE OF MARA,
       GS_MARA TYPE MARA,
       GT_ZTPP069 TYPE STANDARD TABLE OF ZTPP069_C,
       GS_ZTPP069 TYPE ZTPP069_C
       .
DATA: GT_AUFK TYPE STANDARD TABLE OF AUFK,
      GS_AUFK TYPE AUFK,
      GT_AFKO TYPE STANDARD TABLE OF AFKO,
      GS_AFKO TYPE AFKO.
DATA: GT_VBAP TYPE STANDARD TABLE OF VBAP,
      GS_VBAP TYPE VBAP.
DATA: IT_FIELD  TYPE SLIS_T_FIELDCAT_ALV,
      LS_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: LV_TXT TYPE /LIME/CUST_CATSP-TXT .
DATA: LT_MSG TYPE STANDARD TABLE OF TY_MSG,
      LS_MSG TYPE TY_MSG.
DATA:GT_MAKT  TYPE STANDARD TABLE OF MAKT,
     GS_MAKT  TYPE MAKT.
DATA:  GT_ZSOPOCON TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON WITH HEADER LINE,
       GS_ZSOPOCON TYPE ZTEWM_ZSOPOCON,
       GS1_ZSOPOCON TYPE ZTEWM_ZSOPOCON,
       LT_ZSOPOCON TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON,
       LS_ZSOPOCON TYPE ZTEWM_ZSOPOCON,
       LT1_ZSOPOCON TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON,
       LS1_ZSOPOCON TYPE ZTEWM_ZSOPOCON,
       LT_ZSOPOCONL TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON_L,
       LS_ZSOPOCONL TYPE ZTEWM_ZSOPOCON_L,
       GT_DEL       TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON,
       GS_DEL       TYPE ZTEWM_ZSOPOCON,
       GT_DEL_L     TYPE STANDARD TABLE OF ZTEWM_ZSOPOCON_L,
       GS_DEL_L     TYPE ZTEWM_ZSOPOCON_L,
       LV_MSG TYPE CHAR50,
       GV_MSG TYPE CHAR1,
       LV_RFCDEST TYPE RFCDEST,
       G_GRID TYPE REF TO CL_GUI_ALV_GRID,
       ZTABIX TYPE I.
DATA:EXCEL_NAME TYPE STRING.
DATA:WL_ANSWER TYPE C. "ADD BY LQY 20181023
*---------------------------------------------------------------------*
*  说明: 定义选择屏幕                                                  *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK T1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
    P_PLDR RADIOBUTTON GROUP G1 USER-COMMAND UC ,      "批量导入
    P_CXXG RADIOBUTTON GROUP G1 DEFAULT 'X'. "查询与修改
SELECTION-SCREEN END OF BLOCK T1.
SELECTION-SCREEN BEGIN OF BLOCK T2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS:
    S_VBELN FOR LIKP-VBELN,
    S_AUFNR FOR AUFK-AUFNR.
SELECTION-SCREEN END OF BLOCK T2.
SELECTION-SCREEN BEGIN OF BLOCK T3 WITH FRAME TITLE TEXT-003.
PARAMETERS:
    "P1_PLDR AS CHECKBOX,
    P_XZLJ LIKE RLGRAP-FILENAME MODIF ID TP1 .
SELECTION-SCREEN END OF BLOCK T3.


*----------------------------------------------------------------------*
*  说明: 初始化事件
*----------------------------------------------------------------------*
INITIALIZATION.
  SET PF-STATUS 'STATUS'.
*----------------------------------------------------------------------*
*  说明: 屏幕输出前处理
*----------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF P_PLDR <> 'X'.
      CASE SCREEN-GROUP1.
        WHEN  'TP1'.
          SCREEN-ACTIVE = '0'.
        WHEN OTHERS.
      ENDCASE.
    ENDIF.
    IF P_PLDR = 'X'.
      CASE SCREEN-GROUP1.
        WHEN  'TP1'.
          SCREEN-ACTIVE = '1'.
        WHEN OTHERS.
      ENDCASE.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
*----------------------------------------------------------------------*
*  说明: 处理选择屏幕字段事件
*----------------------------------------------------------------------*
AT SELECTION-SCREEN.
  CASE SY-UCOMM .
    WHEN 'DOWNLOAD'.
      " PERFORM FRM_TEMPLATE.
      PERFORM   FRM_GER_TEMPLATE USING EXCEL_NAME .
  ENDCASE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_XZLJ.
  PERFORM GET_P_XZLJ.
*----------------------------------------------------------------------*
* 说明: 数据检索
*----------------------------------------------------------------------*
START-OF-SELECTION.
  IF P_PLDR = 'X'.
    PERFORM FRM_UPLOAD_FILE.
    PERFORM FRM_IMPORT_DATA.
  ELSE.
    PERFORM FRM_GET_DATA.
  ENDIF.
*----------------------------------------------------------------------*
* END OF SELECTION
*----------------------------------------------------------------------*
END-OF-SELECTION.
  PERFORM FRM_DISPLAY_DATA.
*&---------------------------------------------------------------------*
*&      FORM  FRM_TEMPLATE
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*

FORM FRM_GER_TEMPLATE  USING    EXCEL_NAME.
  DATA:
     LO_OBJDATA          LIKE WWWDATATAB,
     LS_DESTINATION      LIKE RLGRAP-FILENAME,
     LS_OBJNAM           TYPE STRING,
     LI_RC               LIKE SY-SUBRC,
     LS_ERRTXT           TYPE STRING.
  DATA:
    P_OBJID             TYPE WWWDATATAB-OBJID,
    P_DEST              LIKE SAPB-SAPPFAD,
    L_TITLE             TYPE STRING,
    L_DFNAME            TYPE STRING,
    L_FILENAME          TYPE STRING,
    L_PATH              TYPE STRING,
    L_L_PATH            TYPE STRING.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG
    EXPORTING
      WINDOW_TITLE      = L_TITLE
      DEFAULT_EXTENSION = 'xls'
      DEFAULT_FILE_NAME = L_DFNAME
      FILE_FILTER       = '(EXCEL)'
    CHANGING
      FILENAME          = L_FILENAME
      PATH              = L_PATH
      FULLPATH          = L_L_PATH.

  LO_OBJDATA-RELID = 'MI'.
  LO_OBJDATA-OBJID = 'ZEWM006'.
  LS_DESTINATION = L_L_PATH.

  CALL FUNCTION 'DOWNLOAD_WEB_OBJECT'
    EXPORTING
      KEY         = LO_OBJDATA
      DESTINATION = LS_DESTINATION
    IMPORTING
      RC          = LI_RC.
  IF LI_RC NE 0.
    MESSAGE '下载失败，检查输入数据及模板是否上传' TYPE 'E'.
  ENDIF.
ENDFORM.                    " FRM_GER_TEMPLATE

*&---------------------------------------------------------------------*
*&      Form  FRM_TEMPLATE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
FORM FRM_TEMPLATE .
  REFRESH GT_TEMPLATE.
  APPEND GT_TEMPLATE.
  "1.获取文件路径 "
  DATA LV_FILE TYPE STRING.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      MASK             = ',EXCEL,*.XLS.'
      MODE             = 'S'
    IMPORTING
      FILENAME         = LV_FILE
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
  IF SY-SUBRC <> 0.

  ENDIF.

  "2.把内表下载到指定文件路径
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME              = LV_FILE
      WRITE_FIELD_SEPARATOR = 'X'
    TABLES
      DATA_TAB              = GT_TEMPLATE
    EXCEPTIONS
      FILE_WRITE_ERROR      = 1
      OTHERS                = 22.
  IF SY-SUBRC <> 0.
    MESSAGE '下载失败，检查输入数据及模板是否上传' TYPE 'E'.
  ENDIF.
ENDFORM.                    "FRM_TEMPLATE
*&---------------------------------------------------------------------*
*&      FORM  GET_P_XZLJ
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM GET_P_XZLJ .
  DATA: L_RC     TYPE I,
        L_ACTION TYPE I,
        LD_FILE  TYPE FILE_TABLE,
        LT_FILE  TYPE FILETABLE.

  CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG
    CHANGING
      FILE_TABLE              = LT_FILE
      RC                      = L_RC
      USER_ACTION             = L_ACTION
    EXCEPTIONS
      FILE_OPEN_DIALOG_FAILED = 1
      CNTL_ERROR              = 2
      ERROR_NO_GUI            = 3
      NOT_SUPPORTED_BY_GUI    = 4
      OTHERS                  = 5.

  IF SY-SUBRC = 0
    AND L_ACTION IS INITIAL.
    READ TABLE LT_FILE INTO LD_FILE INDEX 1.
    P_XZLJ = LD_FILE-FILENAME.
  ENDIF.
ENDFORM.                    "GET_P_XZLJ
*&---------------------------------------------------------------------*
*&      FORM  FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM FRM_UPLOAD_FILE .
  DATA:LT_EXCEL LIKE TABLE OF ALSMEX_TABLINE,
       LS_EXCEL TYPE ALSMEX_TABLINE.
  CLEAR LS_EXCEL.
  FIELD-SYMBOLS <FS> TYPE ANY.
  DATA:
    LV_TIND(4)    TYPE N,
    LV_ZFIELD(25) TYPE C.
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = P_XZLJ
      I_BEGIN_COL             = 1
      I_BEGIN_ROW             = 2
      I_END_COL               = 7
      I_END_ROW               = 10000
    TABLES
      INTERN                  = LT_EXCEL   "以单元格来保存值
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
  IF SY-SUBRC <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
  ENDIF.

  IF LT_EXCEL IS INITIAL.
    MESSAGE '导入文件没有数据，请检查！' TYPE 'S' DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.
  ENDIF.

  LOOP AT LT_EXCEL INTO LS_EXCEL.
    AT NEW ROW.
      CLEAR GS_UPLOAD.
    ENDAT.
    LV_TIND = LS_EXCEL-COL.
    CONCATENATE 'GS_UPLOAD-VALUE_' LV_TIND INTO LV_ZFIELD.
    ASSIGN (LV_ZFIELD) TO <FS>.
    <FS> = LS_EXCEL-VALUE.
    AT END OF ROW.
*-------2018/9/21 ADD BY LQY START----*
      IF GS_UPLOAD-VALUE_0001 IS INITIAL.
        CLEAR:LV_MSG .
        CONCATENATE '第' LV_TIND '行销售凭证为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.

      IF GS_UPLOAD-VALUE_0002 IS INITIAL.
        CLEAR:LV_MSG .
        CONCATENATE '第' LV_TIND '行销售凭证项目为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.

      IF GS_UPLOAD-VALUE_0003 IS INITIAL.
        CLEAR:LV_MSG .
        CONCATENATE '第' LV_TIND '行生产订单号为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.
      IF GS_UPLOAD-VALUE_0004 IS INITIAL.
        CLEAR:LV_MSG .
        CONCATENATE '第' LV_TIND '行物料号为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.

      IF GS_UPLOAD-VALUE_0006 IS INITIAL.
        CLEAR:GV_MSG .
        CONCATENATE '第' LV_TIND '行PO/日期码为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.

      IF GS_UPLOAD-VALUE_0007 IS INITIAL.
        CLEAR:LV_MSG .
        CONCATENATE '第'  LV_TIND '行客户货号为空！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.
*------2018/9/21 ADD BY LQY END-------*
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = GS_UPLOAD-VALUE_0001
        IMPORTING
          OUTPUT = GS_UPLOAD-VALUE_0001.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = GS_UPLOAD-VALUE_0002
        IMPORTING
          OUTPUT = GS_UPLOAD-VALUE_0002.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = GS_UPLOAD-VALUE_0003
        IMPORTING
          OUTPUT = GS_UPLOAD-VALUE_0003.
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = GS_UPLOAD-VALUE_0004
        IMPORTING
          OUTPUT = GS_UPLOAD-VALUE_0004.
      APPEND GS_UPLOAD TO GT_UPLOAD.
    ENDAT.
  ENDLOOP.
  IF GT_UPLOAD IS INITIAL.
    MESSAGE '导入文件没有数据，请检查！' TYPE 'S' DISPLAY LIKE 'E'.
    LEAVE LIST-PROCESSING.
  ENDIF.

  SORT LT_EXCEL BY ROW COL.
ENDFORM.                    "FRM_UPLOAD_FILE
*&---------------------------------------------------------------------*
*&      FORM  FRM_IMPORT_DATA
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM FRM_IMPORT_DATA .
  DATA: IR_LGPLA TYPE RSELOPTION,
        IS_LGPLA TYPE RSDSSELOPT.
  DATA: IR_MATNR TYPE RSELOPTION,
        IS_MATNR TYPE RSDSSELOPT.
  DATA :IR_CAT TYPE RSELOPTION,
        IS_CAT TYPE RSDSSELOPT.
  DATA :IR_ENTITLED TYPE RSELOPTION,
        IS_ENTITLED TYPE  RSDSSELOPT.
*--------2018/9/13 ADD BY LQY START-------------*
  DATA: GT1_VBAP TYPE STANDARD TABLE OF VBAP,
        GS1_VBAP TYPE VBAP,
        GT_ZEWM006QX TYPE STANDARD TABLE OF ZTEWM006_QX,
        GS_ZEWM006QX TYPE ZTEWM006_QX,
        ZAUFNR TYPE AFKO-AUFNR.
*--------2018/9/13 ADD BY LQY END---------------*
  IF GT_UPLOAD IS NOT INITIAL.
*--------2018/9/13 ADD BY LQY START----------*
    SELECT
      VBELN
      POSNR
      MATNR
      FROM VBAP
      INTO CORRESPONDING FIELDS OF TABLE GT1_VBAP
      FOR ALL ENTRIES IN GT_UPLOAD
      WHERE VBELN = GT_UPLOAD-VALUE_0001
      AND   POSNR = GT_UPLOAD-VALUE_0002.
    IF GT1_VBAP IS NOT INITIAL.
      SELECT
        MATNR
        ZZCPLY
        FROM MARA
        INTO CORRESPONDING FIELDS OF TABLE GT_MARA
        FOR ALL ENTRIES IN GT1_VBAP
        WHERE MATNR = GT1_VBAP-MATNR.
      IF GT_MARA IS NOT INITIAL.
        SELECT
          ZZCPLY
          WERKS
          FROM ZTPP069_C
          INTO CORRESPONDING FIELDS OF TABLE GT_ZTPP069
          FOR ALL ENTRIES IN GT_MARA
          WHERE ZZCPLY = GT_MARA-ZZCPLY.
      ENDIF.
    ENDIF.
    SELECT
      WERKS
      ZZH
      FROM ZTEWM006_QX
      INTO CORRESPONDING FIELDS OF TABLE GT_ZEWM006QX.
    SORT GT_ZEWM006QX BY WERKS ZZH.
    LOOP AT  GT_ZTPP069 INTO GS_ZTPP069.
      READ TABLE GT_ZEWM006QX INTO GS_ZEWM006QX WITH KEY WERKS = GS_ZTPP069-WERKS ZZH = SY-UNAME BINARY SEARCH.
      IF SY-SUBRC <> 0.
        CLEAR:LV_MSG.
        CONCATENATE '用户' SY-UNAME '没有工厂'  GS_ZTPP069-WERKS '的权限！' INTO LV_MSG.
        MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
        LEAVE LIST-PROCESSING.
      ENDIF.
      CLEAR:GS_ZTPP069,GS_ZEWM006QX.
    ENDLOOP.
*-------2018/9/13 ADD BY LQY END-------------*
    SELECT
      VBELN "销售凭证
      FROM VBAK
      INTO CORRESPONDING FIELDS OF TABLE GT_VBAK
      FOR ALL ENTRIES IN GT_UPLOAD
      WHERE VBELN  = GT_UPLOAD-VALUE_0001.
    SORT GT_VBAK BY VBELN.
    SELECT
      AUFNR "生产订单
      KDAUF "销售订单
      KDPOS "销售订单项目
      FROM AUFK
      INTO CORRESPONDING FIELDS OF TABLE GT_AUFK
      FOR ALL ENTRIES IN GT_UPLOAD
      WHERE AUFNR = GT_UPLOAD-VALUE_0003.
    SORT GT_AUFK BY AUFNR.

    SELECT
     MATNR "物料
     SPRAS "语言
     MAKTX "描述
     FROM MAKT
     INTO CORRESPONDING FIELDS OF TABLE GT_MAKT
     FOR ALL ENTRIES IN GT_UPLOAD
     WHERE MATNR = GT_UPLOAD-VALUE_0004.
    SORT GT_MAKT BY MATNR SPRAS.
    IF GT_AUFK IS NOT INITIAL.
      SELECT
        VBELN  "销售订单
        POSNR  "行项目
        MATNR  "物料
        FROM VBAP
        INTO CORRESPONDING FIELDS OF TABLE GT_VBAP
        FOR ALL ENTRIES IN GT_AUFK
        WHERE VBELN = GT_AUFK-KDAUF
        AND   POSNR = GT_AUFK-KDPOS
        .
      SORT GT_VBAP BY VBELN POSNR.
    ENDIF.
  ENDIF.
  REFRESH: LT_DATA.
  LOOP AT  GT_UPLOAD INTO GS_UPLOAD .
    GS_DATA-VBELN = GS_UPLOAD-VALUE_0001.
    GS_DATA-POSNR = GS_UPLOAD-VALUE_0002.
    GS_DATA-AUFNR = GS_UPLOAD-VALUE_0003.
    GS_DATA-MATNR = GS_UPLOAD-VALUE_0004.
    GS_DATA-ZMENG = GS_UPLOAD-VALUE_0005.
    GS_DATA-ZPODAT = GS_UPLOAD-VALUE_0006.
    GS_DATA-ZZHH = GS_UPLOAD-VALUE_0007.
    LS_DATA-AUFNR = GS_UPLOAD-VALUE_0003.
    LS_DATA-ZMENG = GS_UPLOAD-VALUE_0005.
*-------2018/9/28 ADD BY LQY START-------*
    "工厂
    READ TABLE GT_MARA INTO GS_MARA WITH KEY MATNR = GS_UPLOAD-VALUE_0004.
    IF SY-SUBRC = 0.
      READ TABLE  GT_ZTPP069  INTO GS_ZTPP069 WITH KEY ZZCPLY = GS_MARA-ZZCPLY.
      IF SY-SUBRC = 0.
        GS_DATA-WERKS = GS_ZTPP069-WERKS.
      ENDIF.
    ENDIF.
    CLEAR:GS_MARA,GS_ZTPP069.
*-------2018/9/28 ADD BY LQY END---------*
    "物料描述
    READ TABLE GT_MAKT INTO GS_MAKT WITH KEY MATNR = GS_UPLOAD-VALUE_0004 SPRAS = '1' BINARY SEARCH.
    IF SY-SUBRC = 0.
      GS_DATA-MAKTX = GS_MAKT-MAKTX.
    ENDIF.
    IF GS_UPLOAD-VALUE_0003 IS NOT INITIAL.
      "检查生产订单号是否存在。
      READ TABLE GT_AUFK INTO GS_AUFK WITH KEY AUFNR = GS_UPLOAD-VALUE_0003 BINARY SEARCH.
      IF SY-SUBRC <> 0.
        CLEAR:ZAUFNR.
        ZAUFNR = GS_UPLOAD-VALUE_0003.
        "去前导零
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
          EXPORTING
            INPUT  = ZAUFNR
          IMPORTING
            OUTPUT = ZAUFNR.
        IF STRLEN( ZAUFNR ) = 9.
          CLEAR :LV_MSG.
          CONCATENATE  '生产订单号' GS_UPLOAD-VALUE_0003 '不存在!' INTO  LV_MSG.
          CONDENSE LV_MSG  NO-GAPS .
          GS_DATA-MSG  = LV_MSG .
          GS_DATA-TYPE = 'E'.
          GS_DATA-ID  = '@0A@' .
          APPEND GS_DATA TO GT_DATA .
          CLEAR:GS_UPLOAD,GS_AUFK,GS_DATA.
          CONTINUE.
        ENDIF.
      ELSE.
      ENDIF.
      READ TABLE GT_VBAP INTO GS_VBAP WITH KEY VBELN = GS_UPLOAD-VALUE_0001 POSNR = GS_UPLOAD-VALUE_0002 BINARY SEARCH.
      IF SY-SUBRC = 0.
        "检查物料号是否存在。
        IF GS_VBAP-MATNR IS INITIAL.
          CLEAR :LV_MSG.
          CONCATENATE  '物料号' GS_VBAP-MATNR  '不存在!' INTO  LV_MSG.
          CONDENSE LV_MSG  NO-GAPS .
          GS_DATA-MSG  = LV_MSG .
          GS_DATA-TYPE = 'E'.
          GS_DATA-ID  = '@0A@' .
          APPEND GS_DATA TO GT_DATA .
          CLEAR:GS_UPLOAD,GS_AUFK,GS_VBAP,GS_DATA.
          CONTINUE.
        ENDIF.
      ELSE.
        IF STRLEN( ZAUFNR ) = 9.
          "检查销售凭证行项目是否存在。
          CLEAR :LV_MSG.
          CONCATENATE  '销售凭证' GS_UPLOAD-VALUE_0001 '行项目' GS_UPLOAD-VALUE_0002 '不存在!' INTO  LV_MSG.
          CONDENSE LV_MSG  NO-GAPS .
          GS_DATA-MSG  = LV_MSG .
          GS_DATA-TYPE = 'E'.
          GS_DATA-ID  = '@0A@' .
          APPEND GS_DATA TO GT_DATA .
          CLEAR:GS_UPLOAD,GS_AUFK,GS_VBAP,GS_DATA.
          CONTINUE.
        ENDIF.
      ENDIF.

    ELSE.
      "如果生产订单号为空就只检查销售凭证是否存在。
      READ TABLE GT_VBAK TRANSPORTING NO FIELDS WITH KEY VBELN = GS_UPLOAD-VALUE_0001 BINARY SEARCH.
      IF SY-SUBRC <> 0.
        CLEAR :LV_MSG.
        CONCATENATE  '销售凭证' GS_UPLOAD-VALUE_0001  '不存在!' INTO  LV_MSG.
        CONDENSE LV_MSG  NO-GAPS .
        GS_DATA-MSG  = LV_MSG .
        GS_DATA-TYPE = 'E'.
        GS_DATA-ID  = '@0A@' .
        APPEND GS_DATA TO GT_DATA .
        CLEAR:GS_UPLOAD,GS_AUFK,GS_VBAP,GS_DATA.
        CONTINUE.
      ENDIF.

    ENDIF.

    IF  GS_DATA-TYPE = ''.
      GS_DATA-MSG = '检查成功！' .
      GS_DATA-TYPE = 'S'.
      GS_DATA-ID  = '@08@' .
    ELSE .
      SHIFT GS_DATA-MSG .
    ENDIF.
    APPEND GS_DATA TO GT_DATA .
    COLLECT LS_DATA INTO LT_DATA.
    CLEAR: GS_UPLOAD ,LV_MSG,GS_DATA,GS_AUFK,GS_VBAP.
  ENDLOOP.
*  IF LT_DATA IS NOT INITIAL.
*  SELECT
*    AUFNR "订单
*    GAMNG "目标数量
*    FROM AFKO
*    INTO  CORRESPONDING FIELDS OF TABLE GT_AFKO
*    FOR ALL ENTRIES IN LT_DATA
*    WHERE AUFNR = LT_DATA-AUFNR.
*  ENDIF.
*  LOOP AT LT_DATA INTO LS_DATA.
*    READ TABLE GT_AFKO INTO GS_AFKO WITH KEY AUFNR = LS_DATA-AUFNR.
*    IF SY-SUBRC = 0.
*     IF LS_DATA-ZMENG > GS_AFKO-GAMNG.
*       CLEAR:LV_MSG.
*       CONCATENATE '生产订单' LS_DATA-AUFNR '的数量合计大于订单目标数量！' INTO LV_MSG.
*       MESSAGE LV_MSG TYPE 'S' DISPLAY LIKE 'E'.
*       LEAVE LIST-PROCESSING.
*     ENDIF.
*    ENDIF.
*      CLEAR:LS_DATA,GS_AFKO.
*  ENDLOOP.

ENDFORM.                    "FRM_IMPORT_DATA
*
**&---------------------------------------------------------------------*
**&      FORM  FRM_DISPLAY_DATA
**&---------------------------------------------------------------------*
**       TEXT
**----------------------------------------------------------------------*
**  -->  P1        TEXT
**  <--  P2        TEXT
**----------------------------------------------------------------------*
FORM FRM_DISPLAY_DATA .
*报表显示
  PERFORM FRM_FIELD_INFO .
  LS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
  LS_LAYOUT-ZEBRA = 'X'.
  LS_LAYOUT-BOX_FIELDNAME = 'CHK'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET = 'SET_STATUS'
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND '
      I_SAVE                   = 'A'
      IS_LAYOUT                = LS_LAYOUT
      IT_FIELDCAT              = IT_FIELD
    TABLES
      T_OUTTAB                 = GT_DATA
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
* IMPLEMENT SUITABLE ERROR HANDLING HERE
  ENDIF.
ENDFORM.                    "FRM_DISPLAY_DATA
*&---------------------------------------------------------------------*
*&      FORM  SET_STATUS
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_EXTAB    TEXT
*----------------------------------------------------------------------*
FORM SET_STATUS USING P_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS'ZST01'.
ENDFORM.                    "SET_STATUS
*&---------------------------------------------------------------------*
*&      Form  USER_COMMAND
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_UCOMM      text
*      -->RS_SELFIELD  text
*----------------------------------------------------------------------*
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
                        RS_SELFIELD   TYPE SLIS_SELFIELD.
  CASE  P_UCOMM.
    WHEN '%IMPORT'.
      " 刷新ALV报表
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = G_GRID.
      CALL METHOD G_GRID->CHECK_CHANGED_DATA.
      CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.
      RS_SELFIELD-REFRESH = 'X'.

      "检查是否有报错信息
      READ TABLE GT_DATA TRANSPORTING NO FIELDS WITH  KEY  TYPE = 'E'.
      IF SY-SUBRC = 0.
        MESSAGE '有错误信息！' TYPE 'E'.
      ENDIF.
      "数量检查
      REFRESH:LT_DATA.
      LOOP AT GT_DATA INTO GS_DATA.
        LS_DATA-AUFNR = GS_DATA-AUFNR.
        LS_DATA-ZMENG = GS_DATA-ZMENG.
        COLLECT LS_DATA INTO LT_DATA.
        CLEAR:GS_DATA,LS_DATA.
      ENDLOOP.

      IF P_PLDR <> 'X' AND LT_DATA IS NOT INITIAL.
        SELECT
          AUFNR "订单
          GAMNG "目标数量
          FROM AFKO
          INTO  CORRESPONDING FIELDS OF TABLE GT_AFKO
          FOR ALL ENTRIES IN LT_DATA
          WHERE AUFNR = LT_DATA-AUFNR.
      ENDIF.
      "检查报表输出后数量可能有所更改再次对数量进行检查。
      LOOP AT LT_DATA INTO LS_DATA.
        READ TABLE GT_AFKO INTO GS_AFKO WITH KEY AUFNR = LS_DATA-AUFNR.
        IF SY-SUBRC = 0.
          IF LS_DATA-ZMENG > GS_AFKO-GAMNG.
            CLEAR:LV_MSG.
            CONCATENATE '生产订单' LS_DATA-AUFNR '的数量合计大于订单目标数量！' INTO LV_MSG.
            MESSAGE LV_MSG TYPE 'E'.
          ENDIF.
        ENDIF.
        CLEAR:LS_DATA,GS_AFKO.
      ENDLOOP.
*-----2018/9/20 ADD BY LQY START-------------*
      DELETE GT_DATA WHERE ZPODAT IS INITIAL.
      DELETE GT_DATA WHERE  ZZHH IS INITIAL.
*----2018/9/20 ADD BY LQY END----------------*
      IF P_PLDR = 'X' AND GT_DATA IS NOT INITIAL.
        SELECT
*      VBELN "销售凭证
*      POSNR "项目
*      GUID  "UUID
*      AUFNR "订单号
*      ERNAM  "创建者
*      ERDAT  "创建日期
*      ERZET  "时间
          *
          FROM ZTEWM_ZSOPOCON
          INTO CORRESPONDING FIELDS OF TABLE GT_ZSOPOCON
          FOR ALL ENTRIES IN GT_DATA
          WHERE VBELN = GT_DATA-VBELN
          AND POSNR = GT_DATA-POSNR.
        SORT GT_ZSOPOCON BY VBELN POSNR.
      ENDIF.
      LOOP AT GT_DATA INTO GS_DATA.
        MOVE-CORRESPONDING GS_DATA TO LS_ZSOPOCON.
        MOVE-CORRESPONDING GS_DATA TO LS_ZSOPOCONL.
        "READ TABLE GT_ZSOPOCON INTO GS_ZSOPOCON WITH KEY VBELN = GS_DATA-VBELN POSNR = GS_DATA-POSNR.
        CLEAR:ZTABIX.
        READ TABLE GT_ZSOPOCON INTO GS1_ZSOPOCON WITH  KEY VBELN = GS_DATA-VBELN POSNR = GS_DATA-POSNR.
        IF SY-SUBRC = 0.
          "如果原先有记录就只修改修改人
          ZTABIX = SY-TABIX.
          LS_ZSOPOCON-ERNAM = GS1_ZSOPOCON-ERNAM.
          LS_ZSOPOCON-ERDAT = GS1_ZSOPOCON-ERDAT.
          LS_ZSOPOCON-ERZET = GS1_ZSOPOCON-ERZET.
          LS_ZSOPOCON-GUID  = CL_SYSTEM_UUID=>CREATE_UUID_X16_STATIC( ).

          LS_ZSOPOCONL-GUID  = LS_ZSOPOCON-GUID.
          LS_ZSOPOCONL-ERNAM = GS1_ZSOPOCON-ERNAM.
          LS_ZSOPOCONL-ERDAT = GS1_ZSOPOCON-ERDAT.
          LS_ZSOPOCONL-ERZET = GS1_ZSOPOCON-ERZET.
          LS_ZSOPOCONL-CHNAM = SY-UNAME.
          LS_ZSOPOCONL-CHDAT = SY-DATUM.
          LS_ZSOPOCONL-CHZET = SY-UZEIT.
          LOOP AT GT_ZSOPOCON INTO GS_ZSOPOCON FROM ZTABIX  WHERE VBELN = GS_DATA-VBELN AND POSNR = GS_DATA-POSNR.
            APPEND GS_ZSOPOCON TO LT1_ZSOPOCON.
            CLEAR:GS_ZSOPOCON.
          ENDLOOP.
        ELSE.
          "如果原先表里面没有数据就赋值当前值
          LS_ZSOPOCON-ERNAM = SY-UNAME.
          LS_ZSOPOCON-ERDAT = SY-DATUM.
          LS_ZSOPOCON-ERZET = SY-UZEIT.
          LS_ZSOPOCON-GUID  = CL_SYSTEM_UUID=>CREATE_UUID_X16_STATIC( ).

          LS_ZSOPOCONL-GUID  = LS_ZSOPOCON-GUID.
          LS_ZSOPOCONL-ERNAM = SY-UNAME.
          LS_ZSOPOCONL-ERDAT = SY-DATUM.
          LS_ZSOPOCONL-ERZET = SY-UZEIT.
          LS_ZSOPOCONL-CHNAM = SY-UNAME.
          LS_ZSOPOCONL-CHDAT = SY-DATUM.
          LS_ZSOPOCONL-CHZET = SY-UZEIT.
        ENDIF.
        APPEND LS_ZSOPOCON TO LT_ZSOPOCON.
        APPEND LS_ZSOPOCONL TO LT_ZSOPOCONL.
        CLEAR:GS_DATA,LS_ZSOPOCON,LS_ZSOPOCONL,GS1_ZSOPOCON.
      ENDLOOP.

*      IF SY-MANDT = '120'.
*        LV_RFCDEST = 'WMDCLNT120'.
*      ELSEIF SY-MANDT = '210'.
*        LV_RFCDEST = 'WMQCLNT200'.
*      ELSEIF SY-MANDT = '800'.
*        LV_RFCDEST = 'WMPCLNT800'.
*      ENDIF.
      "更新数据库表
      DELETE ADJACENT DUPLICATES FROM LT1_ZSOPOCON COMPARING VBELN POSNR AUFNR MATNR ZMENG ZPODAT ZZHH ERNAM ERDAT ERZET.
*  DELETE ADJACENT DUPLICATES FROM LT_ZSOPOCON COMPARING VBELN POSNR AUFNR MATNR ZMENG ZPODAT ZZHH ERNAM ERDAT ERZET.
*  DELETE ADJACENT DUPLICATES FROM LT_ZSOPOCONL COMPARING VBELN POSNR AUFNR MATNR ZMENG ZPODAT ZZHH ERNAM ERDAT ERZET CHNAM CHDAT CHZET.
      DELETE ZTEWM_ZSOPOCON FROM TABLE LT1_ZSOPOCON.
      MODIFY ZTEWM_ZSOPOCON FROM TABLE LT_ZSOPOCON.
      MODIFY ZTEWM_ZSOPOCON_L FROM TABLE LT_ZSOPOCONL.
      IF SY-SUBRC = 0.
*        CALL FUNCTION 'ZFM_EWM0002_008'
*          DESTINATION LV_RFCDEST
*          IMPORTING
*            EV_MSG       = GV_MSG
*          TABLES
*            IT_ZSOPOCON  = LT_ZSOPOCON
*            IT1_ZSOPOCON = LT1_ZSOPOCON.

        "调整程序:改用proxy调用po接口  by sean 20190809
        "定义数据
        DATA LV_INPUT TYPE ZZFM_EWM0002_008_INPUT.
        DATA LV_OUTPUT TYPE ZZFM_EWM0002_008_OUTPUT.
        DATA LV_IF_MTYPE TYPE C.
        DATA LV_IF_MSG  TYPE BAPI_MSG.

        "处理输入数据


        PERFORM CONVERT_TABLES(ZPO_FORMPOOL001) IF FOUND TABLES LT_ZSOPOCON   "输入表
                                                                   LV_INPUT-IT_ZSOPOCON."输处表
        PERFORM CONVERT_TABLES(ZPO_FORMPOOL001) IF FOUND TABLES LT1_ZSOPOCON   "输入表
                                                                  LV_INPUT-IT1_ZSOPOCON."输处表


        "调用接口
        PERFORM CALL_INTERFACE_METHOD(ZPO_FORMPOOL001) IF FOUND USING     'ZCO_SI_EWM016_ERP2EWM_PROXY2PR'  "proxy类名称
                                                                          'SI_EWM016_ERP2EWM_PROXY2PROXY'   "方法名称
                                                                           LV_INPUT                         "输入参数
                                                                CHANGING   LV_OUTPUT                        "输出参数
                                                                           LV_IF_MTYPE                      "是否出现异常
                                                                           LV_IF_MSG                        "异常信息
                                                                           .
        "处理返回数据

        GV_MSG    = LV_OUTPUT-EV_MSG.
        IF LV_IF_MTYPE = 'E'.
          GV_MSG = LV_IF_MTYPE.
        ENDIF.

        IF GV_MSG = 'S'.
          COMMIT WORK AND WAIT.
          MESSAGE '数据更新成功' TYPE 'S'.
        ELSE.
          ROLLBACK WORK.
          IF LV_IF_MTYPE = 'E'.
            MESSAGE LV_IF_MSG TYPE 'S' DISPLAY LIKE 'E'.
          ELSE.
            MESSAGE 'EWM数据更新失败' TYPE 'S' DISPLAY LIKE 'E'.
          ENDIF.
        ENDIF.
      ELSE.
        ROLLBACK WORK.
        MESSAGE 'ECC数据更新失败' TYPE 'S' DISPLAY LIKE 'E'.
      ENDIF.
      REFRESH:LT_ZSOPOCON,LT_ZSOPOCONL.
    WHEN '%DEL'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
          TEXT_QUESTION         = '该操作会删除选中的数据，确认删除?'
          ICON_BUTTON_1         = '是'
          ICON_BUTTON_2         = '否'
          DEFAULT_BUTTON        = '1'
          DISPLAY_CANCEL_BUTTON = 'X'
          START_COLUMN          = 25
          START_ROW             = 6
        IMPORTING
          ANSWER                = WL_ANSWER
        EXCEPTIONS
          TEXT_NOT_FOUND        = 1
          OTHERS                = 2.
      CHECK WL_ANSWER = '1' .
      LOOP AT  GT_DATA  INTO GS_DATA WHERE CHK = 'X'.
        MOVE-CORRESPONDING  GS_DATA TO GS_DEL.
        MOVE-CORRESPONDING GS_DATA TO GS_DEL_L.
        APPEND GS_DEL TO GT_DEL.
        APPEND GS_DEL_L TO GT_DEL_L.
        DELETE GT_DATA INDEX SY-TABIX.
      ENDLOOP.
*      MODIFY ZTEWM_ZSOPOCON FROM TABLE LT_ZSOPOCON.
*      MODIFY ZTEWM_ZSOPOCON_L FROM TABLE LT_ZSOPOCONL.
      LOOP AT GT_DEL INTO GS_DEL.
        DELETE FROM ZTEWM_ZSOPOCON WHERE VBELN = GS_DEL-VBELN AND POSNR = GS_DEL-POSNR AND MATNR = GS_DEL-MATNR.
        DELETE FROM ZTEWM_ZSOPOCON_L WHERE VBELN = GS_DEL-VBELN AND POSNR = GS_DEL-POSNR AND MATNR = GS_DEL-MATNR.
      ENDLOOP.
      IF SY-MANDT = '120'.
        LV_RFCDEST = 'WMDCLNT120'.
      ELSEIF SY-MANDT = '210'.
        LV_RFCDEST = 'WMQCLNT200'.
      ELSEIF SY-MANDT = '800'.
        LV_RFCDEST = 'WMPCLNT800'.
      ENDIF.
      CLEAR:GV_MSG.
      CALL FUNCTION 'ZFM_EWM0002_009'
        DESTINATION LV_RFCDEST
        IMPORTING
          EV_FLAG = GV_MSG
        TABLES
          IT_SCAN = GT_DEL.
      IF GV_MSG = 'X'.
        COMMIT WORK AND WAIT.
        MESSAGE '数据更新成功' TYPE 'S'.
      ELSE.
        ROLLBACK WORK .
        MESSAGE '数据更新失败' TYPE 'S' DISPLAY LIKE 'E'.
      ENDIF.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
          E_GRID = G_GRID.
      CALL METHOD G_GRID->CHECK_CHANGED_DATA.
      CALL METHOD G_GRID->REFRESH_TABLE_DISPLAY.
      RS_SELFIELD-REFRESH = 'X'.

    WHEN OTHERS.
  ENDCASE.
  RS_SELFIELD-REFRESH = 'X'.
ENDFORM.                    "USER_COMMAND
*&---------------------------------------------------------------------*
*&      FORM  FRM_FIELD_INFO
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*  -->  P1        TEXT
*  <--  P2        TEXT
*----------------------------------------------------------------------*
FORM FRM_FIELD_INFO .
  CLEAR IT_FIELD.
  PERFORM FRM_FIELDCAT_SET USING:  'VBELN'          '销售凭证'          15  'X' ''  'X' ,
                                   'POSNR'          '销售凭证项目'        8   '' ''  '' ,
                                   'AUFNR'          '生产订单号'         10  '' ''  '' ,
*---------------2018/9/28 ADD BY LQY START------------*
                                   'WERKS'          '工厂'               10 '' '' '',
*--------------2018/9/28 ADD BY LQY END----------------*
                                   'MATNR'          '物料号'            15  'X' ''  '' ,
                                   'MAKTX'          '物料描述'          15  'X' ''  '' ,
                                   'ZMENG'          '目标数量'          15  '' 'X'  '' ,
                                   'ZPODAT'         'PO/日期码'         8  '' 'X'  '' ,
                                   'ZZHH'           '客户货号'         15  'X' 'X'  '' ,
                                   'MSG'            '消息'             15  '' ''  '' ,
                                   'TYPE'           '状态'             8   '' ''  '',
                                   'ID'             '备注'           8  '' ''  ''
                                    .

ENDFORM.                    "FRM_FIELD_INFO
*&---------------------------------------------------------------------*
*&      FORM  FRM_FIELDCAT_SET
*&---------------------------------------------------------------------*
*       TEXT
*----------------------------------------------------------------------*
*      -->P_1640   TEXT
*      -->P_1641   TEXT
*      -->P_15     TEXT
*      -->P_1643   TEXT
*      -->P_1644   TEXT
*      -->P_1645   TEXT
*----------------------------------------------------------------------*
FORM FRM_FIELDCAT_SET  USING     FIELDNAME TYPE SLIS_FIELDCAT_ALV-FIELDNAME
                                 SELTEXT   TYPE SLIS_FIELDCAT_ALV-SELTEXT_L
                                 OUTPUTLEN TYPE SLIS_FIELDCAT_ALV-OUTPUTLEN
                                 NO_ZERO   TYPE SLIS_FIELDCAT_ALV-NO_ZERO
                                 EDIT      TYPE SLIS_FIELDCAT_ALV-EDIT
                                 KEY     TYPE SLIS_FIELDCAT_ALV-KEY   .
  DATA:IS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
  IS_FIELDCAT-FIELDNAME = FIELDNAME.
  IS_FIELDCAT-SELTEXT_S = SELTEXT.
  IS_FIELDCAT-SELTEXT_M = SELTEXT.
  IS_FIELDCAT-SELTEXT_L = SELTEXT.
  IS_FIELDCAT-OUTPUTLEN = OUTPUTLEN.
  IS_FIELDCAT-NO_ZERO   = NO_ZERO.
  IS_FIELDCAT-EDIT      = EDIT.
  IS_FIELDCAT-KEY       = KEY .
  IF IS_FIELDCAT-FIELDNAME = 'VSOLA'.
    IS_FIELDCAT-DECIMALS_OUT = 3.
  ENDIF.
  APPEND IS_FIELDCAT TO IT_FIELD.
  CLEAR IS_FIELDCAT.
ENDFORM.                    "FRM_FIELDCAT_SET
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .
  SELECT
    VBELN "销售凭证
    POSNR "销售凭证项目
    AUFNR "订单号
    MATNR "物料号
    ZMENG "销售单位目标数量
    ZPODAT "PO/日期码
    ZZHH   "货号
    ERNAM  "创建者
    ERDAT  "创建日期
    ERZET  "时间
    FROM ZTEWM_ZSOPOCON
    INTO CORRESPONDING FIELDS OF TABLE GT_ZSOPOCON
    WHERE VBELN  IN S_VBELN
    AND AUFNR    IN S_AUFNR.

  IF GT_ZSOPOCON[] IS NOT INITIAL.
    SELECT
      MATNR "物料
      SPRAS "语言
      MAKTX "描述
      FROM MAKT
      INTO CORRESPONDING FIELDS OF TABLE GT_MAKT
      FOR ALL ENTRIES IN GT_ZSOPOCON[]
      WHERE MATNR = GT_ZSOPOCON-MATNR
      AND SPRAS = '1'
      .
    SELECT
       MATNR
       ZZCPLY
       FROM MARA
       INTO CORRESPONDING FIELDS OF TABLE GT_MARA
       FOR ALL ENTRIES IN GT_ZSOPOCON[]
       WHERE MATNR = GT_ZSOPOCON-MATNR.
    IF GT_MARA IS NOT INITIAL.
      SELECT
        ZZCPLY
        WERKS
        FROM ZTPP069_C
        INTO CORRESPONDING FIELDS OF TABLE GT_ZTPP069
        FOR ALL ENTRIES IN GT_MARA
        WHERE ZZCPLY = GT_MARA-ZZCPLY.
    ENDIF.

  ENDIF.

  LOOP AT GT_ZSOPOCON INTO GS_ZSOPOCON.
    MOVE-CORRESPONDING GS_ZSOPOCON TO GS_DATA.
    READ TABLE GT_MAKT INTO GS_MAKT WITH KEY MATNR = GS_DATA-MATNR SPRAS = '1'.
    IF SY-SUBRC = 0.
      GS_DATA-MAKTX = GS_MAKT-MAKTX.
    ENDIF.
*------2018/9/28 ADD BY LQY START--------*
    "工厂
    READ TABLE GT_MARA INTO GS_MARA WITH KEY MATNR = GS_ZSOPOCON-MATNR.
    IF SY-SUBRC = 0.
      READ TABLE  GT_ZTPP069  INTO GS_ZTPP069 WITH KEY ZZCPLY = GS_MARA-ZZCPLY.
      IF SY-SUBRC = 0.
        GS_DATA-WERKS = GS_ZTPP069-WERKS.
      ENDIF.
    ENDIF.
    CLEAR:GS_MARA,GS_ZTPP069.
*------2018/9/28 ADD BY LQY END----------*
    GS_DATA-MSG = '检查成功！' .
    GS_DATA-TYPE = 'S'.
    GS_DATA-ID  = '@08@' .
    APPEND GS_DATA TO GT_DATA.
    CLEAR:GS_ZSOPOCON,GS_DATA,GS_MAKT.
  ENDLOOP.
ENDFORM.                    " FRM_GET_DATA