ZCMM01-14

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

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

*&--------------------------------------------------------
*&      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/