ABAP模块解析-优快云博客

*&--------------------------------------------------------------
*&      Module exit_command_2000 INPUT
*&--------------------------------------------------------------
MODULE EXIT_COMMAND_2000 INPUT.
PERFORM. SET_DATA_INPUT_FLAG.
KCODE = SY-UCOMM.
CASE OKCODE.
    WHEN 'BACK' OR 'CANCEL' .
      CLEAR OKCODE.
      PERFORM. CHECK_WHETHER_DATA_INPUT USING EXITINDICATOR.
      CHECK EXITINDICATOR EQ 'X'.
      IF SY-CALLD EQ SPACE.
        LEAVE TO TRANSACTION SY-TCODE.
      ELSE.
        LEAVE TO SCREEN 0.
      ENDIF.
    WHEN 'EXIT'.
      CLEAR OKCODE.
      PERFORM. CHECK_WHETHER_DATA_INPUT USING EXITINDICATOR.
      CHECK EXITINDICATOR EQ 'X'.
      LEAVE TO SCREEN 0.
ENDCASE.
ENDMODULE.                 " exit_command_2000 INPUT

*&--------------------------------------------------------------
*& Module user_command_2000 INPUT
*&--------------------------------------------------------------
MODULE USER_COMMAND_2000 INPUT.
* DATA: L_CNT TYPE I."LBG20080414.ADD
DATA: G_PLANT LIKE ZCM04-WERKS."LBG20080414.ADD
DATA: ZCM03INS LIKE ZCM03 OCCURS 0 WITH HEADER LINE.
DATA: L_PLANT2 LIKE ZCM04-WERKS.
DATA: M_MEINS LIKE MARA-MEINS."Ariel add 100406

G_DOCUMENT = ZCM03-DOCNUMBER .
G_DOCYEAR = ZCM03-DOCYEAR .
KCODE = SY-UCOMM.

CASE OKCODE.
***lbg20080411.add.sn
    WHEN 'REALEASE'.
      CLEAR OKCODE.
      CLEAR ZCM03INS.
      CLEAR ZCM03INS[].
      CLEAR L_PLANT.
      SELECT SINGLE WERKS INTO L_PLANT FROM ZCM04 WHERE
       DOCNUMBER = ZCM03-DOCNUMBER AND
        DOCYEAR = ZCM03-DOCYEAR.
      IF SY-SUBRC EQ 0.
        L_CNT = 0.
        SELECT COUNT(*) INTO L_CNT FROM ZMM048
        WHERE WERKS = L_PLANT AND BJECT = G_OBJECT
        AND VALUE = 'ACTIVE'.
        IF L_CNT = 0.
          MESSAGE S000 WITH 'plant:' ZCM04TAB-WERKS
           'no thisfunction!'.
          EXIT.
        ENDIF.
        MOVE-CORRESPONDING ZCM03 TO ZCM03INS.
        IF ZCM03INS-RELSTATUS EQ SPACE OR
                ZCM03INS-RELSTATUS EQ 'R'.
          ZCM03-RELSTATUS = 'N'.
          ZCM03INS-RELSTATUS = 'N'.
          ZCM03INS-DOCSTAS = '0'.
          APPEND ZCM03INS. CLEAR ZCM03INS.
          MODIFY ZCM03 FROM TABLE ZCM03INS.
          IF SY-SUBRC NE 0.
            MESSAGE E000 WITH 'Table ZCM03 update error'.
          ELSE.
            MESSAGE S000 WITH 'This document has been sent!'.
          ENDIF.
        ELSE.
          IF ZCM03INS-RELSTATUS = 'N'.
            MESSAGE E000 WITH 'THIS DOCUMENT IS REALEASING!'.
          ELSE.
            MESSAGE E000 WITH 'THIS DOCUMENT HAS REALEASED!'.
          ENDIF.
        ENDIF.
      ELSE.
        MESSAGE E000 WITH
         'This docment detail has not been saved,'
                  'can not be SENT!'.
      ENDIF.
***lbg20080411.add.en
    WHEN 'ORDERCOMP'.
      CLEAR OKCODE.
      PERFORM. GET_ORDER_COMPONENTS.
    WHEN 'ORDERPROD'.
      CLEAR OKCODE.
      PERFORM. GET_ORDER_PRODUCED_MATERIAL.
    WHEN 'DELENTRY'.
      CLEAR OKCODE.
      PERFORM. DELETE_ENTRY.
*Add for post function by Elven Wang 20060419
    WHEN 'POST'.
      CLEAR OKCODE.

      IF S_POSTID = ''.
        MESSAGE E000 WITH 'Need input Post Employ ID!'.
      ELSE.
*candy 20090922 add for check password input
        IF S_PWD = '' AND F_PWD ='Y'.
          MESSAGE E000 WITH 'Please input Password!'.
        ENDIF.

****lbg200903131740.edit.sn
        SELECT SINGLE WERKS INTO L_PLANT FROM ZCM04 WHERE
         DOCNUMBER = ZCM03-DOCNUMBER .
        IF G_OBJECT EQ SPACE.
          CONCATENATE 'DOCTYPE' ZCM03-DOCTYPE INTO G_OBJECT.
          CONDENSE G_OBJECT.
        ENDIF.
        L_CNT = 0.
        SELECT COUNT(*) INTO L_CNT FROM ZMM048
        WHERE WERKS = L_PLANT AND BJECT = G_OBJECT
         AND VALUE = 'ACTIVE'.
        IF L_CNT > 0 AND ZCM03-RELSTATUS NE 'Y'.
****lbg200903131740.edit.en
          MESSAGE E000 WITH 'release not success !'.
        ELSE.
          PERFORM. POST_DOCUMENT.
        ENDIF.
      ENDIF.
    WHEN 'OUTPUT' .
      PERFORM. WRITE_DOCUMENT .

*Add by Elven Wang 20060419 end
WHEN 'SAVE'.
*Add by Elven Wang 20060419 end

      SELECT SINGLE * FROM ZCM03
       INTO ZCM03WA
       WHERE DOCNUMBER = ZCM03-DOCNUMBER
       AND DOCYEAR = ZCM03-DOCYEAR.

IF ZCM03WA-DOCSTAS = '1' ." Doc Post before?

        MESSAGE E000 WITH 'Denied,it had already been posted to'
ZCM03-MBLNR.
      ENDIF.
*---------------JL100205.sn
*Calculate WO Cost when post.
*      if zcm03-doctype = '3'.
*        g_mess = 'N'.
*        l_wemng = 0.
*        select single dwerk wemng into (l_plant2, l_wemng )
*        from   afpo
*        where aufnr = zcm03-aufnr.
*        if l_wemng = 0.
*          select single object into l_object1
*          from zmm048
*          where werks = l_plant2 and bject = 'WOCOSTCAL'
*          and value = 'ACTIVE'.
*          if sy-subrc = 0.
*            call function 'ZRFC_PP_PCE_0067'
*                 exporting
*                      p_wo   = zcm03-aufnr
*                      p_mode = 'N'
*                 importing
*                      p_mess = g_mess.
*            if g_mess = 'N'.
*              message id '00' type 'W' number '398'
*         with zcm03tab-aufnr '''WO Cost Calculate Failed!'.
*            endif.
*          endif.
*        endif.
*      endif.
*---------------JL100205.en