Excluding alv grid toolbaar functions

hey...i wanna kno ..is there any way to exclude functions in the toolbaal in alv grid..i wanna exclude functions like cut,add row,delete row etc...

Hi,
you have to fill table to exclude buttons, please follow code below
*--- Excluding buttons
DATA gt_toolbar_excluding TYPE ui_functions.
PERFORM exclude_tb_functions CHANGING gt_toolbar_excluding.
    CALL METHOD gr_alvgrid->set_table_for_first_display
    EXPORTING
    is_layout = gs_layout
    it_toolbar_excluding = gt_toolbar_excluding
    CHANGING
    it_outtab = gt_list[]
    it_sort = gt_sort
    it_fieldcatalog = gt_fieldcat
* IT_SORT =
* IT_FILTER =
    EXCEPTIONS
    invalid_parameter_combination = 1
    program_error = 2
    too_many_lines = 3
    OTHERS = 4 .
*       FORM exclude_tb_functions                                     *
*       To exclude some of standard buttons of ALV                    *
* --> PT_EXCLUDE                                                    *
FORM exclude_tb_functions CHANGING pt_exclude TYPE ui_functions .
DATA ls_exclude TYPE ui_func.
ls_exclude = cl_gui_alv_grid=>mc_fc_maximum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_minimum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_subtot .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_sum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_fc_average .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_sum .
APPEND ls_exclude TO pt_exclude.
ls_exclude = cl_gui_alv_grid=>mc_mb_subtot .
ENDFORM .
Regards,
Karol

Similar Messages

Alv grid using function module

hi all,
i am using editable alv grid. but i need to add a functionality by adding a button on toolbar on click on button a new blank row should be appended below where user can enter the new records. please suggest on this i am using alv grid using function module.

Hi
check this program
BCALV_TEST_GRID_EDITABLE
when u execute the program, there is an alv which displays a set of records.
where we have a option to add new row to the alv.check it.
Hope this helps you.

One editable cell in alv grid using function module

Hello all,
Any one have an idea how to make a single editable cell in alv grid using function module, i mean to say
with out using object oriented programming.
Regards,
Prakash

Hi,
Using ALV List display it is possible.
Try this.
TYPE-POOLS:SLIS.
DATA: X_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA:IT_EVENTS TYPE SLIS_T_EVENT.
data: begin of it_chg occurs 0,
 index type sy-tabix,
 end of it_chg.
DATA: X_EVENTS TYPE SLIS_ALV_EVENT.
DATA: BEGIN OF ITAB OCCURS 0,
 NAME(10) TYPE C,
 ZTERM TYPE C,
 END OF ITAB.
PERFORM FILL_TABLE.
loop at itab where zterm = 'A'.
it_chg-index = sy-tabix + 3.
" addition 3 IS FOR FIELD LABELS
append it_chg.
clear it_chg.
endloop.
DATA:L_POS TYPE I VALUE 1.
CLEAR: L_POS.
L_POS = L_POS + 1.
**fieldcatalog
X_FIELDCAT-FIELDNAME = 'NAME'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
L_POS = L_POS + 1.
X_FIELDCAT-FIELDNAME = 'ZTERM'.
X_FIELDCAT-TABNAME = 'ITAB'.
X_FIELDCAT-COL_POS = L_POS.
X_FIELDCAT-OUTPUTLEN = '10'.
APPEND X_FIELDCAT TO IT_FIELDCAT.
CLEAR X_FIELDCAT.
**events
REFRESH:IT_EVENTS.
CLEAR:X_EVENTS,IT_EVENTS.
X_EVENTS-NAME = SLIS_EV_END_OF_LIST.
X_EVENTS-FORM = 'MODIFY_LIST'.
APPEND X_EVENTS TO IT_EVENTS.
CLEAR X_EVENTS.
END-OF-SELECTION.
data lv_repid type sy-repid.
lv_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = lv_REPID
 IT_FIELDCAT = IT_FIELDCAT
 IT_EVENTS = IT_EVENTS
 TABLES
 T_OUTTAB = ITAB
 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 FILL_TABLE
 text
FORM FILL_TABLE.
ITAB-NAME = 'AAA'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ABC'.
ITAB-ZTERM = 'B'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'TEST'.
ITAB-ZTERM = 'C'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'BBB'.
ITAB-ZTERM = 'D'.
APPEND ITAB.
clear itab.
ITAB-NAME = '123'.
ITAB-ZTERM = 'E'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'GEN'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALV'.
ITAB-ZTERM = 'F'.
APPEND ITAB.
clear itab.
ITAB-NAME = 'ALVTEST'.
ITAB-ZTERM = 'A'.
APPEND ITAB.
clear itab.
ENDFORM. "FILL_TABLE
*& Form MODIFY_LIST
 text
FORM MODIFY_LIST.
data: l_lines type i.
describe table itab lines l_lines.
L_LINES = L_LINES + 3.
"because we have 3 lines extra occupied by lables.
"if we have header,i mean top of page add the no.of lines
"how many ever top of page have + 3 for labels.
DO L_LINES TIMES.
 read table it_chg with key INDEX = sy-index.
 if sy-subrc = 0.
**This code is for reading the out put line
**and modify accordinlg to our requiremnet.
**don't chnage this.
 READ LINE SY-INDEX INDEX SY-LSIND.
 IF SY-SUBRC = 0.
 MODIFY LINE SY-INDEX INDEX SY-LSIND
 FIELD FORMAT ITAB-NAME INPUT.
 ENDIF.
 ENDIF.
ENDDO.
ENDFORM. "MODIFY_LIST

Adding a color to row of a alv grid using function modules

Can anybody clearly explains me how to add a color to a row to an alv grid using function module reuse_alv_grid_display.
thanks in advance
regards
anil.

hi,
chk this ample pgm
report zxyz_0004
 no standard page heading.
type-pools slis.
data: fieldcat type slis_t_fieldcat_alv.
data: begin of imara occurs 0,
 matnr type mara-matnr,
 mtart type mara-mtart,
 maktx type makt-maktx,
 color_line(4) type c,
 tcolor type slis_t_specialcol_alv, "cell
 end of imara.
data: xcolor type slis_specialcol_alv.
start-of-selection.
perform get_data.
perform write_report.
Get_Data
form get_data.
imara-matnr = 'ABC'.
imara-mtart = 'ZCFG'.
imara-maktx = 'This is description for ABC'.
append imara.
imara-matnr = 'DEF'.
imara-mtart = 'ZCFG'.
imara-maktx = 'This is description for DEF'.
append imara.
imara-matnr = 'GHI'.
imara-mtart = 'ZCFG'.
imara-maktx = 'This is description for GHI'.
append imara.
loop at imara.
 if sy-tabix = 1.
 imara-color_line = 'C410'. " color line
 endif.
 if sy-tabix = 2. "color CELL
 clear xcolor.
 xcolor-fieldname = 'MTART'.
 xcolor-color-col = '3'.
 xcolor-color-int = '1'. "Intensified on/off
 xcolor-color-inv = '0'.
 append xcolor to imara-tcolor.
 endif.
 modify imara.
endloop.
endform.
WRITE_REPORT
form write_report.
data: layout type slis_layout_alv.
layout-coltab_fieldname = 'TCOLOR'.
layout-info_fieldname = 'COLOR_LINE'.
perform build_field_catalog.
CALL ABAP LIST VIEWER (ALV)
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 is_layout = layout
 it_fieldcat = fieldcat
 tables
 t_outtab = imara.
endform.
BUILD_FIELD_CATALOG
form build_field_catalog.
data: fc_tmp type slis_t_fieldcat_alv with header line.
clear: fieldcat. refresh: fieldcat.
clear: fc_tmp.
fc_tmp-reptext_ddic = 'Material Number'.
fc_tmp-fieldname = 'MATNR'.
fc_tmp-tabname = 'IMARA'.
fc_tmp-outputlen = '18'.
append fc_tmp to fieldcat.
clear: fc_tmp.
fc_tmp-reptext_ddic = 'Material Type'.
fc_tmp-fieldname = 'MTART'.
fc_tmp-tabname = 'IMARA'.
fc_tmp-outputlen = '4'.
append fc_tmp to fieldcat.
clear: fc_tmp.
fc_tmp-reptext_ddic = 'Material'.
fc_tmp-fieldname = 'MAKTX'.
fc_tmp-tabname = 'IMARA'.
fc_tmp-outputlen = '40'.
fc_tmp-emphasize = 'C610'. " color column
append fc_tmp to fieldcat.
endform.
anil , pls chk this link also.
http://www.sapdevelopment.co.uk/reporting/alv/alvgrid_color.htm
very hlpful.
rgds
anver
pls mark points if ur issue solved
Message was edited by: Anversha s
Message was edited by: Anversha s

ALV Grid Usin Function Modulesshould be Displayed in ALV Grid Function mod

Hi,
I had a requirmentlike SM30 we hav to create initial Screen and wat ever ZXXXX tables we enter it will create Fieldcatalog Dynamically and press dislay it show in display mode.
If we Press Maintain it will Display in Editable Mode.The changed data should be updated into DB.Evrything should be displayed in
ALV Grid Function MOdule..
How to Get value from Screen Field ?
How To Generate Fieldcatalog For that Table dynamically?

