CA02检验计划批量导入 模板在文件

*&---------------------------------------------------------------------*
*& PROGRAM NAME(EN)   : ZQMC001
*& SAP module         : QM
*& PROGRAM(CN)        : CA02批量检验计划导入
*& AUTHOR             : LU.X
*& CREATED DATE       : 2015.05.28
*& DESCRIPTION        :
*----------------------------------------------------------------------*
report ZQMC002.

************************************************************************
*                  DATA DEFINATION                                     *
************************************************************************
tables: MARA,MARC.

types:

  begin of LS_ITAB,
    MATNR      like MARA-MATNR,"物料号
    MAKTX      like MAKT-MAKTX,"物料描述（短文本）
    WERKS      like MARC-WERKS,"工厂
    PLNNR      like MAPL-PLNNR,"任务清单组码
    PLNAL      like MAPL-PLNAL,"组计数器
    KTEXT      like PLKO-KTEXT,"任务清单描述
    PLNNR_ALT  like PLKOD-PLNNR_ALT,"旧号
    SLWBEZ     like PLKO-SLWBEZ,"检验点

    VORNR      like PLPO-VORNR,"操作/活动编号
*    ARBID      like PLPO-ARBID,"对象标识（工作中心ID）
    ARBPL      like CRHD-ARBPL,"工作中心(PLPO-ARIBD= CRHD-OBJID
*         STEUS      like PLPO-STEUS,"控制码
    LTXA1      like PLPO-LTXA1,"工序短文本

    VERWMERKM  like PLMK-VERWMERKM,"主文件检验特性
    KURZTEXT   like PLMK-KURZTEXT,"检验特性的短文本
    PMETHODE   like PLMK-PMETHODE,"检验方法
    STICHPRVER like PLMK-STICHPRVER,"检验特性中的采样程序
    PROBEMGEH  like PLMK-PROBEMGEH,"采样计量单位
    SOLLWERT   type P length  decimals ,"一个数量特性的目标值
    TOLERANZUN type P length  decimals ,"容差下限
    TOLERANZOB type P length  decimals ,"规范上限
    MESSAGE    type CHAR200,
    STATUS(),

  end of LS_ITAB,

  begin of LS_EXCEL,
    MATNR      type CHAR20,"物料号
    MAKTX      type CHAR20,"物料描述（短文本）
    WERKS      type CHAR20,"工厂
    PLNNR      type CHAR20,"任务清单组码
    PLNAL      type CHAR20,"组计数器
    KTEXT      type CHAR20,"任务清单描述
    PLNNR_ALT  type CHAR20,"旧号
    SLWBEZ     type CHAR20,"检验点

    VORNR      type CHAR20,"操作/活动编号
*    ARBID      like PLPO-ARBID,"对象标识（工作中心ID）
    ARBPL      type CHAR50,"工作中心(PLPO-ARIBD= CRHD-OBJID
*         STEUS      like PLPO-STEUS,"控制码
    LTXA1      type CHAR20,"工序短文本
    VERWMERKM  type CHAR20,"主文件检验特性
    KURZTEXT   type CHAR20,"检验特性的短文本
    PMETHODE   type CHAR20,"检验方法
    STICHPRVER type CHAR20,"检验特性中的采样程序
    PROBEMGEH  type CHAR20,"采样计量单位
    SOLLWERT   type CHAR20,"一个数量特性的目标值
    TOLERANZUN type CHAR20,"容差下限
    TOLERANZOB type CHAR20,"规范上限
  end of LS_EXCEL.

data:
  GT_RAW_TAB type          TRUXS_T_TEXT_DATA,
  GT_EXCEL   type table of LS_EXCEL,
  GT_ALV     type table of LS_ITAB ,
  GS_ALV     type          LS_ITAB.
data:GT_DOWNLOAD type table of LS_EXCEL with header line.

data:
  CL_ALVGRID   type ref to CL_GUI_ALV_GRID,
  CL_CONTAINER type ref to CL_GUI_CONTAINER,
  CL_SPLITTER  type ref to CL_GUI_SPLITTER_CONTAINER,
  CL_CONTROL   type ref to I_OI_CONTAINER_CONTROL,
  CL_ERROR     type ref to I_OI_ERROR,
  CL_ERRORS    type ref to I_OI_ERROR occurs  with header line,
  GT_FIELDCAT  type        LVC_T_FCAT,
  GS_LAYOUT    type        LVC_S_LAYO ,
  GT_EXCLUDE   type        UI_FUNCTIONS,
  OK_CODE      type        SY-UCOMM.

data: GT_CPS_TASK_LIST_MAINT_CHA type standard table of CPS_TASK_LIST_MAINT_CHA.

constants:
  GC_DEFAULT type STRING value 'C:\ZQMC002.xls'.

************************************************************************
*                  INITIALIZATION                                      *
************************************************************************
initialization.

************************************************************************
*                  SELECTION SCREEN                                    *
************************************************************************

  selection-screen begin of block BL1  with frame title TEXT-.

  parameter P1 type C radiobutton group G1.

  select-options:
  S_WERKS for MARC-WERKS,  "工厂
  S_MATNR for MARA-MATNR,  "物料编号
  S_MTART for MARA-MTART. "物料类型
  parameter P2 type C radiobutton group G1 default 'X'.

  selection-screen end of block BL1.

  parameters:
    P_FILE type RLGRAP-FILENAME default 'C:\ZQMC002.xlsx'.

at selection-screen on value-request for P_FILE.

  perform GET_LOCALFILEPATH
  using
        'xlsx'
        'O'
        SY-TITLE
  changing
    P_FILE.

************************************************************************
*               START-OF-SELECTION                                     *
************************************************************************
start-of-selection.

  if P1 eq 'X'.
    perform CREATE_TEMPLATE_DOWNLOAD.
  endif.

  if P2 eq 'X'.
    perform UPLOAD_EXCEL.
    perform FILL_ITAB.
    call screen .
  endif.

