topic Re: ALV Grid using classes in Application Development and Automation Discussions

ALV Grid using classes

Former Member — Fri, 09 Feb 2007 06:51:00 GMT

Hi gurus,

I written a ABAP program, the output should be ALV grid using classes but it going to dump. the code i wrote is :

optimized on 29.01.2002
modified on 29.04.2002

*Modified 0n 08.02.2006 By Vinay Dasari

REPORT ymmr9029p1 NO STANDARD PAGE HEADING LINE-SIZE 220 LINE-COUNT 65.

*Begin of changes by Vinay dasari

TABLES: eban, mara, makt, stxh, ekpo, eket, ekko,marc,

mbew, mseg, mkpf, t16fv, ymrrdetl.

*End of Changes by Vinay Dasari

TYPE-POOLS : slis.

DATA: ok_code LIKE sy-ucomm,

g_container TYPE scrfname VALUE 'PR_STATUS_REPORT',

grid1 TYPE REF TO cl_gui_alv_grid,

g_custom_container TYPE REF TO cl_gui_custom_container.

DATA: fieldcat TYPE lvc_t_fcat,

wa_fieldcat TYPE lvc_s_fcat,

it_sort TYPE lvc_t_sort,

wa_sort TYPE lvc_s_sort.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_matnr FOR mara-matnr OBLIGATORY,

s_werks FOR marc-werks OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK b1.

SELECTION-SCREEN: BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS p_all RADIOBUTTON GROUP rept.

SELECTION-SCREEN COMMENT 3(8) text-005.

*Begin of changes by Vinay Dasari

PARAMETERS: pdel RADIOBUTTON GROUP rept.

SELECTION-SCREEN COMMENT 30(20) text-011.

SELECTION-SCREEN END OF LINE.

*End of Changes by Vinay Dasari

SELECTION-SCREEN: END OF BLOCK b2.

DATA:

BEGIN OF g_feldlist,

filler(10) VALUE 'OBJECT_TAB',

g_var_flag, "Liste bereits gestarted über Var

END OF g_feldlist.

DATA: g_selmod, "Selektionsmodus

selmod_0 VALUE '0', "Keine Selektion

selmod_s VALUE 'S', "Submit nur durch Variante

selmod_1 VALUE '1', "Selektion eines Objekts

selmod_x VALUE 'X', "Selektion mehrerer Objekte

selmod_d VALUE 'D'. "Selektion aller Objekte dunkel

DATA: x, w_first, w_po,

w_lead TYPE i,

w_ebeln LIKE ekpo-ebeln,

w_ebelp LIKE ekpo-ebelp,

w_tabix LIKE sy-tabix,

w_po_no LIKE thead-tdname,

w_matnr LIKE thead-tdname,

w_po_desc LIKE tline-tdline,

w_curfield(30), "to store the cursor field

w_curvalue LIKE mara-matnr. "to store the cursor value

DATA: tlines LIKE tline OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF i_mara OCCURS 0,

matnr LIKE mara-matnr,

ersda LIKE MARA-ERSDA,

ernam LIKE mara-ernam,

laeda LIKE mara-laeda,

aenam LIKE mara-aenam,

vpsta LIKE mara-vpsta,

pstat LIKE mara-pstat,

END OF i_mara.

DATA: BEGIN OF i_marc OCCURS 0,

werks like marc-werks,

lvorm like marc-lvorm,

bwtty like marc-bwtty,

xchar like marc-xchar,

mmsta like marc-mmsta,

mmstd like marc-mmstd,

maabc like marc-maabc,

kzkri like marc-kzkri,

END OF i_marc.

DATA: BEGIN OF itab OCCURS 10,

matnr LIKE i_mara-matnr,

ersda LIKE i_MARA-ERSDA,

ernam LIKE i_mara-ernam,

laeda LIKE i_mara-laeda,

aenam LIKE i_mara-aenam,

vpsta LIKE i_mara-vpsta,

pstat LIKE i_mara-pstat,

lvorm like i_marc-lvorm,

bwtty like i_marc-bwtty,

xchar like i_marc-xchar,

mmsta like i_marc-mmsta,

mmstd like i_marc-mmstd,

maabc like i_marc-maabc,

kzkri like i_marc-kzkri,

END OF itab.

START-OF-SELECTION.

PERFORM select_data.

IF pdel = 'X'.

*BEGIN OF CHANGES BY VINAY DASARI

PERFORM get_data.

ENDIF.

*END OF CHANGES BY VINAY DASARI

AT USER-COMMAND.

CHECK sy-ucomm = 'SOUP' OR sy-ucomm = 'SODN'.

*&----

*& Form SELECT_DATA

*&----

FORM select_data.

select ERSDA ERNAM LAEDA AENAM VPSTA PSTAT

