ALV界面根据选择界面输入值的变化而变化,所以用动态内表比较方便
DO LS_TIMES TIMES.
LS_NUM = LS_NUM + 1.
CONCATENATE 'ZDMBT' LS_NUM INTO LS_FIELDNAME.
LS_COLTEXT = P_GJAH2 && '-年计-' && LV_ZZHYM."fieldcat名字
PERFORM SET_FIELDCAT_VALUES1
USING LS_FIELDNAME LS_COLTEXT '' 'ZTFI_0044' 'ZPLXM01' '' ''.
ENDDO.
循环多少次,这个根据不同的项目进行计算,最好把限制取值的逻辑一并传入FIELDCAT,用于后面的判断(如果FIELDCAT和是写死,或者跟取值关联不大的,就不适合用此方法,一般财务报表就是拉一张报表,前一年的月,后一年的月,这种关联性比较强的报表就比较适合此方法)
将FIELDCAT构建好之后会存在相应的FIELDCAT内表中,此时构建动态内表
DATA: DY_TABLE TYPE REF TO DATA, "用于存放动态内表结构
DY_WA TYPE REF TO DATA. "动态内表工作区类型
*构建的动态内表名
FIELD-SYMBOLS:<SHOW_TABLE> TYPE TABLE, "动态内表
<SHOW_WA> TYPE ANY, "动态内表工作区
<SHOW_WA_2> TYPE ANY.
* 根据FIELDCAT 构建动态内表
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
EXPORTING
IT_FIELDCATALOG = T_FIELDCAT
IMPORTING
EP_TABLE = DY_TABLE.
"新建一个数据表
ASSIGN DY_TABLE->* TO <SHOW_TABLE>."根据传出动态内表结构创建动态内表
CREATE DATA DY_WA LIKE LINE OF <SHOW_TABLE>."指向动态内表结构以创建工作区
ASSIGN DY_WA->* TO <SHOW_WA>."构建工作区
ASSIGN DY_WA->* TO <SHOW_WA_2>."构建工作区
当有了内表和工作区之后,开始往里面塞值
"构建内表框架
LOOP AT LT_FIELD INTO LW_FIELD."值来源的地方
LOOP AT T_FIELDCAT INTO W_FIELDCAT .
IF SY-TABIX < 3.
CONTINUE.
ENDIF.
ASSIGN COMPONENT W_FIELDCAT-FIELDNAME
OF STRUCTURE <SHOW_WA> TO <SHOW_FIELD>.
<SHOW_FIELD> = ' XXXX'.
ENDLOOP.
APPEND <SHOW_WA> TO <SHOW_TABLE>.
CLEAR: <SHOW_WA>."整个fieldcat循环完,一行值就写进去了
ENDLOOP.
最后的值在<SHOW_TABLE>表中
网友评论