*&---------------------------------------------------------------------*
*&      Form  UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form UPLOAD_EXCEL .

  data: LS_EXCEL type LS_EXCEL,
        LS_ALV   type LS_ITAB.

  call function 'TEXT_CONVERT_XLS_TO_SAP'
    exporting
*     I_FIELD_SEPERATOR    =
      I_LINE_HEADER        = 'X'
      I_TAB_RAW_DATA       = GT_RAW_TAB
      I_FILENAME           = P_FILE
    tables
      I_TAB_CONVERTED_DATA = GT_EXCEL
*   EXCEPTIONS
*     CONVERSION_FAILED    = 1
*     OTHERS               = 2
    .
  if SY-SUBRC <> .
*   Implement suitable error handling here
  endif.

  loop at GT_EXCEL into LS_EXCEL.
    move-corresponding LS_EXCEL to LS_ALV.
    append LS_ALV to GT_ALV.
  endloop.

  data: LT_WERKS type table of LS_ITAB with header line.
  LT_WERKS[] = GT_ALV[].

  sort LT_WERKS by WERKS.

  delete LT_WERKS where WERKS is initial.

  delete adjacent duplicates from LT_WERKS comparing WERKS.

*检查工厂权限C_ROUT
  loop at LT_WERKS.
    authority-check object 'C_ROUT' id 'WERKS' field LT_WERKS-WERKS.

    data: L_STR type STRING.
    if SY-SUBRC ne .
      concatenate '没有工厂 ' LT_WERKS-WERKS '操作权限' into L_STR.
      message S011(ZMM) with L_STR display like 'E'.
      stop.
      "     leave to current transaction and skip first screen.
    endif.
  endloop.
endform.                    " UPLOAD_EXCEL
*&---------------------------------------------------------------------*
*&      Module  STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_9000 output.

  set pf-status 'STATUS_9000'.
  set titlebar 'TITLE_9000'.

endmodule.                 " STATUS_9000  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  DISPLAY_ALV  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module DISPLAY_ALV output.
  perform DISPLAY_ALV.
endmodule.                 " DISPLAY_ALV  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form DISPLAY_ALV .

  if CL_ALVGRID is initial .

* 创建CONTIANER
    create object CL_SPLITTER
      exporting
        PARENT  = CL_GUI_CONTAINER=>SCREEN0
        ROWS    =
        COLUMNS = .
    call method CL_SPLITTER->SET_BORDER
      exporting
        BORDER = CL_GUI_CFW=>FALSE.
    CL_CONTAINER  = CL_SPLITTER->GET_CONTAINER( ROW =  COLUMN =  ).

    if SY-SUBRC <> .
*     Exception handling
    endif.

    create object CL_ALVGRID
      exporting
        I_PARENT          = CL_CONTAINER
      exceptions
        ERROR_CNTL_CREATE =
        ERROR_CNTL_INIT   =
        ERROR_CNTL_LINK   =
        ERROR_DP_CREATE   =
        others            = .
    if SY-SUBRC <> .
*      Exception handling
    endif.

*----Preparing field catalog.
    perform PREPARE_FIELD_CATALOG changing GT_FIELDCAT .

*----Preparing layout structure
    perform PREPARE_LAYOUT changing GS_LAYOUT .

    call method CL_ALVGRID->SET_TABLE_FOR_FIRST_DISPLAY
      exporting
*       I_BUFFER_ACTIVE               =
*       I_CONSISTENCY_CHECK           =
*       I_STRUCTURE_NAME              =
*       IS_VARIANT                    =
*       I_SAVE                        =
*       I_DEFAULT                     = 'X'
        IS_LAYOUT                     = GS_LAYOUT
*       IS_PRINT                      =
*       IT_SPECIAL_GROUPS             =
        IT_TOOLBAR_EXCLUDING          = GT_EXCLUDE
*       IT_HYPERLINK                  =
      changing
        IT_OUTTAB                     = GT_ALV
        IT_FIELDCATALOG               = GT_FIELDCAT
*       IT_SORT                       =
*       IT_FILTER                     =
      exceptions
        INVALID_PARAMETER_COMBINATION =
        PROGRAM_ERROR                 =
        TOO_MANY_LINES                =
        others                        = .
    if SY-SUBRC <> .
    endif.

  else .
    call method CL_ALVGRID->SET_FRONTEND_LAYOUT
      exporting
        IS_LAYOUT = GS_LAYOUT.

    call method CL_ALVGRID->REFRESH_TABLE_DISPLAY
*     EXPORTING
*       IS_STABLE =
*       I_SOFT_REFRESH =
      exceptions
        FINISHED =
        others   = .
    if SY-SUBRC <> .

    endif.
*    CALL METHOD CL_GUI_CFW=>FLUSH.

  endif .

endform.                    " DISPLAY_ALV

*&---------------------------------------------------------------------*
*&      Form  PREPARE_FIELD_CATALOG
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GT_FIELDCAT  text
*----------------------------------------------------------------------*
form PREPARE_FIELD_CATALOG changing PT_FIELDCAT type LVC_T_FCAT .
  data LS_FCAT type LVC_S_FCAT .

  refresh PT_FIELDCAT.

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'STATUS'.
  LS_FCAT-COLTEXT = '导入结果' .
*  LS_FCAT-INTLEN = 50.
  LS_FCAT-OUTPUTLEN = .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'MATNR'.
  LS_FCAT-COLTEXT = '物料编码' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'MAKTX'.
  LS_FCAT-COLTEXT = '物料描述' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'WERKS'.
  LS_FCAT-COLTEXT = '工厂' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'PLNNR'.
  LS_FCAT-COLTEXT = '组' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'PLNAL'.
  LS_FCAT-COLTEXT = '组计数器' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'KTEXT'.
  LS_FCAT-COLTEXT = '任务清单描述' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'PLNNR_ALT'.
  LS_FCAT-COLTEXT = '旧任务清单' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'SLWBEZ'.
  LS_FCAT-COLTEXT = '检验点' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'VORNR'.
  LS_FCAT-COLTEXT = '工序' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'ARBPL'.
  LS_FCAT-COLTEXT = '工作中心' .
  append LS_FCAT to PT_FIELDCAT .

