*&---------------------------------------------------------------------
*& Program name: ZSD_R_016
*& T-Code: ZSDR016
*& Porgram Type: Report
*& Description: 开票查询
*&----------------------------------------------------------------------
*& Author: Xiaolei.Sun
*& Date: 2010.01.30
*&----------------------------------------------------------------------
*& Function Spec No.:
*& Funciton Desc:
*&
*&
*&
*&----------------------------------------------------------------------
*& Modification Log:
*& Version Date Author DESCRIPTION CHANGE REQUEST
*& -------- ---------- ----------- ------------- -----------------
*& V1.00 2010.01.30 孙晓磊 Initial release
*&
*&----------------------------------------------------------------------
report zsd_r_016 no standard page heading message-id oo.
*----------------------------------------------------------------------*
* TABLE DECLARATION *
*----------------------------------------------------------------------*
tables: vbrk,vbrp.
*----------------------------------------------------------------------*
* TYPE-POOLS *
*----------------------------------------------------------------------*
type-pools: slis.
*----------------------------------------------------------------------*
* CONSTANTS *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* TYPES *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* DATA *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* SCREEN DECLARATION: PARAMETERS & SELECT-OPTIONS *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* DEFINE *
*----------------------------------------------------------------------*
*----------------------------------------------------------------------*
* INITIALIZATION *
*----------------------------------------------------------------------*
initialization.
perform frm_initialization.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN OUTPUT *
*----------------------------------------------------------------------*
at selection-screen output.
perform frm_modify_screen.
*----------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*----------------------------------------------------------------------*
at selection-screen.
perform frm_check_input.
*----------------------------------------------------------------------*
* START-OF-SELECTION *
*----------------------------------------------------------------------*
start-of-selection.
perform frm_retrive_data."get data
perform frm_process_data."process data
*----------------------------------------------------------------------*
* END-OF-SELECTION *
*----------------------------------------------------------------------*
end-of-selection.
perform frm_output.
*&---------------------------------------------------------------------*
*& Form FRM_INITIALIZATION
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_initialization .
endform. " FRM_INITIALIZATION
*&---------------------------------------------------------------------*
*& Form FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_modify_screen .
endform. " FRM_MODIFY_SCREEN
*&---------------------------------------------------------------------*
*& Form FRM_CHECK_INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_check_input .
endform. " FRM_CHECK_INPUT
*&---------------------------------------------------------------------*
*& Form FRM_RETRIVE_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_retrive_data .
endform. " FRM_RETRIVE_DATA
*&---------------------------------------------------------------------*
*& Form FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_process_data .
endform. " FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
*& Form FRM_OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form frm_output .
endform. " FRM_OUTPUT
评论