• ABAP 动态内表构建 Dynamic internal table


    ABAP 动态内表构建 Dynamic internal table

    这两天做了一个这样的需求,其中要求根据用户输入的工资项(T512W-LGART)查找数据,并输出到ALV,要求是输出跟着输入变。由于工资项的配置信息可能会变,因此用于存储要显示的数据的内表就不能预先知道,因此不得不寻求动态内表的构建方法。
            其实网上的例子也有不少,但是都缺少说明,折腾了一上午才弄明白一些,写出来与大家分享。
    REPORT  Z_DT2.
    type-pools : abap.       
    *以t512w为例,构建一个动态内表
    tables: t512w.
    *field-symbols是一个标志,你可以理解为一个指针,将来创建的内表就要通过它们来访问
    field-symbols: [小于号]dyn_table> type standard table,
    [小于号]dyn_wa>,
    [小于号]dyn_field>.
    * 这里定义了一个 dy_table 和一个 dy_line 类型是引用,但 to data 未能理解是什么意思,我觉得应该是说指向为空的意思
    data: dy_table type ref to data,
    dy_line  type ref to data,
    *用于存储即将构建的动态内表结构
    ifc type lvc_t_fcat,
    xfc type lvc_s_fcat.
    data: begin of t_lgart occurs 0,
            LGART like t512w-lgart,
          end of t_lgart.
    select-options: S_LGART FOR t512w-lgart.

    start-of-selection.
    *首先从数据库中把符合用户输入的LGART填入内表,将来构建的动态内表每一列就是LGART中的每一行。
      select lgart into t_lgart-lgart from t512w where lgart in s_lgart and MOLGA = '28'.
        append t_lgart.
      endselect.
    *循环读取内表t_lgart,对于每行构建内表
    loop at t_lgart.
    *这里偷了个懒,因为工资项中会有/103这样的数据,而/是不能用左列明的,大家可以自己写一个替换逻辑,把/替换成_之类的字符。
    check t_lgart-lgart+0(1) ne '/'.
    *列名就用lgart值
    xfc-fieldname = t_lgart-lgart.
        xfc-datatype = 'C'.
        xfc-inttype = 'C'.
        xfc-intlen = 6.
        xfc-decimals = 0.
        append xfc to ifc.
      endloop.
    *此处调用一个方法,这个方法用于构建动态内表,输入的就是要构建的结构,输出的就是一个dy_table,之前定义过,但是并不能直接访问。
      call method cl_alv_table_create=>create_dynamic_table
        EXPORTING
          it_fieldcatalog = ifc
        IMPORTING
          ep_table        = dy_table.
    *设定<dyn_table>指向 dy_table
    assign dy_table->* to <dyn_table>.
    *下面这句建立了一个<dyn_table>类型的工作区Work area
    create data dy_line like line of <dyn_table>.
    *同理设定指针
    assign dy_line->* to <dyn_wa>.

    于是便动态的建立了一个内表和一个工作区,由于此方法建立的内表没有header line,所以需要一个工作区。

    下面是取数或者赋值的方法:

    *此行中的xxxx1就是列名
    ASSIGN COMPONENT xxxx1 OF STRUCTURE <dyn_wa> TO <dyn_field>.
    *此行的作用就是给<dyn_wa>中的该列一个值
    <dyn_field> = xxxx2.
    *用Append就可以把该行添加到表中了
    APPEND <dyn_wa> TO <dyn_table>.

    如上所述,即可以动态构建内表,这种方法主要用于表结构无法确定有几列,几有哪些列,尤其与信息配置有关的时候,就只能用这种方法,否则配置一变,程序就不能用了。
            才疏学浅,学习体会总结出来希望能对大家有所帮助,有不对的地方希望大家指正,向大家学习!
  • 相关阅读:
    React Virtual Dom 与 Diff
    打造前端CI/CD工作流
    webpack-chain明细
    React项目中实现多语言支持
    【WPF】大量Canvas转换为本地图片遇到的问题
    【C#】【分享】 XX分钟学会C#
    【WPF】一些拖拽实现方法的总结(Window,UserControl)
    【WPF】 InkCanvas 书写毛笔效果
    js中this指向问题
    js原型浅谈理解
  • 原文地址:https://www.cnblogs.com/elegantok/p/1692533.html
Copyright © 2020-2023  润新知