ABAP语言的动态编程(4) - 综合案例:管理费用明细表

本篇来实现一个综合案例:管理费用明细表。报表在实际项目中,也有一定的参考意义,一方面展示类似的报表,比如管理费用、研发费用等费用的明细,使用业务比较习惯的展示格式;另一方面正好综合运用前面学习的动态编程知识点。

本系列博客的链接:

ABAP语言的动态编程 (1)-CSDN博客

ABAP语言的动态编程(2) - field symbol 的典型用法_filed symbol-CSDN博客

ABAP语言的动态编程(3) - data reference 对象_abap for in a reference table-CSDN博客

本篇的主要要点:

  • 期间费用等类似报表的取数方法
  • 通过 RTTS 实现动态内表
  • 如何删除动态内表的空值
  • 通过 SALV 输出动态内表

本例实现的功能:

选择屏幕:

输出界面:

程序总体逻辑

  • frm_get_data: 获取数据
  • frm_add_dyn_fields:根据成本中心设置动态内表格式
  • frm_process_data: 将数据加工成输出格式所需的格式
  • frm_alv_show: 在 ALV 中显示数据

数据获取

数据比较简单,直接从 FAGLFLEXT 汇总表获取,也可以直接从 ACDOCA 表获取。

form frm_get_data .ranges: lr_racct for faglflext-racct.lr_racct[] = value #( ( sign = 'I' option = 'CP' low = '0080*' ) ).* 从FAGLFLEXT获取数据select rbukrs             "公司代码, racct as saknr    "科目号, rcntr as kostl    "成本中心, hsl01             "1月, hsl02             "2月, hsl03, hsl04, hsl05, hsl06, hsl07, hsl08, hsl09, hsl10, hsl11, hsl12from v_faglflext_viewwhere rbukrs in @s_bukrsand ryear eq @p_ryearand rldnr eq '0L'and rrcty eq '0'and rvers eq '001'and racct in @lr_racctinto table @data(lt_faglflext).* 按照gs_list格式对数据进行合计loop at lt_faglflext into data(ls_faglflext).move-corresponding ls_faglflext to gs_list.collect gs_list into gt_list.clear: ls_faglflext, gs_list.endloop." 获取会计科目描述select distinct saknr from @lt_faglflext as t into table @data(lt_saknr) .select s~saknr,s~txt20from skat as sinner join @lt_saknr as t on s~saknr eq t~saknrwhere s~ktopl eq '1000'and s~spras eq @sy-languinto table @data(lt_skat).sort lt_skat by saknr." 获取成本中心描述select distinct kostl from @lt_faglflext as t into table @data(lt_cntr). " cost centerselect c~kostl, c~ktextfrom cskt as cinner join @lt_cntr as  d  on c~kostl eq d~kostlwhere c~kokrs eq '1000' and c~spras eq @sy-langu and c~datbi ge @sy-datuminto table @gt_cskt.sort gt_cskt by kostl." 将科目描述和成本中心描述填充到gt_listloop at gt_list into gs_list.if line_exists( lt_skat[ saknr = gs_list-saknr ] ).gs_list-txt20 = lt_skat[ saknr = gs_list-saknr ]-txt20.endif.if line_exists( gt_cskt[ kostl = gs_list-kostl ] ).gs_list-ltext = gt_cskt[ kostl = gs_list-kostl ]-ktext.endif.modify gt_list from gs_list.clear gs_list.endloop.
endform.

设置动态内表

