01-08-2008 11:39 AM
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
in thifs FM how to explore(parameter) "i_background_id" . will any one pls help me. give some example how to do it . reward point will b there.
01-08-2008 11:50 AM
01-08-2008 11:52 AM
i know its for backgground display, but how to do it, how to declare i want pls help me if u know.....
01-08-2008 12:06 PM
hi,
in my previous company i write like this
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_background_id = 'ALV_BACKGROUND'
i_callback_program = 'ZTEST_DS'
it_fieldcat = t_fcat
is_layout = st_layout
it_events = t_event
TABLES
t_outtab = i_tab2
EXCEPTIONS
program_error = 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.
and it was working also but now its not working....
01-08-2008 12:10 PM
hi here is my coding>>>>>>>>>>>>
just copy and pste in se38
&----
*& Report Z_SG_SIMPLE_ALV_GRID
*&
&----
*&
*&
&----
REPORT z_sg_simple_alv_grid.
TYPE-POOLS slis.
DATA : repid LIKE sy-repid.
*internal table of field catalog
DATA : it_fieldcat TYPE slis_t_fieldcat_alv.
data: i_background_id TYPE sdydo_key.
i_background_id = '12345'.
DATA: it_events TYPE slis_t_event,
wa_events LIKE LINE OF it_events.
*DATA: i_grid_title TYPE lvc_title.
*WORK AREA OF FIELD CATALOG
DATA : wa_fieldcat TYPE slis_fieldcat_alv.
DATA : BEGIN OF it_kna1 OCCURS 0,
kunnr TYPE kna1-kunnr,
land1 TYPE kna1-land1,
name1 TYPE kna1-name1,
ort01 TYPE kna1-ort01,
END OF it_kna1.
SELECTION SCREEN
DATA : s_kunnr TYPE kna1-kunnr.
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS so_kunnr FOR s_kunnr.
SELECTION-SCREEN END OF BLOCK b1.
INITIALIZATION.
repid = sy-repid.
lvc_title = heading.
*start of selection
START-OF-SELECTION.
PERFORM field_cat.
SELECT kunnr
land1
name1
ort01
INTO TABLE it_kna1
FROM kna1
WHERE kunnr IN so_kunnr.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
i_program_name = repid
i_internal_tabname = 'IT_KNA1'
i_inclname = repid
CHANGING
ct_fieldcat = it_fieldcat[]
EXCEPTIONS
inconsistent_interface = 1
program_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*----
ASSIGN U R FORM NAME AND FORM TO WORK AREA
EVENTS TO POPULATE
wa_events-name = slis_ev_user_command.
wa_events-form = 'USER_COMMAND'.
APPEND wa_events TO it_events .
CLEAR wa_events.
*
wa_events-name = slis_ev_pf_status_set.
wa_events-form = 'PF_STATUS_SET'.
APPEND wa_events TO it_events .
CLEAR wa_events.
wa_events-name = slis_ev_top_of_page.
wa_events-form = 'HEADING'.
APPEND wa_events TO it_events .
CLEAR wa_events.
*----
GRID DISPLAY
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
i_callback_program = repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
i_callback_top_of_page = 'HEADING'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME = I_STRUCTURE_NAME
i_background_id = 'I_BACKGROUND_ID'
i_grid_title = lvc_title
I_GRID_SETTINGS =
IS_LAYOUT = IS_LAYOUT
it_fieldcat = it_fieldcat
IT_EXCLUDING = IT_EXCLUDING
IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS
IT_SORT = IT_SORT
IT_FILTER = IT_FILTER
IS_SEL_HIDE = IS_SEL_HIDE
I_DEFAULT = 'X'
i_save = 'A'
IS_VARIANT = IS_VARIANT
it_events = it_events[]
IT_EVENT_EXIT = IT_EVENT_EXIT
IS_PRINT = IS_PRINT
IS_REPREP_ID = IS_REPREP_ID
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS = IT_ALV_GRAPHICS
IT_HYPERLINK = IT_HYPERLINK
IT_ADD_FIELDCAT = IT_ADD_FIELDCAT
IT_EXCEPT_QINFO = IT_EXCEPT_QINFO
IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
TABLES
t_outtab = it_kna1
EXCEPTIONS
PROGRAM_ERROR = 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.
&----
*& Form FAREEDA
&----
*----
TOP-OF-PAGE DECLARATION
FORM heading.
DATA: it_list_commentary TYPE slis_t_listheader,
wa_list_commentary LIKE LINE OF it_list_commentary.
coll_top_p = 'HEADING'.
coll_end_l = 3%.
wa_list_commentary-typ = 'H'.
wa_list_commentary-info = 'THIS IS TOP-OF PAGE'.
APPEND wa_list_commentary TO it_list_commentary.
*----
TO WRITE HEADING ON TOP-OF-PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_list_commentary
i_logo = 'ENJOYSAP_LOGO'
I_END_OF_LIST_GRID = I_END_OF_LIST_GRID
I_ALV_FORM = I_ALV_FORM
.
ENDFORM. "FAREEDA
&----
*& Form USER_COMMAND
&----
*----
USER COMMAND DECLARATION
FORM user_command USING rf_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
DATA: w_message(40).
CASE rf_ucomm.
WHEN '&IC1'.
CASE rs_selfield-fieldname.
WHEN 'KUNNR'.
CLEAR w_message.
CONCATENATE 'The Customer' rs_selfield-value 'is selected'
INTO w_message SEPARATED BY space.
MESSAGE w_message TYPE 'I'.
WHEN 'ORT01'.
CLEAR w_message.
CONCATENATE 'The City' rs_selfield-value 'is selected'
INTO w_message SEPARATED BY space.
MESSAGE w_message TYPE 'I'.
WHEN 'LAND1'.
CLEAR w_message.
CONCATENATE 'The Country' rs_selfield-value 'is selected'
INTO w_message SEPARATED BY space.
MESSAGE w_message TYPE 'I'.
WHEN OTHERS.
MESSAGE 'U HAVE SELECTED WRONG FIELD'(001) TYPE 'I'.
ENDCASE.
ENDCASE.
ENDFORM. "user_command
&----
*& Form field_cat
&----
FORM field_cat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'KUNNR'.
wa_fieldcat-ref_tabname = 'KNA1'.
wa_fieldcat-seltext_l = 'Customer Number 1'.
wa_fieldcat-ref_fieldname = 'KUNNR'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'LAND1'.
wa_fieldcat-ref_tabname = 'KNA1'.
wa_fieldcat-seltext_l = 'Country Key'.
wa_fieldcat-ref_fieldname = 'LAND1'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-ref_tabname = 'KNA1'.
wa_fieldcat-seltext_l = 'Name 1'.
wa_fieldcat-ref_fieldname = 'NAME1'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'ORT01'.
wa_fieldcat-ref_tabname = 'KNA1'.
wa_fieldcat-seltext_l = 'City'.
wa_fieldcat-ref_fieldname = 'ORT01'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM. " field_cat
how to explore "i_background_g" parameter and declaration part also
01-08-2008 11:59 AM
Hi,
Declare as
I_BACKGROUND_ID TYPE SDYDO_KEY.
then pass the id number ( ur wallpaper or picture number )
I_BACKGROUND_ID = '12345'.
pass this parameter to the function module.
Reward Points if it is Useful.
Thanks,
Manjunath MS
01-08-2008 12:12 PM