*  clear LS_FCAT.
*  LS_FCAT-FIELDNAME = 'STEUS'.
*  LS_FCAT-COLTEXT = '控制码' .
*  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'LTXA1'.
  LS_FCAT-COLTEXT = '工序描述' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'VERWMERKM'.
  LS_FCAT-COLTEXT = '主检验特性' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'KURZTEXT'.
  LS_FCAT-COLTEXT = '特性描述' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'PMETHODE'.
  LS_FCAT-COLTEXT = '检验方法' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'STICHPRVER'.
  LS_FCAT-COLTEXT = '采样过程' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'PROBEMGEH'.
  LS_FCAT-COLTEXT = '采样单位' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'SOLLWERT'.
  LS_FCAT-COLTEXT = '目标值' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'TOLERANZUN'.
  LS_FCAT-COLTEXT = '规范下限' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'TOLERANZOB'.
  LS_FCAT-COLTEXT = '规范上限' .
  append LS_FCAT to PT_FIELDCAT .

  clear LS_FCAT.
  LS_FCAT-FIELDNAME = 'MESSAGE'.
  LS_FCAT-COLTEXT = '导入信息' .
*  LS_FCAT-INTLEN = 50.
  LS_FCAT-OUTPUTLEN = .
  append LS_FCAT to PT_FIELDCAT .

endform .
*&---------------------------------------------------------------------*
*&      Form  PREPARE_LAYOUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_GS_LAYOUT  text
*----------------------------------------------------------------------*
form PREPARE_LAYOUT changing PS_LAYOUT type LVC_S_LAYO.

  clear PS_LAYOUT.
  PS_LAYOUT-ZEBRA = 'X' .
  PS_LAYOUT-CWIDTH_OPT = 'X'.
  PS_LAYOUT-SEL_MODE = 'A'.
  PS_LAYOUT-BOX_FNAME = 'MARK'.

endform. " prepare_layout

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9000  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_9000 input.

  case OK_CODE.
    when 'ZBACK'.
      leave to screen .

    when 'ZEXIT' or 'ZCANCEL'.
      leave program.

    when 'ZCREATE'.

      perform MODIFY_ROUTING.

    when others.

  endcase.

endmodule.                 " USER_COMMAND_9000  INPUT

*&---------------------------------------------------------------------*
*&      Form  get_localfilepath
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_MASK     text
*      -->P_SORO     text
*      -->P_TITLE    text
*      -->P_FILE     text
*----------------------------------------------------------------------*
form GET_LOCALFILEPATH
using
      P_MASK  type C
      P_SORO type C
      P_TITLE type C
changing
  P_FILE  like RLGRAP-FILENAME
  .
  data: L_SORO()      type C,
        L_MASK_U()    type C,
        L_MASK_L()    type C,
        L_MASK_ALL() type C,
        L_TITLE        type STRING,
        L_SUBRC        like SY-SUBRC.
  L_SORO = P_SORO.
  translate L_SORO to upper case.
  if not ( L_SORO = 'S' or L_SORO = 'O' ).
    message I398() with '打开模式只能是S或者O!'.
  endif.
  L_MASK_U = P_MASK.
  L_MASK_L = P_MASK.
  translate L_MASK_U to upper case .
  translate L_MASK_L to lower case.
*  concatenate ',*.' L_MASK_L ',*.' L_MASK_U ',*.*' into L_MASK_ALL.
  concatenate  ',*.xls'  ',*.XLS' ',*.xlsx'  ',*.XLSX' ',*.*' into L_MASK_ALL.
  "{added in 20130208:将功能名添加到标题上
  concatenate P_TITLE '-打开本地路径' into L_TITLE.
  "}
  "{added in 20090416:设置全局参数
  if P_FILE is initial.
    get parameter id 'FILE' field P_FILE.
  endif.
  "}
  call function 'WS_FILENAME_GET'
    exporting
      MASK             = L_MASK_ALL
      MODE             = L_SORO
      DEF_FILENAME     = P_FILE
      TITLE            = L_TITLE
    importing
      FILENAME         = P_FILE
    exceptions
      INV_WINSYS       =
      NO_BATCH         =
      SELECTION_CANCEL =
      SELECTION_ERROR  =
      others           = .
  if SY-SUBRC = .
    set parameter id 'FILE' field P_FILE.
  endif.
endform. "get_localfile

form MODIFY_ROUTING.

  data: LS_TSK       type                   CPS_TASK_LIST_MAINT_TSK,
        LS_TSK_X     type                   CPS_TASK_LIST_MAINT_TSK_X,
        LT_OPR       type standard table of CPS_TASK_LIST_MAINT_OPR,
        LS_OPR       type                   CPS_TASK_LIST_MAINT_OPR,
        LT_CHA       like                   GT_CPS_TASK_LIST_MAINT_CHA,
        LS_CHA       type                   CPS_TASK_LIST_MAINT_CHA,
        LT_RETURN    type table of          BAPIRET2 with header line,
        L_TEXT       type table of          BAPI1012_TXT_C,
        LV_RESULT() type                   C,
        LV_MSG       type                   STRING,
        LV_FROM      type                   I,
        LV_TO        type                   I,
        LV_TABIX     type                   SY-TABIX.
  data: L_PLNNR type PLKO-PLNNR,L_PLNAL type PLKO-PLNAL.
  data: LV_GROUP like MAPL-PLNNR.       " 组
  data: begin of LT_MARA occurs ,
          MATNR like MARA-MATNR,
          MEINS like MARA-MEINS,
        end of LT_MARA.

  data:L_INSPCHAR_COUNT type I.
  data:LS_ALV type LS_ITAB.