from mara

into corresponding fields of table i_mara

where MATNR in s_matnr.

if sy-subrc = 0.

select werks LVORM BWTTY XCHAR MMSTA MMSTD MAABC KZKRI

from marc

into corresponding fields of table i_marc

where werks in s_werks.

endif.

ENDFORM. " SELECT_DATA

**&----

**& Form CREATE_FIELDCAT_GRID_VALUES

**&----

text

**----

--> p1 text
<-- p2 text

**----

*FORM create_fieldcat_grid_values.

PERFORM fill_fldcat USING:
'WERKS' 'EBAN' 'Plant' 'E',

'STATUS' 'SYST' 'Status' ' ',

'MATNR' 'MARA' 'Material' 'O10',
'MAKTX' 'MAKT' 'Description' 'O35',
'PRUOM' 'EBAN' 'Uom' 'O05',
'BANFN' 'EBAN' 'Pr No' 'O10',
'BNFPO' 'EBAN' 'LinNo' 'O05',
'BADAT' 'EBAN' 'Req Date' 'O10',
'PRQTY' 'EBAN' 'Pr Quantity' 'O17',
'DISPO' 'EBAN' 'Mcon' 'O04',
'WEMNG' 'EKET' 'Sch. Qty ' 'O17',
'EBELN' 'EKKO' 'Po No' 'O10',
'POQTY' 'EKPO' 'Po Quantity' 'O17',
'POUOM' 'EKPO' 'Uom ' 'O05 ',
'BEDAT' 'EKPO' 'Po date' 'O10',
'EINDT' 'EKET' 'Del Date' 'O10',
'EKGRP' 'EBAN' 'Pgrp' 'O05',
'ODQTY' 'EBAN' 'OD QTY' 'O17'.

Sort fields.

wa_sort-spos = 1.
wa_sort-fieldname = 'WERKS'.
wa_sort-up = 'X'.
APPEND wa_sort TO it_sort.

wa_sort-spos = 2.
wa_sort-fieldname = 'BANFN'.
APPEND wa_sort TO it_sort.

wa_sort-spos = 3.
wa_sort-fieldname = 'BNFPO'.
APPEND wa_sort TO it_sort.

wa_sort-spos = 4.
wa_sort-fieldname = 'MATNR'.
APPEND wa_sort TO it_sort.

wa_sort-spos = 5.
wa_sort-fieldname = 'EBELN'.
APPEND wa_sort TO it_sort.

*ENDFORM. " CREATE_FIELDCAT_GRID_VALUES

*----

FORM fill_fldcat USING value(p_1342)

value(p_1343)

value(p_1344)

value(p_1345).

DATA: wrk_len TYPE i,

wrk_str(2).

CLEAR wa_fieldcat.

wa_fieldcat-fieldname = p_1342.

wa_fieldcat-ref_table = p_1343.

wa_fieldcat-ref_field = p_1342.

wa_fieldcat-coltext = p_1344.

TRANSLATE p_1345 TO UPPER CASE.

IF NOT p_1345 IS INITIAL.

IF 'E' CO p_1345.

wa_fieldcat-emphasize = 'X'.

WA_FIELDCAT-HOTSPOT = 'X'.

ENDIF.

IF 'O' CO p_1345.

SEARCH p_1345 FOR 'O'.

wrk_len = sy-fdpos + 1.

wrk_str = p_1345+wrk_len(2).

wa_fieldcat-outputlen = wrk_str.

ENDIF.

IF 'S' CO p_1345.

wa_fieldcat-do_sum = 'X'.

ENDIF.

IF 'N' CO p_1345.

wa_fieldcat-no_out = 'X'.

ENDIF.

APPEND wa_fieldcat TO fieldcat.

ENDFORM. " FILL_FLDCAT

*&----

*& Module PBO OUTPUT

*&----

text

*----

MODULE pbo OUTPUT.

SET PF-STATUS 'MAIN100'.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

CALL METHOD grid1->set_table_for_first_display

EXPORTING IS_LAYOUT = it_LAY

CHANGING it_fieldcatalog = fieldcat

it_sort = it_sort

it_outtab = itab[].

ENDIF.

ENDMODULE. " PBO OUTPUT

*&----

*& Module PAI INPUT

*&----

text

*----

MODULE pai INPUT.

CASE ok_code.

WHEN 'EXIT'.

SET SCREEN 0.

LEAVE SCREEN.

WHEN OTHERS.

do nothing

ENDCASE.

CLEAR ok_code.

ENDMODULE. " PAI INPUT

*&----

*& Form GET_DATA

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM get_data.

*BEGIN OF CHANGES BY VINAY DASARI

loop at i_mara.

move i_mara[] to itab[].