Hello,
How To Generate Fieldcatalog For that Table dynamically?
Use the FM 'REUSE_ALV_FIELDCATALOG_MERGE' pass the table name in the import param I_STRUCTURE_NAME & you'll get the fiel cat dynamically!
BR,
Suhas

Visibility of ALV grid toolbar functions of the Custom report in ITS screen

Hi all,
I am working on SRM 5.0 with INTERNAL ITS.I have created a custom report and a transaction code for the same.Now in the SRM Web menu,I have provided a link for this report.
The problem I am facing is that in the O/P screen of the report,I have an ALV grid being displayed with 1 custom icon at the end of the std ALV toolbar.Now in the SAPGUI,this icon is displayed correctly at the end of the ALV toolbar but in the Web screen,i can see only few of the functions(visible as buttons in the SRM web screen/IE) in the ALV toolbar and rest of them being displayed under an additional button "MORE".Is there any way i can show the custom icon as a button which is directly visible on the SRM web screen and not under the options MORE?
All inputs will be highly appreciated and rewarded.

Hello!
There are several possibilities how to call transaction:
- You can call it as service (that is what you do when you test it from SICF)
- You can call it through service (or alias) WEBGUI (not using service for the specific transaction to call it)
If you are calling it through WEBGUI then parameter ~SINGLETRANSACTION should be added to service (or alias) of WEBGUI. And there should be added also Log Off URL (in SICF). At this case it should navigate back to the URL which is specified in SICF.
Hope this helps!
Best regards,
Rorijs

ALV GRID Display function module giving Run time error

Hello Experts,
I have ALV report, In which I am using ALV grid dispaly FM to display the report.
But when my out table which I am passing to FM is empty that time ALV grid display shows blank ALV report. but when out table is not empty that time I am getting the Run time error, which shows message "Field symbol has not yet been assigned".
Can any one please help me out in this.
Thanks

TYPES: BEGIN OF type_out,
 col00 TYPE ytlet-rzzyyproduct,
 col01 TYPE ytlet-kslvt,
 col02 TYPE ytlet-kslvt,
 col03 TYPE ytlet-kslvt,
 col04 TYPE ytlet-kslvt,
 col05 TYPE ytlet-kslvt,
 col06 TYPE ytlet-kslvt,
 col07 TYPE ytlet-kslvt,
 col08 TYPE ytlet-kslvt,
 col09 TYPE ytlet-kslvt,
 col10 TYPE ytlet-kslvt,
 col11 TYPE ytlet-kslvt,
 col12 TYPE ytlet-kslvt,
 col13 TYPE ytlet-kslvt,
 col14 TYPE ytlet-kslvt,
 col15 TYPE ytlet-kslvt,
 col16 TYPE ytlet-kslvt,
 col17 TYPE ytlet-kslvt,
 col18 TYPE ytlet-kslvt,
 col19 TYPE ytlet-kslvt,
 col20 TYPE ytlet-kslvt,
 col21 TYPE ytlet-kslvt,
 col22 TYPE ytlet-kslvt,
 col23 TYPE ytlet-kslvt,
 col24 TYPE ytlet-kslvt,
 col25 TYPE ytlet-kslvt,
 col26 TYPE ytlet-kslvt,
 col27 TYPE ytlet-kslvt,
 col28 TYPE ytlet-kslvt,
 col29 TYPE ytlet-kslvt,
 col30 TYPE ytlet-kslvt,
 col31 TYPE ytlet-kslvt,
 col32 TYPE ytlet-kslvt,
 col33 TYPE ytlet-kslvt,
 col34 TYPE ytlet-kslvt,
 col35 TYPE ytlet-kslvt,
 col36 TYPE ytlet-kslvt,
 col37 TYPE ytlet-kslvt,
 col38 TYPE ytlet-kslvt,
 col39 TYPE ytlet-kslvt,
 col40 TYPE ytlet-kslvt,
 col41 TYPE ytlet-kslvt,
 col42 TYPE ytlet-kslvt,
 col43 TYPE ytlet-kslvt,
 col44 TYPE ytlet-kslvt,
 END OF type_out.
DATA: t_fieldcat TYPE slis_t_fieldcat_alv, "Field catelog table
 w_fieldcat TYPE slis_fieldcat_alv, "Field catelog Work area
 w_layout TYPE slis_layout_alv, "Layout structure
 w_event TYPE slis_alv_event, "Event structure
 t_event TYPE slis_t_event, "Event structure
 t_sort TYPE STANDARD TABLE OF slis_sortinfo_alv,
 t_callback_main_user_command TYPE slis_formname,
 v_selfield TYPE slis_selfield.
FIELD-SYMBOLS: <ksl>.
FORM DISPLAY_REPORT .
*Prepare Field Catlog
PERFORM creat_field_catlog.
*Set layout
PERFORM set_layout.
*Get Event
PERFORM get_event.
*Display Report
PERFORM display_alv_report.
ENDFORM. " DISPLAY_REPORT
FORM creat_field_catlog .
PERFORM add_fields_catlog USING:
 '01' 'RZZYYPRODUCT' 'IT_OUT' 'MPMs' ' ',
 '02' 'KSLVT' 'IT_OUT' 'License Fee' ' ',
 '03' 'KSLVT' 'IT_OUT' 'Ad Sales' ' ',
 '04' 'KSLVT' 'IT_OUT' 'Promo Fees' ' ',
 '05' 'KSLVT' 'IT_OUT' 'Total Ad Sales/Promo' ' ',
 '06' 'KSLVT' 'IT_OUT' 'Other' ' ',
 '07' 'KSLVT' 'IT_OUT' 'Total' ' ',
 '08' 'KSLVT' 'IT_OUT' 'Dom Station' ' ',
 '09' 'KSLVT' 'IT_OUT' 'Basic Cable/Free VOD' ' ',
 '10' 'KSLVT' 'IT_OUT' 'License Fee' ' ',
 '11' 'KSLVT' 'IT_OUT' 'Ad Sales (incl Internet)' ' ',
 '12' 'KSLVT' 'IT_OUT' 'Promo Fees' ' ',
 '13' 'KSLVT' 'IT_OUT' 'Ad Sales & Promo Fees' ' ',
 '14' 'KSLVT' 'IT_OUT' 'Foreign' ' ',
 '15' 'KSLVT' 'IT_OUT' 'Pay TV' ' ',
 '16' 'KSLVT' 'IT_OUT' 'Other' ' ',
 '17' 'KSLVT' 'IT_OUT' 'Total' ' ',
 '18' 'KSLVT' 'IT_OUT' 'Home Entertainment' ' ',
 '19' 'KSLVT' 'IT_OUT' 'SPTI' ' ',
 '20' 'KSLVT' 'IT_OUT' 'All Other Divisions' ' ',
 '21' 'KSLVT' 'IT_OUT' 'Total' ' ',
 '22' 'KSLVT' 'IT_OUT' 'Total Revenue' ' ',
 '23' 'KSLVT' 'IT_OUT' 'PV Net Down & Producers Share' '',
 '24' 'KSLVT' 'IT_OUT' 'Total Net Revenue' ' ',
 '25' 'KSLVT' 'IT_OUT' 'Development Expense' ' ',
 '26' 'KSLVT' 'IT_OUT' 'SOP Deficits' ' ',
 '27' 'KSLVT' 'IT_OUT' 'Amortization' ' ',
 '28' 'KSLVT' 'IT_OUT' 'Other COS ' ' ',
 '29' 'KSLVT' 'IT_OUT' 'Total COS' ' ',
 '30' 'KSLVT' 'IT_OUT' 'Profit Before Releasing' ' ',
 '31' 'KSLVT' 'IT_OUT' 'Gross Profit %' ' ',
 '32' 'KSLVT' 'IT_OUT' 'SPT' ' ',
 '33' 'KSLVT' 'IT_OUT' 'Home Entertainment' ' ',
 '34' 'KSLVT' 'IT_OUT' 'SPTI' ' ',
 '35' 'KSLVT' 'IT_OUT' 'All Other Divisions' ' ',
 '36' 'KSLVT' 'IT_OUT' 'Other' ' ',
 '37' 'KSLVT' 'IT_OUT' 'Total' ' ',
 '38' 'KSLVT' 'IT_OUT' 'Gross Profit' ' ',
 '39' 'KSLVT' 'IT_OUT' 'SPT' ' ',
 '40' 'KSLVT' 'IT_OUT' 'Home Entertainment' ' ',
 '41' 'KSLVT' 'IT_OUT' 'SPTI' ' ',
 '42' 'KSLVT' 'IT_OUT' 'All Other Divisions' ' ',
 '43' 'KSLVT' 'IT_OUT' 'Other' ' ',
 '44' 'KSLVT' 'IT_OUT' 'Total' ' ',
 '45' 'KSLVT' 'IT_OUT' 'Net Margin' ' '.
ENDFORM. " CREAT_FIELD_CATLOG
*& Form ADD_FIELDS_CATLOG
 Filling of field Catlog
