通过FIELDCAT构建动态内表

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:  TYPE TABLE, "动态内表
                   TYPE ANY, "动态内表工作区
                 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 ."根据传出动态内表结构创建动态内表
  CREATE DATA DY_WA LIKE LINE OF ."指向动态内表结构以创建工作区
  ASSIGN DY_WA->* TO ."构建工作区
  ASSIGN DY_WA->* TO ."构建工作区

当有了内表和工作区之后,开始往里面塞值

 "构建内表框架
  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  TO .
       = ' XXXX'.
  ENDLOOP.

    APPEND  TO .
    CLEAR: ."整个fieldcat循环完,一行值就写进去了
  ENDLOOP.
最后的值在表中

你可能感兴趣的:(通过FIELDCAT构建动态内表)