ZCMM01-28

*&--------------------------------------------------
*&      Module  status_4000  OUTPUT
*&-------------------------------------------------
MODULE STATUS_4000 OUTPUT.
  DATA : L_SELECTED TYPE C.
  DATA : P_B(1) TYPE C.
  DATA : P_ALL(1) TYPE C.
  DATA : P_A(1) TYPE C.
  DATA : P_C(1) TYPE C.
  DATA : P_E(1) TYPE C.
  DATA : P_F(1) TYPE C.
  DATA : P_G(1) TYPE C.
  DATA : L_WERKS LIKE AFPO-PWERK.
  SET PF-STATUS '4000'.

  G_LGORT = '' .
  ZPCEMM002-GROUPCODE ='' .
  ZPCEMM002-GROUPVALUE ='' .
  SELECT SINGLE PWERK INTO L_WERKS FROM AFPO WHERE
  AUFNR = ZCM03-AUFNR.
  P_ALL = 'X'.
  P_A = ''.
  P_C = ''.
  P_E = ''.
  P_F = ''.
  P_B = ''.
  P_G = ''.
  SELECT SINGLE VALUE INTO L_SELECTED FROM ZMM048
  WHERE WERKS = L_WERKS AND BJECT = 'WO_DEFAULT'.
  IF SY-SUBRC = 0.
    CASE L_SELECTED.
      WHEN '1'.
        P_B = ''.
        P_ALL = 'X'.
      WHEN '2'.
        P_B = ''.
        P_A = 'X'.
      WHEN '4'.
        P_B = ''.
        P_C = 'X'.
      WHEN '5'.
        P_B = ''.
        P_E = 'X'.
      WHEN '6'.
        P_B = ''.
        P_F = 'X'.
    ENDCASE.
  ENDIF.
* P_ALL = 'X'.
  SET TITLEBAR '000' WITH 'Please key in production quantity'
  'to calculate quantity withdrawn'.
ENDMODULE.                 " status_4000  OUTPUT
*&------------------------------------------------------
*&      Module  status_4000  OUTPUT
*&------------------------------------------------------
MODULE STATUS_6000 OUTPUT.
*  DATA : P_B(1) TYPE C.
  SET PF-STATUS '6000'.
  STPO-DATUV = SY-DATUM.
*
*  G_LGORT = '' .
*  ZPCEMM002-GROUPCODE ='' .
*  ZPCEMM002-GROUPVALUE ='' .
*  P_B = 'X'.

  SET TITLEBAR '000' WITH 'Please key in production quantity'
  'to calculate quantity withdrawn'.
ENDMODULE.                 " status_4000  OUTPUT

*&-----------------------------------------------------
*&      Module  user_command_4000  INPUT
*&-----------------------------------------------------
MODULE USER_COMMAND_4000 INPUT.
*   IF P_ALL = 'X' .
*   G_SLOC = '1' .
*   ENDIF.
  KCODE = SY-UCOMM.
  CASE OKCODE.
    WHEN 'CONTINUE'.
      CLEAR OKCODE.
      LEAVE TO SCREEN 0.
*Yuan-Yuan add 20091026.sn
    WHEN 'FILTER'.
      CLEAR OKCODE.
      CALL SCREEN 2002 STARTING AT 15 7.
*Yuan-Yuan add 20091026.en
  ENDCASE.
ENDMODULE.                 " user_command_4000  INPUT
*&-------------------------------------------------------
*&      Module  user_command_6000  INPUT
*&--------------------------------------------------------
MODULE USER_COMMAND_6000 INPUT.
*   IF P_ALL = 'X' .
*   G_SLOC = '1' .
*   ENDIF.
  KCODE = SY-UCOMM.
  CASE OKCODE.
    WHEN 'CONTINUE'.
      CLEAR OKCODE.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " user_command_6000  INPUT

*&------------------------------------------------------
*&      Module  CANCEL  INPUT
*&----------------------------------------------------
*       text
*------------------------------------------------------
MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.                 " CANCEL  INPUT

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

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