Tree report with ABAP Objects

本文介绍如何通过ALV树控件实现企业组织结构的可视化展示,包括公司、部门、团队、员工分类等层级的展示,并详细描述了数据填充、节点创建、样式设置等关键步骤。
 

REPORT  YSAT_TREE_REPORT.

TYPES: BEGIN OF ty_bws,
          company   TYPE char20,    Company
          division      TYPE char20,    Division1...
          emp_team TYPE char20,    Software Non Software
          emp_spe    TYPE char20,    Employee Specialization
      END OF ty_bws.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& DATA DECLARATIONS
*--------------------------------------------------------------------------------------------------------------------------------------------*

DATA: g_alv_tree           TYPE REF TO cl_gui_alv_tree,                For ALV tree
      g_custom_container TYPE REF TO cl_gui_custom_container, For custom container
      a_hier_header          TYPE treev_hhdr.                                   For Header

DATA: t_bws TYPE TABLE OF ty_bws,
      v_bws TYPE ty_bws,
      t_bws2 LIKE t_bws.

DATA: t_fieldcat TYPE lvc_t_fcat.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*& END OF SELECTIONS
*--------------------------------------------------------------------------------------------------------------------------------------------*
END-OF-SELECTION.
" Call Screen 9001

 CALL SCREEN 9001.

*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  INIT_TREE
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
 -->  p1        text
 <--  p2        text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM init_tree .
Create container for alv tree
  CONSTANTS: l_tree_container_name(30) TYPE VALUE 'CC1'.

Create Object for the custom container
  CREATE OBJECT g_custom_container
    EXPORTING
      PARENT                         =
      container_name               l_tree_container_name
      STYLE                            =
      LIFETIME                      lifetime_default
      REPID                            =
      DYNNR                           =
      NO_AUTODEF_PROGID_DYNNR     =
    EXCEPTIONS
      cntl_error                         1
      cntl_system_error           2
      create_error                     3
      lifetime_error                    4
      lifetime_dynpro_dynpro_link 5
      OTHERS                                 .
  IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'Error in G_CUSTOM_CONTAINER'(100).
  ENDIF.

Create Tree control
  CREATE OBJECT g_alv_tree
    EXPORTING
      LIFETIME                       =
       parent                             g_custom_container
      SHELLSTYLE                   =
       node_selection_mode      cl_gui_column_tree=>node_sel_mode_single
      HIDE_SELECTION           =
       item_selection                   'X'
       no_toolbar                        ''
       no_html_header              'X'
      I_PRINT                          =
      I_FCAT_COMPLETE             =
      I_MODEL_MODE                =
    EXCEPTIONS
      cntl_error                  1
      cntl_system_error           2
      create_error                3
      lifetime_error              4
      illegal_node_selection_mode 5
      failed                      6
      illegal_column_name         7
      OTHERS                      8.

  IF sy-subrc <> 0.
    MESSAGE x208(00) WITH 'Error in G_ALV_TREE'(100).
  ENDIF.
ENDFORM.                    INIT_TREE
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  BUILD_HIER_HEADER
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
     <--P_P_HIER_HEADER  text
     <--P_TYPE  text
     <--P_TREEV_HHDR  text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM build_hier_header  CHANGING p_hier_header TYPE treev_hhdr.

  p_hier_header-heading 'Company/Divisions/Businesses/Employee Teams/Employees'(300).
  p_hier_header-tooltip 'This is tool tip'(400).
  p_hier_header-width   35.
  p_hier_header-width_pix ''.

ENDFORM.                    BUILD_HIER_HEADER
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Module  STATUS_9001  OUTPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
  SET PF-STATUS 'PF_9001'.
  SET TITLEBAR 'TB_9001'.

  IF g_alv_tree IS INITIAL.
    PERFORM init_tree.   Initialize tree
    PERFORM build_hier_header CHANGING a_hier_header. Build Hierarchy Header
    PERFORM build_data_tab.
    PERFORM preapre_fcat.
    PERFORM call_alv.
    PERFORM create_hier_root.

** Send data to frontend.
    CALL METHOD g_alv_tree->frontend_update.
  ENDIF.