*
  if GT_ALV[] is not initial.

    sort LT_MARA by MATNR.
*    loop at GT_ALV into GS_ALV.
*
*      if GS_ALV-PLNAL is not initial.
*
*        call function 'CONVERSION_EXIT_ALPHA_INPUT'
*          exporting
*            INPUT  = GS_ALV-VORNR
*          importing
*            OUTPUT = GS_ALV-VORNR.
*
*        call function 'CONVERSION_EXIT_ALPHA_INPUT'
*          exporting
*            INPUT  = GS_ALV-PLNAL
*          importing
*            OUTPUT = GS_ALV-PLNAL.
*        LS_ALV = GS_ALV.
*        modify GT_ALV from GS_ALV index SY-TABIX transporting  VORNR PLNAL .
*      else.
*        call function 'CONVERSION_EXIT_ALPHA_INPUT'
*          exporting
*            INPUT  = LS_ALV-VORNR
*          importing
*            OUTPUT = LS_ALV-VORNR.
*
*        call function 'CONVERSION_EXIT_ALPHA_INPUT'
*          exporting
*            INPUT  = LS_ALV-PLNAL
*          importing
*            OUTPUT = LS_ALV-PLNAL.
*        GS_ALV-MATNR = LS_ALV-MATNR.
*        GS_ALV-MAKTX = LS_ALV-MAKTX.
*        GS_ALV-WERKS = LS_ALV-WERKS.
*        GS_ALV-PLNNR = LS_ALV-PLNNR.
*        GS_ALV-PLNAL = LS_ALV-PLNAL.
*        GS_ALV-KTEXT = LS_ALV-KTEXT.
*        GS_ALV-PLNNR_ALT = LS_ALV-PLNNR_ALT.
*        GS_ALV-SLWBEZ = LS_ALV-SLWBEZ.
*
*        if GS_ALV-VORNR is initial.
*          GS_ALV-VORNR = LS_ALV-VORNR.
*          GS_ALV-ARBPL = LS_ALV-ARBPL.
*          GS_ALV-LTXA1 = LS_ALV-LTXA1.
*        endif.
*
*        modify GT_ALV from GS_ALV index SY-TABIX transporting MATNR MAKTX WERKS PLNNR PLNAL KTEXT PLNNR_ALT SLWBEZ VORNR ARBPL LTXA1.
*
*      endif.
*
*    endloop.
  endif.

  clear: L_PLNNR, L_PLNAL.
  loop at GT_ALV into GS_ALV.

    call function 'CONVERSION_EXIT_ALPHA_INPUT'
      exporting
        INPUT  = GS_ALV-VORNR
      importing
        OUTPUT = GS_ALV-VORNR.

    if  L_PLNNR ne GS_ALV-PLNNR  or  L_PLNAL ne GS_ALV-PLNAL  ."一个新的组开始，
*

*准备新组数据
      refresh: LT_OPR,LT_CHA.
      clear: LS_OPR,LS_TSK,LS_TSK_X,LS_CHA.

      L_PLNNR = GS_ALV-PLNNR.
      L_PLNAL = GS_ALV-PLNAL.

      LS_TSK-IDENT_KEY = GS_ALV-SLWBEZ.
      LS_TSK_X-IDENT_KEY = 'X'.
      LS_TSK-OLD_NUMBER_OF_TASK_LIST = GS_ALV-PLNNR_ALT."'Z50'.
      LS_TSK_X-OLD_NUMBER_OF_TASK_LIST = 'X'.

    endif.

    if LS_OPR-ACTIVITY ne GS_ALV-VORNR.
      L_INSPCHAR_COUNT = ."检验特性编号初始值
      clear LS_OPR.
      LS_OPR-MAINTAIN_MODE = 'C'.
      LS_OPR-ACTIVITY = GS_ALV-VORNR.
      LS_OPR-SEQUENCE_NO = ''.
      LS_OPR-CONTROL_KEY = 'QM01'.
      LS_OPR-WORK_CNTR = GS_ALV-ARBPL.
      LS_OPR-PLANT = GS_ALV-WERKS.
      LS_OPR-BASE_QUANTITY = ''.
      LS_OPR-DENOMINATOR = ''.
      LS_OPR-NOMINATOR = ''.
*      LS_OPR-OPERATION_MEASURE_UNIT = 'KG'.
      LS_OPR-DESCRIPTION = GS_ALV-LTXA1.
      LS_OPR-INSP_POINT_COMPLT_FLOW_VARIANT = ."检验点完成   这个只能修改用，因为TSK中IDENT_KEY设置值，就不允许输入过程
      LS_OPR-FREE_GRID = 'X'."间隔无时间或数量参考 这个只能修改用，因为TSK中IDENT_KEY设置值，就不允许输入过程

*      LS_OPR-MAINTAIN_MODE = 'C'.
*      LS_OPR-ACTIVITY = '0040'.
*      LS_OPR-SEQUENCE_NO = '000000'.
*      LS_OPR-CONTROL_KEY = 'QM01'.
*      LS_OPR-WORK_CNTR = 'Q2001001'.
*      LS_OPR-PLANT = '2001'.
*      LS_OPR-BASE_QUANTITY = '1'.
*      LS_OPR-DENOMINATOR = '1'.
*      LS_OPR-NOMINATOR = '1'.
**    LS_OPR-OPERATION_MEASURE_UNIT = 'KG'.
*      LS_OPR-DESCRIPTION = 'Operation created'.
*      LS_OPR-INSP_POINT_COMPLT_FLOW_VARIANT = 2."检验点完成   这个只能修改用，因为TSK中IDENT_KEY设置值，就不允许输入过程
*      LS_OPR-FREE_GRID = 'X'."间隔无时间或数量参考 这个只能修改用，因为TSK中IDENT_KEY设置值，就不允许输入过程

      append LS_OPR to LT_OPR.
    endif.

    perform FILL_CHA tables LT_CHA
                     changing LS_CHA
                      L_INSPCHAR_COUNT.

    at end of PLNAL.

      call function 'CPCC_S_TASK_LIST_MAINTAIN'
        exporting