FORM add_fields_catlog USING p_colpos
 p_fildname
 p_tabname
 p_fildtext
 p_ndisplay.
w_fieldcat-row_pos = '1'.
w_fieldcat-col_pos = p_colpos.
w_fieldcat-fieldname = p_fildname.
w_fieldcat-tabname = p_tabname.
w_fieldcat-reptext_ddic = p_fildtext.
w_fieldcat-no_out = p_ndisplay.
APPEND w_fieldcat TO t_fieldcat.
CLEAR: w_fieldcat.
ENDFORM. " ADD_FIELDS_CATLOG
*& Form SET_LAYOUT
 Set Layout
FORM set_layout .
w_layout-colwidth_optimize = 'X'.
ENDFORM. " SET_LAYOUT
*& Form GET_EVENT
 text
FORM get_event .
w_event-name = 'TOP-OF-PAGE'.
w_event-form = 'F_TOP-OF_PAGE'.
APPEND w_event TO t_event.
ENDFORM. " GET_EVENT
*& Form TOP-OF-PAGE
 Top of Page
FORM top-of-page.
DATA : t_list_commentry TYPE slis_t_listheader,
 w_header TYPE slis_listheader,
 lv_text(90) TYPE c,
 l_text(90) TYPE c,
 lv_rundate(10) TYPE c,
 lv_runtime(10) TYPE c.
CONSTANTS: c_space(2) TYPE c VALUE ' ',
 c_space2(6) TYPE c VALUE ' '.
w_header-typ = 'S'.
w_header-key = 'Program:'.
w_header-info = sy-repid.
APPEND w_header TO t_list_commentry.
WRITE: sy-datum TO lv_rundate MM/DD/YYYY.
WRITE: sy-uzeit TO lv_runtime USING EDIT MASK '__:__:__'.
CLEAR w_header.
w_header-typ = 'S'.
w_header-key = text-021.
w_header-info = lv_rundate.
APPEND w_header TO t_list_commentry.
CLEAR: w_header.
w_header-typ = 'S'.
w_header-key = 'User Id'.
w_header-info = sy-uname.
APPEND w_header TO t_list_commentry.
CLEAR: w_header.
w_header-typ = 'S'.
w_header-key = 'Run Date'.
w_header-info = lv_rundate.
APPEND w_header TO t_list_commentry.
CLEAR: w_header.
w_header-typ = 'S'.
w_header-key = 'Run Time'.
w_header-info = lv_runtime.
APPEND w_header TO t_list_commentry.
CLEAR: w_header.
w_header-typ = 'H'.
w_header-key = 'order'.
w_header-info = 'MCR Report'.
APPEND w_header TO t_list_commentry.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = t_list_commentry.
ENDFORM. "TOP-OF-PAGE
FORM display_alv_report .
CONSTANTS : gc_save TYPE c VALUE 'A'. "Save Layout
t_callback_main_user_command = c_user_command.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = sy-repid
I_CALLBACK_PF_STATUS_SET = ' '
 i_callback_user_command = t_callback_main_user_command
 i_callback_top_of_page = 'TOP-OF-PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
 is_layout = w_layout
 it_fieldcat = t_fieldcat
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
 i_save = gc_save
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
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_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_out
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
 ENDIF.

How does the SORT function in ALV grid work?

Hi,
I have a report for which the o/p is displayed in ALV grid format.There is one column in the O/p strcuture which is "No of days".Based on certain conditions,i need to display the value for some of the days as Negative e.g. " - 45".Becasuse of this,I have declared the field for the "No of days" of the type "CHAR".
Now when i sort(using ALV grid SORT function) the list on basis of this column,it doesnt give me the correct o/p.
CAN anyone tell me how do i handle this?I want the list to be sorted correctly on basis of the "No of days" column.
Thanks!

This is your Fourth Cross Posting in last three days on same issue!!
CHAR type column doesnt work for SORT function in ALV grid!
How to sort a column of type CHAR
I dont,ve link for your Fourth Thread on same,though i'm short memory loss.

Example of a Simple ALV Report using Function Modules (not OO)

Hi,
I am new to ABAP. Where can I get a proper Example of a Simple ALV Report using Function Modules? I searched the forum but did not find a proper solution. Kindly help.
Smruthi.
Edited by: Smruthi Acharya on Jan 29, 2009 7:13 PM

Hi,
Use this demo code:-
REPORT z_alv01 MESSAGE-ID zmsg.
* TABLES
TABLES : ekpo.
* TYPE POOLS
TYPE-POOLS : slis.
* TYPE DECLARATION
TYPES : BEGIN OF t_ekpo,
 ebeln TYPE ekpo-ebeln,
 ebelp TYPE ekpo-ebelp,
 matnr TYPE ekpo-matnr,
 werks TYPE ekpo-werks,
 menge TYPE ekpo-menge,
 END OF t_ekpo.
* PARAMETERS
PARAMETERS : s_var TYPE disvariant-variant.
* DATA DECLARATION
*VARIABLES
DATA : check(1),
 rep_id TYPE sy-repid.
*INTERNAL TABLE TYPE OF ZEKPO
DATA : it_ekpo TYPE STANDARD TABLE OF t_ekpo WITH HEADER LINE.
*FIELD CATALOG
DATA : it_field TYPE slis_t_fieldcat_alv,
 wa_field TYPE slis_fieldcat_alv.
*SORTING
DATA : it_sort TYPE slis_t_sortinfo_alv,
 wa_sort TYPE slis_sortinfo_alv.
*FOR TOP OF THE PAGE
DATA : it_top TYPE slis_t_listheader,
 wa_top TYPE slis_listheader.
*FOR END OF THE PAGE
DATA : it_end TYPE slis_t_listheader,
 wa_end TYPE slis_listheader.
*TO CAPTURE EVENTS AND HANDLE
DATA : it_event TYPE slis_t_event,
 wa_event TYPE slis_alv_event.
*FOR GRID TITLE
DATA : wa_title TYPE lvc_title.
*FOR LAYOUT
DATA : wa_layout TYPE slis_layout_alv.
*FOR EXCLUDING STANDARD BUTTON FROM ALV TOOLBAR
DATA : it_exclude TYPE slis_t_extab,
 wa_exclude TYPE slis_extab.
*FOR VARIANT
DATA : wa_variant TYPE disvariant.
* INITIALIZATION
INITIALIZATION.
check = 'X'.
rep_id = sy-repid.
wa_variant-report = sy-repid.
*GET DEFUALT ON THE SELECTION SCREEN FOR DEFAULT DISPLAY
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
 EXPORTING
 i_save = 'A'
 CHANGING
 cs_variant = wa_variant
 EXCEPTIONS
 wrong_input = 1
 not_found = 2
 program_error = 3
 OTHERS = 4.
IF sy-subrc = 0. " IF DEFAULT VARIANT FOUND
 s_var = wa_variant-variant. " PASS THE DEFAULT VARIANT TO THE SELECTION SCREEN FIELD
ENDIF.
* AT-SELECTION SCREEN ON VALUE REQUEST
* TO GET THE F4 HELP FOR VARIANT
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_var.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
 EXPORTING
 is_variant = wa_variant
* I_TABNAME_HEADER =
* I_TABNAME_ITEM =
* IT_DEFAULT_FIELDCAT =
 i_save = 'A'
* I_DISPLAY_VIA_GRID = ' '
 IMPORTING
* E_EXIT =
 es_variant = wa_variant
 EXCEPTIONS
 not_found = 1
 program_error = 2
 OTHERS = 3.
IF sy-subrc = 0.
 s_var = wa_variant-variant. " PASS THE SELECTED VARIANT TO THE SELECTION SCREEN FIELD
ENDIF.
* AT-SELECTION SCREEN
* TO CHECK THE EXISTENCE FOR VARIANT
AT SELECTION-SCREEN.
wa_variant-variant = s_var.
CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
 EXPORTING
 i_save = 'A'
 CHANGING
 cs_variant = wa_variant
 EXCEPTIONS
 wrong_input = 1
 not_found = 2
 program_error = 3
 OTHERS = 4.
IF sy-subrc <> 0.
 MESSAGE w001.
ENDIF.
* START OF SELECTION
START-OF-SELECTION.
SELECT ebeln
 ebelp
 matnr
 werks
 menge
 FROM ekpo
 INTO TABLE it_ekpo.
