Field width in ALV report
Hi,
How to increase the field width of a field in ALV report.
I mean, in a ALV report, the field description of a field is not showing correctly. IF i try to extend the field width by the mouse/coursor, it displays the correct description.
IS there any way where for displaying the field description correctly?
Thanks,
Kumar
Hi,
Go through the sample code,
*& Report ZDEMO_ALVLIST *
*& Example of a simple ALV List Report *
*& The basic requirement for this demo is to display a number of *
*& fields from the EKKO table. *
REPORT zdemo_alvlist .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.
*ALV data declarations
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.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
Build Fieldcatalog for ALV Report
form build_fieldcatalog.
There are a number of ways to create a fieldcat.
For the purpose of this example i will build the fieldcatalog manualy
by populating the internal table fields individually and then
appending the rows. This method can be the most time consuming but can
also allow you more control of the final product.
Beware though, you need to ensure that all fields required are
populated. When using some of functionality available via ALV, such as
total. You may need to provide more information than if you were
simply displaying the result
I.e. Field type may be required in-order for
the 'TOTAL' function to work.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
fieldcatalog-do_sum = 'X'.
fieldcatalog-no_zero = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
gd_layout-totals_only = 'X'.
gd_layout-f2code = 'DISP'. "Sets fcode for when double
"click(press f2)
gd_layout-zebra = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text = 'helllllo'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_callback_program = gd_repid
i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
i_callback_user_command = 'USER_COMMAND'
i_grid_title = outtext
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
it_special_groups = gd_tabgroup
IT_EVENTS = GT_XEVENTS
i_save = 'X'
is_variant = z_template
tables
t_outtab = it_ekko
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.
endform. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
endform. " DATA_RETRIEVAL
Form TOP-OF-PAGE *
ALV Report Header *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
wa_header type slis_listheader,
t_line like wa_header-info,
ld_lines type i,
ld_linesc(10) type c.
Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.
Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
exporting
it_list_commentary = t_header.
i_logo = 'Z_LOGO'.
endform.
Regards,
Raj.
Similar Messages
-
How can i change field width in ALV report
hello,
i have to modify vendor payment list. it is a ALv report
proble is that when i gave vendor acc range for any month (range of posting date) it shows list,
but for february it show run time error
error description- the resulting values are too large for the designated field.
for posting dates 1.02.2009 to 25.02.09 it shows list. but when i gave posting date after 25 it doesnt show list.
just i cant understand how to solve it.
thanks in advance,
Anuradha.Hi...
Best option is first deside which format you want to put in that date field...
then before filling internal table do one thing format that date field and then add into ur internal table which u later will use to show in ALV Grid Report...
Example...Suppose you want DD.MM.YYYY
then use
concatenate Fieldname0(2) Fieldname2(2) Fieldname+4(4) into Fieldname...
This way you can format the date in any format with proper logic. and ur problem getting solved
Regards,
Chintan -
To edit the field in the ALV report
Hi,
i want to edit the field of the ALV report what i need to do for that..
Thanks & Regards
Ashu Singhhi,
check the code,
REPORT zalv_fcat.* Output table T006 structure declarationTYPES : BEGIN OF ty_t006.
INCLUDE STRUCTURE t006.
TYPES : END OF ty_t006.*Internal table and wa declaration for T006
DATA : it_t006 TYPE STANDARD TABLE OF ty_t006,
wa_t006 TYPE ty_t006.*declarations for ALV
DATA: ok_code TYPE sy-ucomm,
fieldcatalog for T006
it_fielcat TYPE lvc_t_fcat,
fieldcatalog for fieldcatalog itself:
it_fielcatalogue TYPE lvc_t_fcat,
it_layout TYPE lvc_s_layo.*declaration for toolbar function
DATA: it_excl_func TYPE ui_functions.
Controls to display it_t006 and corresponding fieldcatalog
DATA: cont_dock TYPE REF TO cl_gui_docking_container,
cont_alvgd TYPE REF TO cl_gui_alv_grid.*controls to display the fieldcatalog as editable alv grid and container
DATA: cont_cust TYPE REF TO cl_gui_custom_container,
cont_editalvgd TYPE REF TO cl_gui_alv_grid.*intialization event
INITIALIZATION.*start of selection event
START-OF-SELECTION.
LOCAL CLASS Definition for data changed in fieldcatalog ALV
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS handle_data_changed
FOR EVENT data_changed OF cl_gui_alv_grid
IMPORTING er_data_changed.
ENDCLASS. "lcl_event_receiver DEFINITION
LOCAL CLASS implementation for data changed in fieldcatalog ALV
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_data_changed.
ENDMETHOD. "handle_data_changed
ENDCLASS. "lcl_event_receiver IMPLEMENTATION*data declaration for event receiver
DATA: event_receiver TYPE REF TO lcl_event_receiver.*end of selection event
END-OF-SELECTION.*setting the screen for alv output for table display and
*changed fieldcatalalogue display
SET SCREEN 600.
On this statement double click it takes you to the screen painter SE51. Enter the attributes
*Create a Custom container and name it CCONT and OK code as OK_CODE.
*Save check and Activate the screen painter.
*Now a normal screen with number 600 is created which holds the ALV grid.
PBO of the actual screen , Here we can give a title and customized menus
*Go to SE41 and create status 'STATUS600' and create THE function code 'SUBMIT'
*and 'EXIT' with icons and icon texts
Also create a TitleBar 'TITLE600' and give the relevant title.&----
*& Module STATUS_0600 OUTPUT
MODULE status_0600 OUTPUT.
SET PF-STATUS 'STATUS600'.
SET TITLEBAR 'TITLE600'.
CREATE ALV GRID CONTROL IF DOES NOT EXISTS INITIALLY
IF cont_dock IS INITIAL.
PERFORM create_alv.
ENDIF.ENDMODULE. " STATUS_0600 OUTPUT* PAI module of the screen created. In case we use an interactive ALV or
*for additional functionalities we can create OK codes and based on the
*user command we can do the coding as shown below
*& Module USER_COMMAND_0600 INPUT
MODULE user_command_0600 INPUT.
CASE ok_code.
WHEN 'SUBMIT'.
*TO GET THE CURRENT FIELDCATALOGUE FROM THE FRONTEND
CALL METHOD cont_alvgd->set_frontend_fieldcatalog
EXPORTING
it_fieldcatalog = it_fielcat.
*refresh the alv
CALL METHOD cont_alvgd->refresh_table_display.
*to Send Buffered Automation Queue to Frontend
CALL METHOD cl_gui_cfw=>flush.*Exit button clicked to leave the program
WHEN 'EXIT'.
LEAVE PROGRAM. ENDCASE.ENDMODULE. " USER_COMMAND_0600 INPUT&----
*& Form CREATE_ALV
&----FORM create_alv.*create a docking container and dock the control at the botton
CREATE OBJECT cont_dock
EXPORTING
dynnr = '600'
extension = 100
side = cl_gui_docking_container=>dock_at_bottom.*create the alv grid for display the table
CREATE OBJECT cont_alvgd
EXPORTING
i_parent = cont_dock.*create custome container for alv
CREATE OBJECT cont_cust
EXPORTING
container_name = 'CCONT'.
*create alv editable grid
CREATE OBJECT cont_editalvgd
EXPORTING
i_parent = cont_cust.* register events for the editable alv
CREATE OBJECT event_receiver.
SET HANDLER event_receiver->handle_data_changed FOR cont_editalvgd. CALL METHOD cont_editalvgd->register_edit_event
EXPORTING
i_event_id = cl_gui_alv_grid=>mc_evt_modified.*building the fieldcatalogue for the initial display
PERFORM build_fieldcat CHANGING it_fielcat it_fielcatalogue.*building the fieldcatalogue after the user has changed it
PERFORM change_fieldcat CHANGING it_fielcatalogue.*fetch data from the table
PERFORM fetch_data.* Get excluding functions for the alv editable tool bar APPEND cl_gui_alv_grid=>mc_fc_loc_append_row TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_loc_insert_row TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_loc_cut TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_sort TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_sort_asc TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_sort_dsc TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_subtot TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_sum TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_graph TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_info TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_print TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_filter TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_views TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_mb_export TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_mb_sum TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_mb_sum TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_mb_paste TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_find TO it_excl_func.
APPEND cl_gui_alv_grid=>mc_fc_loc_copy TO it_excl_func.
*Alv display for the T006 table at the bottom
CALL METHOD cont_alvgd->set_table_for_first_display
CHANGING
it_outtab = it_t006[]
it_fieldcatalog = it_fielcat[].
optimize column width of grid displaying fieldcatalog
it_layout-cwidth_opt = 'X'.* Get fieldcatalog of table T006 - alv might have
modified it after passing.
CALL METHOD cont_alvgd->get_frontend_fieldcatalog
IMPORTING
et_fieldcatalog = it_fielcat[].to Send Buffered Automation Queue to Frontend CALL METHOD cl_gui_cfw=>flush. Display fieldcatalog of table T006 in editable alv grid
CALL METHOD cont_editalvgd->set_table_for_first_display
EXPORTING
is_layout = it_layout
it_toolbar_excluding = it_excl_func
CHANGING
it_outtab = it_fielcat[]
it_fieldcatalog = it_fielcatalogue[].
ENDFORM. " CREATE_alv
*& Form fetch_data
FORM fetch_data.* select data of T006
SELECT * FROM t006 INTO TABLE it_t006 UP TO 50 ROWS.
ENDFORM. " fetch_data
*& Form BUILD_FIELDCAT
FORM build_fieldcat CHANGING it_fldcat TYPE lvc_t_fcat
it_fcat TYPE lvc_t_fcat.
Fieldcatalog for table T006: it_fldcat
to generate the fields automatically CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'T006'
CHANGING
ct_fieldcat = it_fldcat[]
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.*----
Fieldcatalog for table LVC_T_FCAT:it_fcat
Generate fieldcatalog of fieldcatalog structure.
This fieldcatalog is used to display fieldcatalog 'it_fldcat'
on the top of the screen. CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = 'LVC_S_FCAT'
CHANGING
ct_fieldcat = it_fcat[]
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.
ENDFORM. " BUILD_FIELDCAT
*& Form CHANGE_FIELDCAT
*after the user has modified the fieldcatalogue we build another fieldcat
*for the modified alv display
FORM change_fieldcat CHANGING it_fcat TYPE lvc_t_fcat. DATA ls_fcat TYPE lvc_s_fcat. LOOP AT it_fcat INTO ls_fcat.
ls_fcat-coltext = ls_fcat-fieldname.
ls_fcat-edit = 'X'. IF ls_fcat-fieldname = 'COL_POS' OR ls_fcat-fieldname = 'FIELDNAME'.
ls_fcat-key = 'X'.
ENDIF. MODIFY it_fcat FROM ls_fcat.
ENDLOOP.
ENDFORM. " CHANGE_FIELDCAT
ref:saptechnical tutorial.
Regards,
Anirban -
Tool Tip Text for field values in ALV report
Hi,
How to get the tool tip text for the field values in ALV report.
Thanks & Regards,
Pallavi.Hi,
In fieldcatalog specify the TOOLTIP.
<b>
LVC_S_FCAT-TOOLTIP
</b>
In this speicfyteh tooltip you want.
Then append this to the fieldcatalog.
Hope this solves ur problem. -
Please tell me how to adjust field width for alv data .
Hi,
Please tell me how to adjust field width for alv data . Also i want to remove zeros after decimal coming in field.
Regards,
RanuHello Ranu,
You need to set OUTPUTLEN field from field catalog table for every column.
DATA lt_fieldcat TYPE lvc_t_fcat
DATA lw_fcat type lvc_s_fcat .
lw_fcat-fieldname = 'BNAME' .
lw_fcat-inttype = 'C' .
lw_fcat-outputlen = '12' . -----> for e.g. set width of column BNAME
lw_fcat-coltext = 'User Name' .
lw_fcat-seltext = 'User Name' .
APPEND lw_fcat to lt_fieldcat .
Hope this resolves your issue!
Thanks,
Augustin. -
hello everyone,
I have created an alv report using MARA table. but i am unable to edit any field and save the changes back to the table in the database.
IHi Ravi,
Check out the below demo program for editable ALV .
REPORT ZDEMO_ALVGRID_EDIT .
TABLES: ekko.
TYPE-POOLS: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
field_style TYPE lvc_t_styl, "FOR DISABLE
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA: it_fieldcat TYPE lvc_t_fcat, "slis_t_fieldcat_alv WITH HEADER LINE,
wa_fieldcat TYPE lvc_s_fcat,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE lvc_s_layo, "slis_layout_alv,
gd_repid LIKE sy-repid.
*Start-of-selection.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM set_specific_field_attributes.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
wa_fieldcat-fieldname = 'EBELN'.
wa_fieldcat-scrtext_m = 'Purchase Order'.
wa_fieldcat-col_pos = 0.
wa_fieldcat-outputlen = 10.
wa_fieldcat-emphasize = 'X'.
wa_fieldcat-key = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'EBELP'.
wa_fieldcat-scrtext_m = 'PO Item'.
wa_fieldcat-col_pos = 1.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'STATU'.
wa_fieldcat-scrtext_m = 'Status'.
wa_fieldcat-col_pos = 2.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AEDAT'.
wa_fieldcat-scrtext_m = 'Item change date'.
wa_fieldcat-col_pos = 3.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-scrtext_m = 'Material Number'.
wa_fieldcat-col_pos = 4.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MENGE'.
wa_fieldcat-scrtext_m = 'PO quantity'.
wa_fieldcat-col_pos = 5.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'MEINS'.
wa_fieldcat-scrtext_m = 'Order Unit'.
wa_fieldcat-col_pos = 6.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'NETPR'.
wa_fieldcat-scrtext_m = 'Net Price'.
wa_fieldcat-edit = 'X'. "sets whole column to be editable
wa_fieldcat-col_pos = 7.
wa_fieldcat-outputlen = 15.
wa_fieldcat-datatype = 'CURR'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'PEINH'.
wa_fieldcat-scrtext_m = 'Price Unit'.
wa_fieldcat-col_pos = 8.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
* Build layout for ALV grid report
FORM build_layout.
* Set layout field for field attributes(i.e. input/output)
gd_layout-stylefname = 'FIELD_STYLE'.
gd_layout-zebra = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
* Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
* call function 'REUSE_ALV_GRID_DISPLAY'
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program = gd_repid
* i_callback_user_command = 'USER_COMMAND'
is_layout_lvc = gd_layout
it_fieldcat_lvc = it_fieldcat
i_save = 'X'
TABLES
t_outtab = it_ekko
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.
ENDFORM. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
* Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
UP TO 10 ROWS
FROM ekpo
INTO CORRESPONDING FIELDS OF TABLE it_ekko.
ENDFORM. " DATA_RETRIEVAL
*& Form set_specific_field_attributes
* populate FIELD_STYLE table with specific field attributes
form set_specific_field_attributes .
DATA ls_stylerow TYPE lvc_s_styl .
DATA lt_styletab TYPE lvc_t_styl .
* Populate style variable (FIELD_STYLE) with style properties
* The NETPR field/column has been set to editable in the fieldcatalog...
* The following code sets it to be disabled(display only) if 'NETPR'
* is gt than 10.
LOOP AT it_ekko INTO wa_ekko.
IF wa_ekko-netpr GT 10.
ls_stylerow-fieldname = 'NETPR' .
ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.
"set field to disabled
APPEND ls_stylerow TO wa_ekko-field_style.
MODIFY it_ekko FROM wa_ekko.
ENDIF.
ENDLOOP.
endform. " set_specific_field_attributes -
How to display the fields using field catelog in ALV Report
Hi,
I have rquiremrnt in ALV report.I would need to add the new fileld in the ALV output screen.I have added the field but its appearing in the layout set but not directly displaying in the output screen.
I have written the below logic for field catelog.
CLEAR wa_fieldcatalog.
wa_fieldcatalog-fieldname = 'LOGGR'.
wa_fieldcatalog-ref_tabname = 'MARC'.
wa_fieldcatalog-col_pos = l_pos.
wa_fieldcatalog-outputlen = 13.
wa_fieldcatalog-seltext_s = 'Log. group'.
wa_fieldcatalog-seltext_m = 'Logistics group'.
wa_fieldcatalog-seltext_l = 'Log. handling group'.
wa_fieldcatalog-reptext_ddic = 'Log. handling group'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
l_pos = l_pos + 1.
Please let me know why the added field was not displaying automaticaly in the output screen.
Regards,
Reddyhi,
try this
clear wa_fieldcatalog.
wa_fieldcat-tabname = 'ITAB' ( give the internal table which has the field LOGGR)
wa_fieldcatalog-fieldname = 'LOGGR'.
wa_fieldcatalog-ref_tabname = 'MARC'.
wa_fieldcatalog-col_pos = l_pos.
wa_fieldcatalog-outputlen = 13.
wa_fieldcatalog-seltext_s = 'Log. group'.
wa_fieldcatalog-seltext_m = 'Logistics group'.
wa_fieldcatalog-seltext_l = 'Log. handling group'.
wa_fieldcatalog-reptext_ddic = 'Log. handling group'.
APPEND wa_fieldcatalog TO it_fieldcatalog.
l_pos = l_pos + 1. -
To capture the selected rows along with edited field contents in alv report
Dear All,
I do have requirement where, in alv report output one field is editable and need to save the content of the edited field along with the selected rows.
For example If there are 10 records displayed in the alv output with 20 fields.
Out of this 20 fields one field (say XYZ) is editable. Also i have already created a new pushbutton (say ABC) on alv output. Now in the alv output if we maintain some value in the field (XYZ ) for the 2nd and 4th record and select this two records, and when clicked on the pushbutton (ABC) it has to update the DB table.
I am using the Func Module 'REUSE_ALV_GRID_DISPLAY'.
Your early reply with sample code would be appreciated.
Thanks in Advance.HI Naveen ,
There is an import parameter "i_callback_program" in the function module,
plz pass the program name to it.
Capture the command by passing a field of type sy-ucomm to "I_CALLBACK_USER_COMMAND ". Check the returned command and
and program a functionality as desired.
u can try the event double_click or at line selection. there u can use READLINE command to c if the line has been selected.
In case it is , process the code segment.
Regards
Pankaj -
Field width in Crystal Reports 10 Standard Edition
I have a text field in an Access table of 50 chars. When I place that field on a report the default width in design view is less than 50, showing a given number of "X"s. I widen the field beyond the "X"s but still the full content of the field is not displayed in preview mode. For instance I have loaded the field with 50 chars and the 50 chars are not displayed in preview. Is there a way to tell Crystal Reports to default the width of the field in design view to the length of the field in Access? I am a former DOS programmer, where we would specify in the code the width of the display in a form or report. I have always been bothered by the GUI interface because the design interface does not default to the field width and therefore data can be hidden. Professionally, I missed the switch from the DOS interface to the GUI interface. This issue with field layout has always troubled me. Also in the Dummies book (and in CR Help) there is a statement to the effect that CR 10 "automatically adjusts the fields displayed to match the field sizes you chose, and spaces them out proportionally". I see no indication of this. Thanks.
Just to clarify, if I widen the field quite a bit, way beyond the "X"s I do eventually see the 50 chars in preview mode. But for some reason CR puts down 40 "X"s for a field of length 50. And then I have to just play around with the width until I can see the 50 chars on the report. Am I doing something wrong or is there a setting that needs to be adjusted? I guess I am hoping to see the number of "X"s be equal to the length of the text string.
I did learn about "can grow". When I connect to Excel CR puts down 40 "X"s and I have to fudge with the width until I see the full 50 chars.
With the GUI interface is the developer thinking more in terms of inches vs. number of characters? Like I said I am a dinosaur and I struggle with detail. -
How to extract the column width in ALv report if its executed in background
I am executing an ALV report in background , in front end i am getting data properly, in back end for some columns some of the digits are missing.For example if PO no is of 10 digits it will display only 8 becos column size is like that , how to extract coulmns in back ground.
I have executed in background and checked the spool and for some of the columns width is not sufficient to display comeplete data so please suggest how to extract the columns sizes if executed inj background for an ALVHi Deepthi,
you can try with the above mentioned suggestions ,if its worked its fine ,
If not use Docking container instead of custom container, For ALV in back ground jobs, its suggest to use docking container instead of custom container , below you can find the declaration for docking container and code to use docking and custom container in your program for fore and back ground.
or you can use docking container alone for both operations.
Data : G_DOCK1 TYPE REF TO CL_GUI_DOCKING_CONTAINER,
IF CCON IS INITIAL. (ccon is container name )
*Check whether the program is run in batch or foreground
IF CL_GUI_ALV_GRID=>OFFLINE( ) IS INITIAL.
*Run in foreground
CREATE OBJECT CCON
EXPORTING
CONTAINER_NAME = 'CON1'.
CREATE OBJECT GRID1
EXPORTING
I_PARENT = parent_1.
ELSE.
*Run in background
CREATE OBJECT GRID1
EXPORTING
I_PARENT = G_DOCK1.
ENDIF.
ENDIF.
B&R,
Saravana.S -
Add field in standard ALV report.
Hi friends,
In SAP standard ALV report, t.code- S_ALR_87012050, user wants the vendor to include information about source document - vendor number, vendor name, invoice number, original document number of the transaction in the case of payroll being capitalized.
I tell me weather this information is already present in the report or I have to create Z report for adding this information and how do I proceed to add new fields in the created Z program.
Please help me.
Thanks in advance,
SayaHI Saya,
Check in the ALV output whether these fields are already there and not displaying in the ALV output, if the fields are not at all printing in the ALV output,then copy the Program to Z program and change it.
write the Code to add the new fields to the internal table and change the Field catalaog to come your fields in the ALV output then print it
Regards
SUdheer -
Simple way to create field catalogs in ALV Reports using subroutine
In ALV Reports When creating field catalog, instead of giving field catalog for every field seperatly we can use following simple method to create field catalog.
This method makes your code very easy to read as well as to understand. I am going to show code only to prepare field catalog to make this method easy to understand. Their also contains code for fetching data from requires table and calling function module for ALV . I am not including it in this program but it should be their in program -
REPORT ZALV_INTERACTIVE_REPORT.
TYPE-POOLS SLIS.
TYPES : BEGIN OF TY_MARA,
MATNR TYPE MATNR,
MTART TYPE MTART,
MBRSH TYPE MBRSH,
MEINS TYPE MEINS,
END OF TY_MARA.
DATA IT_MARA TYPE STANDARD TABLE OF TY_MARA.
DATA WA_MARA TYPE TY_MARA.
" Internal table and work area for Field Catalog
DATA IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA WA_FIELDCAT LIKE LINE OF IT_FIELDCAT.
START-OF-SELECTION.
* PERFORM FETCH_DATA .
" FIELDS IN FIELD CATALOG (PASSED IN SUBROUTINE):-
" 'FIELDNAME'<SPACE> 'SELTEXT_M' <SPACE>'KEY'<SPACE> 'HOTSPOT'
PERFORM PREP_CATALOG USING : 'MATNR' 'MATERIAL NO.' 'X' 'X' ,
'MTART' 'MATERIAL TYPE' ' ' ' ' ,
'MBRSH' 'IND SECTOR' ' ' ' ' ,
'MEINS' 'UOM' ' ' ' ' .
* PERFORM CALL_ALV_FM .
" Subroutine to create field catalog
FORM PREP_CATALOG USING VALUE(P_FIELDNM)
VALUE(P_SELTEXT)
VALUE(P_KEY)
VALUE(P_HOTSPOT) .
WA_FIELDCAT-FIELDNAME = P_FIELDNM .
WA_FIELDCAT-SELTEXT_M = P_SELTEXT .
WA_FIELDCAT-KEY = P_KEY .
WA_FIELDCAT-HOTSPOT = P_HOTSPOT .
APPEND WA_FIELDCAT TO IT_FIELDCAT .
ENDFORM .
Above code will repeat the execution of subroutine PREP_CATALOG for every set of values passed to subroutine because we used
USING : (chain operator) to pass value to subroutine.
Subroutine will assign passed values to corresponding field and simply appends those values in ITAB created for field catalog(IT_FIELDCAT). It repeates this process until all the passed values are appended into ITAB.
This method will reduce complexity of the code as well as time required to write code for every field's field catalog seperatly. It does lots of work in very few lines of codes.Scott,
I don't think there is a way to divide all numbers by a million in one shot, but you could divide the numbers by million by writing code for each amount field as needed: <?FIELD1 div 1000000?> and the use the round function <?xdoxslt:round(2.777,2)?>
combined function: <?xdoxslt:round((12345605.6 div 1000000),2)?>
Thanks,
Bipuser -
Edit the field in an alv report, also save the changes.
Hi Everyone,
I have made one interactive ALV report using function
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
also i had provided the code to edit a particular col.
fs_fieldcat-fieldname = 'AENAM'.
fs_fieldcat-tabname = 't_mara'.
fs_fieldcat-seltext_m = 'Changed by'.
fs_fieldcat-emphasize = 'X'.
fs_fieldcat-edit = 'X'.
APPEND fs_fieldcat TO t_fieldcat.
CLEAR fs_fieldcat.
now i want to make changes in the AENAM field and save the changes done back on the database table MARA.
pls, if anyone can provide me some assitance on how to save the changes on the alv.
Regards
Ravi Aswani.When SAVE Using the User_command handle the Changed records, and modify the Material using BAPI.
Just check this following code sample. For this you need to handle to events one PF-STATUS and other USER_COMMAND. see the below comments.
REPORT zalv_edit.
TYPE-POOLS: slis.
DATA: x_fieldcat TYPE slis_fieldcat_alv,
it_fieldcat TYPE slis_t_fieldcat_alv.
data: BEGIN OF itab OCCURS 0,
vbeln LIKE vbak-vbeln,
posnr LIKE vbap-posnr,
kwmeng LIKE vbap-kwmeng,
END OF itab.
SELECT vbeln
posnr
kwmeng
FROM vbap
UP TO 20 ROWS
INTO TABLE itab.
x_fieldcat-fieldname = 'VBELN'.
x_fieldcat-seltext_l = 'VBELN'.
x_fieldcat-hotspot = 'X'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 1.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'POSNR'.
x_fieldcat-seltext_l = 'POSNR'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 2.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
x_fieldcat-fieldname = 'KWMENG'.
x_fieldcat-tabname = 'ITAB'.
x_fieldcat-col_pos = 3.
x_fieldcat-input = 'X'.
x_fieldcat-edit = 'X'.
APPEND x_fieldcat TO it_fieldcat.
CLEAR x_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = sy-repid
i_callback_pf_status_set = 'STATUS'
i_callback_user_command = 'USER_COMMAND'
it_fieldcat = it_fieldcat
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc NE 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*& Form STATUS
* PF-STATUS
FORM status USING p_extab TYPE slis_t_extab.
"Set the Button using the staus
"Copy the Standard status from the program SAPLKKBL status
" STANDARD using SE41, and use that here.
"Pf status
SET PF-STATUS 'STATUS' EXCLUDING p_extab.
ENDFORM. " STATUS
*& Form USER_COMMAND
* USER_COMMAND
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
DATA: gd_repid LIKE sy-repid,
ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
IMPORTING
e_grid = ref_grid.
ENDIF.
IF NOT ref_grid IS INITIAL.
CALL METHOD ref_grid->check_changed_data .
ENDIF.
CASE r_ucomm.
WHEN 'SAVE'.
"Here you will get the data(along with modified rows/data)
"Filter the modified rows and update to DB using BAPI/BDC
"Accordingly
ENDCASE.
rs_selfield-refresh = 'X'.
ENDFORM. "USER_COMMAND -
Prefix Negative sign in type P field in an ALV report
Generally, -vs sign appears after the number in an ALV report. I have a type P field where I want to prefix the -ve sign ( before the number ). I donot want to convert it to C type as I want the sorting feature. Is there any other way ?
U can do as per the suggestion given by Raja
or
U can copy the fm CLOI_PUT_SIGN_IN_FRONT to CONVERSION_EXIT_SIGN_OUTPUT and activate it. Then in edit mask use this '==SIGN' or u can create one domain and refer the domain to that field. In that domain u set the convertion routine = SIGN.
regards
gv -
Setting currency and measurement unit for a field in an ALV report
Plz give sample code to set currency and measurement unit for a field in an ALV report
dear friend
i am seanding you
the display form
if you need select form
and process form also pls keep in touch.
if help full rewards are expecting.
yours
vivek
FORM build_field_catalog .
DATA: w_dthigh(10).
CLEAR fcat.
fcat-fieldname = 'VBELN'.
fcat-outputlen = 10.
fcat-seltext_s = 'COMMERCIAL INVOICE'.
fcat-seltext_m = 'Commercial Invoice'.
fcat-seltext_l = 'COMMERCIAL INVOICE'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-key = 'X'.
fcat-hotspot = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'EXNUM'.
fcat-outputlen = 10.
fcat-seltext_s = 'EXCISE INVOICE'.
fcat-seltext_m = 'Excise Invoice'.
fcat-seltext_l = 'EXCISE INVOICE'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-hotspot = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'EXDAT'.
fcat-outputlen = 10.
fcat-seltext_s = 'EXCISE DATE'.
fcat-seltext_m = 'Excise Date'.
fcat-seltext_l = 'EXCISE DATE'.
fcat-ddictxt = 'M'.
fcat-inttype = 'D'.
fcat-datatype = 'DATS'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'NAME1'.
fcat-outputlen = 30.
fcat-seltext_s = 'CUSTOMER'.
fcat-seltext_m = 'Customer'.
fcat-seltext_l = 'CUSTOMER'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-lowercase = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'ZZPD'.
fcat-outputlen = 15.
fcat-seltext_s = 'COUNTRY'.
fcat-seltext_m = 'COUNTRY'.
fcat-seltext_l = 'COUNTRY'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-lowercase = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'WERKS'.
fcat-outputlen = 4.
fcat-seltext_s = 'PLANT'.
fcat-seltext_m = 'Plant'.
fcat-seltext_l = 'PLANT'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-key = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'ARKTX'.
fcat-outputlen = 40.
fcat-seltext_s = 'MATERIAL DESCRIPTION'.
fcat-seltext_m = 'Material Description'.
fcat-seltext_l = 'MATERIAL DESCRIPTION'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-lowercase = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'FKART'.
fcat-outputlen = 4.
fcat-seltext_s = 'Billing type'.
fcat-seltext_m = 'Billing type'.
fcat-seltext_l = 'Billing type'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
fcat-key = 'X'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'INCO1'.
fcat-outputlen = 5.
fcat-seltext_s = 'INCO TERMS'.
fcat-seltext_m = 'INCO TERMS'.
fcat-seltext_l = 'INCO TERMS'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'INCO2'.
fcat-outputlen = 10.
fcat-seltext_s = 'INCO TERMS DES'.
fcat-seltext_m = 'INCO TERMS DES'.
fcat-seltext_l = 'INCO TERMS DES'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'FKIMG'.
fcat-outputlen = 14.
fcat-seltext_s = 'QUANTITY'.
fcat-seltext_m = 'Quantity'.
fcat-seltext_l = 'QUANTITY'.
fcat-ddictxt = 'M'.
fcat-inttype = 'P'.
fcat-datatype = 'QUAN'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'FKLMG'.
fcat-outputlen = 10.
fcat-seltext_s = 'QUANTITY'.
fcat-seltext_m = 'QUANTITY'.
fcat-seltext_l = 'QUANTITY'.
fcat-ddictxt = 'M'.
fcat-inttype = 'P'.
fcat-datatype = 'QUAN'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'MEINS'.
fcat-outputlen = 5.
fcat-seltext_s = 'UNIT'.
fcat-seltext_m = 'UNIT'.
fcat-seltext_l = 'UNIT'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CHAR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'KBETR'.
fcat-outputlen = 8.
fcat-seltext_s = 'RATE'.
fcat-seltext_m = 'Rate'.
fcat-seltext_l = 'RATE'.
fcat-ddictxt = 'M'.
fcat-inttype = 'P'.
fcat-datatype = 'CURR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'NSR'.
fcat-outputlen = 8.
fcat-seltext_s = 'Exmill'.
fcat-seltext_m = 'Exmill'.
fcat-seltext_l = 'Exmill'.
fcat-ddictxt = 'M'.
fcat-inttype = 'P'.
fcat-datatype = 'CURR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'KURSK'.
fcat-outputlen = 8.
fcat-seltext_s = 'EXCHANGE RATE'.
fcat-seltext_m = 'Exchange Rate'.
fcat-seltext_l = 'Exchange Rate'.
fcat-ddictxt = 'M'.
fcat-inttype = 'P'.
fcat-datatype = 'CURR'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'WAERK'.
fcat-outputlen = 5.
fcat-seltext_s = 'CURRENCY'.
fcat-seltext_m = 'Currency'.
fcat-seltext_l = 'CURRENCY'.
fcat-ddictxt = 'M'.
fcat-inttype = 'C'.
fcat-datatype = 'CUKY'.
APPEND fcat.
CLEAR fcat.
fcat-fieldname = 'LCURR1'.
fcat-outputlen = 14.
fcat-seltext_s = 'GROSS AMT'.
fcat-seltext_m = 'Gross Amt'.
fcat-seltext_l = 'GROSS AMT'.
fcat-ddictxt = 'L'.
fcat-inttype = 'P'.
fcat-datatype = 'CURR'.
fcat-do_sum = 'X'.
APPEND fcat.
================================= *****************
fheader-typ = 'H'.
SELECT SINGLE butxt
FROM t001
INTO fheader-info
WHERE bukrs EQ '1000'.
APPEND fheader.
CLEAR fheader.
fheader-typ = 'H'.
fheader-info = 'Daily Shipments For Exp'.
APPEND fheader.
CLEAR fheader.
Plant
SORT s_werks BY low.
READ TABLE s_werks INDEX 1.
fheader-typ = 'S'.
WRITE s_werks-low TO fheader-key.
SORT s_werks BY high DESCENDING.
READ TABLE s_werks INDEX 1.
IF s_werks-high NE space.
CONCATENATE fheader-key 'TO' s_werks-high INTO fheader-info
SEPARATED BY space.
ELSE.
WRITE fheader-key TO fheader-info.
ENDIF.
CLEAR fheader-key.
fheader-key = 'PLANT : '.
APPEND fheader.
CLEAR fheader.
Billing Typ
SORT S_FKART BY LOW.
READ TABLE S_FKART INDEX 1.
FHEADER-TYP = 'S'.
WRITE S_FKART-LOW TO FHEADER-KEY.
SORT S_FKART BY HIGH DESCENDING.
READ TABLE S_FKART INDEX 1.
IF S_FKART-HIGH NE SPACE.
CONCATENATE FHEADER-KEY 'TO' S_FKART-HIGH INTO FHEADER-INFO
SEPARATED BY SPACE.
ELSE.
WRITE FHEADER-KEY TO FHEADER-INFO.
ENDIF.
CLEAR FHEADER-KEY.
FHEADER-KEY = 'DOCUMENT TYPE : '.
APPEND FHEADER.
CLEAR FHEADER.
Date...
fheader-typ = 'S'.
FHEADER-KEY = S_FKDAT-LOW.
WRITE s_fkdat-low TO fheader-key.
WRITE s_fkdat-high TO w_dthigh.
CONCATENATE fheader-key 'TO' w_dthigh INTO fheader-info
SEPARATED BY space.
CLEAR fheader-key.
fheader-key = 'PERIOD : '.
APPEND fheader.
CLEAR fheader.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = fevents[]
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
READ TABLE fevents WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
fevents-form = 'TOPOFPAGE'.
MODIFY fevents INDEX sy-tabix.
CLEAR fevents.
ENDIF.
rptname = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = rptname
it_fieldcat = fcat[]
i_default = 'S'
it_events = fevents[]
i_save = 'X'
TABLES
t_outtab = it_output[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
ENDFORM. " BUILD_FIELD_CATALOG
Maybe you are looking for
-
APEX Listener on Weblogic licensing - SE or EE
Does the APEX listener on Weblogic use any Weblogic Enterprise Edition features like clustering or is Weblogic Standard Edition good enough? I'm assuming you would need to license Welogic for the APEX listener right? Also do we have any sizing guidel
-
H.264 - Taking forever to encode? What's wrong?
I have captured some video of my desktop using iShowU, which basically makes a Quicktime of everything that happens on your desktop including a mic input. I used the Apple Intermediate Codec to capture the material. The size of the vid is 1900 x 1250
-
Input enabling the custom fields
Hi All, I have added two fields ZVAL_STRT and ZVAl_END to the shopping cart at item level. Following all the rules of Note no 672960, the fields ae successfully added to the shopping cart. But the fields are not coming in editable mode. Even impleme
-
Settings won't save Yahoo mail after adding second verification?
My Yahoo email was hacked. Most of the emails in my Yahoo account were sent a spam mail from my Yahoo account. As advised, I changed my password and added some extra security - a second verification so no one can login to my account without addit
-
I love iWeb. It has many advantages over on-line web-builders, but finding help is not easy. My iWeb just stopped working. When I try to open it, a sign comes up "Can't open file "~/Library/Application Support/iWeb/Domain.sites2." Can anyone help we