Posted: Tue Sep 04, 2007 3:46 pm Post subject: Asset data with the WBS element
Code:
*&---------------------------------------------------------------------*
*& Report Z_TEST_ZFIUASSETC_REPORT
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
************************************************************************
* AUTHOR : Ravi Shankar Rajan
* DATE : 08/2006
* PURPOSE : Asset data with the WBS element report
* TASK ID :
************************************************************************
REPORT z_test_zfiuassetc_report.
TABLES: anla, sscrfields.
INCLUDE <color>.
INCLUDE <icon>.
INCLUDE <symbol>.
TYPES: BEGIN OF t_asset.
* Required fields - 12
TYPES : exception TYPE char1.
TYPES: aktiv TYPE aktivd. "Asset capitalization date
TYPES: anln1 TYPE anln1. "Main Asset Number - key(non-editable)
TYPES: anln2 TYPE anln2. "Asset Subnumber - key(non-editable)
TYPES: bukrs TYPE bukrs. "Company Code - key(non-editable)
TYPES: anlkl TYPE anlkl. "Asset class
TYPES: ord42 TYPE ord42. "Smart entity
TYPES: gdlgrp TYPE gdlgrp. "Tax Facility Code
TYPES: kostl TYPE kostl. "Cost Center
TYPES: werks TYPE werks_d. "Plant
TYPES: stort TYPE stort. "Asset location
TYPES: txt50 TYPE txa50_anlt. "Asset description
TYPES: posnr TYPE am_posnr. "WBS element - internal key (numc 8)
TYPES: posid TYPE am_posid. "WBS element - external key (char 24)
* Optional fields - 17
TYPES: sernr TYPE sernr. "Serial number
TYPES: invnr TYPE invnr_anla. "Inventory number
TYPES: invzu TYPE invzu_anla. "Supplementary inventory note
TYPES: kfzkz TYPE am_kfzkz. "License plate no. of vehichle
TYPES: ord41 TYPE ord41. "Platform
TYPES: ord43 TYPE ord43. .Class Code
TYPES: ord44 TYPE ord44. "Location Type
TYPES: liefe TYPE liefe. "Name of asset supplier
TYPES: herst TYPE herst. "Manufacturer of asset
TYPES: typbz TYPE typbz_anla. "Asset type name
TYPES: izwek TYPE izwek. "Reason for investment
TYPES: ivdat TYPE ivdat_anla. "Last inventory date
TYPES: gsber TYPE gsber. "Business Area
TYPES: kostlv TYPE kostlv. "Cost center responsible for asset
TYPES: raumn TYPE raumnr. "Room
TYPES: fiamt TYPE fiamt. "Local tax office
TYPES: txa50 TYPE txa50_more. "Additional asset description
* Layout style
TYPES: celltab TYPE lvc_t_styl. "Layout style
TYPES : aggr TYPE c .
TYPES : t_color TYPE lvc_t_scol.
TYPES: END OF t_asset.
TYPES: BEGIN OF t_prps.
TYPES: posid TYPE ps_posid. "WBS Element
TYPES: prart TYPE ps_prart. "Project type
TYPES: END OF t_prps.
DATA: gt_asset TYPE STANDARD TABLE OF t_asset.
DATA: gt_table TYPE REF TO cl_salv_table.
SELECT-OPTIONS s_user FOR anla-ernam MATCHCODE OBJECT user_addr
NO INTERVALS NO-EXTENSION MODIF ID m2. "User name
SELECT-OPTIONS s_date FOR anla-erdat MODIF ID m2. "Date
PARAMETERS p_pspid2 TYPE ps_pspid MODIF ID m2. "Project definition
SELECTION-SCREEN SKIP 2.
PARAMETERS p_max TYPE i DEFAULT 200 MODIF ID m2. "Maximum number of records
DATA : gv_records TYPE sy-dbcnt.
CONSTANTS: gc_true TYPE sap_bool VALUE 'X',
gc_false TYPE sap_bool VALUE space.
PARAMETERS : p_var TYPE slis_vari. "Layout Setting
DATA: gs_asset TYPE t_asset,
gv_count TYPE i.
CLASS lcl_handle_events DEFINITION DEFERRED.
DATA: gr_events TYPE REF TO lcl_handle_events.
*---------------------------------------------------------------------*
* CLASS lcl_handle_events DEFINITION
*---------------------------------------------------------------------*
* 5.1 define a local class for handling events of cl_salv_table
*---------------------------------------------------------------------*
CLASS lcl_handle_events DEFINITION.
PUBLIC SECTION.
METHODS:
on_user_command FOR EVENT added_function OF cl_salv_events
IMPORTING e_salv_function,
on_before_salv_function FOR EVENT before_salv_function OF cl_salv_events
IMPORTING e_salv_function,
on_after_salv_function FOR EVENT after_salv_function OF cl_salv_events
IMPORTING e_salv_function,
on_double_click FOR EVENT double_click OF cl_salv_events_table
IMPORTING row column,
on_link_click FOR EVENT link_click OF cl_salv_events_table
IMPORTING row column.
ENDCLASS. "lcl_handle_events DEFINITION
*---------------------------------------------------------------------*
* CLASS lcl_handle_events IMPLEMENTATION
*---------------------------------------------------------------------*
* 5.2 implement the events for handling the events of cl_salv_table
*---------------------------------------------------------------------*
CLASS lcl_handle_events IMPLEMENTATION.
METHOD on_user_command.
PERFORM show_function_info USING e_salv_function 'Own Function'.
ENDMETHOD. "on_user_command
METHOD on_before_salv_function.
PERFORM show_function_info USING e_salv_function 'Before ALV Function'.
ENDMETHOD. "on_before_salv_function
METHOD on_after_salv_function.
PERFORM show_function_info USING e_salv_function 'After ALV Function'.
ENDMETHOD. "on_after_salv_function
METHOD on_double_click.
PERFORM show_cell_info USING row column 'Execute a Function, Double-Click or Hotspot-Click'.
ENDMETHOD. "on_double_click
METHOD on_link_click.
PERFORM show_cell_info USING row column 'Execute a Function, Double-Click or Hotspot-Click'.
ENDMETHOD. "on_single_click
ENDCLASS. "lcl_handle_events IMPLEMENTATION
INITIALIZATION.
PERFORM get_default_layout.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_var.
PERFORM f4_layouts.
START-OF-SELECTION.
PERFORM select_data.
END-OF-SELECTION.
PERFORM display_fullscreen.
* gt_table->display( ).
*&---------------------------------------------------------------------*
*& Form select_data
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM select_data .
DATA: ls_asset TYPE t_asset,
ws_index TYPE i,
lt_celltab TYPE lvc_t_styl,
lt_anlz TYPE STANDARD TABLE OF anlz,
ls_anlz TYPE anlz,
ws_where TYPE string,
ls_pspnr TYPE ps_posnr,
lt_pspnr TYPE STANDARD TABLE OF ps_posnr,
lr_posnr TYPE RANGE OF anla-posnr,
ls_posnr LIKE LINE OF lr_posnr,
lt_color TYPE lvc_t_scol,
ls_color TYPE lvc_s_scol,
l_erg TYPE i VALUE 3.
IF p_pspid2 IS INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_asset
UP TO p_max ROWS FROM anla
WHERE ernam IN s_user
AND erdat IN s_date.
ELSE.
CONCATENATE p_pspid2(7) '%' INTO ws_where.
SELECT pspnr INTO TABLE lt_pspnr FROM prps
WHERE posid LIKE ws_where.
REFRESH: lr_posnr.
ls_posnr-sign = 'I'.
ls_posnr-option = 'EQ'.
LOOP AT lt_pspnr INTO ls_pspnr.
ls_posnr-low = ls_pspnr.
APPEND ls_posnr TO lr_posnr.
ENDLOOP.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_asset
UP TO p_max ROWS FROM anla
WHERE ernam IN s_user
AND erdat IN s_date
AND posnr IN lr_posnr.
ENDIF.
IF sy-subrc = 0.
gv_records = sy-dbcnt.
LOOP AT gt_asset INTO ls_asset.
SELECT * INTO TABLE lt_anlz FROM anlz
WHERE bukrs = ls_asset-bukrs
AND anln1 = ls_asset-anln1
AND anln2 = ls_asset-anln2
AND bdatu > sy-datum.
IF sy-subrc = 0.
READ TABLE lt_anlz INTO ls_anlz INDEX 1.
PERFORM zf_anlz_to_asset USING ls_anlz CHANGING ls_asset.
CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT'
EXPORTING
input = ls_asset-posnr
IMPORTING
output = ls_asset-posid.
MODIFY gt_asset FROM ls_asset.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT gt_asset INTO gs_asset.
l_erg = sy-tabix MOD 3.
CLEAR lt_color.
CLEAR ls_color.
gs_asset-exception = l_erg + 1.
IF gs_asset-anln1 = '000001180882'. .Add your own data to test this !!!
*..set the color of a complete row
* (2) set the color information to the row in the output
* table.
* note: do not fill the parameter FNAME for setting the
* color of the complete row
* fill the parameter FNAME for setting the color
* of a cell (Row and Column are definied)
* ls_color-fname = 'ANLN1'.
ls_color-color-col = col_total.
ls_color-color-int = 1.
ls_color-color-inv = 0.
APPEND ls_color TO lt_color.
ENDIF.
ls_color-fname = 'ANLN2'.
ls_color-color-col = col_key.
ls_color-color-int = 1.
ls_color-color-inv = 0.
APPEND ls_color TO lt_color.
gs_asset-t_color = lt_color.
gv_count = gv_count + 1.
gs_asset-aggr = gv_count.
MODIFY gt_asset FROM gs_asset TRANSPORTING aggr t_color exception.
ENDLOOP.
ENDFORM. " select_data
*&---------------------------------------------------------------------*
*& Form zf_anlz_to_asset
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->PS_ANLZ text
* -->PS_LS_ASSET text
*----------------------------------------------------------------------*
FORM zf_anlz_to_asset USING ps_anlz TYPE anlz
CHANGING ps_ls_asset TYPE t_asset.
ps_ls_asset-kostl = ps_anlz-kostl.
ps_ls_asset-werks = ps_anlz-werks.
ps_ls_asset-stort = ps_anlz-stort.
ps_ls_asset-kfzkz = ps_anlz-kfzkz.
ps_ls_asset-gsber = ps_anlz-gsber.
ps_ls_asset-kostlv = ps_anlz-kostlv.
ps_ls_asset-raumn = ps_anlz-raumn.
ENDFORM. " zf_anlz_to_asset
*&---------------------------------------------------------------------*
*& Form display_grid
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM display_fullscreen .
DATA: lr_columns TYPE REF TO cl_salv_columns_table,
lr_column TYPE REF TO cl_salv_column_table,
lr_sorts TYPE REF TO cl_salv_sorts,
lr_sort TYPE REF TO cl_salv_sort,
lr_aggrs TYPE REF TO cl_salv_aggregations,
lr_aggr TYPE REF TO cl_salv_aggregation.
DATA: lr_content TYPE REF TO cl_salv_form_element.
DATA: ls_color TYPE lvc_s_colo.
DATA : lr_grid TYPE REF TO cl_salv_form_layout_grid.
TRY.
cl_salv_table=>factory(
IMPORTING
r_salv_table = gt_table
CHANGING
t_table = gt_asset ).
CATCH cx_salv_msg.
ENDTRY.
*Setting Own PF-STATUS
*... 3 Functions
*... 3.1 activate ALV generic Functions
*... 3.2 include own functions by setting own status
gt_table->set_screen_status(
pfstatus = 'ZSALV_STANDARD' .Copy from standard PF Status
. SALV_STANDARD.
report = sy-repid
set_functions = gt_table->c_functions_all ).
*Fill the sort table
lr_sorts = gt_table->get_sorts( ).
TRY.
CALL METHOD lr_sorts->add_sort
EXPORTING
columnname = 'AKTIV'
position = 1
sequence = if_salv_c_sort=>sort_up
subtotal = if_salv_c_bool_sap=>true
group = 1
obligatory = if_salv_c_bool_sap=>true
RECEIVING
value = lr_sort.
CATCH cx_salv_not_found .
CATCH cx_salv_existing .
CATCH cx_salv_data_error .
ENDTRY.
TRY.
CALL METHOD lr_sorts->add_sort
EXPORTING
columnname = 'ANLN1'
position = 2
sequence = if_salv_c_sort=>sort_up
subtotal = if_salv_c_bool_sap=>false
group = if_salv_c_sort=>group_none
obligatory = if_salv_c_bool_sap=>true
RECEIVING
value = lr_sort.
CATCH cx_salv_not_found .
CATCH cx_salv_existing .
CATCH cx_salv_data_error .
ENDTRY.
*Columns
lr_columns = gt_table->get_columns( ).
lr_columns->set_optimize( gc_true ).
*... 4.1 set exception column
TRY.
lr_columns->set_exception_column( 'EXCEPTION' ).
CATCH cx_salv_data_error. "#EC NO_HANDLER
ENDTRY.
TRY.
lr_column ?= lr_columns->get_column( 'EXCEPTION' ).
lr_column->set_short_text( 'MY EXCEPT' ).
lr_column->set_medium_text( 'MY EXCEPTION' ).
lr_column->set_long_text( 'MY EXCEPTION COLUMN' ).
CATCH cx_salv_not_found. "#EC NO_HANDLER
ENDTRY.
TRY.
lr_column ?= lr_columns->get_column( 'AGGR' ).
lr_column->set_short_text( 'AGGREGATE' ).
* lr_column->set_medium_text( 'AGGREGATE' ).
* lr_column->set_long_text( 'AGGREGATE' ).
* lr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).
CATCH cx_salv_not_found.
ENDTRY.
*Set the color for a column
*This is one more way of coloring a column without any conditions
TRY.
lr_column ?= lr_columns->get_column( 'BUKRS' ).
ls_color-col = col_negative.
ls_color-int = 0.
ls_color-inv = 0.
lr_column->set_color( ls_color ).
CATCH cx_salv_not_found.
ENDTRY.
*... 5.2 set the color of a complete row
* (1) register the column in which the color information
* for the row is held
TRY.
lr_columns->set_color_column( 'T_COLOR' ).
CATCH cx_salv_data_error.
ENDTRY.
*Aggregations
lr_aggrs = gt_table->get_aggregations( ).
TRY.
CALL METHOD lr_aggrs->add_aggregation
EXPORTING
columnname = 'AGGR'
aggregation = if_salv_c_aggregation=>total
RECEIVING
value = lr_aggr.
CATCH cx_salv_data_error .
CATCH cx_salv_not_found .
CATCH cx_salv_existing .
ENDTRY.
*Form Events : TOP_OF_LIST AND END_OF_LIST
*1st METHOD OF CREATING TOP-OF-LIST.
* PERFORM create_alv_form_content_tol USING space CHANGING lr_content.
* gt_table->set_top_of_list( lr_content ).
*2ND METHOD OF CREATING TOP-OF-LIST
PERFORM create_top_of_list CHANGING lr_grid.
gt_table->set_top_of_list( lr_grid ).
*Interactive events
*... 6 register to the events of cl_salv_table
DATA: lr_events TYPE REF TO cl_salv_events_table.
lr_events = gt_table->get_event( ).
CREATE OBJECT gr_events.
*... 6.1 register to the event USER_COMMAND
SET HANDLER gr_events->on_user_command FOR lr_events.
*... 6.2 register to the event BEFORE_SALV_FUNCTION
SET HANDLER gr_events->on_before_salv_function FOR lr_events.
*... 6.3 register to the event AFTER_SALV_FUNCTION
SET HANDLER gr_events->on_after_salv_function FOR lr_events.
*... 6.4 register to the event DOUBLE_CLICK
SET HANDLER gr_events->on_double_click FOR lr_events.
**... 6.5 register to the event LINK_CLICK
* SET HANDLER gr_events->on_link_click FOR lr_events.
*... set list title
DATA: lr_display_settings TYPE REF TO cl_salv_display_settings,
l_title TYPE lvc_title.
l_title = 'Test Report using ALV OM Model'.
lr_display_settings = gt_table->get_display_settings( ).
lr_display_settings->set_list_header( l_title ).
*Set the striped pattern
CALL METHOD lr_display_settings->set_striped_pattern
EXPORTING
value = 'X'.
.
*Process the variant for future save
PERFORM process_variant.
gt_table->display( ).
ENDFORM. " display_grid
*&---------------------------------------------------------------------*
*& Form create_alv_form_content_tol
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->I_PRINT text
* -->CR_CONTENT text
*----------------------------------------------------------------------*
FORM create_alv_form_content_tol
USING i_print TYPE sap_bool
CHANGING cr_content TYPE REF TO cl_salv_form_element.
DATA: lr_header TYPE REF TO cl_salv_form_header_info,
l_text TYPE string.
*... create header information
CASE i_print.
WHEN space.
CONCATENATE 'TOP_OF_LIST' text-h01 INTO l_text SEPARATED BY space.
WHEN gc_true.
CONCATENATE 'TOP_OF_LIST_PRINT' text-h01 INTO l_text SEPARATED BY
space.
ENDCASE.
CREATE OBJECT lr_header
EXPORTING
text = l_text
tooltip = l_text.
cr_content = lr_header.
ENDFORM. " create_alv_form_content_tol
*&---------------------------------------------------------------------*
*& Form create_top_of_list
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->LR_GRID text
*----------------------------------------------------------------------*
FORM create_top_of_list CHANGING lr_grid TYPE REF TO
cl_salv_form_layout_grid.
DATA : lr_grid1 TYPE REF TO cl_salv_form_layout_grid,
lr_flow TYPE REF TO cl_salv_form_layout_flow,
lr_label TYPE REF TO cl_salv_form_label,
lr_text TYPE REF TO cl_salv_form_text,
l_text TYPE string.
CREATE OBJECT lr_grid.
CALL METHOD lr_grid->create_header_information
EXPORTING
row = 1
column = 1
* ROWSPAN =
* COLSPAN =
text = 'ALV Object Model Example'
tooltip = 'ALV Object Model Example'.
* receiving
* r_value =
* .
CALL METHOD lr_grid->create_grid
EXPORTING
row = 2
column = 1
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_grid1
.
CALL METHOD lr_grid->create_text
EXPORTING
row = 2
column = 1
* ROWSPAN =
colspan = 2
text = 'XYZ International Mumbai'
tooltip = 'XYZ International Mumbai'
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 3
column = 1
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow
.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Program:'
tooltip = 'Program:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = sy-cprog
tooltip = sy-cprog
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 4
column = 1
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow
.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'System:'
tooltip = 'System:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = sy-sysid
tooltip = sy-sysid
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 4
column = 2
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow
.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Client:'
tooltip = 'Client:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = sy-mandt
tooltip = sy-mandt
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 4
column = 3
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow
.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Created by:'
tooltip = 'Created by:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = sy-uname
tooltip = sy-uname
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 5
column = 1
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow
.
DATA : date1(12) TYPE c,
time1(8) TYPE c.
WRITE: sy-datum TO date1,
sy-uzeit TO time1.
DATA : tzonesys TYPE tznzonesys.
SELECT SINGLE tzonesys FROM ttzcu INTO tzonesys.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Date:'
tooltip = 'Date:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = date1
tooltip = date1
RECEIVING
r_value = lr_text
.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 5
column = 2
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Time:'
tooltip = 'Time:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = tzonesys
tooltip = tzonesys
RECEIVING
r_value = lr_text
.
*IF sy-timlo NE sy-uzeit.
WRITE : sy-datlo TO date1,
sy-timlo TO time1.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 6
column = 1
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Local Date:'
tooltip = 'Local Date:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = date1
tooltip = date1
RECEIVING
r_value = lr_text.
CALL METHOD lr_grid->create_flow
EXPORTING
row = 6
column = 2
* ROWSPAN =
* COLSPAN =
RECEIVING
r_value = lr_flow.
CALL METHOD lr_flow->create_label
EXPORTING
* POSITION =
text = 'Local Time:'
tooltip = 'Local Time:'
* R_LABEL_FOR =
RECEIVING
r_value = lr_label
.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = time1
tooltip = time1
RECEIVING
r_value = lr_text.
CALL METHOD lr_flow->create_text
EXPORTING
* POSITION =
text = sy-zonlo
tooltip = sy-zonlo
RECEIVING
r_value = lr_text.
*ENDIF.
ENDFORM. "create_top_of_list
*&--------------------------------------------------------------------*
*& Form show_cell_info
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM show_cell_info USING i_row TYPE i
i_column TYPE lvc_fname
i_text TYPE string.
DATA: l_row_string TYPE string,
l_col_string TYPE string,
l_row TYPE char128.
WRITE i_row TO l_row LEFT-JUSTIFIED.
CONCATENATE text-i02 l_row INTO l_row_string SEPARATED BY space.
CONCATENATE text-i03 i_column INTO l_col_string SEPARATED BY space.
MESSAGE i000(0k) WITH i_text l_row_string l_col_string.
ENDFORM. " show_cell_info
*&---------------------------------------------------------------------*
*& Form show_function_info
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->I_FUNCTION text
* -->I_TEXT text
*----------------------------------------------------------------------*
FORM show_function_info USING i_function TYPE salv_de_function
i_text TYPE string.
DATA: l_string TYPE string.
CONCATENATE i_text i_function INTO l_string SEPARATED BY space.
MESSAGE i000(0k) WITH l_string.
ENDFORM. " show_function_info
*&---------------------------------------------------------------------*
*& Form process_variant
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_VAR text
*----------------------------------------------------------------------*
FORM process_variant.
DATA : lr_layout TYPE REF TO cl_salv_layout,
ls_key TYPE salv_s_layout_key.
CALL METHOD gt_table->get_layout
RECEIVING
value = lr_layout.
*Set the layout key
ls_key-report = sy-cprog.
CALL METHOD lr_layout->set_key
EXPORTING
value = ls_key.
*Set usage of default layout
CALL METHOD lr_layout->set_default
EXPORTING
value = abap_true.
*Set layout save restriction
CALL METHOD lr_layout->set_save_restriction
EXPORTING
value = if_salv_c_layout=>restrict_none.
*Set initial layout
IF p_var IS NOT INITIAL.
CALL METHOD lr_layout->set_initial_layout
EXPORTING
value = p_var.
ENDIF.
ENDFORM. " process_variant
*&---------------------------------------------------------------------*
*& Form f4_layouts
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM f4_layouts .
DATA :
ls_layout TYPE salv_s_layout_info,
ls_key TYPE salv_s_layout_key.
ls_key-report = sy-cprog.
CALL METHOD cl_salv_layout_service=>f4_layouts
EXPORTING
s_key = ls_key
layout = p_var
restrict = if_salv_c_layout=>restrict_none
RECEIVING
value = ls_layout.
p_var = ls_layout-layout.
ENDFORM. " f4_layouts
*&---------------------------------------------------------------------*
*& Form get_default_layout
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_P_VAR text
*----------------------------------------------------------------------*
FORM get_default_layout.
DATA :
ls_layout TYPE salv_s_layout_info,
ls_key TYPE salv_s_layout_key.
ls_key-report = sy-cprog.
CALL METHOD cl_salv_layout_service=>get_default_layout
EXPORTING
s_key = ls_key
restrict = if_salv_c_layout=>restrict_none
mandt = sy-mandt
bypass_buffer = if_salv_c_bool_sap=>false
RECEIVING
value = ls_layout.
p_var = ls_layout-layout.
ENDFORM. " get_default_layout
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
