ZCMM01-2

最新推荐文章于 2025-09-23 09:05:35 发布

转载最新推荐文章于 2025-09-23 09:05:35 发布 · 114 阅读

*INCLUDE ZINP_PCE_0001.
*&--------------------------------------------------------------
*&      Module status_1000 OUTPUT
*&--------------------------------------------------------------
MODULE STATUS_1000 OUTPUT.
SET PF-STATUS '1000'.
ZCM03-BADAT = SY-DATUM.
IF SY-LANGU = 'E'.
    SET TITLEBAR '000' WITH 'Create Warehouse Application'
                            'DOCUMENT :INITIAL SCREEN'.
ELSE.
    SET TITLEBAR '000' WITH '?O¢Ds2¡±¢XE¢DO?D3a : aicl£ge-¡Ó'.
ENDIF.
*add by yuan-yuan xiao 080619
IF F_SHOW = 'Y'.
    PERFORM. SET_SHOW_1000 USING '1' '0'.
    SET CURSOR FIELD 'ZCM03-CREATER'.
ELSE.
    PERFORM. SET_SHOW_1000 USING '0' '1'.
ENDIF.
*

* p_b5 = 'X' .
* p_a4 = '' .
ENDMODULE. " status_1000 OUTPUT

*&--------------------------------------------------------------
*&      Module exit_command_1000 INPUT
*&--------------------------------------------------------------
MODULE EXIT_COMMAND_1000 INPUT.
KCODE = SY-UCOMM.
CASE OKCODE.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      CLEAR OKCODE.
*          leave PROGRAM.
      LEAVE TO SCREEN 0.
    WHEN OTHERS.
      CLEAR OKCODE.
      LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " exit_command_1000 INPUT

*&--------------------------------------------------------------
*&      Module check_employ_id INPUT
*&--------------------------------------------------------------
MODULE CHECK_EMPLOY_ID INPUT.
SELECT LIFNR INTO LFA1-LIFNR FROM LFA1
                               WHERE LIFNR EQ ZCM03-EMPLOYID.
    EXIT.
ENDSELECT.
IF SY-SUBRC NE 0.
    MESSAGE E000 WITH 'Employ ID ' ZCM03-EMPLOYID
                                 ' Does Not EXIST'.
ENDIF.
ENDMODULE.                 " check_employ_id INPUT

*&--------------------------------------------------------------
*& Module status_2000 OUTPUT
*&--------------------------------------------------------------

MODULE STATUS_2000 OUTPUT.
IF ZCM03-DOCTYPE = '12'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'REF' OR SCREEN-GROUP1 = 'GR'.
        SCREEN-ACTIVE = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSEIF ZCM03-DOCTYPE = '11'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'REF'.
        SCREEN-ACTIVE = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ELSEIF ZCM03-DOCTYPE = '10'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'GR'.
        SCREEN-ACTIVE = '0'.
        MODIFY SCREEN.
      ENDIF.
    ENDLOOP.
ENDIF.
*add by yuan-yuan xiao 080619
IF F_SHOW = 'Y'.
    PERFORM. SET_SHOW_2000 USING '1' '0'.
    LOOP AT SCREEN.
      IF SCREEN-NAME = 'S_POSTID'.
        SCREEN-INPUT = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
ELSE.
    PERFORM. SET_SHOW_2000 USING '0' '1'.
ENDIF.
*
PERFORM. SET_EXCLUSIVE_FUNCTION_CODE.

SET PF-STATUS '2000' EXCLUDING FCODETAB.
IF SY-LANGU ='E' .
    IF TRANSACTION EQ SPACE.
      SET TITLEBAR '000' WITH 'Create Warehouse Document'
                  'APPLICATION :OVERVIEW'.
    ELSEIF TRANSACTION EQ 'U'.
      SET TITLEBAR '000' WITH 'Change Warehouse Document'
                   'APPLICATION : OVERVIEW'.
*add by yuan-yuan xiao 080827
      LOOP AT SCREEN.
        IF SCREEN-NAME = 'ZCM03-POSTDATE'.
          SCREEN-INPUT = '1'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
*
    ELSEIF TRANSACTION EQ 'D'.
      SET TITLEBAR '000' WITH 'Display Warehouse Document'
                     'APPLICATION: Overview'.
    ENDIF.
ELSE.
    IF TRANSACTION EQ SPACE.
      SET TITLEBAR '000' WITH '?O¢Ds2¡±¢XE¢DO?D3a : ¡P¡±A['.
    ELSEIF TRANSACTION EQ 'U'.
      SET TITLEBAR '000' WITH '¡±o¡±i2¡±¢XE¢DO?D3a : ¡P¡±A['.
*add by yuan-yuan xiao 080827
      LOOP AT SCREEN.
        IF SCREEN-NAME = 'ZCM03-POSTDATE'.
          SCREEN-INPUT = '1'.
        ENDIF.
        MODIFY SCREEN.
      ENDLOOP.
*
    ELSEIF TRANSACTION EQ 'D'.
      SET TITLEBAR '000' WITH 'Aa¢DU¢DO?D3a : ¡P¡±A['.
    ENDIF.
ENDIF.