*         CHANGE_NO                  =
          KEY_DATE                   = SY-DATUM
          TASK_LIST_TYPE             = 'N'
          TASK_LIST_GROUP            = GS_ALV-PLNNR  "L_PLNNR
          GROUP_COUNTER              = L_PLNAL "GS_ALV-PLNAL
          TASK_MAINTAIN_MODE         = 'M'
          TASK                       = LS_TSK
          TASK_X                     = LS_TSK_X
        tables
          OPERATIONS                 = LT_OPR
*         operations_x               = lt_opr_x
          INSPECTION_CHARACTERISTICS = LT_CHA
*         inspection_characteristics_x = lt_cha_x
*         inspection_values          = lt_chv
*         inspection_values_x        = lt_chv_x
          RETURN                     = LT_RETURN.

      clear LV_RESULT.
      LV_RESULT = '成功'.
      loop at LT_RETURN where TYPE = 'E' or TYPE = 'A'.

        LV_RESULT = '失败'.
        exit.
      endloop.
      clear LV_MSG.

      if LV_RESULT eq '失败'.
        call function 'BAPI_TRANSACTION_ROLLBACK'.
        call function 'FORMAT_MESSAGE'
          exporting
            ID        = LT_RETURN-ID
            LANG      = SY-LANGU
            NO        = LT_RETURN-NUMBER
            V1        = LT_RETURN-MESSAGE_V1
            V2        = LT_RETURN-MESSAGE_V2
            V3        = LT_RETURN-MESSAGE_V3
            V4        = LT_RETURN-MESSAGE_V4
          importing
            MSG       = LV_MSG
          exceptions
            NOT_FOUND =
            others    = .

      else.
        call function 'BAPI_TRANSACTION_COMMIT'
          exporting
            WAIT = 'X'.

        read table LT_RETURN with key TYPE = 'S'.
        call function 'FORMAT_MESSAGE'
          exporting
            ID        = LT_RETURN-ID
            LANG      = SY-LANGU
            NO        = LT_RETURN-NUMBER
            V1        = LT_RETURN-MESSAGE_V1
            V2        = LT_RETURN-MESSAGE_V2
            V3        = LT_RETURN-MESSAGE_V3
            V4        = LT_RETURN-MESSAGE_V4
          importing
            MSG       = LV_MSG
          exceptions
            NOT_FOUND =
            others    = .
      endif.

      read table GT_ALV into GS_ALV with key PLNNR = L_PLNNR PLNAL = L_PLNAL.
      GS_ALV-STATUS = LV_RESULT.
      GS_ALV-MESSAGE = LV_MSG.
      modify GT_ALV from GS_ALV index SY-TABIX transporting STATUS MESSAGE  .

    endat.

  endloop.

endform.
*&---------------------------------------------------------------------*
*&      Form  FILL_CHA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form FILL_CHA    tables    LT_CHA  like GT_CPS_TASK_LIST_MAINT_CHA
                 changing LS_CHA    type  CPS_TASK_LIST_MAINT_CHA
                   L_INSPCHAR_COUNT type I.

  data: LV_KURZTEXT like QPMT-KURZTEXT.
  data:LV_STEUERKZ like QPMK-STEUERKZ.
  data: LV_STELLEN like QPMK-STELLEN.
  data:LV_MASSEINHSW like QPMK-MASSEINHSW.
  data:L_AUSWMENGE1 like QPMZ-AUSWMENGE1.

  clear LS_CHA.

  write L_INSPCHAR_COUNT to LS_CHA-INSPCHAR.

  call function 'CONVERSION_EXIT_ALPHA_INPUT'
    exporting
      INPUT  = LS_CHA-INSPCHAR
    importing
      OUTPUT = LS_CHA-INSPCHAR.

  LS_CHA-MAINTAIN_MODE = 'C'.
  LS_CHA-SEQUENCE_NO = ''.
  LS_CHA-ACTIVITY = GS_ALV-VORNR.
*  LS_CHA-INSPCHAR = LS_CHA-INSPCHAR."检验特性编号

  LS_CHA-MSTR_CHAR = GS_ALV-VERWMERKM."主文件检验特性100-001
  LS_CHA-PMSTR_CHAR = GS_ALV-WERKS."工厂
*    LS_CHA-VMSTR_CHAR = '000001'."version.

  clear LV_KURZTEXT.
  select single KURZTEXT into LV_KURZTEXT
  from QPMT
  where ZAEHLER = LS_CHA-PMSTR_CHAR
  and MKMNR = LS_CHA-MSTR_CHAR.

  LS_CHA-CHAR_DESCR = LV_KURZTEXT.

  LS_CHA-METHOD = GS_ALV-PMETHODE.        "方法。
  LS_CHA-PMETHOD = GS_ALV-WERKS.        "工厂
  LS_CHA-VMETHOD = ''."version.

  clear: LV_STEUERKZ,LV_STELLEN, LV_MASSEINHSW.
  select single STEUERKZ STELLEN MASSEINHSW
  into (LV_STEUERKZ, LV_STELLEN, LV_MASSEINHSW)
  from QPMK
  where ZAEHLER = LS_CHA-PMSTR_CHAR
  and MKMNR = LS_CHA-MSTR_CHAR.

  LS_CHA-DEC_PLACES = LV_STELLEN.
  LS_CHA-MEAS_UNIT  = LV_MASSEINHSW.
