20170319 财务报表集

 

*&---------------------------------------------------------------------*
*& Report  ZFIR037
*&
*&---------------------------------------------------------------------*
*&
*&   财务报表集
*&  顾问： 吴 开发：刘   日期：20160115
*&
*&---------------------------------------------------------------------*

REPORT  ZFIR065.

DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.

CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&      Module  PBO  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PBO OUTPUT.

  SET PF-STATUS 'MAIN100'.
  SET TITLEBAR 'MAIN100'.

ENDMODULE.                 " PBO  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  PAI  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PAI INPUT.

  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  CASE SAVE_OK.
    WHEN 'ZFI022'.
*      CALL TRANSACTION 'ZFI022'.
      SUBMIT ZFIR056I VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZFI023'.
*      CALL TRANSACTION 'ZFI023'.
      SUBMIT ZFIR056J VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF054'.
      CALL TRANSACTION 'ZF054'.
    WHEN 'ZF056'.
      CALL TRANSACTION 'ZF056'.
    WHEN 'ZF057'.
      CALL TRANSACTION 'ZF057'.
    WHEN 'IDCNBSAIS'.
      CALL TRANSACTION 'IDCNBSAIS'.
    WHEN 'ZF056A'.
      SUBMIT ZFIR056A VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056B'.
      SUBMIT ZFIR056B VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056C'.
      SUBMIT ZFIR056C VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056D'.
      SUBMIT ZFIR056D VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056E'.
      SUBMIT ZFIR056E VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056F'.
      SUBMIT ZFIR056F VIA SELECTION-SCREEN AND RETURN.
    WHEN 'ZF056K'.
      SUBMIT ZFIR056K VIA SELECTION-SCREEN AND RETURN.
    WHEN OTHERS.
  ENDCASE.

ENDMODULE.                 " PAI  INPUT
*&---------------------------------------------------------------------*
*&      Module  EXIT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE EXIT INPUT.

  SAVE_OK = OK_CODE.
  CLEAR OK_CODE.
  IF SAVE_OK = 'BACK' OR SAVE_OK = 'EXIT' OR SAVE_OK = 'CANCEL'.
    LEAVE TO SCREEN 0.
  ENDIF.

ENDMODULE.                 " EXIT  INPUT