ABAP alv和smartforms的基础使用

GUI状态从程序SAPLSLVC_FULLSCREEN状态STANDARD_FULLSCREEN复制到本程序下101

*&---------------------------------------------------------------------*
*& Report ZYC_ALV_01
*&---------------------------------------------------------------------*
*& alv和smartforms的基础使用
*&---------------------------------------------------------------------*
REPORT ZYC_ALV_01.TYPE-POOLS: slis.DATA: wa_fieldcat TYPE slis_fieldcat_alv,i_fieldcat  TYPE slis_t_fieldcat_alv,  " 存放列名的内表i_layout    TYPE slis_layout_alv.      " 负责整个ALV的全局属性DATA: smartform(30) TYPE c,fm_name TYPE  rs38l_fnam.TABLES:faglflext,skat.DATA: BEGIN OF ty_data ,Clint    TYPE faglflext-rclnt,Comp     TYPE faglflext-rbukrs,Year     TYPE faglflext-ryear,Ledger   TYPE faglflext-rldnr,AcctCode TYPE faglflext-racct,AcctName TYPE skat-txt50,FuncArea TYPE faglflext-rfarea,m00 TYPE faglflext-hslvt,m01 TYPE faglflext-hsl01,m02 TYPE faglflext-hsl02,m03 TYPE faglflext-hsl03,m04 TYPE faglflext-hsl04,m05 TYPE faglflext-hsl05,m06 TYPE faglflext-hsl06,m07 TYPE faglflext-hsl07,m08 TYPE faglflext-hsl08,m09 TYPE faglflext-hsl09,m010 TYPE faglflext-hsl10,m011 TYPE faglflext-hsl11,m012 TYPE faglflext-hsl12,m013 TYPE faglflext-hsl13,m014 TYPE faglflext-hsl14,m015 TYPE faglflext-hsl15,m016 TYPE faglflext-hsl16,END OF ty_data.DATA :gt_data LIKE TABLE OF ty_data WITH HEADER LINE,gs_data LIKE ty_data.SELECTION-SCREEN BEGIN OF BLOCK blk WITH FRAME TITLE t0.
SELECT-OPTIONS:s_ryear FOR faglflext-ryear OBLIGATORY DEFAULT '2021' TO '2022',s_rbukrs FOR faglflext-rbukrs OBLIGATORY DEFAULT '1001' TO '1010'.
SELECTION-SCREEN END OF BLOCK blk.START-OF-SELECTION.PERFORM getdata.PERFORM catalog.PERFORM alvshow.FORM getdata.SELECTfaglflext~rclnt AS Clint,faglflext~rbukrs AS Comp,faglflext~ryear AS Year,faglflext~rldnr AS Ledger,faglflext~racct AS AcctCode,skat~txt50 AS AcctName,faglflext~rfarea AS FuncArea,SUM( faglflext~hslvt ) AS m00,SUM( faglflext~hsl01 ) AS m01,SUM( faglflext~hsl02 ) AS m02,SUM( faglflext~hsl03 ) AS m03,SUM( faglflext~hsl04 ) AS m04,SUM( faglflext~hsl05 ) AS m05,SUM( faglflext~hsl06 ) AS m06,SUM( faglflext~hsl07 ) AS m07,SUM( faglflext~hsl08 ) AS m08,SUM( faglflext~hsl09 ) AS m09,SUM( faglflext~hsl10 ) AS m10,SUM( faglflext~hsl11 ) AS m11,SUM( faglflext~hsl12 ) AS m12,SUM( faglflext~hsl13 ) AS m13,SUM( faglflext~hsl14 ) AS m14,SUM( faglflext~hsl15 ) AS m15,SUM( faglflext~hsl16 ) AS m16INTO CORRESPONDING FIELDS OF TABLE @gt_dataFROM  faglflext  AS faglflext  LEFT JOIN skat AS skat ON skat~saknr = faglflext~racct AND skat~ktopl = 'BJCA'AND skat~spras = 1WHERE faglflext~rbukrs IN @s_rbukrsAND faglflext~rldnr = '0L'AND faglflext~ryear IN @s_ryearGROUP BY faglflext~rclnt,faglflext~rbukrs,faglflext~ryear,faglflext~rldnr,faglflext~racct,skat~txt50,faglflext~rfareaORDER BY faglflext~rbukrs,faglflext~racct.
ENDFORM.FORM catalog.DEFINE fieldcatset.CLEAR:wa_fieldcat.wa_fieldcat-fieldname = &1.wa_fieldcat-seltext_l = &2.wa_fieldcat-col_pos = &3.APPEND wa_fieldcat TO i_fieldcat.END-OF-DEFINITION.fieldcatset 'Clint   ' 'Comp' sy-tabix." 集团fieldcatset 'Comp    ' 'Comp' sy-tabix." 公司代码fieldcatset 'Year    ' 'Year' sy-tabix." 会计年度fieldcatset 'Ledger  ' 'Ledger' sy-tabix." 总账会计中的分类账fieldcatset 'AcctCode' 'AcctCode' sy-tabix."科目号fieldcatset 'AcctName' 'AcctName' sy-tabix."总账科目长文本fieldcatset 'FuncArea' 'FuncArea' sy-tabix."功能范围fieldcatset 'M00' 'M00' sy-tabix.fieldcatset 'M01' 'M01' sy-tabix.fieldcatset 'M02' 'M02' sy-tabix.fieldcatset 'M03' 'M03' sy-tabix.fieldcatset 'M04' 'M04' sy-tabix.fieldcatset 'M05' 'M05' sy-tabix.fieldcatset 'M06' 'M06' sy-tabix.fieldcatset 'M07' 'M07' sy-tabix.fieldcatset 'M08' 'M08' sy-tabix.fieldcatset 'M09' 'M09' sy-tabix.fieldcatset 'M10' 'M10' sy-tabix.fieldcatset 'M11' 'M11' sy-tabix.fieldcatset 'M12' 'M12' sy-tabix.fieldcatset 'M13' 'M13' sy-tabix.fieldcatset 'M14' 'M14' sy-tabix.fieldcatset 'M15' 'M15' sy-tabix.fieldcatset 'M16' 'M16' sy-tabix.
ENDFORM.FORM alvshow.CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'EXPORTINGi_callback_program = sy-repidis_layout = i_layoutit_fieldcat = i_fieldcati_callback_pf_status_set = 'SET_PF_STATUS'i_callback_user_command = 'USER_COMMAND'TABLESt_outtab = gt_dataEXCEPTIONSprogram_error            = 1OTHERS                   = 2.IF sy-subrc <> 0.MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgnoWITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.ENDIF.
ENDFORM.FORM user_command USING p_ucomm LIKE sy-ucommrs_selfield TYPE slis_selfield.CASE p_ucomm.WHEN '&IC1'.READ TABLE gt_data INDEX rs_selfield-tabindex.rs_selfield-fieldname = gt_data-AcctCode.DATA:lv_yn TYPE string.CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'EXPORTINGtitel = '科目号'textline1      = rs_selfield-fieldnamecancel_display = 'space'.  "space 不显示cancel按钮，'X'是显示取消按钮WHEN '&PR'.smartform = 'ZYC_ALV_01_SMARTFORMS'.CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'EXPORTINGformname           = smartformIMPORTINGfm_name            = fm_nameEXCEPTIONSno_form            = 1no_function_module = 2OTHERS             = 3.WAIT UP TO 1 SECONDS.CALL FUNCTION fm_nameEXCEPTIONSformatting_error = 1internal_error   = 2send_error       = 3user_canceled    = 4OTHERS           = 5.ENDCASE.
ENDFORM.FORM set_pf_status USING i_extab TYPE slis_t_extab.DATA:It_exfcode TYPE TABLE OF sy-ucomm.SET PF-STATUS '101' EXCLUDING It_exfcode.
ENDFORM.