*XX X  =   X    X

  LS_CHA-QUANTITATIVE_IND = LV_STEUERKZ+()."是否是数量特性。等于X是，QN=X;空时QL=X
  LS_CHA-MEAS_VALUE_CONFIRM_IND = LV_STEUERKZ+().     "                         x
  LS_CHA-ATTRIBUTE_REQUIRED_IND = LV_STEUERKZ+()."选择集
  LS_CHA-UP_TOL_LMT_IND = LV_STEUERKZ+()."
  LS_CHA-LW_TOL_LMT_IND = LV_STEUERKZ+().
  LS_CHA-TARGET_VAL_CHECK_IND = LV_STEUERKZ+().
  LS_CHA-SCOPE_IND = LV_STEUERKZ+()."= 固定的检验范围 ;  不固定范围 ;  < 允许的小的检验范围 ;  >  允许的大的检验范围
  LS_CHA-LONG_TERM_INSP_IND = LV_STEUERKZ+().
  LS_CHA-RESULT_RECORDING_TYPE = LV_STEUERKZ+(). " '' 汇总记录 ; +  单值记录 ;* 分类记录; - 无结果记录
  LS_CHA-DOCU_REQU = LV_STEUERKZ+().
  LS_CHA-CONFIRMATION_CATEGORY = LV_STEUERKZ+().  "x
  LS_CHA-ADD_SAMPLE_QUANTITY = LV_STEUERKZ+().
  LS_CHA-DESTRUCTIVE_INSP_IND = LV_STEUERKZ+().
  LS_CHA-FORMULA_IND = LV_STEUERKZ+().
  LS_CHA-SAMPLING_PROCEDURE_IND = LV_STEUERKZ+()."是否有采样过程

  if  LS_CHA-SAMPLING_PROCEDURE_IND is not initial.
    LS_CHA-SMPL_PROCEDURE = GS_ALV-STICHPRVER."采样过程
    LS_CHA-SMPL_UNIT = GS_ALV-PROBEMGEH.     "采样单位
    LS_CHA-SMPL_QUANT = ''."采样的采样数量因子（多重采样计量单位）
  endif.

  LS_CHA-TARGET_VAL = GS_ALV-SOLLWERT."一个数量特性的目标值
  LS_CHA-TARGET_VAL_NI = 'X'."一个数量特性的目标值
  if LS_CHA-TARGET_VAL_CHECK_IND is not initial.
    LS_CHA-TARGET_VAL = GS_ALV-SOLLWERT."一个数量特性的目标值
    LS_CHA-TARGET_VAL_NI = 'X'."一个数量特性的目标值
  endif.

  if LS_CHA-UP_TOL_LMT_IND is not initial and GS_ALV-TOLERANZOB is not initial and GS_ALV-TOLERANZOB ne .

    LS_CHA-UP_TOL_LMT = GS_ALV-TOLERANZOB.
    LS_CHA-UP_TOL_LMT_NI = 'X'."一个数量特性的目标值
  else.
    LS_CHA-UP_TOL_LMT_IND = ''.
  endif.

  if LS_CHA-LW_TOL_LMT_IND is not initial and GS_ALV-TOLERANZUN is not initial and GS_ALV-TOLERANZUN ne .
    LS_CHA-LW_TOL_LMT =  GS_ALV-TOLERANZUN.
    LS_CHA-LW_TOL_LMT_NI = 'X'."一个数量特性的目标值
  else.
    LS_CHA-LW_TOL_LMT_IND = ''.
  endif.

  if LS_CHA-ATTRIBUTE_REQUIRED_IND is not initial.
    LS_CHA-IND_SELSET_OR_CODEGRP1 = 'X'."目录条目是一个选择集
    LS_CHA-CAT_TYPE1  = 'X'.
    select single AUSWMENGE1 into L_AUSWMENGE1
    from QPMZ
    where ZAEHLER = LS_CHA-PMSTR_CHAR
    and MKMNR = LS_CHA-MSTR_CHAR.

    LS_CHA-SEL_SET1 = L_AUSWMENGE1.     "分配的代码组或选择集
    LS_CHA-PSEL_SET1 =  GS_ALV-WERKS."分配的选择集的工厂
  endif.

  append LS_CHA to LT_CHA.
  L_INSPCHAR_COUNT = L_INSPCHAR_COUNT + .

