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

发布时间:2017-1-22 22:18:24 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"CA02检验计划批量导入 模板在文件 ",主要涉及到CA02检验计划批量导入 模板在文件 方面的内容,对于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 8 decimals 4,"一个数量特性的目标值    TOLERANZUN type P length 8 decimals 4,"容差下限    TOLERANZOB type P length 8 decimals 4,"规范上限    MESSAGE    type CHAR200,    STATUS(4),  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 0 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-001.  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

上一篇:写给自己的2016年总结
下一篇:算法与数据结构(十六) 快速排序(Swift 3.0版)

相关文章

相关评论