创建smartforms程序ZYC_ALV_01_SMARTFORMS

全局定义->全局数据

类型

TYPES:BEGIN OF MY_TYPE,Clint    TYPE faglflext-rclnt,Comp     TYPE faglflext-rbukrs,Year     TYPE faglflext-ryear,Ledger   TYPE faglflext-rldnr,AcctCode TYPE faglflext-racct,AcctName TYPE skat-txt50,FuncArea TYPE faglflext-rfarea,M00 TYPE faglflext-hslvt,M01 TYPE faglflext-hsl01,M02 TYPE faglflext-hsl02,M03 TYPE faglflext-hsl03,M04 TYPE faglflext-hsl04,M05 TYPE faglflext-hsl05,M06 TYPE faglflext-hsl06,M07 TYPE faglflext-hsl07,M08 TYPE faglflext-hsl08,M09 TYPE faglflext-hsl09,M010 TYPE faglflext-hsl10,M011 TYPE faglflext-hsl11,M012 TYPE faglflext-hsl12,M013 TYPE faglflext-hsl13,M014 TYPE faglflext-hsl14,M015 TYPE faglflext-hsl15,M016 TYPE faglflext-hsl16,END OF MY_TYPE.

初始化

DATA: FIELD(50).
FIELD-SYMBOLS: <f> TYPE ANY.
FIELD = '(ZYC_ALV_01)gt_data[]'.
ASSIGN (FIELD) TO <f>.
GT_TABLE[] = <f>.