* FIELD CATALOG
wa_field-fieldname = 'EBELN'.
wa_field-tabname = 'IT_TAB'.
wa_field-outputlen = 10.
wa_field-seltext_l = 'PO #'.
APPEND wa_field TO it_field.
CLEAR wa_field.
wa_field-fieldname = 'EBELP'.
wa_field-tabname = 'IT_TAB'.
wa_field-outputlen = 10.
wa_field-seltext_l = 'Line Item'.
APPEND wa_field TO it_field.
CLEAR wa_field.
wa_field-fieldname = 'MATNR'.
wa_field-tabname = 'IT_TAB'.
wa_field-outputlen = 15.
wa_field-seltext_l = 'Material'.
* wa_field-input = check.
* wa_field-edit = check.
APPEND wa_field TO it_field.
CLEAR wa_field.
wa_field-fieldname = 'WERKS'.
wa_field-tabname = 'IT_TAB'.
wa_field-outputlen = 6.
wa_field-seltext_l = 'Plant'.
* wa_field-input = check.
* wa_field-edit = check.
APPEND wa_field TO it_field.
CLEAR wa_field.
wa_field-fieldname = 'MENGE'.
wa_field-tabname = 'IT_TAB'.
wa_field-outputlen = 10.
wa_field-seltext_l = 'Qty.'.
* wa_field-input = check.
* wa_field-edit = check.
wa_field-do_sum = check.
APPEND wa_field TO it_field.
CLEAR wa_field.
* SORT W.R.T. PURCHASE ORDER NUMBER
wa_sort-spos = 1.
wa_sort-fieldname = 'EBELN'.
wa_sort-tabname = 'IT_EKPO'.
wa_sort-up = check.
wa_sort-subtot = check.
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
* FOR GRID TITLE
wa_title = 'Hello'.
* FOR LAYOUT
wa_layout-zebra = check.
* FOR EXCLUDING STANDARD BUTTONS FROM ALV TOOLBAR
wa_exclude-fcode = '&OUP'.
APPEND wa_exclude TO it_exclude.
CLEAR wa_exclude.
wa_exclude-fcode = '&ODN'.
APPEND wa_exclude TO it_exclude.
CLEAR wa_exclude.
wa_exclude-fcode = '&OAD'.
APPEND wa_exclude TO it_exclude.
CLEAR wa_exclude.
* wa_exclude-fcode = '&AVE'.
* APPEND wa_exclude TO it_exclude.
* CLEAR wa_exclude.
wa_exclude-fcode = '&INFO'.
APPEND wa_exclude TO it_exclude.
CLEAR wa_exclude.
* POPULATE ALL EVENTS INTO INTERNAL TABLE
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = it_event
 EXCEPTIONS
 list_type_wrong = 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.
READ TABLE it_event INTO wa_event WITH KEY name = 'END_OF_LIST'.
wa_event-form = 'END'.
MODIFY it_event FROM wa_event INDEX sy-tabix.
CLEAR wa_event.
* DISPLAY RECORDS IN ALV GRID
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
 i_callback_program = rep_id
* i_callback_pf_status_set = 'PF'
 i_callback_user_command = 'COMMAND'
 i_callback_top_of_page = 'TOP'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
 i_grid_title = wa_title
* I_GRID_SETTINGS =
 is_layout = wa_layout
 it_fieldcat = it_field
 it_excluding = it_exclude
* IT_SPECIAL_GROUPS =
 it_sort = it_sort
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
 i_save = 'A'
 is_variant = wa_variant
 it_events = it_event
* IT_EVENT_EXIT =
* IS_PRINT =
* 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_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
 TABLES
 t_outtab = it_ekpo
EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
ENDIF.
*& Form top
* TO WRITE THE HEADER
FORM top.
REFRESH it_top.
wa_top-typ = 'S'.
wa_top-key = text-001.
wa_top-info = rep_id.
APPEND wa_top TO it_top.
CLEAR wa_top.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_top
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
ENDFORM. "top
*& Form end
* TO WRITE THE FOOTER
FORM end.
REFRESH it_end.
wa_end-typ = 'S'.
wa_end-key = text-001.
wa_end-info = rep_id.
APPEND wa_end TO it_end.
CLEAR wa_end.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 it_list_commentary = it_end
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
ENDFORM. "end
*& Form pf
* FOR PF-STATUS WITH USER DEFINED BUTTONS
* -->RT_EXTAB text
FORM pf USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTG_PF_ALV'.
ENDFORM. "pf
*& Form command
* TO HANDLE USER ACTIONS AGAINST PF-STATUS
* -->UCOMM text
* -->SELFIELD text
FORM command USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield.
DATA : ok_code TYPE sy-ucomm.
ok_code = ucomm.
CASE ok_code.
 WHEN 'T_DOWN'.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = 'HELLO'
 txt1 = 'USER COMMAND'
 txt2 = 'TOTAL DOWN'.
 WHEN 'DOWN'.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = 'HELLO'
 txt1 = 'USER COMMAND'
 txt2 = 'DOWN'.
 WHEN 'UP'.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = 'HELLO'
 txt1 = 'USER COMMAND'
 txt2 = 'UP'.
 WHEN 'T_UP'.
 CALL FUNCTION 'POPUP_TO_INFORM'
 EXPORTING
 titel = 'HELLO'
 txt1 = 'USER COMMAND'
 txt2 = 'TOTAL UP'.
ENDCASE.
ENDFORM. "command
Hope this helps you.
Thanks & Regards,
Tarun Gambhir

ALV Grid inline excel

Hi,
I'm convincved this question has been asked and answered but I can't find it:
My report creates an ALV grid using function REUSE_ALV_GRID_DISPLAY. I can use GUI status function &VEXCEL to start excel inline in the grid area. But I get an empty sheet with those many SAP standard tabs - no data are transfered.
As far as I remember this is a BASIS problem but neither our basis people nor I know how to cure this.
Any help is welcome!
Kind regards,
Clemens Li

Hi,
sorry, I'm late: I tried as described, logged off and on, and suddenly it worked - for all systems including the one I did not do anything. Looks like a WinXp bug.
Never again any problem.
Sorry, not really satifying - possibly Rich never had this!
Regards,
Clemens
Message was edited by: Clemens Li

ALV grid display in a particular format

Hi,
Could you please tell me how do i display the alv grid in this particular format :
col1 | col2 | col3 | col4 |
abc1 | def1 | -
|----
|
abc1 | def2 | -
|----
|
abc1 |-----| ghi1 |-----|
abc1 |-----| ghi2 |-----|
abc2 | def3 | -
|----
|
abc2 | def4 | -
|----
|
abc2 |-----| ghi3 |-----|
abc2 |-----| ghi4 |-----|
1. For a single site (col1), there are multiple values in col2 and col3.
2. col2 and col3 are not related.
3. col2 and col3 individually is rlated to col1.
Any help would be highly appreciated.

Hi,
All you need to do is to sort the records while displaying in ALV Grid.
Refer the below code snippet:-
*SORTING
DATA : it_sort TYPE slis_t_sortinfo_alv,
 wa_sort TYPE slis_sortinfo_alv.
* SORT INFO
wa_sort-spos = 1. "<--sort preference
wa_sort-fieldname = 'COL1'. "<--column which needs to be sorted
wa_sort-tabname = 'IT_FINAL'. "<--internal table
wa_sort-up = 'X'. "<--ascending order
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
wa_sort-spos = 2. "<--sort preference
wa_sort-fieldname = 'COL3'. "<--column which needs to be sorted
wa_sort-tabname = 'IT_FINAL'. "<--internal table
wa_sort-up = 'X'. "<--ascending order
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
wa_sort-spos = 3. "<--sort preference
wa_sort-fieldname = 'COL2'. "<--column which needs to be sorted
wa_sort-tabname = 'IT_FINAL'. "<--internal table
wa_sort-up = 'X'. "<--ascending order
APPEND wa_sort TO it_sort.
CLEAR wa_sort.
* DISPLAY RECORDS IN ALV GRID
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = sy-repid
 it_fieldcat = it_field
 it_sort = it_sort "<--sort info
 TABLES
 t_outtab = it_final
Hope this helps you.
Regards,
Tarun

Subtotal in ALV grid for a particular type and Grand total in ALV

Hi,
I need to have sub total for a particular type(eg: goods, services).. and grand total at end in ALV grid..
ALV output required as below:
Type VAT registration number Country Total Gross Amounts Total Tax Amounts Total Amount, ex-tax
Goods ATU12345678 AT 222.42 0 222.42
Goods NL123456789B02 NL 3,417.00 0 3,417.00
 Goods Total 3,639.42 - 3,639.42
Services ATU12345678 AT 2,342.34 0 2,342.34
Services NL123456789B02 NL 223.33 0 223.33
 Services Total 2,565.67 - 2,565.67
 Grand Total 6,205.09 - 6,205.09
Let me as to how to achieve the above type in ALV grid...
Regards
Shiva

check this link..
Grand Totals in ALV grid disply function module
or do like this..
REPORT ZALVTESTFORSUBTOTAL.
tables:pa0008.
type-pools:slis.
types:begin of ty_pa0008,
 pernr like pa0008-pernr,
 begda like pa0008-begda,
 endda like pa0008-endda,
 ansal like pa0008-ansal,
 lga01 like pa0008-lga01,
 bet01 like pa0008-bet01,
 end of ty_pa0008.
data:it_pa0008 type standard table of ty_pa0008 with header line.
data:it_fieldcat type SLIS_T_FIELDCAT_ALV,
 wa_fieldcat type slis_fieldcat_alv,
 it_layout type slis_layout_alv,
 WA_events TYPE slis_alv_event,
 it_events TYPE slis_t_event.
select-options:s_pernr for pa0008-pernr.
start-of-selection.
perform getD_data.
perform disp_alv.
*& Form getD_data
 text
