ALV输出可修改屏幕程序.docVIP

ALV输出可修改屏幕程序 *---------------------------------------------------------------------* * Report ZFIR058 * *---------------------------------------------------------------------* * * *---------------------------------------------------------------------* 1.se51创建ALVDATA屏幕 2.再做程序 REPORT ZFIR058. DATA:OK_CODE TYPE SY-UCOMM, SAVE_OK LIKE OK_CODE. TABLES:ZISS_FI_002,AUFK,BSIS. SELECTION-SCREEN: BEGIN OF BLOCK PROG WITH FRAME TITLE TEXT-001. PARAMETERS:P_GJAHR LIKE BSIS-GJAHR OBLIGATORY. PARAMETERS:P_MONAT LIKE BSIS-MONAT OBLIGATORY. SELECT-OPTIONS: S_AUFEX FOR AUFK-AUFEX NO INTERVALS. *PARAMETERS:update LIKE rptxxxxx-kr_feld1 DEFAULT , QCSK11K093070 * mapname DEFAULT ANNUAL_LEAVE LIKE rptaxxxx-map_name NO-DISPLAY. SELECTION-SCREEN: end OF BLOCK PROG. *定义工作区 DATA LS_002 TYPE ZISS_FI_002. *定义内标，变量需要传输 DATA WA_002 TYPE TABLE OF ZISS_FI_002 WITH HEADER LINE. DATA T_002 LIKE TABLE OF ziss_fi_002 WITH HEADER LINE. DATA l_003 LIKE TABLE OF ziss_fi_002 WITH HEADER LINE. DATA l_004 LIKE ziss_fi_002 . DATA l_aufk LIKE aufk. *定义删除的内表纪录 DATA WADEL_002 TYPE TABLE OF ZISS_FI_002. *定义在AUFK取外部订单编号时需要的range ranges r_aufex FOR aufk-aufex. ranges r_auart FOR aufk-auart. *定义ALV显示 *TYPE-POOLS slis. *DATA: it_fieldcat TYPE slis_t_fieldcat_alv, * it_event TYPE slis_t_event, * wa_event TYPE slis_alv_event, * it_listhead TYPE slis_t_listheader, * wa_listhead TYPE slis_listheader. * wa_layout TYPE slis_layout_alv. *DATA: gc_glay TYPE lvc_s_glay. CLEAR r_auart. r_auart-sign = I. r_auart-option = EQ. r_auart-low = ZIM1. APPEND r_auart. CLEAR r_auart. r_auart-sign = I. r_auart-option = EQ. r_auart-low = ZTR1. APPEND r_auart. *内表赋值 SELECT * INTO TABLE WA_002 FROM ZISS_FI_002 WHERE GJAHR EQ P_GJAHR AND MONAT EQ P_MONAT AND AUFEX IN S_AUFEX. IF wa_002[] IS INITIAL. *当第一次取数时，ZISS_FI_002为空，则需要从aufk获取外部订单编号、订单描述， *并根据屏幕数据的会计年度、期