ENDMODULE.                 STATUS_9001  OUTPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Module  USER_COMMAND_9001  INPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
MODULE user_command_9001 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 USER_COMMAND_9001  INPUT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  PREAPRE_FCAT
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
 -->  p1        text
 <--  p2        text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM preapre_fcat .

  DATA: wa_fieldcat TYPE lvc_s_fcat.

  wa_fieldcat-tabname   'T_BWS'.
  wa_fieldcat-fieldname 'COMPANY'.
  wa_fieldcat-seltext   'Division'.
  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-tabname   'T_BWS'.
  wa_fieldcat-fieldname 'DIVISION'.
  wa_fieldcat-seltext   'Division'.
  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-tabname   'T_BWS'.
  wa_fieldcat-fieldname 'EMP_TEAM'.
  wa_fieldcat-seltext   'Employee Team'.
  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR wa_fieldcat.

  wa_fieldcat-tabname   'T_BWS'.
  wa_fieldcat-fieldname 'EMP_SPE'.
  wa_fieldcat-seltext   'Employee Specialization'.
  APPEND wa_fieldcat TO t_fieldcat.
  CLEAR wa_fieldcat.
ENDFORM.                    PREAPRE_FCAT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  BUILD_DATA_TAB
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
 -->  p1        text
 <--  p2        text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM build_data_tab .
  PERFORM append_data USING 'Company' 'Division1' 'Software' 'SAP'.
  PERFORM append_data USING 'Company' 'Division1' 'Software' '.net'.
  PERFORM append_data USING 'Company' 'Division1' 'Non-Software' 'Designers'.
  PERFORM append_data USING 'Company' 'Division1' 'Non-Software' 'Other Workers'.

  PERFORM append_data USING 'Company' 'Division2' 'Software' 'SAP'.
  PERFORM append_data USING 'Company' 'Division2' 'Software' '.net'.
  PERFORM append_data USING 'Company' 'Division2' 'Non-Software' 'Designers'.
  PERFORM append_data USING 'Company' 'Division2' 'Non-Software' 'Other Workers'.

  PERFORM append_data USING 'Company' 'Division3' 'Software' 'SAP'.
  PERFORM append_data USING 'Company' 'Division3' 'Software' '.net'.
  PERFORM append_data USING 'Company' 'Division3' 'Non-Software' 'Designers'.
  PERFORM append_data USING 'Company' 'Division3' 'Non-Software' 'Other Workers'.

  PERFORM append_data USING 'Company' 'Division4' 'Software' 'SAP'.
  PERFORM append_data USING 'Company' 'Division4' 'Software' '.net'.
  PERFORM append_data USING 'Company' 'Division4' 'Non-Software' 'Designers'.
  PERFORM append_data USING 'Company' 'Division4' 'Non-Software' 'Other Workers'.

ENDFORM.                    BUILD_DATA_TAB
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  CALL_ALV
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
 -->  p1        text
 <--  p2        text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM call_alv .
  CALL METHOD g_alv_tree->set_table_for_first_display
    EXPORTING
      is_hierarchy_header a_hier_header
    CHANGING
      it_fieldcatalog     t_fieldcat
      it_outtab           t_bws2. "table must be empty !
ENDFORM.                    CALL_ALV
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  CREATE_HIER_ROOT
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
 -->  p1        text
 <--  p2        text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM create_hier_root .
  DATA: p_divnode TYPE lvc_nkey,
        p_teamnode TYPE lvc_nkey,
        p_lastnode  TYPE lvc_nkey,
        p_division TYPE ty_bws-division.

  DATA: l_node_text TYPE lvc_value.
  DATA: lv_emp_team TYPE ty_bws-emp_team,
        lv_emp_spe  TYPE ty_bws-emp_spe.

  break jdonepudi.

  l_node_text 'Company'.

  CLEAR v_bws.
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key ''
      i_relationship   cl_gui_column_tree=>relat_last_child
      i_node_text      l_node_text
    IMPORTING
      e_new_node_key   p_divnode.

*sort t_bws by division emp_team emp_spe.

  LOOP AT t_bws INTO v_bws.
    l_node_text v_bws-division.
*p_relat_key 1.
    AT NEW division.
*at end of division.
      PERFORM add_division USING v_bws
                                 p_divnode
                                 l_node_text
                          CHANGING p_teamnode.
      p_division v_bws-division.
    ENDAT.

*at new emp_team Software Non Software
    IF lv_emp_team <> v_bws-emp_team.
      lv_emp_team v_bws-emp_team.
      l_node_text v_bws-emp_team.

      PERFORM add_emp_team USING v_bws
                                 p_teamnode
                                 l_node_text
                           CHANGING p_lastnode.
    ENDIF.