--> p1 text
<-- p2 text
form getD_data .
select pernr
 begda
 endda
 ansal
 lga01
 bet01
 from pa0008
 into table it_pa0008
 where pernr in s_pernr.
sort it_pa0008 by pernr begda descending.
endform. " getD_data
*& Form disp_alv
 text
--> p1 text
<-- p2 text
form disp_alv .
wa_fieldcat-fieldname = 'PERNR'.
wa_FIELDCAT-REPTEXT_DDIC = 'Personnel no'.
*WA_FIELDCAT-no_subtotals = 'X'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BEGDA'.
wa_FIELDCAT-REPTEXT_DDIC = 'Start date'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'ENDDA'.
wa_FIELDCAT-REPTEXT_DDIC = 'End date'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'ANSAL'.
wa_FIELDCAT-REPTEXT_DDIC = 'Annula salary'.
wa_fieldcat-do_sum = 'X'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'LGA01'.
wa_FIELDCAT-REPTEXT_DDIC = 'Wage Type'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
wa_fieldcat-fieldname = 'BET01'.
wa_FIELDCAT-REPTEXT_DDIC = 'Amount for wagetype'.
append wa_fieldcat to it_fieldcat.
clear wa_fieldcat.
DATA: sort TYPE slis_sortinfo_alv,
it_sort TYPE slis_t_sortinfo_alv.
sort-fieldname = 'PERNR'.
sort-subtot = 'X'.
SORT-UP = 'X'.
APPEND sort TO it_sort.
*sort-fieldname = 'BEGDA'.
*SORT-NO_SUBTOTS = 'X'.
*APPEND sort TO it_sort.
IT_layout-totals_text = 'total text'.
IT_layout-subtotals_text = 'Subtotal text'.
*WA_EVENTS-NAME = 'SUBTOTAL TEXT'.
*WA_EVENTS-FORM = 'SUBTOTAL TEXT'.
*APPEND WA_EVENTS TO IT_EVENTS.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
 I_CALLBACK_PROGRAM = sy-repid
 IS_LAYOUT = it_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
 it_sort = it_sort
it_events = it_events
 TABLES
 t_outtab = it_pa0008 .
endform. " disp_alv

PF status of Selection screen and ALV Grid

Hi,
I need to create a report where on clicking the 'ENTER' key on application toolbar on the selection-screen the processing logic should get executed ( instead of clicking execute pushbutton).
For this i need to capture the function code associated with ENTER key on selection screen. How can i find this?
Also , on clicking enter i have to display an ALV grid with the SAVE key activated on the toolbar.How can i activate SAVE key on application toolbar of ALV GRID. (Selection-screen should not have save key )
thanks,
vartika

Hi
you can just copy the alv standard pf status into your alv.
goto se41.
enter "SAPLSLVC_FULLSCREEN"
then copy the standard pf status " STANDARD_FULLSCREEN" to your program "xyz".
in your prog, when you call the alv grid,
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 i_callback_program = l_v_repid
 i_callback_pf_status_set = 'SET_PF_STATUS' <----
 i_callback_user_command = 'USER_COMMAND'
 i_callback_top_of_page = 'ALV_TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
tHEN CPOY PASTE THIS CODE:
NOTE: No need to make a perform for this....
* FORM SET_PF_STATUS *
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS '/FIR/RRF2S0BG_ALV'.
"Copy of standard pf_status from
ENDFORM. "set_pf_status
Now can see the full tool bar enabled in your alv grid.
delete all the unwanted buttons from your programs pf status .
Hope that helps.
Cheers
Ravish Garg.

Reward if useful

Query related to alv grid and sap script

Hi All,
I have a requirement where i should read the values which are selected on the alv grid list output and those values i need to display on the script(layout).
Help me out guru's its an urgency...
thanks in advance .
regards
ravi ganji

Hi Ravi,
I have done it exactly like your requirement. This program contains ALV and Smartform.
But whatever may be, both are layouts and having driver program. So just finish your driver program and Script layout and then use this program.
I have written this code to print contact letters from VA42. So, modify this code to insert your transaction code.
Let me know if you have any questions.
Here is the code.
REPORT ILETTER MESSAGE-ID CM.
TYPE POOLS (ALV)
TYPE-POOLS:
 slis.
Customized Types
TYPES:
 BEGIN OF ty_cntrt,
 box(1) TYPE c,
 kunnr TYPE kunag,
 vbeln TYPE vbeln_va,
 vbeln1 TYPE vbeln_va,
 vposn TYPE posnr,
 vuntdat TYPE vudat_veda,
 vbegdat TYPE vbdat_veda,
 vdemdat TYPE vddat_veda,
 venddat TYPE vndat_veda,
 END OF ty_cntrt,
 single line TYPES
 BEGIN OF ty_vkorg,
 vkorg TYPE vkorg,
 END OF ty_vkorg.
Constants
CONSTANTS:
 c_sform TYPE char10 VALUE 'SMARTFORMS',
 c_tcode TYPE sy-tcode VALUE 'VA42',
 c_mode TYPE c VALUE 'N',
 c_updat TYPE c VALUE 'A',
 c_batch TYPE sy-callr VALUE 'BATCH',
 c_dclick TYPE char10 VALUE '&IC1'.
Internal tables
DATA: it_cntrt TYPE TABLE OF ty_cntrt,
 it_bdc TYPE TABLE OF bdcdata,
 it_mesg TYPE TABLE OF bdcmsgcoll,
 it_const TYPE TABLE OF /SIE/SSG_XCM_CUC,
 it_vkorg TYPE TABLE OF ty_vkorg.
Work areas
DATA: wa_cntrt TYPE ty_cntrt,
 wa_bdc TYPE bdcdata,
 wa_const TYPE /SIE/SSG_XCM_CUC,
 w_vbak TYPE vbak,
 w_veda TYPE veda,
 w_xcm_pr TYPE /sie/ssg_xcm_pr,
 w_vkorg TYPE ty_vkorg.
Variables
DATA: l_repid TYPE sy-repid,
 l_vakey TYPE vakey,
 l_variant TYPE varid-variant,
 l_vbeln TYPE i,
 l_vkorg TYPE i,
 l_vkbur TYPE i,
 l_vkgrp TYPE i,
 l_ckappl(40) TYPE c,
 l_ckschl(40) TYPE c,
 l_cauart(40) TYPE c.
Program Constants
DATA: c_kappl TYPE kappl,
 c_kschl TYPE kschl,
 c_auart TYPE auart,
 c_repco TYPE /sie/ssg_xcm_const,
 c_value TYPE /sie/ssg_xcm_value.
ALV data declarations
DATA:
 gt_fieldcat TYPE slis_t_fieldcat_alv,
 gt_tab_group TYPE slis_t_sp_group_alv,
 gs_layout TYPE slis_layout_alv,
 gs_repid TYPE sy-repid,
 gs_sort TYPE TABLE OF slis_sortinfo_alv.
Selection screen
SELECTION-SCREEN BEGIN OF BLOCK indletter WITH FRAME TITLE text-001.
skip one line
 SELECTION-SCREEN SKIP.
 SELECT-OPTIONS:
 contract
 so_vbeln FOR w_vbak-vbeln,
 category
 so_auart FOR w_vbak-auart NO-DISPLAY,
 Sales Org
 so_vkorg FOR w_vbak-vkorg OBLIGATORY,
 Dis Channel
 so_vtweg FOR w_vbak-vtweg,
 Division
 so_spart FOR w_vbak-spart,
 Sales Group
 so_vkgrp FOR w_vbak-vkgrp,
 Sales Office
 so_vkbur FOR w_vbak-vkbur OBLIGATORY,
 Cancellation Procedure
 so_vkues FOR w_veda-vkuesch OBLIGATORY,
 Contract Signed Date
 so_vuntd FOR w_veda-vuntdat,
 created by
 so_ernam FOR w_vbak-ernam,
 Fixed Indexation formula
 so_fnum FOR w_xcm_pr-fnum OBLIGATORY.
skip one line
 SELECTION-SCREEN SKIP.
Indexation letter
 PARAMETERS: rb_index RADIOBUTTON GROUP radi USER-COMMAND usr.
Follow up report
 PARAMETERS: rb_follo RADIOBUTTON GROUP radi.
skip one line
 SELECTION-SCREEN SKIP.
Manual processing checkbox
 PARAMETERS: p_manpr AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK indletter.
Printer block
SELECTION-SCREEN BEGIN OF BLOCK blk_par WITH FRAME TITLE text-002.
Printer
 PARAMETERS: p_print LIKE nast-ldest DEFAULT 'LOCL' OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk_par.
User selection data validation
AT SELECTION-SCREEN ON so_vkorg.
Ragne for sales org
RANGES: r_vkorg FOR vbak-vkorg.
REFRESH: it_const, r_vkorg.
CLEAR wa_const.
Proceed for execution only for Sales Orgs in /SIE/SSG_XCM_CUC
LOOP AT so_vkorg.
 r_vkorg-sign = 'I'.
 r_vkorg-option = 'EQ'.
 r_vkorg-low = so_vkorg-low.
 APPEND r_vkorg.
