Java工艺路线和工序_工艺路线批导

REPORTZPPU006.*&---------------------------------------------------------------------**& Report ZPPU_MASS_UPLOAD_ROUTING*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------**&---------------------------------------------------------------------**Define TYPES*&---------------------------------------------------------------------*

TYPE-POOLS:SLIS,

ICON.TABLES:SSCRFIELDS.TYPES:BEGIN OFTYP_UPLOAD,

MATNR(18) TYPE C,"物料编码

MAKTX TYPEDUMMY,

PLNAL(2) TYPE C,"组计数器

DISPC(40) TYPE C,"工艺路线描述

VORNR(4) TYPE C,"作业序号

STEUS(4) TYPE C,"控制码

ARBPL(8) TYPE C,"工作中心

WERKS(4) TYPE C,"工厂

KTSCH(7) TYPE C,"标准文本

LTXA1(40) TYPE C,"工序文本

BMSCH(13) TYPE C,"工序基本数量

MEINH(3) TYPE C,"工序基本数量单位

UMREZ(5) TYPE C,"基本单位换算

VGW01(9) TYPE C,"人工工时

VGE01(3) TYPE C,"计量单位

VGW02(9) TYPE C,"机器工时

VGE02(3) TYPE C,"计量单位

VGW03(9) TYPE C,"检验工时

VGE03(3) TYPE C,"计量单位

VGW04(9) TYPE C," VGE04(3) TYPE C," VGW05(9) TYPE C," VGE05(3) TYPE C," VGW06(9) TYPE C," VGE06(3) TYPE C," ANZMS(5) TYPEC,

SPMUSTYPE C,"所需分解

SPLIM(3) TYPE C,"分解数

INFNR(10) TYPE C,"采购信息记录

EKORG(4) TYPE C, "采购组织

SAKTO(10) TYPE C, "成本要素*PURCH_ORG(4) type c,"采购组织*MATL_GROUP(9) type c,"物料组*PRICE_UNIT(5) type c,*COST_ELEM(10) type c,*INFO_REC_NET_PRICE(15) type c,*CURRENCY(3) type c,

END OFTYP_UPLOAD.TYPES:BEGIN OFTYP_DATA,

MATNRTYPE MATNR,"物料编码

WERKS TYPE WERKS_D,"工厂

PLNAL TYPE PLNAL,"组计数器

DISPC(40) TYPE C,"工艺路线描述

VORNR TYPE VORNR,"作业序号

STEUS TYPE STEUS,"控制码

ARBPL TYPE ARBPL,"工作中心

KTSCH TYPE KTSCH,"标准文本

LTXA1 TYPE LTXA1,"工序文本

BMSCH(13) TYPE C,"工序基本数量

MEINH(3) TYPE C,"工序基本数量单位

UMREZ(5) TYPE C,"基本单位换算

LAR01 TYPELSTAR,

VGW01TYPE VGWRT,"人工工时

VGE01 TYPE VGWRTEH,"计量单位

LAR02 TYPELSTAR,

VGW02TYPE VGWRT,"机器工时

VGE02 TYPE VGWRTEH,"计量单位

LAR03 TYPELSTAR,

VGW03TYPE VGWRT,"检验工时

VGE03 TYPE VGWRTEH,"计量单位

LAR04 TYPELSTAR,

VGW04TYPE VGWRT," VGE04 TYPE VGWRTEH," LAR05 TYPELSTAR,

VGW05TYPE VGWRT," VGE05 TYPE VGWRTEH," LAR06 TYPELSTAR,

VGW06TYPE VGWRT," VGE06 TYPE VGWRTEH," ANZMS TYPEANZMS,

SPMUSTYPE SPLITTUNG,"所需分解

SPLIM TYPE SPLITTANZ,"分解数

INFNR(10) TYPE C,"采购信息记录

EKORG(4) TYPE C, "采购组织

SAKTO(10) TYPE C, "成本要素*PURCH_ORG(4) type c,"采购组织*MATL_GROUP(9) type c,"物料组*PRICE_UNIT(5) type c,*COST_ELEM(10) type c,*INFO_REC_NET_PRICE(15) type c,*CURRENCY(3) type c,

END OFTYP_DATA.TYPES:BEGIN OFTYP_RESULT,

MATNRTYPE MATNR,"物料编码

MAKTX TYPE MAKTX,"物料编码

WERKS TYPE WERKS_D,"工厂

PLNAL TYPE PLNAL,"组计数器

LIGHT TYPE C LENGTH 4,

MSGTYPE C LENGTH 220,END OFTYP_RESULT.*&---------------------------------------------------------------------**Define GLOBAL DATA*&---------------------------------------------------------------------*

DATA:GTH_FIELDCAT_LVC TYPELVC_S_FCAT,

GTD_FIELDCAT_LVCTYPELVC_T_FCAT,

GST_LAYOUT_LVCTYPELVC_S_LAYO.DATA:GTH_UPLOAD TYPETYP_UPLOAD,

GTD_UPLOADTYPE STANDARD TABLE OFTYP_UPLOAD.DATA:GTH_DATA TYPETYP_DATA,

GTD_DATATYPE STANDARD TABLE OFTYP_DATA,

GTD_DATA1TYPE STANDARD TABLE OFTYP_DATA.DATA:GTH_RESULT TYPETYP_RESULT,

GTD_RESULTTYPE STANDARD TABLE OFTYP_RESULT.*&---------------------------------------------------------------------**Define SCREEN*&---------------------------------------------------------------------*

SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-T01.PARAMETER:P_FN TYPE C LENGTH 132 LOWER CASE.SELECTION-SCREEN END OF BLOCKBLK1.SELECTION-SCREEN FUNCTION KEY 1.INITIALIZATION.MOVE '@49@下载模板' TO SSCRFIELDS-FUNCTXT_01.AT SELECTION-SCREEN.IF SSCRFIELDS-U