ABAP实现根据选择的字段名进行动态汇总

注意动态排序的使用方法，其次就是动态语法的运用了。

1、程序代码

TYPES:BEGIN OF ty_ALV,
length TYPE i,
width TYPE i,
high TYPE i,
qty1 TYPE i,
qty2 TYPE i,
END OF ty_alv.
DATA:gt_alv TYPE TABLE OF ty_alv,
gs_alv TYPE ty_alv.
TYPES:BEGIN OF ty_field,
fieldname TYPE fieldname,
END OF ty_field.
DATA:gt_total_field TYPE TABLE OF ty_field,
gs_total_field TYPE ty_field.
DATA:gt_criterion_field TYPE TABLE OF ty_field,
gs_criterion_field TYPE ty_field.
DATA:gt_data TYPE REF TO data.
FIELD-SYMBOLS:<f_t> TYPE STANDARD TABLE,
<f_wa> ,
<f_1>.
PARAMETERS: p_l TYPE c AS CHECKBOX,
p_w TYPE c AS CHECKBOX,
p_h TYPE c AS CHECKBOX.
START-OF-SELECTION.
PERFORM frm_initial_tab USING 1 2 3 12 13.
PERFORM frm_initial_tab USING 1 2 3 12 16.
PERFORM frm_initial_tab USING 1 2 4 1 3 .
PERFORM frm_initial_tab USING 1 3 4 12 13.
PERFORM frm_initial_tab USING 1 4 3 12 16.
PERFORM frm_initial_tab USING 1 4 5 12 17.
" CRITERION_FIELD
IF p_l = 'X'.
gs_criterion_field-fieldname = 'LENGTH'.
APPEND gs_criterion_field TO gt_criterion_field.
ENDIF.
IF p_w = 'X'.
gs_criterion_field-fieldname = 'WIDTH'.
APPEND gs_criterion_field TO gt_criterion_field.
ENDIF.
IF p_h = 'X'.
gs_criterion_field-fieldname = 'HIGH'.
APPEND gs_criterion_field TO gt_criterion_field.
ENDIF.
IF p_l IS INITIAL AND
p_w IS INITIAL AND
p_h IS INITIAL.
LOOP AT gt_alv ASSIGNING <f_wa>.
ULINE.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE <f_wa> TO <f_1>.
IF sy-subrc NE 0.
EXIT.
ELSE.
WRITE:<f_1>.
ENDIF.
ENDDO.
ENDLOOP.
EXIT.
ENDIF.
"TOTAL_FIELD
gs_total_field-fieldname = 'QTY1'.
APPEND gs_total_field TO gt_total_field.
gs_total_field-fieldname = 'QTY2'.
APPEND gs_total_field TO gt_total_field.
"传入内表
"汇总的数量字段（在内表中的字段名）
"汇总的标准（在内表中的字段名）
PERFORM frm_subtotal TABLES gt_alv
gt_total_field
gt_criterion_field
CHANGING gt_data .
"输出类型为DATA的动态内表(字段为：汇总的标准+汇总的数量字段）
ASSIGN gt_data->* TO <f_t>.
LOOP AT <f_t> ASSIGNING <f_wa>.
ULINE.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE <f_wa> TO <f_1>.
IF sy-subrc NE 0.
EXIT.
ELSE.
WRITE:<f_1>.
ENDIF.
ENDDO.
ENDLOOP.
*&---------------------------------------------------------------------*
*& Form FRM_INITIAL_TAB
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_1 text
* -->P_2 text
* -->P_3 text
* -->P_12 text
* -->P_13 text
*----------------------------------------------------------------------*
FORM frm_initial_tab USING p1 p2 p3 p4 p5.
CLEAR:gs_alv.
gs_alv-length = p1.
gs_alv-width = p2.
gs_alv-high = p3.
gs_alv-qty1 = p4.
gs_alv-qty2 = p5.
APPEND gs_alv TO gt_alv.
ENDFORM. " FRM_INITIAL_TAB
*&---------------------------------------------------------------------*
*& Form FRM_SUBTOTAL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_GT_ALV text
* -->P_GT_TOTAL_FIELD text
* -->P_GS_CRITERION_FIELD text
*----------------------------------------------------------------------*
FORM frm_subtotal TABLES t_alv STRUCTURE gs_alv
t_total_field STRUCTURE gs_total_field
t_criterion_field STRUCTURE gs_criterion_field
CHANGING t_data TYPE REF TO data.
TYPE-POOLS abap.
DATA:lv_tabix TYPE sy-tabix.
"Get FIELD Name
DATA:ls_comp TYPE abap_compdescr,
ref_descr TYPE REF TO cl_abap_structdescr.
"Dynamic Sort
DATA:sort_tab TYPE abap_sortorder_tab,
sort_line TYPE abap_sortorder.
"Build New Table
DATA: xfc TYPE lvc_s_fcat,
ifc TYPE lvc_t_fcat.
FIELD-SYMBOLS: <f_out> TYPE STANDARD TABLE,
<f_out_wa> ,
<f_1>,
<f_2>.
DATA: lr_out_wa TYPE REF TO data,
lr_out TYPE REF TO data,
out_wa TYPE REF TO data,
out_t TYPE REF TO data.
"Out Table
FIELD-SYMBOLS:<t_out> TYPE STANDARD TABLE,
<wa_out>.
ref_descr ?= cl_abap_typedescr=>describe_by_data( t_alv ).
"Build New Table
LOOP AT t_criterion_field.
READ TABLE ref_descr->components INTO ls_comp
WITH KEY name = t_criterion_field-fieldname.
IF sy-subrc = 0.
CLEAR xfc.
xfc-fieldname = ls_comp-name .
xfc-inttype = ls_comp-type_kind.
xfc-intlen = ls_comp-length.
xfc-decimals = ls_comp-decimals.
APPEND xfc TO ifc.
sort_line-name = ls_comp-name.
APPEND sort_line TO sort_tab.
ENDIF.
ENDLOOP.
LOOP AT t_total_field.
READ TABLE ref_descr->components INTO ls_comp
WITH KEY name = t_total_field-fieldname.
IF sy-subrc = 0.
CLEAR xfc.
xfc-fieldname = ls_comp-name .
xfc-inttype = ls_comp-type_kind.
xfc-intlen = ls_comp-length.
xfc-decimals = ls_comp-decimals.
APPEND xfc TO ifc.
ENDIF.
ENDLOOP.
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = ifc
IMPORTING
ep_table = lr_out.
ASSIGN lr_out->* TO <f_out>.
CREATE DATA lr_out_wa LIKE LINE OF <f_out>.
ASSIGN lr_out_wa->* TO <f_out_wa>.
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = ifc
IMPORTING
ep_table = out_t.
ASSIGN out_t->* TO <t_out>.
CREATE DATA out_wa LIKE LINE OF <t_out>.
ASSIGN out_wa->* TO <wa_out>.
DESCRIBE TABLE t_criterion_field LINES lv_tabix.
READ TABLE t_criterion_field INDEX lv_tabix.
LOOP AT t_alv.
MOVE-CORRESPONDING t_alv TO <f_out_wa>.
APPEND <f_out_wa> TO <f_out>.
CHECK <f_out> IS NOT INITIAL.
ENDLOOP.
"Sort Dynamic
SORT <f_out> BY (sort_tab).
LOOP AT <f_out> ASSIGNING <f_out_wa>.
LOOP AT t_total_field.
ASSIGN COMPONENT t_total_field-fieldname OF STRUCTURE <f_out_wa> TO <f_1>.
ASSIGN COMPONENT t_total_field-fieldname OF STRUCTURE <wa_out> TO <f_2>.
<f_2> = <f_2> + <f_1> .
ENDLOOP.
AT END OF (t_criterion_field-fieldname).
LOOP AT t_criterion_field.
ASSIGN COMPONENT t_criterion_field-fieldname OF STRUCTURE <f_out_wa> TO <f_1>.
ASSIGN COMPONENT t_criterion_field-fieldname OF STRUCTURE <wa_out> TO <f_2>.
<f_2> = <f_1> .
ENDLOOP.
APPEND <wa_out> TO <t_out> .
CLEAR:<wa_out>.
ENDAT.
ENDLOOP.
t_data = out_t.
ENDFORM. " FRM_SUBTOTAL

复制代码

2、执行结果

学习一下，感谢

[基础语法] ABAP实现根据选择的字段名进行动态汇总

Ta最近发表

快速回帖