hallow i use an alv but i thihk its old becouse i cant do a<b> header</b> . use the alv from se83 alv grid.did someone have a ex. to new alv or how i can i do a header in my alv. thankes
this is the alv that i use thankes for your answers
DATA: ok_code LIKE sy-ucomm,
g_container TYPE scrfname VALUE 'BCALV_GRID_DEMO_0100_CONT1',
grid1 TYPE REF TO cl_gui_alv_grid,
g_custom_container TYPE REF TO cl_gui_custom_container.
DATA:
gt_fieldcatalog TYPE lvc_t_fcat WITH HEADER LINE ,
is_stable TYPE lvc_s_stbl VALUE 'XX' ,
fcat TYPE lvc_t_fcat,
wa_fcat LIKE LINE OF fcat,
ct_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE LINE OF slis_t_fieldcat_alv,
g_save(1) TYPE c,
seltab TYPE TABLE OF rsparams WITH HEADER LINE,
table_header(23) TYPE c.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
gd_repid LIKE sy-repid.
-
START-OF-SELECTION.
*===================
PERFORM get_data.
PERFORM create_field_cat.
CALL SCREEN 100.
END-OF-SELECTION.
*===================
-
&----
*& 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
i_structure_name = 'YHR_Q4_STR'
CHANGING
it_outtab = itab
it_fieldcatalog = fcat. " FOR FIELD CATALOG
ENDIF.
ENDMODULE. " PBO OUTPUT
&----
*& Module PAI INPUT
&----
text
----
MODULE pai INPUT.
CALL METHOD cl_gui_cfw=>dispatch.
CASE ok_code.
WHEN 'EXIT'.
LEAVE TO SCREEN 0. "FOR LEAVE THE SCREEN TO THE SCREEN BEFORE
PERFORM exit_program.
WHEN OTHERS.
ENDCASE.
CLEAR ok_code.
ENDMODULE. " PAI INPUT
----
FORM EXIT_PROGRAM *
----
FORM exit_program.
CALL METHOD G_CUSTOM_CONTAINER->FREE.
CALL METHOD CL_GUI_CFW=>FLUSH.
LEAVE PROGRAM.
ENDFORM. "EXIT_PROGRAM
**********************************************************************************
&----
*& Form create_field_cat
&----
text
----
--> p1 text
<-- p2 text
----
FORM create_field_cat .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'YHR_Q4_STR' "STRUCTRE NAME
CHANGING
ct_fieldcat = ct_fieldcat
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
ENDIF.
LOOP AT ct_fieldcat INTO wa_fieldcat.
MOVE-CORRESPONDING wa_fieldcat TO wa_fcat.
CASE wa_fieldcat-fieldname.
WHEN 'OBJID'.
wa_fcat-coltext = text-001.
wa_fcat-outputlen = 9.
WHEN 'STEXT'.
wa_fcat-coltext = text-002.
wa_fcat-outputlen = 15.
WHEN 'YYOBJID_TXT'.
wa_fcat-coltext = text-004.
wa_fcat-outputlen = 30.
WHEN 'STEXT2'.
wa_fcat-coltext = text-003.
wa_fcat-outputlen = 11.
WHEN 'YYQUOTA'.
wa_fcat-fieldname ='YYQUOTA'.
wa_fcat-coltext = text-006.
wa_fcat-datatype ='NUMC'.
wa_fcat-outputlen = 5.
wa_fcat-no_zero = 'X'.
wa_fcat-do_sum = 'X'. " FOR AUTOMATIC SUM
wa_fcat-datatype = 'QUAN'. " FOR SUM WITH CHOOSE
WHEN 'UTIL'.
wa_fcat-coltext = text-007.
wa_fcat-outputlen = 9.
wa_fcat-no_zero = 'X'.
wa_fcat-do_sum = 'X'.
wa_fcat-no_zero = 'X'. "NO ZERO BEFORE THE NUMBER
wa_fcat-datatype = 'QUAN'.
WHEN 'REG'.
wa_fcat-coltext = text-009.
wa_fcat-outputlen = 6.
wa_fcat-do_sum = 'X'.
wa_fcat-no_zero = 'X'.
wa_fcat-datatype = 'QUAN'.
WHEN 'WAIT'.
wa_fcat-coltext = text-008.
wa_fcat-outputlen = 7.
wa_fcat-do_sum = 'X'.
wa_fcat-no_zero = 'X'.
wa_fcat-datatype = 'QUAN'.
WHEN 'KAPZ1'.
wa_fcat-coltext = text-010.
wa_fcat-outputlen = 15.
WHEN 'KAPZ2'.
wa_fcat-coltext = text-011.
wa_fcat-outputlen = 16.
WHEN 'KAPZ3'.
wa_fcat-coltext = text-012.
wa_fcat-outputlen = 15.
ENDCASE.
APPEND wa_fcat TO fcat.
CLEAR wa_fcat.
ENDLOOP.
ENDFORM. " create_field_cat