topic Problem in ALV report in Application Development and Automation Discussions

topic Problem in ALV report in Application Development and Automation Discussions https://community.sap.com/t5/application-development-and-automation-discussions/problem-in-alv-report/m-p/2134237#M448883 <HTML><HEAD></HEAD><BODY><P>Hi ,</P><P></P><P> I have created Alv report . Its working fine. But grouping syblos its not coming . I given below code . Plz help m to get that report with grouping . </P><P></P><P></P><P>TABLES: vbap, vbak , vbpa2 ,vbuk ,vapma ,kna1 ,pa0002.</P><P>type-pools: slis. "ALV Declarations</P><P>*Data Declaration</P><P>*----</P><HR originaltext="-----------" /><P>TYPES: BEGIN OF t_vbmtv,</P><UL><LI level="1" type="ul"><P> arktx TYPE vbap-arktx,</P></LI><LI level="1" type="ul"><P> kunnr TYPE vbak-kunnr,</P></LI><LI level="1" type="ul"><P> name1 TYPE vbsec-name1,</P></LI><LI level="1" type="ul"><P> audat TYPE vbak-audat,</P></LI><LI level="1" type="ul"><P> datab TYPE vapma-datab,</P></LI><LI level="1" type="ul"><P> ernam TYPE vbap-ernam,</P></LI><UL><LI level="2" type="ul"><P> kwmeng TYPE vbap-kwmeng,</P></LI><LI level="2" type="ul"><P> vrkme TYPE vbap-vrkme,</P></LI><LI level="2" type="ul"><P> kpein TYPE vbap-kpein,</P></LI></UL><LI level="1" type="ul"><P> netwr TYPE vbap-netwr,</P></LI><LI level="1" type="ul"><P> partner TYPE vbpa2-partner,</P></LI><UL><LI level="2" type="ul"><P> gbstk TYPE vbuk-gbstk,</P></LI></UL><LI level="1" type="ul"><P> kunnr TYPE vbak-kunnr,</P></LI></UL><P>vbeln LIKE vbap-vbeln,</P><UL><LI level="1" type="ul"><P> name1 LIKE vbap-aedat,</P></LI></UL><P> arktx LIKE vbap-arktx,</P><UL><LI level="1" type="ul"><P> kunnr LIKE vbak-kunnr,</P></LI></UL><P> posnr LIKE vbap-posnr,</P><P> netwr LIKE vbap-netwr,</P><P> gbstk LIKE vbuk-gbstk,</P><P> datab LIKE vapma-datab,</P><P> kunnr LIKE kna1-kunnr,</P><P> audat LIKE vbak-audat,</P><P> name1 LIKE kna1-name1,</P><P> pernr TyPE vbpa-pernr,</P><P> ST1(50) TYPE C,</P><P> END OF t_vbmtv.</P><P></P><P>data : ST1(50) TYPE C.</P><P></P><P> DATA: it_vbmtv TYPE STANDARD TABLE OF t_vbmtv INITIAL SIZE 0 with</P><P>header line,</P><P> wa_vbmtv TYPE t_vbmtv.</P><P></P><P>*ALV data declarations</P><P>data: fieldcatalog type slis_t_fieldcat_alv with header line,</P><P> gd_tab_group type slis_t_sp_group_alv,</P><P> gd_layout type slis_layout_alv,</P><P> gd_repid like sy-repid,</P><P> gt_events type slis_t_event,</P><P> gt_sort type slis_sortinfo_alv occurs 0 with header line,</P><P> gd_prntparams type slis_print_alv.</P><P></P><P>data : wa_group type slis_sp_group_alv,</P><P> i_group type slis_t_sp_group_alv.</P><P>*data : it_sort type slis_sortinfo_alv</P><P>*select-options s_vbeln for vbap-vbeln.</P><P></P><P>parameters : i_kunnr like vbak-kunnr,</P><P> i_matnr like vbap-matnr.</P><P>*SELECT-OPTIONS :i_datab FOR vapma-datab .</P><P></P><P>selection-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.</P><P>SELECT-OPTIONS : i_datab FOR sy-datum .</P><P>SELECT-OPTIONS i_audat FOR vbak-audat .</P><P>selection-SCREEN: END OF BLOCK b1.</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-t02.</P><P>parameters: Openorde radiobutton group grp1,</P><P> Allorder radiobutton group grp1.</P><UL><LI level="1" type="ul"><P> Hier radiobutton group grp1.</P></LI></UL><P></P><P>SELECTION-SCREEN: END OF BLOCK 2.</P><P></P><P>************************************************************************</P><P>*Start-of-selection.</P><P>START-OF-SELECTION.</P><P></P><P>perform data_retrieval.</P><P>perform build_fieldcatalog.</P><P>perform build_layout.</P><P>perform build_events.</P><P>perform build_sort.</P><P>perform build_group.</P><P>perform build_print_params.</P><P>perform display_alv_report.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELDCATALOG</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Fieldcatalog for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'KUNNR'.</P><P> fieldcatalog-seltext_m = 'Sold-to-party '.</P><P> fieldcatalog-col_pos = 1.</P><UL><LI level="1" type="ul"><P> fieldcatalog-outputlen = 10.</P></LI><LI level="1" type="ul"><P> fieldcatalog-emphasize = 'X'.</P></LI></UL><P> fieldcatalog-key = 'X'.</P><UL><LI level="1" type="ul"><P> fieldcatalog-do_sum = 'X'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-no_zero = 'X'.</P></LI></UL><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'NAME1'.</P><P> fieldcatalog-seltext_m = 'Name1'.</P><P> fieldcatalog-col_pos = 2.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'ARKTX'.</P><P> fieldcatalog-seltext_m = 'Description'.</P><P> fieldcatalog-col_pos = 3.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'AUDAT'.</P><P> fieldcatalog-seltext_m = 'Document date'.</P><P> fieldcatalog-col_pos = 4.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'POSNR'.</P><P> fieldcatalog-seltext_m = 'Net Value'.</P><P> fieldcatalog-col_pos = 5.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P></P><P> fieldcatalog-fieldname = 'NETWR'.</P><P> fieldcatalog-seltext_m = 'Net Value'.</P><P> fieldcatalog-col_pos = 6.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'GBSTK'.</P><P> fieldcatalog-seltext_m = 'Status'.</P><P> fieldcatalog-col_pos = 7.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'ST1'.</P><P> fieldcatalog-seltext_m = 'Sales employee'.</P><P> fieldcatalog-col_pos = 8.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P>endform. " BUILD_FIELDCATALOG</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_LAYOUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build layout for ALV grid report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_layout.</P><UL><LI level="1" type="ul"><P> gd_layout-no_input = 'X'.</P></LI></UL><P> gd_layout-colwidth_optimize = 'X'.</P><UL><LI level="1" type="ul"><P> gd_layout-totals_text = 'Totals'(201).</P></LI><LI level="1" type="ul"><P> gd_layout-totals_only = 'X'.</P></LI><LI level="1" type="ul"><P> gd_layout-f2code = 'DISP'. "Sets fcode for when double</P></LI><LI level="1" type="ul"><P> "click(press f2)</P></LI></UL><P> gd_layout-zebra = 'X'.</P><UL><LI level="1" type="ul"><P> gd_layout-group_change_edit = 'X'.</P></LI><LI level="1" type="ul"><P> gd_layout-header_text = 'helllllo'.</P></LI><LI level="1" type="ul"><P> gd_layout-subtotals_text = 'Sub Totals'(202).</P></LI></UL><P> gd_layout-info_fieldname = 'COLOR'(203).</P><P>endform. " BUILD_LAYOUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DISPLAY_ALV_REPORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Display report using ALV grid</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form display_alv_report.</P><P> gd_repid = sy-repid.</P><P> call function 'REUSE_ALV_GRID_DISPLAY'</P><P> exporting</P><P> i_callback_program = gd_repid</P><P> i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM</P><UL><LI level="1" type="ul"><P> i_callback_user_command = 'USER_COMMAND'</P></LI></UL><P> i_grid_title = 'uttext'</P><P> is_layout = gd_layout</P><P> it_fieldcat = fieldcatalog[]</P><P> it_special_groups = i_group</P><P> it_sort = gt_sort[]</P><P> it_events = gt_events</P><P> is_print = gd_prntparams</P><P> i_save = 'X'</P><UL><LI level="1" type="ul"><P> is_variant = z_template</P></LI></UL><P> tables</P><P> t_outtab = it_vbmtv</P><P> exceptions</P><P> program_error = 1</P><P> others = 2.</P><P> if sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> endif.</P><P>endform. " DISPLAY_ALV_REPORT</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DATA_RETRIEVAL</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Retrieve data form EKPO table and populate itab it_ekko</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form data_retrieval.</P><P> Select t1~arktx</P><P> t1~netwr</P><P> t1~netwr</P><P> t1~posnr</P><P> t2~kunnr</P><P> t2~audat</P><P> t2~vbeln</P><P> t4~gbstk</P><UL><LI level="1" type="ul"><P> t3~datab</P></LI></UL><P> t5~kunnr</P><P> t5~name1</P><P> t6~pernr</P><P> into corresponding fields of table it_vbmtv</P><P> from vbap as t1</P><P> inner join vbak as t2 on t2~vbeln = t1~vbeln</P><P> Inner join Vapma as t3 on t3~matnr = t1~matnr</P><P> inner join kna1 as t5 on t5~kunnr = t2~kunnr</P><P> Inner join vbuk as t4 on t4~vbeln = t1~vbeln</P><UL><LI level="1" type="ul"><P> Inner join kna1 as t3 on t3<SUB>vbeln = t4</SUB>vbeln.</P></LI></UL><P> Inner join Vbpa as t6 on t6~vbeln = t4~vbeln</P><P> WHERE t6~parvw = 'AF'.</P><P></P><P> loop at it_vbmtv into WA_vbmtv.</P><P></P><P> select SINGLE * FROM pa0002 where pernr = WA_vbmtv-pernr.</P><P></P><P> CONCATENATE PA0002-VORNA pa0002-NACHN INTO ST1 SEPARATED BY SPACE.</P><P></P><P> WA_VBMTV-ST1 = ST1.</P><P></P><P> modify it_vbmtv from wa_vbmtv.</P><P></P><P> endloop.</P><P></P><UL><LI level="1" type="ul"><P> where t3~datab in i_datab.</P></LI></UL><P></P><P>endform. " DATA_RETRIEVAL</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_SORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Sort for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_sort.</P><P>gt_sort-fieldname = 'KUNNR'.</P><P>gt_sort-tabname = 'IT_VBMTV'.</P><P>gt_sort-up = 'X'.</P><P>gt_sort-subtot = 'X'.</P><P>append gt_sort .</P><P></P><P>endform.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_GROUP</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Group for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_group.</P><P>clear i_group.</P><P>wa_group-sp_group = 'A'.</P><P>wa_group-text = 'KUNNR'.</P><P>append wa_group to i_group .</P><P></P><P>endform.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form TOP-OF-PAGE *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>ALV Report Header *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><P>Form top-of-page.</P><P>*ALV Header declarations</P><P>data: t_header type slis_t_listheader,</P><P> wa_header type slis_listheader,</P><P> t_line like wa_header-info,</P><P> ld_lines type i,</P><P> ld_linesc(10) type c.</P><P></P><UL><LI level="1" type="ul"><P>Title</P></LI></UL><P> wa_header-typ = 'H'.</P><P> wa_header-info = 'Open Inquiries'.</P><P> append wa_header to t_header.</P><P> clear wa_header.</P><P></P><UL><LI level="1" type="ul"><P>Date</P></LI></UL><P> wa_header-typ = 'S'.</P><P> wa_header-key = 'Valid Period: '.</P><UL><LI level="1" type="ul"><P> wa_header-info = sy-datum.</P></LI></UL><P></P><P></P><P> CONCATENATE sy-datum+6(2) '.'</P><P> sy-datum+4(2) '.'</P><P> sy-datum(4) INTO wa_header-info. "todays date</P><P> append wa_header to t_header.</P><P></P><P> clear: wa_header.</P><P></P><UL><UL><LI level="2" type="ul"><P>Total No. of Records Selected</P></LI></UL><LI level="1" type="ul"><P> describe table it_vbmtv lines ld_lines.</P></LI><LI level="1" type="ul"><P> ld_linesc = ld_lines.</P></LI><LI level="1" type="ul"><P> concatenate 'Total No. of Records Selected: ' ld_linesc</P></LI><LI level="1" type="ul"><P> into t_line separated by space.</P></LI><LI level="1" type="ul"><P> wa_header-typ = 'A'.</P></LI><LI level="1" type="ul"><P> wa_header-info = t_line.</P></LI><LI level="1" type="ul"><P> append wa_header to t_header.</P></LI><LI level="1" type="ul"><P> clear: wa_header, t_line.</P></LI></UL><P></P><P> call function 'REUSE_ALV_COMMENTARY_WRITE'</P><P> exporting</P><P> it_list_commentary = t_header.</P><UL><LI level="1" type="ul"><P> i_logo = 'Z_LOGO'.</P></LI></UL><P>endform.</P><P></P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM USER_COMMAND *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> R_UCOMM *</P></LI><LI level="1" type="ul"><P> --> RS_SELFIELD *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><P>*FORM user_command USING r_ucomm LIKE sy-ucomm</P><UL><LI level="1" type="ul"><P> rs_selfield TYPE slis_selfield.</P></LI></UL><P>*</P><UL><UL><LI level="2" type="ul"><P>Check function code</P></LI></UL><LI level="1" type="ul"><P> CASE r_ucomm.</P></LI><LI level="1" type="ul"><P> WHEN '&IC1'.</P></LI><UL><LI level="2" type="ul"><P> Check field clicked on within ALVgrid report</P></LI></UL><LI level="1" type="ul"><P> IF rs_selfield-fieldname = 'VBELN'.</P></LI><UL><LI level="2" type="ul"><P> Read data table, using index of row user clicked on</P></LI></UL><LI level="1" type="ul"><P> READ TABLE it_vbmtv INTO wa_vbmtv INDEX rs_selfield-tabindex.</P></LI><UL><LI level="2" type="ul"><P> Set parameter ID for transaction screen field</P></LI></UL><LI level="1" type="ul"><P> SET PARAMETER ID 'BES' FIELD wa_VBMTV-Vbeln.</P></LI><UL><LI level="2" type="ul"><P> Sxecute transaction ME23N, and skip initial data entry screen</P></LI></UL><LI level="1" type="ul"><P> CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.</P></LI><LI level="1" type="ul"><P> ENDIF.</P></LI><LI level="1" type="ul"><P> ENDCASE.</P></LI></UL><P>*ENDFORM.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_EVENTS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build events table</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_events.</P><P> data: ls_event type slis_alv_event.</P><P></P><P> call function 'REUSE_ALV_EVENTS_GET'</P><P> exporting</P><P> i_list_type = 0</P><P> importing</P><P> et_events = gt_events[].</P><P> read table gt_events with key name = slis_ev_end_of_page</P><P> into ls_event.</P><P> if sy-subrc = 0.</P><P> move 'END_OF_PAGE' to ls_event-form.</P><P> append ls_event to gt_events.</P><P> endif.</P><P></P><P> read table gt_events with key name = slis_ev_end_of_list</P><P> into ls_event.</P><P> if sy-subrc = 0.</P><P> move 'END_OF_LIST' to ls_event-form.</P><P> append ls_event to gt_events.</P><P> endif.</P><P>endform. " BUILD_EVENTS</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_PRINT_PARAMS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Setup print parameters</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_print_params.</P><P> gd_prntparams-reserve_lines = '3'. "Lines reserved for footer</P><P> gd_prntparams-no_coverpage = 'X'.</P><P>endform. " BUILD_PRINT_PARAMS</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form END_OF_PAGE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>form END_OF_PAGE.</P><P> data: listwidth type i,</P><P> ld_pagepos(10) type c,</P><P> ld_page(10) type c.</P><P></P><P> write: sy-uline(50).</P><P> skip.</P><P> write:/40 'Page:', sy-pagno .</P><P>endform.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form END_OF_LIST</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>form END_OF_LIST.</P><P> data: listwidth type i,</P><P> ld_pagepos(10) type c,</P><P> ld_page(10) type c.</P><P></P><P> skip.</P><P> write:/40 'Page:', sy-pagno .</P><P>endform.</P></BODY></HTML> Fri, 13 Apr 2007 12:26:01 GMT Former Member 2007-04-13T12:26:01Z Problem in ALV report https://community.sap.com/t5/application-development-and-automation-discussions/problem-in-alv-report/m-p/2134237#M448883 <HTML><HEAD></HEAD><BODY><P>Hi ,</P><P></P><P> I have created Alv report . Its working fine. But grouping syblos its not coming . I given below code . Plz help m to get that report with grouping . </P><P></P><P></P><P>TABLES: vbap, vbak , vbpa2 ,vbuk ,vapma ,kna1 ,pa0002.</P><P>type-pools: slis. "ALV Declarations</P><P>*Data Declaration</P><P>*----</P><HR originaltext="-----------" /><P>TYPES: BEGIN OF t_vbmtv,</P><UL><LI level="1" type="ul"><P> arktx TYPE vbap-arktx,</P></LI><LI level="1" type="ul"><P> kunnr TYPE vbak-kunnr,</P></LI><LI level="1" type="ul"><P> name1 TYPE vbsec-name1,</P></LI><LI level="1" type="ul"><P> audat TYPE vbak-audat,</P></LI><LI level="1" type="ul"><P> datab TYPE vapma-datab,</P></LI><LI level="1" type="ul"><P> ernam TYPE vbap-ernam,</P></LI><UL><LI level="2" type="ul"><P> kwmeng TYPE vbap-kwmeng,</P></LI><LI level="2" type="ul"><P> vrkme TYPE vbap-vrkme,</P></LI><LI level="2" type="ul"><P> kpein TYPE vbap-kpein,</P></LI></UL><LI level="1" type="ul"><P> netwr TYPE vbap-netwr,</P></LI><LI level="1" type="ul"><P> partner TYPE vbpa2-partner,</P></LI><UL><LI level="2" type="ul"><P> gbstk TYPE vbuk-gbstk,</P></LI></UL><LI level="1" type="ul"><P> kunnr TYPE vbak-kunnr,</P></LI></UL><P>vbeln LIKE vbap-vbeln,</P><UL><LI level="1" type="ul"><P> name1 LIKE vbap-aedat,</P></LI></UL><P> arktx LIKE vbap-arktx,</P><UL><LI level="1" type="ul"><P> kunnr LIKE vbak-kunnr,</P></LI></UL><P> posnr LIKE vbap-posnr,</P><P> netwr LIKE vbap-netwr,</P><P> gbstk LIKE vbuk-gbstk,</P><P> datab LIKE vapma-datab,</P><P> kunnr LIKE kna1-kunnr,</P><P> audat LIKE vbak-audat,</P><P> name1 LIKE kna1-name1,</P><P> pernr TyPE vbpa-pernr,</P><P> ST1(50) TYPE C,</P><P> END OF t_vbmtv.</P><P></P><P>data : ST1(50) TYPE C.</P><P></P><P> DATA: it_vbmtv TYPE STANDARD TABLE OF t_vbmtv INITIAL SIZE 0 with</P><P>header line,</P><P> wa_vbmtv TYPE t_vbmtv.</P><P></P><P>*ALV data declarations</P><P>data: fieldcatalog type slis_t_fieldcat_alv with header line,</P><P> gd_tab_group type slis_t_sp_group_alv,</P><P> gd_layout type slis_layout_alv,</P><P> gd_repid like sy-repid,</P><P> gt_events type slis_t_event,</P><P> gt_sort type slis_sortinfo_alv occurs 0 with header line,</P><P> gd_prntparams type slis_print_alv.</P><P></P><P>data : wa_group type slis_sp_group_alv,</P><P> i_group type slis_t_sp_group_alv.</P><P>*data : it_sort type slis_sortinfo_alv</P><P>*select-options s_vbeln for vbap-vbeln.</P><P></P><P>parameters : i_kunnr like vbak-kunnr,</P><P> i_matnr like vbap-matnr.</P><P>*SELECT-OPTIONS :i_datab FOR vapma-datab .</P><P></P><P>selection-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-t01.</P><P>SELECT-OPTIONS : i_datab FOR sy-datum .</P><P>SELECT-OPTIONS i_audat FOR vbak-audat .</P><P>selection-SCREEN: END OF BLOCK b1.</P><P></P><P>SELECTION-SCREEN BEGIN OF BLOCK 2 WITH FRAME TITLE text-t02.</P><P>parameters: Openorde radiobutton group grp1,</P><P> Allorder radiobutton group grp1.</P><UL><LI level="1" type="ul"><P> Hier radiobutton group grp1.</P></LI></UL><P></P><P>SELECTION-SCREEN: END OF BLOCK 2.</P><P></P><P>************************************************************************</P><P>*Start-of-selection.</P><P>START-OF-SELECTION.</P><P></P><P>perform data_retrieval.</P><P>perform build_fieldcatalog.</P><P>perform build_layout.</P><P>perform build_events.</P><P>perform build_sort.</P><P>perform build_group.</P><P>perform build_print_params.</P><P>perform display_alv_report.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_FIELDCATALOG</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Fieldcatalog for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'KUNNR'.</P><P> fieldcatalog-seltext_m = 'Sold-to-party '.</P><P> fieldcatalog-col_pos = 1.</P><UL><LI level="1" type="ul"><P> fieldcatalog-outputlen = 10.</P></LI><LI level="1" type="ul"><P> fieldcatalog-emphasize = 'X'.</P></LI></UL><P> fieldcatalog-key = 'X'.</P><UL><LI level="1" type="ul"><P> fieldcatalog-do_sum = 'X'.</P></LI><LI level="1" type="ul"><P> fieldcatalog-no_zero = 'X'.</P></LI></UL><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'NAME1'.</P><P> fieldcatalog-seltext_m = 'Name1'.</P><P> fieldcatalog-col_pos = 2.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'ARKTX'.</P><P> fieldcatalog-seltext_m = 'Description'.</P><P> fieldcatalog-col_pos = 3.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'AUDAT'.</P><P> fieldcatalog-seltext_m = 'Document date'.</P><P> fieldcatalog-col_pos = 4.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'POSNR'.</P><P> fieldcatalog-seltext_m = 'Net Value'.</P><P> fieldcatalog-col_pos = 5.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P></P><P> fieldcatalog-fieldname = 'NETWR'.</P><P> fieldcatalog-seltext_m = 'Net Value'.</P><P> fieldcatalog-col_pos = 6.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'GBSTK'.</P><P> fieldcatalog-seltext_m = 'Status'.</P><P> fieldcatalog-col_pos = 7.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P> fieldcatalog-fieldname = 'ST1'.</P><P> fieldcatalog-seltext_m = 'Sales employee'.</P><P> fieldcatalog-col_pos = 8.</P><P> append fieldcatalog to fieldcatalog.</P><P> clear fieldcatalog.</P><P></P><P>endform. " BUILD_FIELDCATALOG</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_LAYOUT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build layout for ALV grid report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_layout.</P><UL><LI level="1" type="ul"><P> gd_layout-no_input = 'X'.</P></LI></UL><P> gd_layout-colwidth_optimize = 'X'.</P><UL><LI level="1" type="ul"><P> gd_layout-totals_text = 'Totals'(201).</P></LI><LI level="1" type="ul"><P> gd_layout-totals_only = 'X'.</P></LI><LI level="1" type="ul"><P> gd_layout-f2code = 'DISP'. "Sets fcode for when double</P></LI><LI level="1" type="ul"><P> "click(press f2)</P></LI></UL><P> gd_layout-zebra = 'X'.</P><UL><LI level="1" type="ul"><P> gd_layout-group_change_edit = 'X'.</P></LI><LI level="1" type="ul"><P> gd_layout-header_text = 'helllllo'.</P></LI><LI level="1" type="ul"><P> gd_layout-subtotals_text = 'Sub Totals'(202).</P></LI></UL><P> gd_layout-info_fieldname = 'COLOR'(203).</P><P>endform. " BUILD_LAYOUT</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DISPLAY_ALV_REPORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Display report using ALV grid</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form display_alv_report.</P><P> gd_repid = sy-repid.</P><P> call function 'REUSE_ALV_GRID_DISPLAY'</P><P> exporting</P><P> i_callback_program = gd_repid</P><P> i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM</P><UL><LI level="1" type="ul"><P> i_callback_user_command = 'USER_COMMAND'</P></LI></UL><P> i_grid_title = 'uttext'</P><P> is_layout = gd_layout</P><P> it_fieldcat = fieldcatalog[]</P><P> it_special_groups = i_group</P><P> it_sort = gt_sort[]</P><P> it_events = gt_events</P><P> is_print = gd_prntparams</P><P> i_save = 'X'</P><UL><LI level="1" type="ul"><P> is_variant = z_template</P></LI></UL><P> tables</P><P> t_outtab = it_vbmtv</P><P> exceptions</P><P> program_error = 1</P><P> others = 2.</P><P> if sy-subrc <> 0.</P><UL><LI level="1" type="ul"><P>MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</P></LI><LI level="1" type="ul"><P> WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</P></LI></UL><P> endif.</P><P>endform. " DISPLAY_ALV_REPORT</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form DATA_RETRIEVAL</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Retrieve data form EKPO table and populate itab it_ekko</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form data_retrieval.</P><P> Select t1~arktx</P><P> t1~netwr</P><P> t1~netwr</P><P> t1~posnr</P><P> t2~kunnr</P><P> t2~audat</P><P> t2~vbeln</P><P> t4~gbstk</P><UL><LI level="1" type="ul"><P> t3~datab</P></LI></UL><P> t5~kunnr</P><P> t5~name1</P><P> t6~pernr</P><P> into corresponding fields of table it_vbmtv</P><P> from vbap as t1</P><P> inner join vbak as t2 on t2~vbeln = t1~vbeln</P><P> Inner join Vapma as t3 on t3~matnr = t1~matnr</P><P> inner join kna1 as t5 on t5~kunnr = t2~kunnr</P><P> Inner join vbuk as t4 on t4~vbeln = t1~vbeln</P><UL><LI level="1" type="ul"><P> Inner join kna1 as t3 on t3<SUB>vbeln = t4</SUB>vbeln.</P></LI></UL><P> Inner join Vbpa as t6 on t6~vbeln = t4~vbeln</P><P> WHERE t6~parvw = 'AF'.</P><P></P><P> loop at it_vbmtv into WA_vbmtv.</P><P></P><P> select SINGLE * FROM pa0002 where pernr = WA_vbmtv-pernr.</P><P></P><P> CONCATENATE PA0002-VORNA pa0002-NACHN INTO ST1 SEPARATED BY SPACE.</P><P></P><P> WA_VBMTV-ST1 = ST1.</P><P></P><P> modify it_vbmtv from wa_vbmtv.</P><P></P><P> endloop.</P><P></P><UL><LI level="1" type="ul"><P> where t3~datab in i_datab.</P></LI></UL><P></P><P>endform. " DATA_RETRIEVAL</P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_SORT</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Sort for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_sort.</P><P>gt_sort-fieldname = 'KUNNR'.</P><P>gt_sort-tabname = 'IT_VBMTV'.</P><P>gt_sort-up = 'X'.</P><P>gt_sort-subtot = 'X'.</P><P>append gt_sort .</P><P></P><P>endform.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_GROUP</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build Group for ALV Report</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_group.</P><P>clear i_group.</P><P>wa_group-sp_group = 'A'.</P><P>wa_group-text = 'KUNNR'.</P><P>append wa_group to i_group .</P><P></P><P>endform.</P><P></P><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>Form TOP-OF-PAGE *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P>ALV Report Header *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="--------------------------------------------------------------" /><P></P><P>Form top-of-page.</P><P>*ALV Header declarations</P><P>data: t_header type slis_t_listheader,</P><P> wa_header type slis_listheader,</P><P> t_line like wa_header-info,</P><P> ld_lines type i,</P><P> ld_linesc(10) type c.</P><P></P><UL><LI level="1" type="ul"><P>Title</P></LI></UL><P> wa_header-typ = 'H'.</P><P> wa_header-info = 'Open Inquiries'.</P><P> append wa_header to t_header.</P><P> clear wa_header.</P><P></P><UL><LI level="1" type="ul"><P>Date</P></LI></UL><P> wa_header-typ = 'S'.</P><P> wa_header-key = 'Valid Period: '.</P><UL><LI level="1" type="ul"><P> wa_header-info = sy-datum.</P></LI></UL><P></P><P></P><P> CONCATENATE sy-datum+6(2) '.'</P><P> sy-datum+4(2) '.'</P><P> sy-datum(4) INTO wa_header-info. "todays date</P><P> append wa_header to t_header.</P><P></P><P> clear: wa_header.</P><P></P><UL><UL><LI level="2" type="ul"><P>Total No. of Records Selected</P></LI></UL><LI level="1" type="ul"><P> describe table it_vbmtv lines ld_lines.</P></LI><LI level="1" type="ul"><P> ld_linesc = ld_lines.</P></LI><LI level="1" type="ul"><P> concatenate 'Total No. of Records Selected: ' ld_linesc</P></LI><LI level="1" type="ul"><P> into t_line separated by space.</P></LI><LI level="1" type="ul"><P> wa_header-typ = 'A'.</P></LI><LI level="1" type="ul"><P> wa_header-info = t_line.</P></LI><LI level="1" type="ul"><P> append wa_header to t_header.</P></LI><LI level="1" type="ul"><P> clear: wa_header, t_line.</P></LI></UL><P></P><P> call function 'REUSE_ALV_COMMENTARY_WRITE'</P><P> exporting</P><P> it_list_commentary = t_header.</P><UL><LI level="1" type="ul"><P> i_logo = 'Z_LOGO'.</P></LI></UL><P>endform.</P><P></P><P></P><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> FORM USER_COMMAND *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> --> R_UCOMM *</P></LI><LI level="1" type="ul"><P> --> RS_SELFIELD *</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-------------------------------------------------------------" /><P></P><P>*FORM user_command USING r_ucomm LIKE sy-ucomm</P><UL><LI level="1" type="ul"><P> rs_selfield TYPE slis_selfield.</P></LI></UL><P>*</P><UL><UL><LI level="2" type="ul"><P>Check function code</P></LI></UL><LI level="1" type="ul"><P> CASE r_ucomm.</P></LI><LI level="1" type="ul"><P> WHEN '&IC1'.</P></LI><UL><LI level="2" type="ul"><P> Check field clicked on within ALVgrid report</P></LI></UL><LI level="1" type="ul"><P> IF rs_selfield-fieldname = 'VBELN'.</P></LI><UL><LI level="2" type="ul"><P> Read data table, using index of row user clicked on</P></LI></UL><LI level="1" type="ul"><P> READ TABLE it_vbmtv INTO wa_vbmtv INDEX rs_selfield-tabindex.</P></LI><UL><LI level="2" type="ul"><P> Set parameter ID for transaction screen field</P></LI></UL><LI level="1" type="ul"><P> SET PARAMETER ID 'BES' FIELD wa_VBMTV-Vbeln.</P></LI><UL><LI level="2" type="ul"><P> Sxecute transaction ME23N, and skip initial data entry screen</P></LI></UL><LI level="1" type="ul"><P> CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.</P></LI><LI level="1" type="ul"><P> ENDIF.</P></LI><LI level="1" type="ul"><P> ENDCASE.</P></LI></UL><P>*ENDFORM.</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_EVENTS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Build events table</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_events.</P><P> data: ls_event type slis_alv_event.</P><P></P><P> call function 'REUSE_ALV_EVENTS_GET'</P><P> exporting</P><P> i_list_type = 0</P><P> importing</P><P> et_events = gt_events[].</P><P> read table gt_events with key name = slis_ev_end_of_page</P><P> into ls_event.</P><P> if sy-subrc = 0.</P><P> move 'END_OF_PAGE' to ls_event-form.</P><P> append ls_event to gt_events.</P><P> endif.</P><P></P><P> read table gt_events with key name = slis_ev_end_of_list</P><P> into ls_event.</P><P> if sy-subrc = 0.</P><P> move 'END_OF_LIST' to ls_event-form.</P><P> append ls_event to gt_events.</P><P> endif.</P><P>endform. " BUILD_EVENTS</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form BUILD_PRINT_PARAMS</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><UL><LI level="1" type="ul"><P> Setup print parameters</P></LI></UL><P><STRONG>----</STRONG></P><HR originaltext="-----------------------------------------------------------------" /><P></P><P>form build_print_params.</P><P> gd_prntparams-reserve_lines = '3'. "Lines reserved for footer</P><P> gd_prntparams-no_coverpage = 'X'.</P><P>endform. " BUILD_PRINT_PARAMS</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form END_OF_PAGE</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>form END_OF_PAGE.</P><P> data: listwidth type i,</P><P> ld_pagepos(10) type c,</P><P> ld_page(10) type c.</P><P></P><P> write: sy-uline(50).</P><P> skip.</P><P> write:/40 'Page:', sy-pagno .</P><P>endform.</P><P></P><P></P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>*& Form END_OF_LIST</P><P><STRONG>&----</STRONG></P><HR originaltext="----------------------------------------------------------------" /><P></P><P>form END_OF_LIST.</P><P> data: listwidth type i,</P><P> ld_pagepos(10) type c,</P><P> ld_page(10) type c.</P><P></P><P> skip.</P><P> write:/40 'Page:', sy-pagno .</P><P>endform.</P></BODY></HTML> Fri, 13 Apr 2007 12:26:01 GMT https://community.sap.com/t5/application-development-and-automation-discussions/problem-in-alv-report/m-p/2134237#M448883 Former Member 2007-04-13T12:26:01Z Re: Problem in ALV report https://community.sap.com/t5/application-development-and-automation-discussions/problem-in-alv-report/m-p/2134238#M448884 <HTML><HEAD></HEAD><BODY><P>Hi Sheetal,</P><P></P><P> The problem in the subroutine BUILD_SORT. Here you want to group the entries depending on the KUNNR. So here you need to do like this. </P><P></P><P> I make the added code in Bold. so you can get the grouping depending on the KUNNR field values.</P><P> </P><P>form build_sort.</P><P>gt_sort-fieldname = 'KUNNR'.</P><P>gt_sort-tabname = 'IT_VBMTV'.</P><P>gt_sort-up = 'X'.</P><P>gt_sort-subtot = 'X'.</P><P><b>gt_sort-group = '*'.</b></P><P>append gt_sort .</P><P></P><P>endform.</P></BODY></HTML> Mon, 16 Apr 2007 08:01:49 GMT https://community.sap.com/t5/application-development-and-automation-discussions/problem-in-alv-report/m-p/2134238#M448884 Former Member 2007-04-16T08:01:49Z