*at new emp_spe  SAP .net  Designers Other Workers
    IF lv_emp_spe <> v_bws-emp_spe.
      lv_emp_spe v_bws-emp_spe.
      l_node_text v_bws-emp_spe.
      IF lv_emp_spe '.net' OR
         lv_emp_spe 'Other Workers'.
        p_lastnode p_lastnode 1.
      ENDIF.
      PERFORM add_emp_team USING v_bws
                                p_lastnode
                                l_node_text
                          CHANGING p_lastnode.
    ENDIF.
  ENDLOOP.

ENDFORM.                    CREATE_HIER_ROOT
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  ADD_EMP_TEAM
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
     -->P_KEY  text
     -->P_TEXT  text
     -->P_OUTTAB  text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM add_emp_team  USING    p_v_bws TYPE ty_bws
                            p_key TYPE lvc_nkey
                            p_text TYPE lvc_value
                   CHANGING p_key2 TYPE lvc_nkey.

add node
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key p_key
      i_relationship   cl_gui_column_tree=>relat_last_child
      i_node_text      p_text
      is_outtab_line   p_v_bws
    IMPORTING
      e_new_node_key   p_key2.
ENDFORM.                    ADD_EMP_TEAM

*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  ADD_DIVISION
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
     -->P_V_BWS  text
     -->P_KEY  text
     -->P_TEXT  text
     <--P_KEY2  text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM add_division  USING    p_v_bws TYPE ty_bws
                            p_key TYPE lvc_nkey
                            p_text TYPE lvc_value
                   CHANGING p_key2 TYPE lvc_nkey.

add node
  CALL METHOD g_alv_tree->add_node
    EXPORTING
      i_relat_node_key p_key
      i_relationship   cl_gui_column_tree=>relat_last_child
      i_node_text      p_text
      is_outtab_line   p_v_bws
    IMPORTING
      e_new_node_key   p_key2.

ENDFORM.                    ADD_DIVISION
*--------------------------------------------------------------------------------------------------------------------------------------------*
*&      Form  APPEND_DATA
*--------------------------------------------------------------------------------------------------------------------------------------------*
      text
*--------------------------------------------------------------------------------------------------------------------------------------------*
     -->P_COMPANY  text
     -->P_DIVISION  text
*--------------------------------------------------------------------------------------------------------------------------------------------*
FORM append_data  USING    p_company  TYPE ty_bws-company
                           p_division TYPE ty_bws-division
                           p_empteam  TYPE ty_bws-emp_team
                           p_empspe   TYPE ty_bws-emp_spe.

  v_bws-company  p_company.
  v_bws-division p_division.
  v_bws-emp_team p_empteam.
  v_bws-emp_spe  p_empspe.
  APPEND v_bws TO t_bws. CLEAR v_bws.
ENDFORM.                    APPEND_DATA

************************************************************************************************

*SCREEN 9000 - CREATE CUSTOM CONTAINER - NAME - CC1

process before output.
 module status_9001.
*
process after input.
 module user_command_9001.

************************************************************************************************