append itab.

ENDLOOP.

loop at i_marc.

move i_marc[] to itab[].

append itab.

clear itab.

endloop.

CLEAR fieldcat.

REFRESH fieldcat.

PERFORM create_fieldcat_grid_value.

CALL SCREEN 100.

*END OF CHANGES BY VINAY DASARI

ENDFORM. " GET_DATA

*&----

*& Form CREATE_FIELDCAT_GRID_VALUE

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM create_fieldcat_grid_value.

*BEGIN OF CHANGES BY VINAY DASARI

PERFORM fill_fldcat USING:

'MATNR' 'MARA' 'Mat No' 'O10',

'ERDSA' 'MARA' 'Creation Date' 'O05',

'ERNAM' 'MARA' 'Name of the Person created' 'O05',

'LAEDA' 'MARA' 'Last change date' 'O15',

'AENAM' 'MARA' 'Name of the Person created' 'O15',

'VPSTA' 'MARA' 'Maintainance status' 'O10',

'PSTAT' 'MARA' 'Maintain status' '035',

'WERKS' 'MARC' 'Plant' 'O10',

'LVORM' 'MARC' 'Flag Material' 'O35',

'BWTTY' 'MARC' 'Valuation category' 'O17',

'XCHAR' 'MARC' 'Batch Magmt' 'O17',

'MMSTA' 'MARC' 'Plant Spec Material' 'O05',

'MMSTD' 'MARC' 'Date of PSM' 'O10',

'MAABC' 'MARC' 'ABC Indicator' 'O10',

'KZKRI' 'MARC' 'Indicator' 'O10'.

*END OF CHANGES BY VINAY DASARI

ENDFORM. " CREATE_FIELDCAT_GRID_VALUE

It is going dump due to problem in calling the container.

best answers will be rewarded.

Thanks in advance,

alson.

Re: ALV Grid using classes

Former Member — Fri, 09 Feb 2007 07:00:40 GMT

HI,

Just try changing like :

CALL METHOD grid1->set_table_for_first_display

EXPORTING IS_LAYOUT = it_LAY

CHANGING it_fieldcatalog = fieldcat

it_sort = it_sort

it_outtab = itab.

Regards

Subramanian

Re: ALV Grid using classes

Former Member — Fri, 09 Feb 2007 07:04:17 GMT

Alson,

In your program ,In perform get data you are calling screen " CALL SCREEN 100 "

But there is no screen 100

Pls. Mark if useful

Re: ALV Grid using classes

Former Member — Fri, 09 Feb 2007 07:05:06 GMT

hI ,

Declare g_container

as data : g_container(100) type c value ''PR_STATUS_REPORT'.

Because contructor of cl_gui_custom_container EXPECTS CONTAINER_name as a type of c.

Please reward if useful.

Re: ALV Grid using classes

Former Member — Fri, 09 Feb 2007 07:05:53 GMT

Hi alson,

MODULE pbo OUTPUT.

SET PF-STATUS 'MAIN100'.

IF g_custom_container IS INITIAL.

CREATE OBJECT g_custom_container

EXPORTING container_name = g_container.

CREATE OBJECT grid1

EXPORTING i_parent = g_custom_container.

CALL METHOD grid1->set_table_for_first_display

EXPORTING IS_LAYOUT = it_LAY

CHANGING it_fieldcatalog = fieldcat

it_sort = it_sort

it_outtab = itab[].

ENDIF.

ENDMODULE. " PBO OUTPUT

keep the below code

CALL METHOD grid1->set_table_for_first_display

EXPORTING IS_LAYOUT = it_LAY

CHANGING it_fieldcatalog = fieldcat

it_sort = it_sort

it_outtab = itab[].

here

IF pdel = 'X'.

*BEGIN OF CHANGES BY VINAY DASARI

PERFORM get_data.

CALL METHOD grid1->set_table_for_first_display

EXPORTING IS_LAYOUT = it_LAY

CHANGING it_fieldcatalog = fieldcat

it_sort = it_sort

it_outtab = itab[].

ENDIF.

Re: ALV Grid using classes

Former Member — Fri, 09 Feb 2007 07:08:03 GMT

After a brief look at your code, I noticed something strange:

loop at i_mara.

move i_mara[] to itab[].

append itab.

ENDLOOP.

loop at i_marc.

move i_marc[] to itab[].

append itab.

clear itab.

endloop.

since mara and marc have different structures than your itab, this will lead to problems. Also, when you do move i_mara[] to itab[], you are copying the entire table contents for each time you loop through, not just the current record in the header. (remove the []).

loop at i_mara.

move-corresponding i_mara to itab.

append itab.

endloop.

It also looks like you might want to do a join between mara and marc, so you only have to loop once.