ZCMM01-14

*&--------------------------------------------------------
*&      Form  set_data_input_flag
*&--------------------------------------------------------
FORM. SET_DATA_INPUT_FLAG.
  IF SY-DATAR EQ 'X' AND DATAINPUTDR EQ SPACE.
    DATAINPUTDR = SY-DATAR.
  ENDIF.
ENDFORM.                    " set_data_input_flag

*&------------------------------------------------------
*&      Form  check_whether_data_input
*&----------------------------------------------------
FORM. CHECK_WHETHER_DATA_INPUT USING EXITINDICATOR.
  DATA: ANSWERCODE(01),
  MESSAGETXT(50).

  CLEAR EXITINDICATOR.
  IF DATAINPUTDR IS INITIAL.
    EXITINDICATOR = 'X'.
  ELSE.
    MESSAGETXT = 'Data will be lost, would you like to exit?'.
    CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
    TITLEBAR                    = 'SAP'
    TEXT_QUESTION               = MESSAGETXT
    TEXT_BUTTON_1               = 'Yes'
    ICON_BUTTON_1               = 'ICON_OKAY'
    TEXT_BUTTON_2               = 'No'
    ICON_BUTTON_2               = 'ICON_CANCEL'
    DEFAULT_BUTTON              = '2'
    DISPLAY_CANCEL_BUTTON       = ' '
*               start_column                = 25
*               start_row                   = 6
    POPUP_TYPE                  =
    'ICON_MESSAGE_WARNING'
    IMPORTING
    ANSWER                      = ANSWERCODE
    EXCEPTIONS
    TEXT_NOT_FOUND              = 1
    OTHERS                      = 2.
    IF ANSWERCODE EQ '1'.
      EXITINDICATOR = 'X'.
    ENDIF.
  ENDIF.
ENDFORM.                    " check_whether_data_input

*&----------------------------------------------------
*&      Module  status_3000  OUTPUT
*&---------------------------------------------------
MODULE STATUS_3000 OUTPUT.
  SET PF-STATUS '1000'.
  IF SY-LANGU = 'E' .
    SET TITLEBAR '000' WITH 'Change Warehouse Application'
                 'DOCUMENT : Initial Screen'.
  ELSE.
    SET TITLEBAR '000' WITH  '¡±o¡±i2¡±¢XE¢DO?D3a : aicl£ge-¡Ó'.
  ENDIF.

  GET PARAMETER ID 'PARA001' FIELD ZCM03-DOCNUMBER.
  GET PARAMETER ID 'PARA002' FIELD ZCM03-DOCYEAR.

  IF ZCM03-DOCYEAR IS INITIAL.
    ZCM03-DOCYEAR = SY-DATUM+0(4) .
  ENDIF.

ENDMODULE.                 " status_3000  OUTPUT

*&----------------------------------------------------
*&      Module  exit_command_3000  INPUT
*&--------------------------------------------------------
MODULE EXIT_COMMAND_3000 INPUT.
  KCODE = SY-UCOMM.
  CASE OKCODE.
    WHEN 'BACK' OR 'CANCEL' OR 'EXIT'.
      CLEAR OKCODE.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " exit_command_3000  INPUT

*&-----------------------------------------------
*&      Module  status_5000  OUTPUT
*&---------------------------------------------------
MODULE STATUS_5000 OUTPUT.
  SET PF-STATUS '1000'.
  IF SY-LANGU = 'E' .
    SET TITLEBAR '000' WITH 'Display Warehouse Application'
             'DOCUMENT:Initial SCREEN'.
  ELSE.
    SET TITLEBAR '000' WITH  'Aa¢DU2¡±¢XE¢DO?D3a:aicl£ge-¡Ó'.
  ENDIF.

  GET PARAMETER ID 'PARA001' FIELD ZCM03-DOCNUMBER.
  GET PARAMETER ID 'PARA002' FIELD ZCM03-DOCYEAR.
  IF ZCM03-DOCYEAR IS INITIAL.
    ZCM03-DOCYEAR = SY-DATUM+0(4) .
  ENDIF.

ENDMODULE.                 " status_5000  OUTPUT

 

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

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