MAIN窗口创建表

打开字段列表，根据需要拉入对应字段

最后激活smartforms、gui状态、程序，执行

ABAP alv和smartforms的基础使用相关推荐

77 行代码实现 ABAP ALV 中的双击事件处理试读版
零基础 ABAP 学习教程系列文章的目录 ABAP 标准培训教程 BC400 学习笔记之一:ABAP 服务器的架构和一个典型的 ABAP 程序结构介绍 ABAP 标准培训教程 BC400 学习笔记之二 ...
给 ABAP ALV 报表的数据行增添颜色效果试读版
零基础 ABAP 学习教程系列文章的目录 ABAP 标准培训教程 BC400 学习笔记之一:ABAP 服务器的架构和一个典型的 ABAP 程序结构介绍 ABAP 标准培训教程 BC400 学习笔记之二 ...
48 行代码给 ABAP ALV 报表的数据行增添颜色效果
按照前一步骤 27 行代码开发一个最简单的 SAP ALV 报表完成之后,我们仅使用 27 行代码,就得到了如下图所示的 ABAP ALV 输出: 本步骤我们在此基础上,为这个朴素的 ALV 报表,增 ...
动手开发一个有用的 ABAP ALV 工具 - 查看指定用户的 ABAP 传输请求试读版
本专栏计划的文章数在 150 篇左右,到 2022年10月6日为止,目前已经更新了 56 篇,专栏完成度为 37.3% 零基础 ABAP 学习教程系列文章的目录 1. ABAP 标准培训教程 BC40 ...
ABAP项目砖家之旅-基础篇
ABAP项目砖家之旅-基础篇前言一.ABAP简介二.ABAP开发工具 1.SAPgui 2.eclipse和HANA studio 三.相关搬砖经验 1.必须还是熟悉语法 2.复制粘贴写注释 3 ...
ABAP ALV检查单元格更新数据
ABAP ALV检查单元格更新数据将ALV单元格设置为可输入后,通常我们需要对单元格输入的值做一个检查,一般来说用循环内表的方法可以实现上述操作,不过如果ALV中有大量数据,而我们只更新了少量的单元 ...
77 行代码实现 ABAP ALV 中的双击事件处理
我们在 ALV 开发专题的第二步骤里,为 ALV 输出的数据行,增添了颜色显示的功能: ALV 开发专题 27 行代码开发一个最简单的 SAP ALV 报表给 ABAP ALV 报表的数据行增添颜色 ...
abap alv新增行数据_ABAP_ALV_最好教程最全知识整理.doc
ABAP_ALV_最好教程最全知识整理 ABAP ALV 知识整理亿力科技 ABAP开发组目录一.ALV简介3 1.简介3 2.ALV_GRID介绍3 3.其它描述3 二.开发ALV的基本流 ...
ABAP ALV 总结
ABAP ALV 总结整理目录一.ALV简介 1.简介 2.ALV_GRID介绍 3.其它描述二.开发ALV的基本流程三.ALV相关开发细节 1.标准ALV与对象ALV的共同开发细节 2.标准 ...

ABAP alv和smartforms的基础使用

ABAP alv和smartforms的基础使用相关推荐

最新文章

热门文章