*  clear LS_CHA.
*  LS_CHA-MAINTAIN_MODE = 'C'.
*  LS_CHA-SEQUENCE_NO = '000000'.
*  LS_CHA-ACTIVITY = '0040'.
*  LS_CHA-INSPCHAR = '110'."检验特性编号
*
*
*  LS_CHA-MSTR_CHAR = '300-024'."主文件检验特性100-001
*  LS_CHA-PMSTR_CHAR = '2001'."工厂
**    LS_CHA-VMSTR_CHAR = '000001'."version.
*
*  select single KURZTEXT into LV_KURZTEXT
*  from QPMT
*  where ZAEHLER = LS_CHA-PMSTR_CHAR
*  and MKMNR = LS_CHA-MSTR_CHAR.
*
*  LS_CHA-CHAR_DESCR = LV_KURZTEXT.
*
*  LS_CHA-METHOD = 'GB/T5530'.        "方法。
*  LS_CHA-PMETHOD = '2001'.        "工厂
*  LS_CHA-VMETHOD = '000001'."version.
*
*  clear: LV_STEUERKZ,LV_STELLEN, LV_MASSEINHSW.
*  select single STEUERKZ STELLEN MASSEINHSW
*  into (LV_STEUERKZ, LV_STELLEN, LV_MASSEINHSW)
*  from QPMK
*  where ZAEHLER = LS_CHA-PMSTR_CHAR
*  and MKMNR = LS_CHA-MSTR_CHAR.
*
*
*  LS_CHA-DEC_PLACES = LV_STELLEN.
*  LS_CHA-MEAS_UNIT  = LV_MASSEINHSW.
*
*  LS_CHA-QUANTITATIVE_IND = LV_STEUERKZ+0(1)."是否是数量特性。等于X是，QN=X;空时QL=X
*  LS_CHA-MEAS_VALUE_CONFIRM_IND = LV_STEUERKZ+1(1).     "                         x
*  LS_CHA-ATTRIBUTE_REQUIRED_IND = LV_STEUERKZ+2(1)."选择集
*  LS_CHA-UP_TOL_LMT_IND = LV_STEUERKZ+3(1)."
*  LS_CHA-LW_TOL_LMT_IND = LV_STEUERKZ+4(1).
*  LS_CHA-TARGET_VAL_CHECK_IND = LV_STEUERKZ+5(1).
*  LS_CHA-SCOPE_IND = LV_STEUERKZ+6(1)."= 固定的检验范围 ;  不固定范围 ;  < 允许的小的检验范围 ;  >  允许的大的检验范围
*  LS_CHA-LONG_TERM_INSP_IND = LV_STEUERKZ+7(1).
*  LS_CHA-RESULT_RECORDING_TYPE = LV_STEUERKZ+8(1). " '' 汇总记录 ; +  单值记录 ;* 分类记录; - 无结果记录
*  LS_CHA-DOCU_REQU = LV_STEUERKZ+9(1).
*  LS_CHA-CONFIRMATION_CATEGORY = LV_STEUERKZ+10(1).  "x
*  LS_CHA-ADD_SAMPLE_QUANTITY = LV_STEUERKZ+11(1).
*  LS_CHA-DESTRUCTIVE_INSP_IND = LV_STEUERKZ+12(1).
*  LS_CHA-FORMULA_IND = LV_STEUERKZ+13(1).
*  LS_CHA-SAMPLING_PROCEDURE_IND = LV_STEUERKZ+15(1)."是否有采样过程
*
*  if  LS_CHA-SAMPLING_PROCEDURE_IND is not initial.
*    LS_CHA-SMPL_PROCEDURE = '1003'."采样过程
*    LS_CHA-SMPL_UNIT = 'KG'.     "采样单位
*    LS_CHA-SMPL_QUANT = '1'."采样的采样数量因子（多重采样计量单位）
*  endif.
*
*
*  if LS_CHA-TARGET_VAL_CHECK_IND is not initial.
*    LS_CHA-TARGET_VAL = '100'."一个数量特性的目标值
*    LS_CHA-TARGET_VAL_NI = 'X'."一个数量特性的目标值
*  endif.
*
*
*  if LS_CHA-LW_TOL_LMT_IND is not initial.
*    LS_CHA-LW_TOL_LMT = '90'.
*    LS_CHA-LW_TOL_LMT_NI = 'X'."一个数量特性的目标值
*  endif.
*
*  if LS_CHA-UP_TOL_LMT_IND is not initial.
*    LS_CHA-UP_TOL_LMT = '110'.
*    LS_CHA-UP_TOL_LMT_NI = 'X'."一个数量特性的目标值
*  endif.
*
*  if LS_CHA-ATTRIBUTE_REQUIRED_IND is not initial.
**      LS_CHA-IND_SELSET_OR_CODEGRP1 = 'X'."目录条目是一个选择集
**      LS_CHA-CAT_TYPE1  = 'X'.
*    LS_CHA-SEL_SET1 = '02'.     "分配的代码组或选择集
*    LS_CHA-PSEL_SET1 = '2001'."分配的选择集的工厂
*  endif.
*
*  append LS_CHA to LT_CHA.

endform.                    " FILL_CHA
*&---------------------------------------------------------------------*
*&      Form  CREATE_TEMPLATE_DOWNLOAD
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form CREATE_TEMPLATE_DOWNLOAD .

*  物料编码  物料描述  工厂  组 组计数器  任务清单描述  旧任务清单 检验点 工序  工作中心  工序描述  主检验特性 特性描述  检验方法  采样过程  采样单位  目标值 规范下限  规范上限
  GT_DOWNLOAD-MATNR = '物料编码'.
  GT_DOWNLOAD-MAKTX = '物料描述'.
  GT_DOWNLOAD-WERKS = '工厂'.
  GT_DOWNLOAD-PLNNR = '组'.
  GT_DOWNLOAD-PLNAL = '组计数器'.
  GT_DOWNLOAD-KTEXT = '任务清单描述'.
  GT_DOWNLOAD-PLNNR_ALT = '旧任务清单'.
  GT_DOWNLOAD-SLWBEZ = '检验点'.
  GT_DOWNLOAD-VORNR = '工序'.
  GT_DOWNLOAD-ARBPL = '工作中心'.
  GT_DOWNLOAD-LTXA1 = '工序描述'.
  GT_DOWNLOAD-VERWMERKM = '主检验特性'.
  GT_DOWNLOAD-KURZTEXT = '特性描述'.
  GT_DOWNLOAD-PMETHODE = '检验方法'.
  GT_DOWNLOAD-STICHPRVER = '采样过程'.
  GT_DOWNLOAD-PROBEMGEH = '采样单位'.
  GT_DOWNLOAD-SOLLWERT = '目标值'.
  GT_DOWNLOAD-TOLERANZUN = '规范下限'.
  GT_DOWNLOAD-TOLERANZOB = '规范上限'.

  append GT_DOWNLOAD.

  select A~MATNR A~PLNNR A~WERKS A~PLNAL MAKTX KTEXT
  appending corresponding fields of table GT_DOWNLOAD
  from MAPL  as A
  inner join MARA as B on A~MATNR = B~MATNR
  inner join PLKO as C on A~PLNNR = C~PLNNR and A~PLNAL = C~PLNAL
  inner join MAKT as D on A~MATNR = D~MATNR and SPRAS = SY-LANGU
  where A~MATNR in S_MATNR and A~WERKS in S_WERKS and MTART in S_MTART and A~PLNTY = 'N'
  and A~LOEKZ eq SPACE and C~LOEKZ eq SPACE." .

  perform TEMPLATE_DOWNLOAD.