AI 代码审查Review工具 是一个旨在自动化代码审查流程的工具。它通过集成版本控制系统(如 GitHub 和 GitLab)的 Webhook,利用大型语言模型(LLM)对代码变更进行分析,并将审查意见反馈到相应的 Pull Request 或 Merge Request 中。此外,它还支持将审查结果通知到企业微信等通讯工具。 一个基于 LLM 的自动化代码审查助手。通过 GitHub/GitLab Webhook 监听 PR/MR 变更,调用 AI 分析代码,并将审查意见自动评论到 PR/MR,同时支持多种通知渠道。 主要功能 多平台支持: 集成 GitHub 和 GitLab Webhook,监听 Pull Request / Merge Request 事件。 智能审查模式: 详细审查 (/github_webhook, /gitlab_webhook): AI 对每个变更文件进行分析,旨在找出具体问题。审查意见会以结构化的形式(例如,定位到特定代码行、问题分类、严重程度、分析和建议)逐条评论到 PR/MR。AI 模型会输出 JSON 格式的分析结果,系统再将其转换为多条独立的评论。 通用审查 (/github_webhook_general, /gitlab_webhook_general): AI 对每个变更文件进行整体性分析,并为每个文件生成一个 Markdown 格式的总结性评论。 自动化流程: 自动将 AI 审查意见(详细模式下为多条,通用模式下为每个文件一条)发布到 PR/MR。 在所有文件审查完毕后,自动在 PR/MR 中发布一条总结性评论。 即便 AI 未发现任何值得报告的问题,也会发布相应的友好提示和总结评论。 异步处理审查任务,快速响应 Webhook。 通过 Redis 防止对同一 Commit 的重复审查。 灵活配置: 通过环境变量设置基
【直流微电网】径向直流微电网的状态空间建模与线性化:一种耦合DC-DC变换器状态空间平均模型的方法 (Matlab代码实现)内容概要:本文介绍了径向直流微电网的状态空间建模与线性化方法,重点提出了一种基于耦合DC-DC变换器的状态空间平均模型的建模策略。该方法通过数学建模手段对直流微电网系统进行精确的状态空间描述,并对其进行线性化处理,以便于系统稳定性分析与控制器设计。文中结合Matlab代码实现,展示了建模与仿真过程,有助于研究人员理解和复现相关技术,推动直流微电网系统的动态性能研究与工程应用。; 适合人群:具备电力电子、电力系统或自动化等相关背景,熟悉Matlab/Simulink仿真工具,从事新能源、微电网或智能电网研究的研究生、科研人员及工程技术人员。; 使用场景及目标:①掌握直流微电网的动态建模方法;②学习DC-DC变换器在耦合条件下的状态空间平均建模技巧;③实现系统的线性化分析并支持后续控制器设计(如电压稳定控制、功率分配等);④为科研论文撰写、项目仿真验证提供技术支持与代码参考。; 阅读建议:建议读者结合Matlab代码逐步实践建模流程,重点关注状态变量选取、平均化处理和线性化推导过程,同时可扩展应用于更复杂的直流微电网拓扑结构中,提升系统分析与设计能力。
内容概要:本文介绍了基于物PINN驱动的三维声波波动方程求解(Matlab代码实现)理信息神经网络(PINN)求解三维声波波动方程的Matlab代码实现方法,展示了如何利用PINN技术在无需大量标注数据的情况下,结合物理定律约束进行偏微分方程的数值求解。该方法将神经网络与物理方程深度融合,适用于复杂波动问题的建模与仿真,并提供了完整的Matlab实现方案,便于科研人员理解和复现。此外,文档还列举了多个相关科研方向和技术服务内容,涵盖智能优化算法、机器学习、信号处理、电力系统等多个领域,突出其在科研仿真中的广泛应用价值。; 适合人群:具备一定数学建模基础和Matlab编程能力的研究生、科研人员及工程技术人员,尤其适合从事计算物理、声学仿真、偏微分方程数值解等相关领域的研究人员; 使用场景及目标:①学习并掌握PINN在求解三维声波波动方程中的应用原理与实现方式;②拓展至其他物理系统的建模与仿真,如电磁场、热传导、流体力学等问题;③为科研项目提供可复用的代码框架和技术支持参考; 阅读建议:建议读者结合文中提供的网盘资源下载完整代码,按照目录顺序逐步学习,重点关注PINN网络结构设计、损失函数构建及物理边界条件的嵌入方法,同时可借鉴其他案例提升综合仿真能力。
Object-oriented programming with ABAP Objects(基于ABAP对象的面向对象编程)是SAP开发平台ABAP中的一种编程范例。它利用面向对象的思想,将数据(对象的属性)和行为(对象的方法)封装在一起,以便更好地组织和管理代码。 在ABAP Objects中,可以定义类(class)来描述一个对象的特征和行为。通过类的实例化,可以创建具体的对象,并调用对象的方法来实现特定的功能。这种面向对象的编程模式使得代码更加模块化、可重用,并且更易于维护和扩展。 在ABAP Objects中,支持面向对象的四大特性:封装、继承、多态和抽象。封装可以将对象的内部状态和行为隐藏起来,只暴露必要的接口;继承可以通过创建子类来扩展和重用已有类的特性;多态可以实现在不同的对象上调用相同的方法,产生不同的行为;抽象可以定义接口规范,让具体的类去实现。 通过ABAP Objects,开发人员可以更加灵活地进行程序设计和实现,也能够更好地应对复杂的业务需求。同时,由于ABAP ObjectsSAP系统集成紧密,因此可以很方便地访问和操作SAP系统中的数据和服务,为企业的业务流程提供更多的可能性。 总之,Object-oriented programming with ABAP ObjectsSAP开发中扮演着重要的角色,它为开发人员提供了更加高效、可维护的编程模式,也为企业的信息化建设带来了更多的价值和机遇。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值