ZCMM01-1

PROGRAM ZRMM_CSD_0001 MESSAGE-ID ZPCEMM001.

DATA: DEST LIKE PRI_PARAMS-PDEST.
TABLES:
        ADRC,
        AFKO,
        AFPO,
        CSKT,
        LFA1,
        MAKT,
        RESB,
        ZCM03,
        ZCM04,
        PLAF,
        ZPCEMM002,
        ZPCEMM040,
        JEST,
        ZPCEMM003,
        AEOI, MARA,T001L,STPO,
        MBEW, AUFK, VBAP,
        ZPCECONTROLVALUE, "CANDY20091119
*add by yuan-yuan xiao 080619
ZCM20,ZMM048,EKPO,T001K,ZPCEMM045,AUFM,MSEG.

DATA:F_SHOW TYPE C VALUE 'N'.

DATA:L_MESSAGE LIKE SYST-MSGV1. "kelly 20100113

DATA: L_MESSAGE1(44) TYPE C.  "kelly 2010/2/3 add
DATA: L_MESSAGE2(12)  TYPE C. "kelly 2010/2/3 add
DATA: L_MESSAGE3(6)  TYPE C."kelly 2010/2/4 add

DATA:BEGIN OF ITAB_DOCTYPE OCCURS 0,
DOCTYPE(2) TYPE C,
END OF ITAB_DOCTYPE.

DATA:F_AUTH TYPE C.
*

DATA: BEGIN OF ZCM03TAB OCCURS 0.
        INCLUDE STRUCTURE ZCM03.
DATA:     SELID,
          UPTINDICATOR,
END OF ZCM03TAB.

DATA: BEGIN OF ZCM04TAB OCCURS 0.
        INCLUDE STRUCTURE ZCM04.
DATA:    SELINDICATOR,
         UPTINDICATOR,
         PERSISTENT,
         MAABC, "Ariel add 100208
         BAUGR, "Ariel add 100423
      END OF ZCM04TAB.
*Yuan-Yuan 20091123 add.sn
DATA: BEGIN OF WA_TMP,
      MATNR LIKE ZCM04-MATNR,
      WERKS LIKE ZCM04-WERKS,
      ERFMG LIKE ZCM04-ERFMG,
      ERFME LIKE ZCM04-ERFME,
      RSNUM LIKE ZCM04-RSNUM,
      RSPOS LIKE ZCM04-RSPOS,
END OF WA_TMP.
*Yuan-Yuan 20091123 add.en

DATA: BEGIN OF RESBTAB OCCURS 0,
MATNR LIKE RESB-MATNR,
WERKS LIKE RESB-WERKS,
LGORT LIKE RESB-LGORT,
CHARG LIKE RESB-CHARG,
MEINS LIKE RESB-MEINS,
ERFMG LIKE RESB-ERFMG,
ENMNG LIKE RESB-ENMNG,
RSNUM LIKE RESB-RSNUM,
RSPOS LIKE RESB-RSPOS,
SHKZG LIKE RESB-SHKZG,"ariel20090730.add
ALPGR LIKE ZCM04-ALPGR,"Yuan-Yuan 20091029 add
EWAHR LIKE RESB-EWAHR,"Yuan-Yuan 20091030 add
ZALPGR LIKE ZCM04-ZALPGR,
END OF RESBTAB.
DATA: BEGIN OF RESBTAB_SEC OCCURS 0,
*        matnr like resb-matnr,
      WERKS LIKE RESB-WERKS,
      ENMNG LIKE RESB-ENMNG,
*        charg like resb-charg,
      ALPGR(6) TYPE C,
*        ewahr like resb-ewahr,
      ERFMG LIKE ZCM04-ERFMG,
      END OF RESBTAB_SEC.
DATA: BEGIN OF RESBTAB_THI OCCURS 0,
      MATNR LIKE RESB-MATNR,
      WERKS LIKE RESB-WERKS,
      ENMNG LIKE RESB-ENMNG,
      ERFMG LIKE RESB-ERFMG,
      ALPGR LIKE ZCM04-ALPGR,"Ariel add 100424
      END OF RESBTAB_THI.

DATA: STATUSICON TYPE STATUSICON.