输出的格式中,有些字段是确定的,通过 data 语句直接定义。而每一个成本中心都需要增加一个动态列,在程序中动态设定,关键就是构建动态内表的组件 (gt_component, 类型为 cl_abap_structdescr=>component_table

预先定义的部分:

* 用于数据输出
data: begin of gs_output,rbukrs  type faglflext-rbukrs, "公司代码racct   type faglflext-racct,  "科目号txt20   type skat-txt20,       "科目名称hsl_sum type faglflext-hsl12,  "合计end of gs_output.
data gt_output like standard table of gs_output.

程序动态设置的部分:

*--------------------------------------------------------
* 基于有数据发生的成本中心,将成本中心加到输出字段中
*--------------------------------------------------------
form frm_add_dyn_fields .
data: ls_dref type ref to data,lt_dref type ref to data.data: lo_strcut_descr type ref to cl_abap_structdescr,lo_table_descr  type ref to cl_abap_tabledescr.data: lv_index     type string,lv_fieldname type string.data lv_reffield type faglflext-hsl01.free: gt_component.* 基于gs_outputlo_strcut_descr ?= cl_abap_structdescr=>describe_by_data( gs_output ).gt_component = lo_strcut_descr->get_components( ).* 根据成本中心列表增加动态字段loop at gt_cskt into gs_cskt.lv_index = sy-tabix.lv_fieldname = gc_dyn_prefix && lv_index .condense lv_fieldname no-gaps.clear gs_component.gs_component-name = lv_fieldname.gs_component-type = cast #( cl_abap_elemdescr=>describe_by_data( lv_reffield ) ).append gs_component to gt_component.endloop."根据字段目录创建动态结构类型lo_strcut_descr ?= cl_abap_structdescr=>create( p_components = gt_component ).lo_table_descr ?= cl_abap_tabledescr=>create( p_line_type = lo_strcut_descr ).create data lt_dref type handle lo_table_descr.create data ls_dref type handle lo_strcut_descr.assign ls_dref->* to <dyn_wa>.assign lt_dref->* to <dyn_table>.
endform.

程序运行的时候,gt_component 的结构和内容如下 (每一行的关键是 name 和 type):

根据输出格式加工数据

因为程序只是获取单月的数据,而从 FAGLFLEXT 表取数底表格式(每个月 1 列)决定了有可能当月并没有数据,所以代码中增加了删除空行的代码。静态内表删除内表比较简单,而动态内表因为列名是在程序中生成的,所以处理起来相对麻烦一些。

form frm_process_data .data lv_src_fldname type fieldname.data lv_target_fldname type fieldname.data gv_tabix like sy-tabix.lv_src_fldname = 'HSL' && p_rpmax. " 基于选择屏幕的月份condense lv_src_fldname.*-------------------------------------------------------------
* 行转列,同时进行聚合计算
*-------------------------------------------------------------loop at gt_list into gs_list.move-corresponding gs_list to <dyn_wa>." 从1到12月份,获取选择屏幕所在月份的数据assign component lv_src_fldname of structure gs_list to field-symbol(<lfs_source>)." 找到对应成本中心的indexread table gt_cskt transporting no fields with key kostl = gs_list-kostl binary search.if sy-subrc = 0.gv_tabix = sy-tabix.lv_target_fldname = gc_dyn_prefix && gv_tabix.condense lv_target_fldname.  " 对应的动态列名" 找到成本中心对应的字段assign component lv_target_fldname of structure <dyn_wa> to field-symbol(<lfs_target>).<lfs_target> = <lfs_source>." 合计字段assign component 'HSL_SUM' of structure <dyn_wa> to field-symbol(<lfs_sum>).<lfs_sum> = <lfs_source>.endif.collect <dyn_wa> into <dyn_table>.clear:  gs_list, <dyn_wa>.endloop.*-----------------------------------------------------
* 删除空行
*-----------------------------------------------------data lt_component like gt_component.lt_component[] = gt_component[]." 删除不相关行delete lt_component where name = 'RBUKRS'.delete lt_component where name = 'SAKNR'.delete lt_component where name = 'TXT20'.loop at <dyn_table> assigning <dyn_wa>.data(lv_is_empty) = abap_true." lt_component保存了所有gt_output的字段,删除了RBUKRS, SAKNR和TXT20loop at lt_component assigning field-symbol(<ls_comp>).assign component <ls_comp>-name of structure <dyn_wa> to field-symbol(<ls_field>).if <ls_field> is not initial.lv_is_empty = abap_false.exit.endif.endloop.if lv_is_empty = abap_true.delete <dyn_table>.endif.endloop.endform.

ALV 输出

使用 SALV (CL_SALV_TABLE)在 ALV 中显示数据。

form frm_alv_set_style tables t_data type standard table.data ls_program type salv_s_layout_key."结构包含布局变式所属程序名data lv_tabix like sy-tabix.data lv_fieldname type fieldname.ls_program-report = sy-repid.* 实例化SALVcl_salv_table=>factory(importing r_salv_table = gr_alv_tablechanging t_table = t_data[] ).* 设置动态字段的field catalogdata(lr_alv_columns) = gr_alv_table->get_columns( ).loop at gt_cskt into gs_cskt.lv_tabix = sy-tabix.lv_fieldname = gc_dyn_prefix && lv_tabix.condense lv_fieldname no-gaps.perform frm_set_field using lr_alv_columns lv_fieldname gs_cskt-ktext '' ''.clear gs_cskt.endloop.* 设置合计字段的显示perform frm_set_field using lr_alv_columns 'HSL_SUM' '金额合计' '' ''.* 优化列宽lr_alv_columns->set_optimize( 'X' ).* 设置 toolbargr_alv_table->get_functions( )->set_all(  ).* 设置ALV布局data(lr_layout) = gr_alv_table->get_layout( ).lr_layout->set_key( ls_program ).                                "设置布局保存为变式时基于此Keylr_layout->set_save_restriction( cl_salv_layout=>restrict_none )."允许保存布局为变式* 设置条纹显示gr_alv_table->get_display_settings(  )->set_striped_pattern( abap_true ).
endform.

frm_alv_set_style 调用了 frm_set_field:

form frm_set_field  using uo_cols type ref to cl_salv_columns_tablevalue(uv_fieldname)     " 字段名value(uv_text)          " 字段文本value(uv_length)        " 输出宽度value(uv_istechnical).  " 是否隐藏data: lo_col    type ref to cl_salv_column_table,lo_agg    type ref to cl_salv_aggregations,lv_text_s type scrtext_s,lv_text_m type scrtext_m,lv_text_l type scrtext_l.lo_col ?= uo_cols->get_column( uv_fieldname ).* 是否隐藏if not uv_istechnical is initial.lo_col->set_technical( abap_true ). "隐藏endif.* 设置显示字段文本if not uv_text is initial.lv_text_s = uv_text.lv_text_m = uv_text.lv_text_l = uv_text.lo_col->set_short_text( lv_text_s ).lo_col->set_medium_text( lv_text_m ).lo_col->set_long_text( lv_text_l ).endif.* 设置输出宽度if not uv_length is initial.lo_col->set_output_length( uv_length ).endif.lo_col->set_zero(  '' ).
endform.

调用 display() 方式实现输出:

form frm_alv_show  tables   t_data type standard table.perform frm_alv_set_style tables t_data[].gr_alv_table->display( ).
endform.

为了方便阅读,正文给出主要的代码,完整的代码请参考链接。

源码

ABAP动态编程-管理费用明细表

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.rhkb.cn/news/34485.html

如若内容造成侵权/违法违规/事实不符,请联系长河编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

【Python办公】Excel通用匹配工具(双表互匹)

目录 专栏导读1、背景介绍2、库的安装3、核心代码4、完整代码总结专栏导读 🌸 欢迎来到Python办公自动化专栏—Python处理办公问题,解放您的双手 🏳️‍🌈 博客主页:请点击——> 一晌小贪欢的博客主页求关注 👍 该系列文章专栏:请点击——>Python办公自动化专…

2025-03-15 吴恩达机器学习2——线性回归模型

文章目录 1 概述1.1 案例1.2 分析 2 代价函数2.1 代价函数公式2.2 理解代价函数2.3 可视化代价函数 3 梯度下降3.1 实现步骤3.2 理解梯度下降3.3 学习率 4 最佳实践4.1 导入数据4.2 代码实现4.3 可视化 1 概述 ​ 线性回归模型是使用最广泛的学习算法&#xff0c;让我们从一个…

Webpack 前端性能优化全攻略

文章目录 1. 性能优化全景图1.1 优化维度概览1.2 优化效果指标 2. 构建速度优化2.1 缓存策略2.2 并行处理2.3 减少构建范围 3. 输出质量优化3.1 代码分割3.2 Tree Shaking3.3 压缩优化 4. 运行时性能优化4.1 懒加载4.2 预加载4.3 资源优化 5. 高级优化策略5.1 持久化缓存5.2 模…

实验篇| CentOS 7 下 Keepalived + Nginx 实现双机高可用

为什么要做双机高可用&#xff1f;‌ 想象一下&#xff1a;你的网站突然宕机&#xff0c;用户无法访问&#xff0c;订单流失、口碑暴跌…&#x1f4b8; ‌双机热备‌就是解决这个痛点的终极方案&#xff01;两台服务器互为备份&#xff0c;724小时无缝切换&#xff0c;保障业务…

C语言【内存函数】详解加模拟实现

目录&#xff1a; 1. memcpy使用和模拟实现 2. memmove使用和模拟实现 3. memset函数的使用 4. memcmp函数的使用 以上函数均包含在一个头文件<string.h>里面 一、memcpy的使用和模拟实现。 memcpy函数介绍&#xff1a; 函数原型&#xff1a; void * memcpy ( void…

Flutter——Android与Flutter混合开发详细教程

目录 1.创建FlutterModule项目&#xff0c;相当于Android项目里面的module库&#xff1b;2.或者编辑aar引用3.创建Android原生项目3.直接运行跑起来 1.创建FlutterModule项目&#xff0c;相当于Android项目里面的module库&#xff1b; 2.或者编辑aar引用 执行 flutter build a…

Windows根据文件名批量在文件夹里查找文件并复制出来,用WPF实现的详细步骤

项目前言 在日常工作和生活中&#xff0c;我们常常会遇到需要从大量文件中根据文件名批量查找特定文件并复制到指定位置的情况。手动一个个查找和复制文件不仅效率低下&#xff0c;还容易出错。使用 Windows Presentation Foundation (WPF) 可以创建一个用户友好的图形界面应用…

matlab 控制系统GUI设计-PID控制超前滞后控制

1、内容简介 matlab164-控制系统GUI设计-PID控制超前滞后控制 可以交流、咨询、答疑 2、内容说明 略 3、仿真分析 略 4、参考论文 略

【大模型基础_毛玉仁】2.4 基于 Encoder-Decoder 架构的大语言模型

更多内容&#xff1a;XiaoJ的知识星球 目录 2.4 基于 Encoder-Decoder 架构的大语言模型2.4.1 Encoder-Decoder 架构2.4.2 T5 语言模型1&#xff09;T5 模型结构2&#xff09;T5 预训练方式3&#xff09;T5 下游任务 2.4.3 BART 语言模型1&#xff09;BART 模型结构2&#xff0…

AI智能代码疫苗技术,赋能数字化应用内生安全自免疫

“DevSecOps市占率持续领先&#xff0c;IAST探针覆盖率十倍增长&#xff0c;代码疫苗技术已成功帮助上千家行业用户成功抵御‘Log4j2.x’等重大未知漏洞的利用攻击。”子芽在腾讯专访中透露。 这是2021年悬镜安全交出的一张成绩单。悬镜安全是DevSecOps敏捷安全先行者&#xf…

【初级篇】如何使用DeepSeek和Dify构建高效的企业级智能客服系统

在当今数字化时代,企业面临着日益增长的客户服务需求。使用Dify创建智能客服不仅能够提升客户体验,还能显著提高企业的运营效率。关于DIfy的安装部署,大家可以参考之前的文章: 【入门级篇】Dify安装+DeepSeek模型配置保姆级教程_mindie dify deepseek-CSDN博客 AI智能客服…

【机器学习-基础知识】统计和贝叶斯推断

1. 概率论基本概念回顾 1. 概率分布 定义: 概率分布(Probability Distribution)指的是随机变量所有可能取值及其对应概率的集合。它描述了一个随机变量可能取的所有值以及每个值被取到的概率。 对于离散型随机变量,使用概率质量函数来描述。对于连续型随机变量,使用概率…

正点原子[第三期]Arm(iMX6U)Linux移植学习笔记-4 uboot目录分析

前言&#xff1a; 本文是根据哔哩哔哩网站上“Arm(iMX6U)Linux系统移植和根文件系统构键篇”视频的学习笔记&#xff0c;在这里会记录下正点原子 I.MX6ULL 开发板的配套视频教程所作的实验和学习笔记内容。本文大量引用了正点原子教学视频和链接中的内容。 引用&#xff1a; …

视频AI方案:数据+算力+算法,人工智能的三大基石

背景分析 随着信息技术的迅猛发展&#xff0c;人工智能&#xff08;AI&#xff09;已经逐渐渗透到我们生活的各个领域&#xff0c;从智能家居到自动驾驶&#xff0c;从医疗诊断到金融风控&#xff0c;AI的应用正在改变着我们的生活方式。而数据、算法和算力&#xff0c;正是构…

MySQL -- 表的约束

概念引入&#xff1a;真正的约束表字段的是数据类型&#xff0c;但是数据类型的约束方式比较单一的&#xff0c;所以需要一些额外的一些约束&#xff0c;用于表示数据的合法性&#xff0c;在只有数据类型一种约束的情况下&#xff0c;我们比较难保证数据是百分百合法。通过添加…

嵌入式Zephyr RTOS面试题及参考答案

目录 Zephyr RTOS 的主要设计目标是什么?适用于哪些领域? Zephyr 支持哪些内核对象类型?举例说明其应用场景。 Zephyr 支持哪些线程同步机制?举例说明其适用场景。 Zephyr 内核支持哪些任务状态?状态转换的条件是什么? Zephyr 如何实现低延迟中断处理?(如直接中断服…

《TCP/IP网络编程》学习笔记 | Chapter 18:多线程服务器端的实现

《TCP/IP网络编程》学习笔记 | Chapter 18&#xff1a;多线程服务器端的实现 《TCP/IP网络编程》学习笔记 | Chapter 18&#xff1a;多线程服务器端的实现线程的概念引入线程的背景线程与进程的区别 线程创建与运行pthread_createpthread_join可在临界区内调用的函数工作&#…

C++相关基础概念之入门讲解(上)

1. 命名空间 C中的命名空间&#xff08;namespace&#xff09;是用来避免命名冲突问题的一种机制。通过将类、函数、变量等封装在命名空间中&#xff0c;可以避免不同部分的代码中出现相同名称的冲突。在C中&#xff0c;可以使用namespace关键字来定义命名空间。 然后我们在调…

创新技术引领软件供应链安全,助力数字中国建设

编者按 随着数字化转型的加速&#xff0c;针对软件供应链的攻击事件呈快速增长态势&#xff0c;目前已成为网络空间安全的焦点。如何将安全嵌入到软件开发到运营的全流程&#xff0c;实现防护技术的自动化、一体化、智能化&#xff0c;成为技术领域追逐的热点。 悬镜安全作为…

PyTorch 系列教程:使用CNN实现图像分类

图像分类是计算机视觉领域的一项基本任务&#xff0c;也是深度学习技术的一个常见应用。近年来&#xff0c;卷积神经网络&#xff08;cnn&#xff09;和PyTorch库的结合由于其易用性和鲁棒性已经成为执行图像分类的流行选择。 理解卷积神经网络&#xff08;cnn&#xff09; 卷…