Check Sales Org intervals entered in the selection screen
 IF NOT so_vkorg-high IS INITIAL.
Get all Sales Org for interval
 SELECT vkorg FROM tvko INTO TABLE it_vkorg
 WHERE vkorg BETWEEN so_vkorg-low AND so_vkorg-high.
 IF sy-subrc = 0.
 Add all Sales org into one internal table
 LOOP AT it_vkorg INTO w_vkorg.
 r_vkorg-low = w_vkorg-vkorg.
 APPEND r_vkorg.
 CLEAR: w_vkorg.
 ENDLOOP.
 delete repeated records
 DELETE ADJACENT DUPLICATES FROM r_vkorg COMPARING low.
 ENDIF.
 ENDIF.
 CLEAR r_vkorg.
ENDLOOP.
Get Sales Org entries maintained in /SIE/SSG_XCM_CUC
l_repid = sy-repid.
Check Sales Org is maintained for Renewal Letter?
LOOP AT r_vkorg.
concatenate constant with Sales Org
 CONCATENATE 'INX_LETTER_CREATE_' r_vkorg-low INTO c_repco.
Get constant
 SELECT SINGLE value
 FROM /sie/ssg_xcm_cuc
 INTO c_value
 WHERE repid = l_repid
 AND const = c_repco
 AND vkorg EQ so_vkorg-low.
Check alerady maintained?
 IF sy-subrc <> 0 OR
 ( sy-subrc = 0 AND c_value <> 'X' ).
 Issue massage 'Sales Org no permitted for renewal Letter'.
 MESSAGE E012.
 CLEAR: c_repco, r_vkorg.
 EXIT.
 ENDIF.
 CLEAR: c_repco, r_vkorg.
ENDLOOP.
AT SELECTION-SCREEN.
Read single Sales Org
 READ TABLE so_vkorg INDEX 1.
 IF sy-subrc = 0.
 CLEAR: l_ckappl, l_ckschl, l_cauart, c_kappl, c_kschl, c_auart.
 for application
 CONCATENATE 'INX_LETTER_V1_' so_vkorg-low INTO l_ckappl.
 for output type
 CONCATENATE 'INX_LETTER_Y6C4_' so_vkorg-low INTO l_ckschl.
 document type
 CONCATENATE 'INX_LETTER_AUART_' so_vkorg-low INTO l_cauart.
 Get application
 SELECT SINGLE value FROM /sie/ssg_xcm_cuc
 INTO c_kappl WHERE repid = sy-repid AND const LIKE l_ckappl.
 Get output type
 SELECT SINGLE value FROM /sie/ssg_xcm_cuc
 INTO c_kschl WHERE repid = sy-repid AND const LIKE l_ckschl.
 Get document type
 SELECT SINGLE value FROM /sie/ssg_xcm_cuc
 INTO c_auart WHERE repid = sy-repid AND const LIKE l_cauart.
 ENDIF.
find no of Sales org entries entered in the selection screen
 DESCRIBE TABLE so_vkorg LINES l_vkorg.
find no of Sales office entries entered in the selection screen
 DESCRIBE TABLE so_vkbur LINES l_vkbur.
find no of Sales Group entries entered in the selection screen
 DESCRIBE TABLE so_vkgrp LINES l_vkgrp.
Check if enterred more than one entry
 IF l_vkorg = 1 AND l_vkbur = 1.
 add Sales Org, Sales office, Sales group for key
 IF NOT so_vkgrp[] IS INITIAL.
 CONCATENATE so_vkorg-low so_vkbur-low so_vkgrp-low INTO l_vakey.
 ELSE.
 CONCATENATE so_vkorg-low so_vkbur-low '%' INTO l_vakey.
 ENDIF.
 CONDENSE l_vakey.
 Get printer name for selection.
 SELECT SINGLE ldest FROM nach INTO p_print
 WHERE kappl = c_kappl AND kschl = c_kschl AND vakey LIKE l_vakey.
 ENDIF.
Manual processing is possible for Renewal Letter in advance only
IF p_manpr = 'X' AND rb_follo = 'X'.
 MESSAGE E017.
ENDIF.
Main Processing
START-OF-SELECTION.
Check for the Follow up report
 IF rb_follo = 'X'.
 Call Follow up report with Selection criteria
 SUBMIT /SIE/SWE_XCM_INDEX_FOLLOWUP
 USING SELECTION-SET l_variant
 WITH so_vbeln IN so_vbeln
 WITH so_vkorg IN so_vkorg
 WITH so_vtweg IN so_vtweg
 WITH so_spart IN so_spart
 WITH so_vkgrp IN so_vkgrp
 WITH so_vkbur IN so_vkbur
 WITH so_vkues IN so_vkues
 WITH so_vuntd IN so_vuntd
 WITH so_ernam IN so_ernam
 WITH so_fnum IN so_fnum
 WITH p_kappl EQ c_kappl
 WITH p_kschl EQ c_kschl
 WITH p_auart EQ c_auart
 AND RETURN.
 ELSE.
 Process for Indexation Report
 gs_repid = sy-repid.
 Get data.
 PERFORM get_data.
 Filter data based on Siemens France rules
 PERFORM process_data.
 Check contract data is available for selection criteria
 IF NOT it_cntrt[] IS INITIAL.
 create ALV output header
 PERFORM alv_fieldcat USING gt_fieldcat[].
 create ALV layout
 PERFORM alv_layout CHANGING gs_layout.
 Sort ALV output
 PERFORM alv_sort.
 display filtered contract data
 PERFORM output_data.
 ELSE.
 Display a message 'No records found'.
 MESSAGE I011.
 EXIT.
 ENDIF.
 ENDIF.
*& Form get_data
 Retrieve contracts data from tables
--> p1 text
<-- p2 text
FORM get_data.
Get contract data from VBAK and VEDA.
SELECT avbeln aaudat a~kunnr
 bvuntdat bvbegdat
 bvdemdat bvenddat
 INTO CORRESPONDING FIELDS OF TABLE it_cntrt
 FROM vbak AS a INNER JOIN veda AS b
 ON avbeln = bvbeln
 WHERE a~vbeln IN so_vbeln
 AND a~auart EQ c_auart
 AND a~vkorg IN so_vkorg
 AND a~vtweg IN so_vtweg
 AND a~spart IN so_spart
 AND a~vkgrp IN so_vkgrp
 AND a~vkbur IN so_vkbur
 AND a~ernam IN so_ernam
 AND b~vposn = '000000'
 AND b~vkuesch IN so_vkues
 AND b~vuntdat IN so_vuntd.
ENDFORM. " get_data
*& Form process_data
 text
--> p1 text
<-- p2 text
FORM process_data.
Internal tables
DATA: l_nast TYPE TABLE OF nast,
 it_pr TYPE TABLE OF /sie/ssg_xcm_pr.
Work areas
DATA: w_nast TYPE nast,
 wa_pr TYPE /sie/ssg_xcm_pr.
local Variables
DATA: l_datum1 TYPE sy-datum,
 l_datum2 TYPE sy-datum,
 l_d3last TYPE sy-datum,
 l_d3next TYPE sy-datum.
current date.
l_datum1 = sy-datum.
Calcuate date after 3 months.
CALL FUNCTION 'DATE_CREATE'
 EXPORTING
 ANZAHL_MONATE = 3
 DATUM_EIN = l_datum1
 IMPORTING
 DATUM_AUS = l_datum2.
l_datum2 = l_datum2 - 1.
SORT it_cntrt BY KUNNR VBELN.
Get corresponding records from /SIE/SSG_XCM_PR.
SELECT vbeln posnr fnum
 FROM /SIE/SSG_XCM_PR
 INTO CORRESPONDING FIELDS OF TABLE it_pr
 FOR ALL ENTRIES IN it_cntrt
 WHERE vbeln = it_cntrt-vbeln
 AND posnr = it_cntrt-vposn
 AND fnum IN so_fnum.
clear workarea
CLEAR wa_cntrt.
filter contracts agaist the table /SIE/SSG_XCM_PR records.
LOOP AT it_cntrt INTO wa_cntrt.
 CLEAR wa_pr.
check contracts available in table /SIE/SSG_XCM_PR
 READ TABLE it_pr INTO wa_pr WITH KEY vbeln = wa_cntrt-vbeln.
 IF sy-subrc <> 0.
 DELETE it_cntrt.
 CLEAR wa_pr.
 CONTINUE.
 ELSEIF sy-subrc = 0 AND NOT wa_pr-fnum IN so_fnum.
if not available, do not consider this contract
 DELETE it_cntrt.
 CLEAR wa_pr.
 CONTINUE.
 ENDIF.
 Dont consider contracts expires before today and after 3 months.
 IF wa_cntrt-vdemdat > l_datum1. "current date
 IF wa_cntrt-vdemdat(6) > l_datum2(6). "AND "after 3 months
 delete contract
 DELETE it_cntrt.
 CLEAR wa_cntrt.
 CONTINUE.
 ENDIF.
 ELSE.
 DELETE it_cntrt.
 CLEAR wa_cntrt.
 CONTINUE.
 ENDIF.