endform.                    " CREATE_TEMPLATE_DOWNLOAD

form TEMPLATE_DOWNLOAD.
  data: L_STR type STRING.
  L_STR = P_FILE.
  search L_STR for '.XLSX'.
  if SY-SUBRC ne .
    search L_STR for '.xlsx'.
    if SY-SUBRC ne .
      search L_STR for '.xls'.
      if SY-SUBRC ne .
        search L_STR for '.XLS'.
        if SY-SUBRC ne .

          concatenate L_STR '.xls' into L_STR.
        endif.
      endif.
    endif.

  endif.

  call function 'GUI_DOWNLOAD'
    exporting
*     BIN_FILESIZE            =
      FILENAME                = L_STR
      FILETYPE                = 'DAT'
*     CODEPAGE                = '8404'
    tables
      DATA_TAB                = GT_DOWNLOAD
*     FIELDNAMES              =
    exceptions
      FILE_WRITE_ERROR        =
      NO_BATCH                =
      GUI_REFUSE_FILETRANSFER =
      INVALID_TYPE            =
      NO_AUTHORITY            =
      UNKNOWN_ERROR           =
      HEADER_NOT_ALLOWED      =
      SEPARATOR_NOT_ALLOWED   =
      FILESIZE_NOT_ALLOWED    =
      HEADER_TOO_LONG         =
      DP_ERROR_CREATE         =
      DP_ERROR_SEND           =
      DP_ERROR_WRITE          =
      UNKNOWN_DP_ERROR        =
      ACCESS_DENIED           =
      DP_OUT_OF_MEMORY        =
      DISK_FULL               =
      DP_TIMEOUT              =
      FILE_NOT_FOUND          =
      DATAPROVIDER_EXCEPTION  =
      CONTROL_FLUSH_ERROR     =
      others                  = .
  if SY-SUBRC <> .
    message id SY-MSGID type SY-MSGTY number SY-MSGNO
    with SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.

endform.
*&---------------------------------------------------------------------*
*&      Form  FILL_ITAB
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form FILL_ITAB .
  data:LT_ITAB type table of LS_ITAB with header line.
  data:LT_QPMT type table of QPMT with header line.

  data:LS_ALV type LS_ITAB.

*
  if GT_ALV[] is not initial.

    loop at GT_ALV into GS_ALV.

      if GS_ALV-PLNAL is not initial.

        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            INPUT  = GS_ALV-VORNR
          importing
            OUTPUT = GS_ALV-VORNR.

        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            INPUT  = GS_ALV-PLNAL
          importing
            OUTPUT = GS_ALV-PLNAL.
        LS_ALV = GS_ALV.
        modify GT_ALV from GS_ALV index SY-TABIX transporting  VORNR PLNAL .
      else.
        if GS_ALV-VORNR is not initial.
          LS_ALV-VORNR = GS_ALV-VORNR.
          LS_ALV-ARBPL = GS_ALV-ARBPL.
          LS_ALV-LTXA1 = GS_ALV-LTXA1.
        endif.

        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            INPUT  = LS_ALV-VORNR
          importing
            OUTPUT = LS_ALV-VORNR.

        call function 'CONVERSION_EXIT_ALPHA_INPUT'
          exporting
            INPUT  = LS_ALV-PLNAL
          importing
            OUTPUT = LS_ALV-PLNAL.
        GS_ALV-MATNR = LS_ALV-MATNR.
        GS_ALV-MAKTX = LS_ALV-MAKTX.
        GS_ALV-WERKS = LS_ALV-WERKS.
        GS_ALV-PLNNR = LS_ALV-PLNNR.
        GS_ALV-PLNAL = LS_ALV-PLNAL.
        GS_ALV-KTEXT = LS_ALV-KTEXT.
        GS_ALV-PLNNR_ALT = LS_ALV-PLNNR_ALT.
        GS_ALV-SLWBEZ = LS_ALV-SLWBEZ.

        if GS_ALV-VORNR is initial.
          GS_ALV-VORNR = LS_ALV-VORNR.
          GS_ALV-ARBPL = LS_ALV-ARBPL.
          GS_ALV-LTXA1 = LS_ALV-LTXA1.
        endif.

        modify GT_ALV from GS_ALV index SY-TABIX transporting MATNR MAKTX WERKS PLNNR PLNAL KTEXT PLNNR_ALT SLWBEZ VORNR ARBPL LTXA1.

      endif.

    endloop.
  endif.
  LT_ITAB[] = GT_ALV[].

  sort LT_ITAB by WERKS VERWMERKM.
  delete adjacent duplicates from LT_ITAB comparing WERKS VERWMERKM.

  if LT_ITAB[] is not initial.
    select ZAEHLER MKMNR KURZTEXT
    into corresponding fields of table LT_QPMT
    from QPMT
    for all entries in LT_ITAB
    where ZAEHLER = LT_ITAB-WERKS and  MKMNR = LT_ITAB-VERWMERKM and SPRACHE eq SY-LANGU.

    sort LT_QPMT by ZAEHLER MKMNR.

    loop at GT_ALV into GS_ALV.
      read table LT_QPMT with key ZAEHLER = GS_ALV-WERKS  MKMNR = GS_ALV-VERWMERKM.
      if SY-SUBRC eq .
        GS_ALV-KURZTEXT = LT_QPMT-KURZTEXT.
        modify GT_ALV from GS_ALV  transporting KURZTEXT where WERKS = GS_ALV-WERKS and VERWMERKM = GS_ALV-VERWMERKM.
      endif.
    endloop.
  endif.

endform.                    " FILL_ITAB