Re: GRID full screen using container

Former Member — Wed, 17 Dec 2008 06:36:45 GMT

Hi,

Check this program..........

&----

*& Report ZTEST

&----

REPORT ZTEST.

Object variable for ALV grid

DATA: oref1 TYPE REF TO cl_gui_alv_grid.

DATA:

t_spfli TYPE STANDARD TABLE OF spfli WITH HEADER LINE.

Field catalog table for ALV grid

DATA: fieldcat TYPE lvc_t_fcat. " Workarea for field catalog table

DATA: w_field TYPE lvc_s_fcat.

START-OF-SELECTION.

select *

from spfli

into table t_spfli[].

append lines of t_spfli[] TO t_spfli[].

perform prepare_fieldcatlog.

call screen '0100'.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE STATUS_0100 OUTPUT.

SET PF-STATUS 'TEST'.

SET TITLEBAR 'xxx'.

CREATE OBJECT OREF1

EXPORTING

I_PARENT = CL_GUI_CUSTOM_CONTAINER=>screen0

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.

CALL METHOD OREF1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING
IS_LAYOUT =

CHANGING

IT_OUTTAB = t_spfli[]

IT_FIELDCATALOG = 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.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

MODULE USER_COMMAND_0100 INPUT.

if sy-ucomm eq 'BACK' OR sy-ucomm eq 'EXIT'.

leave program.

endif.

ENDMODULE. " USER_COMMAND_0100 INPUT

&----

*& Form prepare_fieldcatlog

&----

text

----

--> p1 text
<-- p2 text

----

FORM prepare_fieldcatlog .

w_field-col_pos = '1'.

w_field-fieldname = 'CARRID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CARRID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '2'.

w_field-fieldname = 'CONNID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CONNID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '3'.

w_field-fieldname = 'COUNTRYFR'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'COUNTRYFR'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '4'.

w_field-fieldname = 'CITYFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '5'.

w_field-fieldname = 'AIRPFROM'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPFROM'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '6'.

w_field-fieldname = 'COUNTRYTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'COUNTRYTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '7'.

w_field-fieldname = 'CITYTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'CITYTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '8'.

w_field-fieldname = 'AIRPTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '8'.

w_field-fieldname = 'AIRPTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '8'.

w_field-fieldname = 'AIRPTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '8'.

w_field-fieldname = 'AIRPTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '8'.

w_field-fieldname = 'AIRPTO'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'AIRPTO'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '9'.

w_field-fieldname = 'FLTIME'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'FLTIME'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '10'.

w_field-fieldname = 'DEPTIME'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'DEPTIME'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '11'.

w_field-fieldname = 'ARRTIME'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'ARRTIME'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '12'.

w_field-fieldname = 'DISTANCE'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'DISTANCE'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '13'.

w_field-fieldname = 'DISTID'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'DISTID'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '14'.

w_field-fieldname = 'FLTYPE'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'FLTYPE'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

w_field-col_pos = '15'.

w_field-fieldname = 'PERIOD'.

w_field-tabname = 'T_SPFLI'.

w_field-ref_field = 'PERIOD'.

w_field-ref_table = 'SPFLI'.

append w_field TO fieldcat.

clear w_field.

ENDFORM. " prepare_fieldcatlog

topic Re: GRID full screen using container in Application Development and Automation Discussions

GRID full screen using container

Re: GRID full screen using container

Re: GRID full screen using container