Is contract renewal letter has been sent already?
Get all records from NAST to find letter sent?
 SELECT kappl objky kschl nacha datvr
 FROM NAST
 INTO CORRESPONDING FIELDS OF TABLE l_nast
 WHERE kappl = c_kappl
 AND objky = wa_cntrt-vbeln
 AND kschl = c_kschl
 AND nacha = '1'.
 IF sy-subrc = 0.
 sort renewal letter sent dates by latest is first
 SORT l_nast BY datvr DESCENDING.
 Get latest nast record
 READ TABLE l_nast INTO w_nast INDEX 1.
 IF sy-subrc = 0.
 IF p_manpr <> 'X'. " ignore 3 month logic
 l_d3next = wa_cntrt-vdemdat(06).
 l_d3next+6(2) = '01'.
 Calcuate date after 3 months.
 CALL FUNCTION 'DATE_CREATE'
 EXPORTING
 ANZAHL_MONATE = -3
 DATUM_EIN = l_d3next
 IMPORTING
 DATUM_AUS = l_d3last.
 l_d3last = l_d3last + 1.
 Check letter already sent year equals current year
 IF w_nast-datvr BETWEEN l_d3last AND wa_cntrt-vdemdat.
 do not consider it
 DELETE it_cntrt.
 CLEAR: l_d3last, wa_cntrt, w_nast, l_d3next.
 CONTINUE.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDIF.
no leading zeros to contract
 WRITE wa_cntrt-vbeln TO wa_cntrt-vbeln1 NO-ZERO.
modify internal table
 MODIFY it_cntrt FROM wa_cntrt.
 CLEAR: l_nast, w_nast.
ENDLOOP.
ENDFORM. " process_data
*& Form output_data
 text
--> p1 text
<-- p2 text
FORM output_data.
Display output in a ALV Grid
 CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = gs_repid
 I_CALLBACK_PF_STATUS_SET = 'ALV_STATUS'
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 IS_LAYOUT = gs_layout
 IT_FIELDCAT = gt_fieldcat
 IT_SORT = gs_sort
 I_SAVE = 'A'
 TABLES
 T_OUTTAB = it_cntrt
 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. " output_data
*& Form alv_header
 text
--> p1 text
<-- p2 text
FORM alv_fieldcat USING gs_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
Sold-to Party header
ls_fieldcat-col_pos = 1.
ls_fieldcat-fieldname = 'KUNNR'.
ls_fieldcat-seltext_m = 'Sold-to Party'.
ls_fieldcat-outputlen = 14.
ls_fieldcat-datatype = 'CHAR'.
ls_fieldcat-key = 'X'.
APPEND ls_fieldcat TO gs_fieldcat.
CLEAR ls_fieldcat.
Contract number
ls_fieldcat-col_pos = 2.
ls_fieldcat-fieldname = 'VBELN'.
ls_fieldcat-seltext_m = 'Contract Number'.
ls_fieldcat-outputlen = 20.
ls_fieldcat-datatype = 'CHAR'.
APPEND ls_fieldcat TO gs_fieldcat.
CLEAR ls_fieldcat.
Contract Signed Date
ls_fieldcat-col_pos = 3.
ls_fieldcat-fieldname = 'VUNTDAT'.
ls_fieldcat-seltext_m = 'Contract signed date'.
ls_fieldcat-outputlen = 20.
ls_fieldcat-datatype = 'DATS'.
APPEND ls_fieldcat TO gs_fieldcat.
CLEAR ls_fieldcat.
Contract Start Date
ls_fieldcat-col_pos = 4.
ls_fieldcat-fieldname = 'VBEGDAT'.
ls_fieldcat-seltext_m = 'Contract start date'.
ls_fieldcat-outputlen = '20'.
ls_fieldcat-datatype = 'DATS'.
APPEND ls_fieldcat TO gs_fieldcat.
CLEAR ls_fieldcat.
Dismantling date
ls_fieldcat-col_pos = 5.
ls_fieldcat-fieldname = 'VDEMDAT'.
ls_fieldcat-seltext_m = 'Dismantling date'.
ls_fieldcat-outputlen = 14.
ls_fieldcat-datatype = 'DATS'.
APPEND ls_fieldcat TO gs_fieldcat.
CLEAR ls_fieldcat.
ENDFORM. " alv_header
*& Form alv_layout
 text
--> p1 text
<-- p2 text
FORM alv_layout USING ls_layout TYPE slis_layout_alv.
No input
ls_layout-no_input = 'X'.
Column width is flexible
ls_layout-colwidth_optimize = 'X'.
ls_layout-box_fieldname = 'BOX'.
ls_layout-info_fieldname = 'LINE_COLOR'.
ls_layout-zebra = 'X'.
ls_layout-get_selinfos = 'X'.
ls_layout-reprep = 'X'.
ENDFORM. " alv_layout
*& Form alv_status
 text
--> p1 text
<-- p2 text
FORM alv_status USING rt_extab TYPE slis_t_extab.
GUI Status and Application Toolbar
SET PF-STATUS '/SIE/SWE_XCM_INDEXLE'.
ENDFORM.
*& Form user_command
 text
--> p1 text
<-- p2 text
FORM user_command USING l_ucomm LIKE sy-ucomm
 l_selfield TYPE slis_selfield.
RANGES: r_kappl FOR nast-kappl,
 r_objky FOR nast-objky,
 r_kschl FOR nast-kschl,
 r_nacha FOR nast-nacha.
DATA: l_jobname TYPE TBTCJOB-JOBNAME,
 l_jobcount TYPE TBTCJOB-JOBCOUNT,
 l_repid TYPE sy-repid,
 l_print_params TYPE PRI_PARAMS,
 l_arc_params TYPE ARC_PARAMS,
 l_valid TYPE c,
 l_retcode TYPE sy-subrc,
 l_blines TYPE i.
CASE l_ucomm.
Process button seleted
 WHEN c_sform.
 process selected records.
 LOOP AT it_cntrt INTO wa_cntrt.
 IF wa_cntrt-box = 'X'.
 place output type in the contract
 PERFORM bdc_output USING wa_cntrt
 CHANGING l_retcode.
 IF l_retcode = 0.
 add record for jobground job
 r_objky-sign = 'I'.
 r_objky-option = 'EQ'.
 r_objky-low = wa_cntrt-vbeln.
 APPEND r_objky.
 ENDIF.
 CLEAR: wa_cntrt, l_retcode, r_objky.
 ENDIF.
 ENDLOOP.
 WHEN c_dclick.
 set contract number id with the selected contract
 SET PARAMETER ID 'AUN' FIELD l_selfield-value.
 SET PARAMETER ID 'KTN' FIELD l_selfield-value.
 call va42 tcode when double click on contract
 CALL TRANSACTION c_tcode AND SKIP FIRST SCREEN.
ENDCASE.
DESCRIBE TABLE r_objky LINES l_blines.
IF NOT r_objky[] IS INITIAL.
IF l_blines > 0.
 Background job name.
 CONCATENATE 'XCM_INDEXATION' sy-uname '_' sy-uzeit
 INTO l_jobname.
 Application
 r_kappl-sign = 'I'.
 r_kappl-option = 'EQ'.
 r_kappl-low = 'V1'.
 APPEND r_kappl.
 Message Type
 r_kschl-sign = 'I'.
 r_kschl-option = 'EQ'.
 r_kschl-low = c_kschl.
 APPEND r_kschl.
 Message transmission medium
 r_nacha-sign = 'I'.
 r_nacha-option = 'EQ'.
 r_nacha-low = '1'.
 APPEND r_nacha.
 l_repid = sy-repid.
 Print Parameters
 CALL FUNCTION 'GET_PRINT_PARAMETERS'
 EXPORTING
 DESTINATION = p_print
 MODE = c_batch
 NO_DIALOG = 'X'
 REPORT = l_repid
 EXPIRATION = 2
 IMMEDIATELY = 'X'
 NEW_LIST_ID = 'X'
 IMPORTING
 OUT_ARCHIVE_PARAMETERS = l_arc_params
 OUT_PARAMETERS = l_print_params
 VALID = l_valid
 EXCEPTIONS
 ARCHIVE_INFO_NOT_FOUND = 1
 INVALID_PRINT_PARAMS = 2
 INVALID_ARCHIVE_PARAMS = 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.
 opening the job
 CALL FUNCTION 'JOB_OPEN'
 EXPORTING
 JOBNAME = l_jobname
 IMPORTING
 JOBCOUNT = l_jobcount
 EXCEPTIONS
 CANT_CREATE_JOB = 1
 INVALID_JOB_DATA = 2
 JOBNAME_MISSING = 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.
 Job submit
 SUBMIT /sie/swe_xcm_index_rsnast00 TO SAP-SPOOL
 USER sy-uname
 WITH s_kappl IN r_kappl
 WITH s_objky IN r_objky
 WITH s_kschl IN r_kschl
 WITH s_nacha IN r_nacha
 WITH p_print EQ p_print
 VIA JOB l_jobname NUMBER l_jobcount
 SPOOL PARAMETERS l_print_params
 WITHOUT SPOOL DYNPRO
 AND RETURN.
 IF sy-subrc <> 0.
 display message when error in scheduling background job
 MESSAGE E016 WITH 'Error scheduling Job'.
 ENDIF.
 Job close
 CALL FUNCTION 'JOB_CLOSE'
 EXPORTING
 JOBCOUNT = l_jobcount
 JOBNAME = l_jobname
 STRTIMMED = 'X'
 EXCEPTIONS
 CANT_START_IMMEDIATE = 1
 INVALID_STARTDATE = 2
 JOBNAME_MISSING = 3
 JOB_CLOSE_FAILED = 4
 JOB_NOSTEPS = 5
 JOB_NOTEX = 6
 LOCK_FAILED = 7
 OTHERS = 8.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDIF.