DATA: BEGIN OF FCODETAB OCCURS 0,
         FUNCCODE LIKE SY-UCOMM,
      END OF FCODETAB.

DATA: ZCM03WA LIKE ZCM03,
      ZCM04WA LIKE ZCM04.

DATA: OKCODE LIKE SY-UCOMM,
      LIFNR_NO LIKE EKKO-LIFNR.
DATA: G_SLOC(1) TYPE C.
DATA: G_LGORT(4) TYPE C.
DATA: G_MRPCTRL(3) TYPE C.
DATA: G_MRPGRP(3) TYPE C.
DATA: G_WHCTRL(13) TYPE C. "Echo 090812.add

DATA: DOCTYPETEXT LIKE DD07T-DDTEXT,
      G_DOCUMENT LIKE ZCM03-DOCNUMBER,
      G_DOCYEAR LIKE ZCM03-DOCYEAR,
      G_BADAT LIKE ZCM03-BADAT,
      G_EMPLOYID LIKE ZCM03-EMPLOYID  ,
      G_AUFNR LIKE  ZCM03-AUFNR ,
      G_KOSTL LIKE  ZCM03-KOSTL ,
      G_WOQTY LIKE ZCM03-ENMNG ,
      G_DOCTYPE LIKE ZCM03-DOCTYPE.
*      p_a4(1) type c value '',
*      p_b5(1) type c value 'X'.

DATA: TRANSACTION TYPE C,
      LASTDOCITEM TYPE I,
      DATAINPUTDR TYPE C,
      EXITINDICATOR TYPE C,
      ORD_QTY LIKE AFPO-PSMNG.
DATA: P_REASON LIKE MARA-AESZN,
      P_REALEASE(08) TYPE C.

DATA: MAXPRODUCTQTY(30).
DATA: S_POSTID LIKE MKPF-FRBNR.
**LBG20080411.ADD.SN
DATA: REASON_TXT LIKE DD07V-DDTEXT.
DATA: REALEASE_TXT LIKE DD07V-DDTEXT.
DATA: G_OBJECT(9) TYPE C.
**LBG20080411.ADD.EN
DATA:L_PSMNG LIKE AFPO-PSMNG.
DATA:L_WEMNG LIKE AFPO-WEMNG.
DATA:L_DAUAT LIKE AFPO-DAUAT,
     L_LGORT LIKE RESB-LGORT,
     L_CVALUE1 LIKE ZPCECONTROLVALUE-CVALUE1.
DATA:L_KDAUF LIKE VBAP-VBELN,
     L_KDPOS LIKE VBAP-POSNR,
     T_WERKS LIKE VBAP-WERKS,
     T_LGORT LIKE VBAP-LGORT.

*Ariel add090818
DATA:RES_FLAG(3) TYPE C.
*Candy add20090922 For show field password
DATA:F_PWD TYPE C VALUE 'N'.
DATA: S_PWD LIKE ZPCEUSER-PASSWD.
CONTROLS: ITEMCTRL TYPE TABLEVIEW USING SCREEN 2000.
*Yuan-Yuan 20091024 add.sn
CONTROLS: T_MARA_CTRL TYPE TABLEVIEW USING SCREEN 2002.
* FIFO add by aiking 100125
CONTROLS: ZCONTROL TYPE TABLEVIEW USING SCREEN 7000.
*&spwizard: lines of tablecontrol 'ZCONTROL'
DATA:     G_ZCONTROL_LINES  LIKE SY-LOOPC.

DATA P_MATNR LIKE MARA-MATNR.
DATA WH_CTL LIKE ZPCEMM040-CONTROLLER.
DATA IT_MATNR LIKE RANGE_S_MATNR OCCURS 0 WITH HEADER LINE.
*Yuan-Yuan 20091024 add.en
RANGES: R_CHARG FOR RESB-CHARG.
DATA  G_MESS TYPE C.
DATA  L_OBJECT1(10) TYPE C.
INCLUDE MZPCEMMI001.
* For barcode scan or FIFO control
INCLUDE ZLMM_PCE_0001.
* Ariel add for zcm04-alpgr 100201
DATA:C_ALPGR1(6) TYPE C.
DATA:C_ALPGR(2) TYPE C.
RANGES:R_WERKS FOR T001W-WERKS.

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666148/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666148/