topic Re: alv display in Application Development and Automation Discussions

alv display

Former Member — Thu, 12 Apr 2007 19:25:45 GMT

Hi ,

I am trying to create purchase orders using bdc on me21n and also using " bapi_create_po1".Before creating PO , I want to display the extracted data in alv display format.My program is syntactically correct but its not displaying the data.

i would appreciate if some one can help me in this.

Below is the code which should extract data and display in alv .

REPORT zska_mm_create_po_from_pr NO STANDARD PAGE HEADING MESSAGE-ID

zska .

TABLES: eban.

*data declarations.

types : BEGIN OF t_prdata,

lifnr like eban-lifnr,

matnr like eban-matnr,

menge like eban-menge,

werks like eban-werks,

ekorg like eban-ekorg,

frgdt like eban-frgdt,

END OF t_prdata.

DATA : BEGIN OF it_output OCCURS 0,

lifnr TYPE eban-lifnr,

matnr TYPE eban-matnr,

menge TYPE eban-menge,

werks TYPE eban-werks,

ekorg TYPE eban-ekorg,

frgdt TYPE eban-frgdt,

ebeln TYPE eban-ebeln,

ebelp TYPE eban-ebelp,

bedat TYPE eban-bedat,

bsmng TYPE eban-bsmng,

END OF it_output.

DATA : ok_code TYPE sy-ucomm,

save_ok TYPE sy-ucomm.

TYPE-POOLS : slis.

DATA : repid LIKE sy-repid.

data : it_prdata type table of t_prdata.

*alv grid instance ref.

DATA l_grid TYPE REF TO cl_gui_alv_grid.

*custom control

DATA l_custom_control TYPE scrfname VALUE 'CC_ALV'.

*custom container

DATA l_ccontainer TYPE REF TO cl_gui_custom_container.

*filed catalog

DATA l_fieldcat TYPE lvc_t_fcat.

*layout structure

DATA l_layout TYPE lvc_s_layo.

*selection screen

PARAMETERS : r_poauto RADIOBUTTON GROUP g1 USER-COMMAND radio DEFAULT

'X'.

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

SELECT-OPTIONS : s_lifnr FOR eban-lifnr MODIF ID sc1,

s_matnr FOR eban-matnr MODIF ID sc1,

s_ekorg FOR eban-ekorg MODIF ID sc1,

s_date FOR eban-frgdt DEFAULT sy-datum MODIF ID sc1.

PARAMETERS : p_werks LIKE eban-werks MODIF ID sc1.

SELECTION-SCREEN END OF BLOCK b1.

PARAMETERS: r_pofile RADIOBUTTON GROUP g1.

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

PARAMETERS p_file TYPE rlgrap-filename MODIF ID sc2.

SELECTION-SCREEN END OF BLOCK b2.

*selection screen events

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF r_pofile EQ 'X'.

IF screen-group1 = 'SC1'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

IF r_poauto EQ 'X'.

IF screen-group1 = 'SC2'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

START-OF-SELECTION.

repid = sy-repid.

SELECT lifnr matnr menge werks ekorg frgdt FROM eban INTO TABLE

it_prdata WHERE

lifnr IN s_lifnr AND

matnr IN s_matnr AND

werks = p_werks AND

frgdt IN s_date

AND eban~blckd = ''

AND eban~statu = 'N'.

if sy-subrc <> 0.

message i002(zska).

endif.

*&----

*& Module DISPLAY_ALV OUTPUT

*&----

text

*----

MODULE display_alv OUTPUT.

PERFORM display_alv.

ENDMODULE. " DISPLAY_ALV OUTPUT

*&----

*& Form DISPLAY_ALV

*&----

text

*----

--> p1 text
<-- p2 text

*----

FORM display_alv .

IF l_grid IS INITIAL.

*custom conatiner instance

CREATE OBJECT l_ccontainer

EXPORTING

PARENT =

container_name = l_custom_control

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 = 6

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*alv grid instance

CREATE OBJECT l_grid

EXPORTING

I_SHELLSTYLE = 0
I_LIFETIME =

i_parent = l_ccontainer

I_APPL_EVENTS = space
I_PARENTDBG =
I_APPLOGPARENT =
I_GRAPHICSPARENT =
I_NAME =

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

OTHERS = 5

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

*PREPARING FIELD CATALOG

PERFORM prepare_field_catalog CHANGING l_fieldcat.

*PREPARING FILED STRUCTURE

PERFORM prepare_layout CHANGING l_layout.

CALL METHOD l_grid->set_table_for_first_display

EXPORTING

I_BUFFER_ACTIVE =
I_BYPASSING_BUFFER =
I_CONSISTENCY_CHECK =
I_STRUCTURE_NAME =
IS_VARIANT =
I_SAVE =
I_DEFAULT = 'X'

is_layout = l_layout

IS_PRINT =
IT_SPECIAL_GROUPS =
IT_TOOLBAR_EXCLUDING =
IT_HYPERLINK =
IT_ALV_GRAPHICS =
IT_EXCEPT_QINFO =

CHANGING

it_outtab = it_prdata

it_fieldcatalog = l_fieldcat

IT_SORT =
IT_FILTER =

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ELSE.

CALL METHOD l_grid->refresh_table_display

EXPORTING
IS_STABLE =
I_SOFT_REFRESH =

EXCEPTIONS

finished = 1

OTHERS = 2

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

endif.

ENDFORM. " DISPLAY_ALV

*&----

*& Form PREPARE_FIELD_CATALOG

*&----

text

*----

<--P_L_FIELDCAT text

*----

FORM prepare_field_catalog CHANGING p_l_fieldcat type lvc_t_fcat.

DATA ls_fcat TYPE lvc_s_fcat.

ls_fcat-fieldname = 'BANFN'.

ls_fcat-ref_table = 'EBAN'.