ENDFORM.
*& Form bdc_output
 text
--> p1 text
<-- p2 text
FORM bdc_output USING wa_cntrt TYPE ty_cntrt
 CHANGING l_retcode TYPE sy-subrc.
DATA: l_nast TYPE TABLE OF nast,
 it_nast TYPE TABLE OF nast,
 w_nast TYPE nast,
 l_cellno(2) TYPE n,
 l_vbelv TYPE vbfa-vbelv,
 l_vbpa TYPE vbpa,
 l_yes(1),
 l_temp(40) TYPE c,
 l_lines TYPE i,
 l_lesscnt TYPE i,
 l_less(1),
 l_lines1(2) TYPE n.
 REFRESH: it_nast, l_nast, it_bdc.
 CLEAR: l_nast, w_nast, l_yes, l_cellno,
 it_nast, l_nast, it_bdc.
 PERFORM dyn_scr USING 'SAPMV45A' '0102' 'X'.
 PERFORM dyn_fld USING 'VBAK-VBELN' wa_cntrt-vbeln.
 PERFORM dyn_fld USING 'BDC_OKCODE' '/00'.
 PERFORM dyn_scr USING 'SAPMV45A' '4001' 'X'.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=HEAD'.
 PERFORM dyn_scr USING 'SAPMV45A' '4002' 'X'.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=KDOK'.
 SELECT *
 FROM nast
 INTO CORRESPONDING FIELDS OF TABLE l_nast
 WHERE kappl = c_kappl
 AND objky = wa_cntrt-vbeln.
 IF sy-subrc = 0.
 SORT l_nast BY kschl vstat.
 DESCRIBE TABLE l_nast LINES l_lines.
 LOOP AT l_nast INTO w_nast.
 l_cellno = sy-tabix.
 IF w_nast-kschl = c_kschl AND w_nast-vstat = 0.
 EXIT.
 ENDIF.
 IF w_nast-kschl > c_kschl OR
 ( w_nast-kschl = c_kschl AND w_nast-vstat <> 0 ).
 IF l_less = space.
 l_cellno = l_cellno - 1.
 ENDIF.
 CLEAR l_less.
 IF l_cellno = 0.
 l_cellno = 1.
 ENDIF.
 l_lines = l_lines + 1.
 l_lines1 = l_lines.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 CONCATENATE 'DNAST-KSCHL(' l_lines1 ')' INTO l_temp.
 CONDENSE l_temp.
 PERFORM dyn_fld USING l_temp 'Y6C4'.
 CLEAR: l_temp, l_lines, l_lines1.
 PERFORM dyn_fld USING 'BDC_OKCODE' '/00'.
 EXIT.
 ELSEIF w_nast-kschl < c_kschl.
 l_less = 'X'.
 l_lesscnt = l_lesscnt + 1.
 ENDIF.
 ENDLOOP.
 ELSE.
 l_cellno = '01'.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 CONCATENATE 'DNAST-KSCHL(' l_cellno ')' INTO l_temp.
 CONDENSE l_temp.
 PERFORM dyn_fld USING l_temp 'Y6C4'.
 CLEAR l_temp.
 PERFORM dyn_fld USING 'BDC_OKCODE' '/00'.
 ENDIF.
 IF l_less = 'X'.
 l_lesscnt = l_lesscnt + 1.
 l_cellno = l_lesscnt.
 l_lines = l_lines + 1.
 l_lines1 = l_lines.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 CONCATENATE 'DNAST-KSCHL(' l_lines1 ')' INTO l_temp.
 CONDENSE l_temp.
 PERFORM dyn_fld USING l_temp 'Y6C4'.
 CLEAR: l_temp, l_lines, l_lines1.
 PERFORM dyn_fld USING 'BDC_OKCODE' '/00'.
 ENDIF.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 CONCATENATE 'DV70A-SELKZ(' l_cellno ')' INTO l_temp.
 CONDENSE l_temp.
 PERFORM dyn_fld USING l_temp 'X'.
 CLEAR l_temp.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=V70P'.
 PERFORM dyn_scr USING 'SAPDV70A' '0101' 'X'.
 PERFORM dyn_fld USING 'NAST-LDEST' p_print.
 PERFORM dyn_fld USING 'NAST-DIMME' 'X'.
 PERFORM dyn_fld USING 'NAST-TDARMOD' '1'.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=V70B'.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 CONCATENATE 'DV70A-SELKZ(' l_cellno ')' INTO l_temp.
 CONDENSE l_temp.
 PERFORM dyn_fld USING l_temp 'X'.
 CLEAR l_temp.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=V70I'.
 PERFORM dyn_scr USING 'SAPDV70A' '0102' 'X'.
 PERFORM dyn_fld USING 'NAST-VSZTP' '1'.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=V70B'.
 PERFORM dyn_scr USING 'SAPDV70A' '0100' 'X'.
 PERFORM dyn_fld USING 'BDC_OKCODE' '=V70S'.
 CALL TRANSACTION c_tcode USING it_bdc
 MODE c_mode "'N'
 UPDATE c_updat "'A'
 MESSAGES INTO it_mesg.
 IF sy-subrc = 0.
 l_retcode = 0.
 ENDIF.
ENDFORM. " bdc_output
*& Form dyn_scr
 text
 -->P_0642 text
 -->P_0643 text
 -->P_0644 text
FORM dyn_scr USING P_0642
 P_0643
 P_0644.
 MOVE: p_0642 TO wa_bdc-program,
 p_0643 TO wa_bdc-dynpro,
 p_0644 TO wa_bdc-dynbegin.
 APPEND wa_bdc TO it_bdc.
 CLEAR wa_bdc.
ENDFORM. " dyn_scr
*& Form dyn_fld
 text
 -->P_0654 text
 -->P_0655 text
FORM dyn_fld USING P_0654
 P_0655.
 MOVE: p_0654 TO wa_bdc-fnam,
 p_0655 TO wa_bdc-fval.
 APPEND wa_bdc TO it_bdc.
 CLEAR wa_bdc.
ENDFORM. " dyn_fld
*& Form alv_sort
 text
FORM alv_sort.
DATA: wa_sortcat TYPE slis_sortinfo_alv.
WA_SORTCAT-SPOS = 1.
WA_SORTCAT-FIELDNAME = 'KUNNR'.
WA_SORTCAT-UP = 'X'.
WA_SORTCAT-EXPA = 'X'.
Appending gd_sortcat-tabname
APPEND WA_SORTCAT TO gs_sort.
CLEAR wa_sortcat.
WA_SORTCAT-SPOS = 2.
WA_SORTCAT-FIELDNAME = 'VBELN'.
WA_SORTCAT-UP = 'X'.
WA_SORTCAT-EXPA = 'X'.
Appending gd_sortcat-tabname
APPEND WA_SORTCAT TO gs_sort.
WA_SORTCAT-SPOS = 3.
WA_SORTCAT-FIELDNAME = 'VUNTDAT'.
WA_SORTCAT-UP = 'X'.
WA_SORTCAT-EXPA = 'X'.
Appending gd_sortcat-tabname
APPEND WA_SORTCAT TO gs_sort.
ENDFORM. " alv_sort

ITS mobile with ALV grid.

Hi everybody, I could read in the ITSmobile wiki section that now the ALV grid is supported. Does anybody now the system prerrequisites for this feature?
Is the ALV grid supported the OO ALV grid? If yes which ALV class is supported?
Thanks in Advance.

Hi Fernando,
See note: [Note 1037715 - ITSmobile: Supported screen elements|https://websmp230.sap-ag.de/sap(bD1lbiZjPTAwMQ==)/bc/bsp/spn/sapnotes/index2.htm?numm=1037715]
Note 1037715 - ITSmobile: Supported screen elements
This might have the information your require:
This note is valid as of the following patch levels:
7.00: kernel patch 88, SAP Basis Support Package 11 (SAPKB70011)
ALV Grid            Supported functions:
                    - Scrolling (function pushbutton for next page and previous page)
                    - Variable number of displayed lines (parameter ~ALVGRIDPAGESIZE)
                    - Traffic light graphics
                    - Selectable lines
This shows how the standard ALV can be used with ITSMobile.
Regards,
Oisin

Excluding alv grid toolbaar functions

Similar Messages

Maybe you are looking for