Regarding Selection Screen field making display field in ALV report

Hi All,
In ALV Report, at runtime how can i make the field as Display Field in selection screen .
Thks & Regds
Shailesh

hii,
Go to se38 and give the below progra name execute.... check the source code it is very easy to understand.
1.demo_dynpro_modify_simple
2.demo_dynpro_modify_screen
if tou are using grid,u can refer to foll link
sequencing / choosing fields in report screen at runtime,
Display the Columns in the grid at run time
rgrds,
Shweta

Similar Messages

AT SELECTION-SCREEN ON/END OF FIELD

Hi all,
 I want to know the exact difference between AT SELECTION-SCREEN ON field and AT SELECTION-SCREEN ON END OF field. Could you give me the answer with an example.
Sathish.

Hi,
Let`s say you have a radio button on your selection screen and you want to perform some action once the user clicks the radio button. You can attain this functionality by using AT SELECTION-SCREEN ON FIELD. This event block is raised before the AT SELECTION-SCREEN event, on action performed on that particular field.
"AT SELECTION-SCREEN ON END OF field",
Consider the following example :
AT SELECTION-SCREEN ON END OF <seltab>
event is triggered. This event block allows you to check the whole selection table <seltab>. Warning messages are displayed as dialog boxes, not in the status line.
AT SELECTION-SCREEN ON END OF CARRID.
LOOP AT MATNR.
 IF MATNR-HIGH NE ' '.
 IF MATNR-LOW IS INITIAL.
 MESSAGE Wxxx(MSG).
 ENDIF.
 ENDIF.
ENDLOOP.
Hope the info. is helpful, if so reward points.
Regards

Can you giv me a brief introduction regarding selection screen with one eg:

Hello
can you giv me a brief introduction regarding selection screen with one eg:

Hi Ranjith,
Selection Screens
Selection screens are one of the three types of screen in the R/3 System, along with dialog screens and lists. You use them whenever you want the user to enter either a single value for a field or fields, or to enter selection criteria.
Function
ABAP programs use screens to obtain input from users. The most general type of screen is a dialog screen, which you create using the ABAP Workbench tools Screen Painter and Menu Painter These tools allow you to create screens for data input and output. However, each of these screens requires its own flow logic.
Defining and Calling Selection Screens
You often use screens purely for data input . In these cases, you can use a selection screen. Selection screens provide a standardized user interface in the R/3 System. Users can enter both single values and complex selections. Input parameters are primarily used to control the program flow, while users can enter selection criteria to restrict the amount of data read from the database. You can create and save predefined sets of input values in the ABAP Editor for any selection screen. These are called variants. Texts on the selection screen are stored as language-specific selection texts in the program text elements. If you start an executable report using the SUBMIT statement, the input fields of the selection screen also serve as a data interface.
Defining and Calling Selection Screens
You define selection screens using ABAP statements in a program. Simple statements allow you to create input fields, checkboxes, and radio buttons, and design the screen layout. If you want to create a screen exclusively for data input, you do not need to create it using the normal dialog programming tools. When you create a selection screen, the system automatically assumes the tasks of the Screen Painter and Menu Painter.
The rules for calling and defining selection screens in ABAP programs depend on the program type:
·         Executable program (type 1) without logical database
You can use a single standard selection screen and as many user-defined selection screens as you wish. The standard selection screen is called automatically when you start the program. User-defined selection screens, on the other hand, are called using the CALL SELECTION-SCREEN statement in a program. The standard selection screen always has the screen number 1000. User-defined selection screens can have any screen number except 1000.
·         Executable program (type 1) with logical database
The standard selection screen for an executable program linked to a logical database is made up of the logical database selections and the program selections.
·         Module pools (type M) and function modules (type F)
You can only use user-defined selection screens in module pools and function modules. These can have any number apart from 1000. You can only call a selection screen from a function module using the CALL SELECTION-SCREEN statement. You can also define selection screens as Subscreens and incorporate them in screens or tabstrip controls.
Hope this is useful.
regards
Ram
Message was edited by:
        Ramanujan Chitrakootam

Date format needs to be in selection screen mm/dd/yyyy but in alv output ..

hi
i need help on displaying date in alv output
date format needs to be in selection screen mm/dd/yyyy but in alv output ..it should be displayed as yyyymmdd
regards
Nishant

hi,
you are passing the value to ALv using an internal table.
so store the format YYYYMMDD date in the internal table and pass it to ALV.
use the below FM
DD/MM/YYYY -> YYYYMMDD
CONVERSION_EXIT_PDATE_INPUT
rgds
Anver

Problem in Data Display in Dynamic ALV Report

Hi all,
I am developing a Dynamic ALV report where I want display material batch (zjpack_base-charg) in column and Material (zjpack_base-matnr) & Qty (Zjpack_base-netwr) field row wise.My intention is to show report datewise for a material how many batch developed with there qty.I am sending you the code which i already wrote.Here column is developed batchwise but I am not able to show the qty against each batch.Please see my code and guide me how to display.
REPORT zdynamic_test .
*REPORT ztest_notepad.
*& Declarations
*Type-pools
TYPE-POOLS: slis.
*TABLES
TABLES: zjpack_base.
*Types
TYPES:
 ty_fcat TYPE lvc_s_fcat,
 ty_fcatalog TYPE slis_fieldcat_alv.
*Work areas
DATA:
 wa_fcat TYPE ty_fcat,
 wa_fcatalog TYPE ty_fcatalog.
*Internal tables
DATA:
 it_fcat TYPE STANDARD TABLE OF ty_fcat,
 it_fcatalog TYPE STANDARD TABLE OF ty_fcatalog.
*Type reference
DATA:
 it_dyn_tab TYPE REF TO data,
 wa_newline TYPE REF TO data.
*INTERNAL TABLE
DATA: BEGIN OF it_itab OCCURS 0.
 INCLUDE STRUCTURE zjpack_base.
DATA: END OF it_itab.
*Filed symbols
FIELD-SYMBOLS:
 <gt_table> TYPE STANDARD TABLE,
 <fs_dyntable>,
 <fs_fldval> TYPE ANY,
 <l_field> TYPE ANY.
*Variables
DATA:
 l_fieldname TYPE lvc_s_fcat-fieldname,
 l_tabname TYPE lvc_s_fcat-tabname,
 l_fieldtext TYPE lvc_s_fcat-seltext,
 l_index TYPE char2.
"Selection-screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-s11 .
SELECT-OPTIONS:s_matnr FOR zjpack_base-matnr.
SELECT-OPTIONS:s_charg FOR zjpack_base-charg.
SELECT-OPTIONS:s_fdate FOR zjpack_base-fdate .
SELECTION-SCREEN END OF BLOCK b1.
PARAMETERS:
 p_colms TYPE i.
*& start-of-selection.
START-OF-SELECTION.
PERFORM select_data.
PERFORM build_fieldcat.
PERFORM create_dynamic_table.
DO 20 TIMES.
 DO p_colms TIMES.
 l_index = sy-index.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_dyntable> TO <l_field>.
 <l_field> = sy-index.
 ENDDO.
 INSERT <fs_dyntable> INTO TABLE <gt_table>.
ENDDO.
LOOP AT it_itab.
 l_index = sy-tabix.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_dyntable> TO <l_field>.
 <l_field> = it_itab-matnr.
 INSERT <fs_dyntable> INTO TABLE <gt_table>.
ENDLOOP.
LOOP AT it_fcat INTO wa_fcat.
 PERFORM fieldcatalog1 USING: wa_fcat-fieldname
 wa_fcat-tabname
 wa_fcat-seltext.
ENDLOOP.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZTEST_NOTEPAD'
 it_fieldcat = it_fcatalog
 TABLES
 t_outtab = <gt_table>.
*& Form BUILD_FIELDCAT
FORM build_fieldcat .
CLEAR: l_fieldname,
 l_tabname,
 l_fieldtext,
 l_index.
DO p_colms TIMES.
 CLEAR l_index.
 l_index = sy-index.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 CONCATENATE 'Field' l_index INTO l_fieldtext.
 l_tabname = '<GT_TABLE>'.
 PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
ENDDO.
ENDFORM. " BUILD_FIELDCAT
*& Form CREATE_DYNAMIC_TABLE
FORM create_dynamic_table .
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_dyn_tab.
ASSIGN it_dyn_tab->* TO <gt_table>.
Create dynamic work area and assign to FS
CREATE DATA wa_newline LIKE LINE OF <gt_table>.
ASSIGN wa_newline->* TO <fs_dyntable>.
ENDFORM. " CREATE_DYNAMIC_TABLE
*& Form FIELDCATALOG
FORM fieldcatalog USING field table f_txt.
wa_fcat-fieldname = field.
wa_fcat-tabname = table.
wa_fcat-seltext = f_txt.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDFORM. " FIELDCATALOG
*& Form FIELDCATALOG1
FORM fieldcatalog1 USING field table f_txt.
wa_fcatalog-fieldname = field.
wa_fcatalog-tabname = table.
wa_fcatalog-seltext_m = f_txt.
APPEND wa_fcatalog TO it_fcatalog.
CLEAR wa_fcatalog.
ENDFORM. " FIELDCATALOG1
*& Form SELECT_DATA
 text
--> p1 text
<-- p2 text
FORM select_data .
DATA: v_srlno TYPE i.
SELECT matnr charg blqty
INTO CORRESPONDING FIELDS OF it_itab
FROM zjpack_base
WHERE matnr IN s_matnr
AND charg IN s_charg
AND fdate IN s_fdate.
 COLLECT it_itab.
ENDSELECT.
v_srlno.
LOOP AT it_itab.
 v_srlno = v_srlno + 1.
ENDLOOP.
CLEAR: l_fieldname,
 l_tabname,
 l_fieldtext,
 l_index.
1st Field
l_index = sy-tabix.
CONCATENATE 'FIELD' '1' INTO l_fieldname.
l_fieldtext = 'MATNR'.
l_tabname = '<GT_TABLE>'.
PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
Other fields
LOOP AT it_itab.
 CLEAR l_index.
 l_index = sy-tabix + 1.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 CONCATENATE 'CHARG-' it_itab-charg INTO l_fieldtext.
 l_tabname = '<GT_TABLE>'.
 PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
ENDLOOP.
Please guide me how my problem will solve.
Thanks & Regards
Nirmal

Hi all, I am developing a Dynamic ALV report where I want display material batch (zjpack_base-charg) in column and Material (zjpack_base-matnr) & Qty (Zjpack_base-netwr) field row wise.My intention is to show report datewise for a material how many batch developed with there qty.I am sending you the code which i already wrote.Here column is developed batchwise but I am not able to show the qty against each batch.Please see my code and guide me how to display.
*& Report ZDYNAMIC_TEST *
REPORT zdynamic_test .
*REPORT ztest_notepad.
*& Declarations
*Type-pools
TYPE-POOLS: slis.
*TABLES
TABLES: zjpack_base.
*Types
TYPES:
 ty_fcat TYPE lvc_s_fcat,
 ty_fcatalog TYPE slis_fieldcat_alv.
*Work areas
DATA:
 wa_fcat TYPE ty_fcat,
 wa_fcatalog TYPE ty_fcatalog.
*Internal tables
DATA:
 it_fcat TYPE STANDARD TABLE OF ty_fcat,
 it_fcatalog TYPE STANDARD TABLE OF ty_fcatalog.
*Type reference
DATA:
 it_dyn_tab TYPE REF TO data,
 wa_newline TYPE REF TO data.
*INTERNAL TABLE
DATA: BEGIN OF it_itab OCCURS 0.
 INCLUDE STRUCTURE zjpack_base.
DATA: END OF it_itab.
*Filed symbols
FIELD-SYMBOLS:
 <gt_table> TYPE STANDARD TABLE,
 <fs_dyntable>,
 <fs_fldval> TYPE ANY,
 <l_field> TYPE ANY.
*Variables
DATA:
 l_fieldname TYPE lvc_s_fcat-fieldname,
 l_tabname TYPE lvc_s_fcat-tabname,
 l_fieldtext TYPE lvc_s_fcat-seltext,
 l_index TYPE char2.
"Selection-screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-s11 .
SELECT-OPTIONS:s_matnr FOR zjpack_base-matnr.
SELECT-OPTIONS:s_charg FOR zjpack_base-charg.
SELECT-OPTIONS:s_fdate FOR zjpack_base-fdate .
SELECTION-SCREEN END OF BLOCK b1.
PARAMETERS:
 p_colms TYPE i.
*& start-of-selection.
START-OF-SELECTION.
PERFORM select_data.
PERFORM build_fieldcat.
PERFORM create_dynamic_table.
* DO 20 TIMES.
* DO p_colms TIMES.
* l_index = sy-index.
* CONCATENATE 'FIELD' l_index INTO l_fieldname.
* ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_dyntable> TO <l_field>.
* <l_field> = sy-index.
* ENDDO.
* INSERT <fs_dyntable> INTO TABLE <gt_table>.
* ENDDO.
LOOP AT it_itab.
 l_index = sy-tabix.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 ASSIGN COMPONENT l_fieldname OF STRUCTURE <fs_dyntable> TO <l_field>.
 <l_field> = it_itab-matnr.
 INSERT <fs_dyntable> INTO TABLE <gt_table>.
ENDLOOP.
LOOP AT it_fcat INTO wa_fcat.
 PERFORM fieldcatalog1 USING: wa_fcat-fieldname
 wa_fcat-tabname
 wa_fcat-seltext.
ENDLOOP.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZTEST_NOTEPAD'
 it_fieldcat = it_fcatalog
 TABLES
 t_outtab = <gt_table>.
*& Form BUILD_FIELDCAT
FORM build_fieldcat .
* CLEAR: l_fieldname,
* l_tabname,
* l_fieldtext,
* l_index.
* DO p_colms TIMES.
* CLEAR l_index.
* l_index = sy-index.
* CONCATENATE 'FIELD' l_index INTO l_fieldname.
* CONCATENATE 'Field' l_index INTO l_fieldtext.
* l_tabname = '<GT_TABLE>'.
* PERFORM fieldcatalog USING: l_fieldname
* l_tabname
* l_fieldtext.
* ENDDO.
ENDFORM. " BUILD_FIELDCAT
*& Form CREATE_DYNAMIC_TABLE
FORM create_dynamic_table .
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_dyn_tab.
ASSIGN it_dyn_tab->* TO <gt_table>.
* Create dynamic work area and assign to FS
CREATE DATA wa_newline LIKE LINE OF <gt_table>.
ASSIGN wa_newline->* TO <fs_dyntable>.
ENDFORM. " CREATE_DYNAMIC_TABLE
*& Form FIELDCATALOG
FORM fieldcatalog USING field table f_txt.
wa_fcat-fieldname = field.
wa_fcat-tabname = table.
wa_fcat-seltext = f_txt.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDFORM. " FIELDCATALOG
*& Form FIELDCATALOG1
FORM fieldcatalog1 USING field table f_txt.
wa_fcatalog-fieldname = field.
wa_fcatalog-tabname = table.
wa_fcatalog-seltext_m = f_txt.
APPEND wa_fcatalog TO it_fcatalog.
CLEAR wa_fcatalog.
ENDFORM. " FIELDCATALOG1
*& Form SELECT_DATA
* text
* --> p1 text
* <-- p2 text
FORM select_data .
* DATA: v_srlno TYPE i.
SELECT matnr charg blqty
INTO CORRESPONDING FIELDS OF it_itab
FROM zjpack_base
WHERE matnr IN s_matnr
AND charg IN s_charg
AND fdate IN s_fdate.
 COLLECT it_itab.
ENDSELECT.
* v_srlno.
* LOOP AT it_itab.
* v_srlno = v_srlno + 1.
* ENDLOOP.
CLEAR: l_fieldname,
 l_tabname,
 l_fieldtext,
 l_index.
* 1st Field
* l_index = sy-tabix.
CONCATENATE 'FIELD' '1' INTO l_fieldname.
l_fieldtext = 'MATNR'.
l_tabname = '<GT_TABLE>'.
PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
* Other fields
LOOP AT it_itab.
 CLEAR l_index.
 l_index = sy-tabix + 1.
 CONCATENATE 'FIELD' l_index INTO l_fieldname.
 CONCATENATE 'CHARG-' it_itab-charg INTO l_fieldtext.
 l_tabname = '<GT_TABLE>'.
 PERFORM fieldcatalog USING: l_fieldname
 l_tabname
 l_fieldtext.
ENDLOOP.
ENDFORM. " SELECT_DATA

Displaying logo in alv report

hi,
what are the minimum requirements to display logo in alv report at the top of the page.
i searched forums but did n't get the required answer.

Hi
This code is to display logo in the report through alv grid
*& Report ZALVDEMO *
REPORT ZALVDEMO.
TABLES : J_1IEXCHDR, " header table
J_1IEXCDTL, " item table
J_1IPART2, " Excise Part II details
LFA1, " vendor master table
J_1IMOVEND, " vendor excise details table
MSEG, " Document Segment: Material
MKPF, " Header: Material Document
DD07T, " domain text table
T001W. " Plant and Branch Details
DATA : BEGIN OF IT_CHDR OCCURS 100,
DOCNO LIKE J_1IEXCHDR-DOCNO,
DOCYR LIKE J_1IEXCHDR-DOCYR,
EXNUM LIKE J_1IEXCHDR-EXNUM,
EXDAT LIKE J_1IEXCHDR-EXDAT,
WERKS LIKE J_1IEXCHDR-WERKS,
EXBED LIKE J_1IEXCHDR-EXBED,
EXCCD LIKE J_1IEXCHDR-EXCCD,
ECS LIKE J_1IEXCHDR-ECS,
END OF IT_CHDR.
DATA : BEGIN OF IT_CDTL OCCURS 100,
DOCYR LIKE J_1IEXCDTL-DOCYR,
DOCNO LIKE J_1IEXCDTL-DOCNO,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
LIFNR LIKE J_1IEXCDTL-LIFNR,
MATNR LIKE J_1IEXCDTL-MATNR,
MAKTX LIKE J_1IEXCDTL-MAKTX,
CHAPID LIKE J_1IEXCDTL-CHAPID,
EXBAS LIKE J_1IEXCDTL-EXBAS,
EXBED LIKE J_1IEXCDTL-EXBED,
ECS LIKE J_1IEXCDTL-ECS,
MENGE LIKE J_1IEXCDTL-MENGE,
MEINS LIKE J_1IEXCDTL-MEINS,
RDOC2 LIKE J_1IEXCDTL-RDOC2,
END OF IT_CDTL.
DATA TEXT(10).
DATA : BEGIN OF IT_OUT OCCURS 0,
SERIALNO LIKE J_1IPART2-SERIALNO,
TEXT1 LIKE TEXT,
EXNUM LIKE J_1IEXCDTL-EXNUM,
EXDAT LIKE J_1IEXCDTL-EXDAT,
NAME LIKE LFA1-NAME1,
DDTEXT LIKE DD07T-DDTEXT,
EXCCD LIKE J_1IEXCHDR-EXCCD,
BUDAT LIKE MKPF-BUDAT,
EXBAS LIKE IT_CDTL-EXBAS,
EXBED LIKE IT_CDTL-EXBED,
ECS LIKE IT_CDTL-ECS,
MATNR LIKE IT_CDTL-MATNR,
MAKTX LIKE IT_CDTL-MAKTX,
CHAPID LIKE IT_CDTL-CHAPID,
MENGE LIKE IT_CDTL-MENGE,
MEINS LIKE IT_CDTL-MEINS,
DEL_IND(1),
END OF IT_OUT.
DATA IT_PART2 LIKE J_1IPART2 OCCURS 0 WITH HEADER LINE.
DATA S_NO(4) .
DATA DB_CNT LIKE SY-TABIX.
DATA EBELN_T LIKE MSEG-EBELN .
TYPE-POOLS : SLIS.
DATA : AFIELD TYPE SLIS_FIELDCAT_ALV.
DATA : LIST_HEADER TYPE SLIS_T_LISTHEADER,
FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
LS_FTCAT TYPE LVC_S_FCAT,
SORTCAT TYPE SLIS_T_SORTINFO_ALV,
SORTCAT_LN LIKE LINE OF SORTCAT,
G_REPID LIKE SY-REPID,
G_BACK_GROUND(70), "like bapibds01-objkey,
GS_VARIANT LIKE DISVARIANT,
G_SAVE ,
GT_EVENTS TYPE SLIS_T_EVENT,
ALV_EVENT TYPE SLIS_ALV_EVENT,
EVENTCAT TYPE SLIS_T_EVENT,
EVENTCAT_LN LIKE LINE OF EVENTCAT,
LAYOUT_IN TYPE SLIS_LAYOUT_ALV,
LAYOUT_IN1 TYPE SLIS_LAYOUT_ALV.
CONSTANTS : GC_FORMNAME_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE
'TOP_OF_PAGE',
GC_FORMNAME_USER_COMMAND TYPE SLIS_FORMNAME VALUE
'USER_COMMAND',
GC_FORMNAME_BEFORE_OUTPUT TYPE SLIS_FORMNAME VALUE
'BEFORE_OUTPUT'.
ALV_EVENT TYPE SLIS_ALV_EVENT,
DATA EX_NO LIKE IT_CHDR-EXNUM VALUE 0.
DATA REGTYP_1 LIKE J_1IPART2-REGTYP.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME.
PARAMETERS WERKS TYPE J_1IEXCHDR-WERKS.
SELECT-OPTIONS : BUDAT FOR J_1IEXCHDR-EXDAT.
PARAMETERS : R1 RADIOBUTTON GROUP GRP DEFAULT 'X',
R2 RADIOBUTTON GROUP GRP.
SELECTION-SCREEN END OF BLOCK B.
INITIALIZATION.
G_REPID = SY-REPID.
G_SAVE = 'A'.
PERFORM BUILD_EVENT USING GT_EVENTS[].
PERFORM ALV_EVENT_INIT.
AT SELECTION-SCREEN.
REFRESH LIST_HEADER.
PERFORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER.
START-OF-SELECTION.
PERFORM ALV_EVENT_INIT.
G_REPID = SY-REPID.
G_BACK_GROUND = ' ' .
IF R1 = 'X'.
CLEAR R2. CLEAR : REGTYP_1.
REGTYP_1 = 'A'.
set titlebar 'BALAJI' with DB_CNT.
ELSEIF R2 = 'X'.
CLEAR R1.CLEAR : REGTYP_1.
REGTYP_1 = 'C'.
set titlebar 'BALAJI1' with DB_CNT.
ENDIF.
SELECT * FROM J_1IPART2
INTO CORRESPONDING FIELDS OF TABLE IT_PART2
WHERE REGTYP = REGTYP_1 AND
TRNTYP = 'GRPO' AND
BUDAT IN BUDAT.
DOCYR = IT_CDTL-DOCYR AND
DOCNO = IT_CDTL-DOCNO.
LOOP AT IT_PART2.
SELECT SINGLE * FROM J_1IEXCHDR
INTO CORRESPONDING FIELDS OF IT_CHDR
WHERE TRNTYP = 'GRPO' AND
DOCYR = IT_PART2-DOCYR AND
DOCNO = IT_PART2-DOCNO AND
WERKS = WERKS AND
exdat IN BUDAT.
ORDER BY EXDAT.
IF SY-SUBRC = 0.
APPEND IT_CHDR.
ELSE.
CONTINUE.
ENDIF.
IF SY-SUBRC <> 0.
MESSAGE E084.
ENDIF.
ENDLOOP.
LOOP AT IT_CHDR.
SELECT * FROM J_1IEXCDTL
INTO CORRESPONDING FIELDS OF IT_CDTL
FOR ALL ENTRIES IN IT_CHDR
WHERE
TRNTYP = 'GRPO' AND
DOCNO = IT_CHDR-DOCNO AND
DOCYR = IT_CHDR-DOCYR AND
EXNUM = IT_CHDR-EXNUM AND
EXDAT = IT_CHDR-EXDAT AND
WERKS = IT_CHDR-WERKS.
IF SY-SUBRC = 0.
APPEND IT_CDTL.
ELSE.
CONTINUE.
ENDIF.
ENDSELECT.
ENDLOOP.
LOOP AT IT_CDTL.
CLEAR TEXT.
DB_CNT = DB_CNT + 1.
READ TABLE IT_CHDR WITH KEY EXNUM = IT_CDTL-EXNUM.
READ TABLE IT_PART2 WITH KEY DOCNO = IT_CDTL-DOCNO .
IT_OUT-SERIALNO = IT_PART2-SERIALNO.
SELECT SINGLE NAME1 FROM LFA1
INTO IT_OUT-NAME
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM LFA1
WHERE LIFNR = IT_CDTL-LIFNR.
IF LFA1-LAND1 EQ 'IN'.
TEXT = 'INVOICE'.
IT_OUT-TEXT1 = TEXT.
ELSE.
TEXT = 'BOE'.
IT_OUT-TEXT1 = TEXT.
ENDIF.
SELECT SINGLE * FROM J_1IMOVEND
WHERE LIFNR = IT_CDTL-LIFNR.
SELECT SINGLE * FROM DD07T
INTO IT_OUT-DDTEXT
WHERE DOMNAME = 'J_1IVTYP' AND
DDLANGUAGE = 'EN' AND
DOMVALUE_L = J_1IMOVEND-J_1IVTYP.
IF DD07T-DDTEXT = 'First Stage Dealer of indigenous excisable goods'
OR
DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisablegoods'.
DD07T-DDTEXT = 'Dealer'.
ENDIF.
IT_OUT-DDTEXT = DD07T-DDTEXT.
ELSEIF DD07T-DDTEXT = 'Second Stage Dealer of indigenous excisable
*goods'.
DD07T-DDTEXT =
CLEAR EBELN_T.
SELECT SINGLE LFBNR FROM MSEG
INTO EBELN_T
WHERE MBLNR = IT_CDTL-RDOC2 .
SELECT SINGLE * FROM MSEG
WHERE BWART = '106' AND
LFBNR = EBELN_T ."and
ebeln = ebeln_t.
IF SY-SUBRC = 0.
IT_OUT-DEL_IND = 'X'.
ELSE.
IT_OUT-DEL_IND = ' '.
ENDIF.
SELECT SINGLE BUDAT FROM MKPF
INTO IT_OUT-BUDAT
WHERE MBLNR = EBELN_T ."MSEG-LFBNR.
IT_OUT-EXNUM = IT_CDTL-EXNUM.
IT_OUT-EXDAT = IT_CDTL-EXDAT.
IT_OUT-EXCCD = IT_CHDR-EXCCD.
IT_OUT-EXBAS = IT_CDTL-EXBAS.
IT_OUT-EXBED = IT_CDTL-EXBED.
IT_OUT-ECS = IT_CDTL-ECS.
IT_OUT-MATNR = IT_CDTL-MATNR.
IT_OUT-MAKTX = IT_CDTL-MAKTX.
IT_OUT-CHAPID = IT_CDTL-CHAPID.
IT_OUT-MENGE = IT_CDTL-MENGE.
IT_OUT-MEINS = IT_CDTL-MEINS.
APPEND IT_OUT.
EX_NO = IT_CDTL-EXNUM.
ENDLOOP.
Title Portion
IF REGTYP_1 = 'A'.
SET TITLEBAR 'BALAJI' WITH DB_CNT.
ELSEIF REGTYP_1 = 'C'.
SET TITLEBAR 'BALAJI1' WITH DB_CNT.
ENDIF.
AFIELD-COL_POS = 1.
AFIELD-FIELDNAME = 'SERIALNO'.
AFIELD-SELTEXT_L = 'INPUTS'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 2.
AFIELD-FIELDNAME = 'TEXT1'.
AFIELD-SELTEXT_L = 'TYPE OF DOC'.
AFIELD-JUST = 'L'.
AFIELD-DECIMALS_OUT = '0'.
AFIELD-NO_ZERO = 'X'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 3.
AFIELD-FIELDNAME = 'EXNUM'.
AFIELD-SELTEXT_L = 'DOC.NO'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 4.
AFIELD-FIELDNAME = 'EXDAT'.
AFIELD-SELTEXT_L = 'DOC.DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 5.
AFIELD-FIELDNAME = 'NAME'.
AFIELD-SELTEXT_L = 'NAME OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 6.
AFIELD-FIELDNAME = 'DDTEXT'.
AFIELD-SELTEXT_L = 'TYPE-OF-SUPPLIER'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 7.
AFIELD-FIELDNAME = 'EXCCD'.
AFIELD-SELTEXT_L = 'ECC OF THE SUPPLIER'.
AFIELD-NO_ZERO = 'X'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 8.
AFIELD-FIELDNAME = 'BUDAT'.
AFIELD-SELTEXT_L = 'INPUT RECV DATE'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 9.
AFIELD-FIELDNAME = 'EXBAS'.
AFIELD-SELTEXT_L = 'ASSESSABLE-VALUE'.
AFIELD-DO_SUM = 'X'.
AFIELD-JUST = 'R'.
AFIELD-DECIMALS_OUT = '2'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 10.
AFIELD-FIELDNAME = 'EXBED'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN CENVAT'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 11.
AFIELD-FIELDNAME = 'ECS'.
AFIELD-SELTEXT_L = 'DET OF CREDIT TAKEN E-CESS'.
AFIELD-JUST = 'R'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 12.
AFIELD-FIELDNAME = 'MATNR'.
AFIELD-SELTEXT_L = 'MATERIAL-CODE'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 13.
AFIELD-FIELDNAME = 'MAKTX'.
AFIELD-SELTEXT_L = 'DESCRIPTION'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 14.
AFIELD-FIELDNAME = 'CHAPID'.
AFIELD-SELTEXT_L = 'TARIFF-ID'.
AFIELD-JUST = 'L'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 15.
AFIELD-FIELDNAME = 'MENGE'.
AFIELD-SELTEXT_L = 'QUANTITY'.
AFIELD-JUST = 'R'.
AFIELD-DO_SUM = ' '.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 16.
AFIELD-FIELDNAME = 'MEINS'.
AFIELD-SELTEXT_L = 'UOM'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
AFIELD-COL_POS = 17.
AFIELD-FIELDNAME = 'DEL_IND'.
AFIELD-SELTEXT_L = 'Deleted'.
AFIELD-JUST = 'C'.
APPEND AFIELD TO FIELDCAT.
* LAYOUT FOR ZEBRA CATLOG
LAYOUT_IN-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT_IN-ZEBRA = 'X'.
LAYOUT_IN-GET_SELINFOS = 'X'.
LAYOUT_IN-CONFIRMATION_PROMPT = 'X'.
LAYOUT_IN-DETAIL_POPUP = 'X' .
SORTCAT-decimals = '0'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_SAVE = G_SAVE
IS_VARIANT = GS_VARIANT
IT_FIELDCAT = FIELDCAT
IT_SORT = SORTCAT
IS_LAYOUT = LAYOUT_IN
IT_EVENTS = EVENTCAT
I_BACKGROUND_ID = g_back_ground
TABLES
T_OUTTAB = IT_OUT.
*& Form TOP_OF_PAGE_LIST_HEADER
text
-->LIST_HEADERtext
FORM TOP_OF_PAGE_LIST_HEADER USING LIST_HEADER TYPE SLIS_T_LISTHEADER.
DATA : HLINE TYPE SLIS_LISTHEADER,
TEXT(60) TYPE C.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'ROOTS INDUSTRIES LTD' TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
SELECT SINGLE * FROM T001W WHERE WERKS = WERKS.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'PLANT :' TO TEXT.
WRITE WERKS TO TEXT+8.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-NAME1 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-STRAS TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE T001W-ORT01 TO TEXT.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
CLEAR : HLINE,TEXT.
HLINE-TYP = 'H'.
WRITE 'DATE :' TO TEXT.
WRITE BUDAT-LOW TO TEXT+7.
IF BUDAT-HIGH NE ''.
WRITE 'TO' TO TEXT+18.
WRITE BUDAT-HIGH TO TEXT+22.
ENDIF.
HLINE-INFO = TEXT.
APPEND HLINE TO LIST_HEADER.
ENDFORM. "TOP_OF_PAGE_LIST_HEADER
*& Form ALV_EVENT_INIT
text
FORM ALV_EVENT_INIT .
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
ALV_EVENT-FORM = 'ALV_TOP_OF_PAGE'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
ALV_EVENT-FORM = 'ALV_TOP_OF_LIST'.
APPEND ALV_EVENT TO EVENTCAT.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_LIST.
ALV_EVENT-FORM = 'ALV_END_OF_LIST'.
APPEND ALV_EVENT TO GT_EVENTS.
CLEAR ALV_EVENT.
ALV_EVENT-NAME = SLIS_EV_END_OF_PAGE.
ALV_EVENT-FORM = 'ALV_END_OF_PAGE'.
APPEND ALV_EVENT TO GT_EVENTS.
ENDFORM. "ALV_EVENT_INIT
*& Form ALV_TOP_OF_PAGE
text
FORM ALV_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = LIST_HEADER
I_LOGO = 'ENJOYSAP_LOGO'.
ENDFORM. "ALV_TOP_OF_PAGE
*& Form BUILD_EVENT
text
-->P_GT_EVENTS[] text
FORM BUILD_EVENT USING P_EVENTS TYPE SLIS_T_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
I_LIST_TYPE = 0
IMPORTING
ET_EVENTS = P_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_USER_COMMAND TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
READ TABLE P_EVENTS WITH KEY NAME = SLIS_EV_BEFORE_LINE_OUTPUT INTO
ALV_EVENT.
IF SY-SUBRC = 0.
MOVE GC_FORMNAME_BEFORE_OUTPUT TO ALV_EVENT-FORM.
APPEND ALV_EVENT TO P_EVENTS.
ENDIF.
ENDFORM. " BUILD_EVENT
this wud help u

Hi please send code for displaying index in alv report

hi
thanx in advance.
code please for displaying index in alv report.
thanx
rocky

add one more field to ur internal table
index type i .
before u display ALV
loop at itab.
itab-index = sy-tabix.
modify itab index sy-tabix.
endloop.
Message was edited by:
chandrasekhar jagarlamudi

Regarding Selection-Screen Field Display

Hi All,
I have issues with Selection-Screen field display.
The Actual issue is i had declared a selection screen field as: s_exgen FOR embk-exgen.
EMBK-EXGEN is actually 20 Char length field.
But in output display it is being shown as 18 Char field though i can type in all 20 characters.
But display restricted to 18 Characters only.
Can anybody give me the solution for the same!
Thanks in advance.
Thanks & Regards,
Prasad.

Hi,
You can decrease the visible length of the field but you can not increase more than database field length. check SAP help on this :
select-options: s_exgen FOR embk-exgen VISIBLE LENGTH 5.
... VISIBLE LENGTH vlen
Effect
This addition allows you to shorten the visible length of the corresponding screen field on the selection screen to vlen.
Variant 2
SELECT-OPTIONS sel FOR (f).
Additions as in variant 1.
Effect
In this variant, (f) must be a field containing the name of the actual reference field at runtime. The system creates the LOW and HIGH fields as character fields with length 45. However, their appearance on the selection screen is inherited from the reference field whose name is contained in field f at runtime.
Regards
Appana

TO display pop_up on selection screen And chosse that field in 'SELECT' sta

Hello,
I want a pop up on selection screen when user clicks the push button on selection screen pop up should come on selection screen and display the all field of YTLEA table. when user checks few or all field from pop up then data for that field is selected from the YTLEA table.

DDIF_TABL_GET

Regarding selection screen fields

hi gurus,
            i have to show three city names like delhi,bombay n cuttack in selection screen one field under one ball symbol so that when the user click on this ball the three city name will appear and the user select any one out of these three names,which method will i use plz help me ,,,i m working on module pool

sorry i am not enough clear with your requirement..
you can a give a pushbutton with the symbol and assign fncode for that.
now in a int table take the three city values.
in your PAI
case ok_code.
when 'BALL'.
call fn module POPUP_WITH_TABLE_DISPLAY_OK
or
POPUP_WITH_TABLE_DISPLAY
or
POPUP_WITH_TABLE
and pass your int table.
endcase.
regards
shiba dutta

Regarding selection screen fields in Service PO Report

Hello All,
   I have developed a Service PO Report with input parameters like Purch. Organisation, Material Group, Purchasing Group, Plant, PO No., Vendor, Activity, Entry Sheet No., GR No. I have used the tables ekko, ekpo, ekbe, essr, ml_esll, mseg and lfa1.
When I input a particular Purch. Organisation,   I am able to get the output filtered by that Purch. Organisation. Similarly, when I input other fields individually, I get the filtered output based on the value of the fields that I inputted.
The problem is that when I select only a particular GR No. in the selection screen, I am not able to get the filtered output for that particular GR No. Its showing all the unnecessary data for that particular GR No.
Except this field, the report is running fine. So can anybody guide me in getting the filtered output based on GR No.?
I have linked tables ekko, ekbe and mseg.

I have pasted the code below for analysis.
form fetch.
select ek~ebeln
       ek~loekz
       ek~lifnr
       ek~ekorg
       ek~ekgrp
       ek~bedat
       ek~bukrs
       ep~ebelp
       ep~txz01
       ep~werks
       ep~matkl
       ep~mwskz
       ep~menge
       ep~meins
       ep~netpr
       ep~netwr
       ep~mwskz
       into corresponding fields of table it_ekko
       from ekko as ek join ekpo as ep
       on ek~ebeln = ep~ebeln
       and ek~loekz = ep~loekz
       and ek~bukrs = ep~bukrs
       where ek~ebeln in s_ebeln
       and ek~lifnr in s_lifnr
       and ek~ekorg in s_ekorg
       and ek~ekgrp in s_ekgrp
       and ep~werks in s_werks
       and ep~matkl in s_matkl.
if sy-subrc = 0.
    select lifnr name1 from lfa1
       into corresponding fields of table it_lfa1
       for all entries in it_ekko
       where lifnr = it_ekko-lifnr.
endif.
if sy-subrc = 0.
    select lblni lzvon lwert packno txz01 ebeln loekz budat netwr from essr
       into corresponding fields of table it_essr
       for all entries in it_ekko
       where lzvon in s_lzvon
         and lblni in s_lblni
         and ebeln = it_ekko-ebeln.
endif.
if sy-subrc = 0.
    select mblnr ebeln erfmg lfbnr from mseg
      into corresponding fields of table it_mseg
        for all entries in it_essr
        where mblnr in s_mblnr
          and lfbnr = it_essr-lblni
          and ebeln = it_essr-ebeln.
endif.
if sy-subrc = 0.
select packno ebeln srvpos ktext1 netwr menge matkl tbtwr meins mwskz from ml_esll
       into corresponding fields of table it_ml_esll
       for all entries in it_essr
       where srvpos in s_srvpos
        and ebeln = it_essr-lblni.
endif.
if sy-subrc = 0.
select packno srvpos menge meins netwr ebeln tbtwr from ml_esll
        into corresponding fields of table it_ml_esll1
        for all entries in it_ekko
         where ebeln = it_ekko-ebeln.
endif.
if sy-subrc = 0.
select ebeln vgabe belnr lfbnr mwskz srvpos packno from ekbe
        into corresponding fields of table it_ekbe
          for all entries in it_ekko
            where ebeln = it_ekko-ebeln
            and vgabe = 1.
endif.
if sy-subrc = 0.
select ebeln belnr bewtp from ekbe into corresponding fields of table it_ekbe1
        for all entries in it_ekko
          where ebeln = it_ekko-ebeln
          and   bewtp = 'Q'.
endif.
loop at it_ml_esll into wa_ml_esll.
    move wa_ml_esll-packno to wa_final-packno.
    move wa_ml_esll-ebeln to wa_final-ebeln1.
    move wa_ml_esll-srvpos to wa_final-srvpos.
    move wa_ml_esll-ktext1 to wa_final-ktext1.
    move wa_ml_esll-meins to wa_final-meins.
    move wa_ml_esll-menge to wa_final-menge1.
    read table it_essr into wa_essr with key lblni = wa_ml_esll-ebeln.
    if sy-subrc = 0.
      move-corresponding wa_essr to wa_final.
    endif.
    read table it_ekko into wa_ekko with key ebeln = wa_essr-ebeln.
    if sy-subrc = 0.
      move wa_ekko-werks to wa_final-werks.
      move wa_ekko-ekorg to wa_final-ekorg.
      move wa_ekko-ekgrp to wa_final-ekgrp.
      move wa_ekko-ebeln to wa_final-ebeln.
      move wa_ekko-menge to wa_final-menge.
      move wa_ekko-matkl to wa_final-matkl.
      move wa_ekko-mwskz to wa_final-mwskz.
      move wa_ekko-lifnr to wa_final-lifnr.
      move wa_ekko-bedat to wa_final-bedat.
      move wa_ekko-netpr to wa_final-netpr.
    endif.
    read table it_lfa1 into wa_lfa1 with key lifnr = wa_ekko-lifnr.
     if sy-subrc = 0.
      move wa_lfa1-lifnr to wa_final-lifnr.
      move wa_lfa1-name1 to wa_final-name1.
    endif.
    read table it_ekbe into wa_ekbe with key lfbnr = wa_ml_esll-ebeln
                                             packno = wa_ml_esll-packno
                                             srvpos = wa_ml_esll-srvpos.
    if sy-subrc = 0.
      move wa_ekbe-belnr to wa_final-belnr.
    endif.
    read table it_ekbe1 into wa_ekbe1 with key ebeln = wa_ekko-ebeln.
    if sy-subrc = 0.
      move wa_ekbe1-belnr to wa_final-belnr1.
    endif.
    read table it_ml_esll1 into wa_ml_esll1 with key srvpos = wa_ml_esll-srvpos.
    if sy-subrc = 0.
      move wa_ml_esll1-menge to wa_final-menge2.
      move wa_ml_esll1-netwr to wa_final-netwr.
      move wa_ml_esll1-tbtwr to wa_final-tbtwr.
    endif.
    read table it_mseg into wa_mseg with key lfbnr = wa_essr-lblni
                                             ebeln = wa_essr-ebeln.
    if sy-subrc = 0.
        move wa_mseg-mblnr to wa_final-mblnr.
        move wa_mseg-erfmg to wa_final-erfmg.
    endif.
    append wa_final to it_final.
endloop.
delete it_final where srvpos is initial.
sort it_final by srvpos lblni ebeln .
Edited by: Satvikpanchal on Dec 6, 2011 11:01 AM

Hiding fields in Report Selection Screen which have Mandatory Fields

Hi Friends,
I have 2 Radio Buttons. PO and SO. If PO is selected, user need to input the Plant value in the Sel.Scrn which is mandatory and Storage Location field will be invisible.
If SO is selected, then user need to input the Plant and Storage Location value which are mandatory. Now Storage Location will be visible.
When radio button SO is seleted, SAP triggers an error message as 'Make an entry in all required fields' without displaying Storage Location input field in Sele. Scrn.
How to do this.? I checked in SCN and not find perfect match to solve for Mandatory Input Fields.
Regards,
Suresh

Hi,
Yes. What Rob has told is correct. Try like this.
AT SELECTION-SCREEN.
IF po_po EQ 'X'.
IF so_werks[] IS INITIAL.
MESSAGE 'Please enter plant' TYPE 'E'.
ENDIF.
ELSE.
IF so_lgort[] IS INITIAL.
MESSAGE 'Please enter storage location' TYPE 'E'.
ENDIF.
IF so_werks[] IS INITIAL.
MESSAGE 'Please enter plant' TYPE 'E'.
ENDIF.
ENDIF.
Thanks,
Vinod.

Selection screen control for a field in the report painter report

Hi,
Could you please advice me as to how we can add exclude selection functionality for a field on the selection screen of a report made by trhough report painter report.
Your prompt reply will be really appreciated.
Thanks,
Ramesh.

look at this code and try
select-options : S_NODEID for ZNODETAB-ZNODEID.
at selection-screen on value-request for s_nodeid-low
perform f4_nodeid using 'S_NODEID-LOW'.
at selection-screen on value-request for s_nodeid-low
perform f4_nodeid using 'S_NODEID-HIGH'.
end-of-selection.
FORM f4_nodeid USING    p_field.
declare it_node.
select znodeid from ZNODETAB into table it_node.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'ZNODEID'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = p_field
      value           = space
      value_org       = 'S'
      display         = 'F'
    TABLES
      value_tab       = it_node
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.
endform

Selection screen comment as input field

Hi Experts,
I have a comment in my program using following statement,
SELECTION-SCREEN COMMENT 27(60) dispath.
by default this statement is in output mode ...can we change that as input...
Not to forget i dont want to use PARAMETERS.
Thanks
Sid

Hi Sid,
Only options possible in selection screen comment are:
SELECTION-SCREEN COMMENT [/][pos](len)
                         {text|{[text] FOR FIELD sel}}
                         [VISIBLE LENGTH vlen]
                         [MODIF ID modid]
                         [ldb_additions].
i think its not possible.
Regards,
Talwinder

How to make Standard SRM fields as display fields on the screen

Hi,
I would like to make standards SRM field "PRODUCT ID" as the display field under the "BASIC DATA" tab.
Is there any way to control the standard SRM fields on the Basic data of the SC?
I have done it with custom fields with the BADI-BBP_CUF_BADI but it would not work for Standard SRM field.
Thanks in advance.
Mrudula Patel

OK here is the solution.
Create a Transaction variant via SHD0 Tcode
In the transaction screen variant make the field display only.
activate the transaction variant
All the best.
Let me know if any problems.
Get me ur email id --- maybe i can you a document on how to create a screen variant and activate it.
Message was edited by:
Gummadi

Regarding Selection Screen field making display field in ALV report

Similar Messages

Maybe you are looking for