Regarding Selection Screen in smartforms

Hi:
I got the following requirement.
I've to make a smartform & do the coding in smartform itself. I'm not sure that how to populate a selection screen. I need to populate a Select-options. Please help me out.

HI,
You can create the Selection screen in a program and call the Smartform function module in the Program and you can pass the Selection screen parameters to the Smartfor, if you create the Fields in FROM INTERFACE in Smartfroms, then that become import paramters in the function module and you can pass the selection screen fields to this paramters
Look at the below link, it is having the Program and the Progam using the select-options also
http://www.erpgenie.com/abap/smartforms.htm
Regards
Sudheer

Similar Messages

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

Selection screen and smartforms

Hi,
Can somebody share with me simple eg to
enter data via the selection screens and then pass those values to smartform.
i have used the following code.But whenever i execute it the smartform opens first. i want to open the selection screen first.Then after entering the data there ,the smartorm must open up with the entered values.
PARAMETER P_PARAM1 TYPE MYTABLE-COL1.
PARAMETER P_PARAM2 TYPE MYTABLE-COL2.
AT SELECTION-SCREEN OUTPUT.
CALL FUNCTION '........................................'
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
 PARAM1 = P_PARAM1
 PARAM2 = P_PARAM2
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Thanks & Regards
Jay

Hi,
As asked I am sending this piece of a code so that you can get a clear idea for the same.If you face the difficulty again please let me know.
selection-screen begin of block b1 with frame title text-001.
parameters :
 p_carrid type spfli-carrid. " Carrier Id.
selection-screen end of block b1.
Working variable
data:
f_name type rs38l_fnam. " function module name
start-of-selection.
perform open_smartforms.
form open_smartforms .
call function 'SSF_FUNCTION_MODULE_NAME'
 exporting
 formname = '<formname>''
VARIANT = ' '
DIRECT_CALL = ' '
 importing
 fm_name = f_name
 exceptions
 no_form = 1
 no_function_module = 2
 others = 3
if sy-subrc <> 0.
 message id sy-msgid type 'S' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif. " IF sy-subrc ne 0
call function f_name
 exporting
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
 p_carr = p_carrid
exceptions
 formatting_error = 1
 internal_error = 2
 send_error = 3
 user_canceled = 4
 others = 5
if sy-subrc ne 0.
 message id sy-msgid type 'S' number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif. " IF sy-subrc ne 0
endform. " OPEN_SMARTFORMS
Regards,
Suvajit.

Regarding selection screen output

hi,
i have created ALV report by using selection screen.in this i have displayed kunnr field from kna1 table.
but it is showing someextra zero's and then code now i want to display only code not extra zero.here below i am giving example:----
sap code
00001562
but i want like this....
sap code
1562.
thanx/regards,
vaneet thakur

TABLES : VBRK,KNA1.
TYPE-POOLS : SLIS.
DATA : T_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 L_FIELDCAT TYPE SLIS_FIELDCAT_ALV, "DECLARATION OF FIELDCAT FOR OUTPUT DISPLAY
 T_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA : BEGIN OF ITAB OCCURS 0,
 VBELN LIKE VBRK-VBELN, "PO NUMBER
 VTEG LIKE VBRK-VTWEG, "DC
 SPART LIKE VBRK-SPART, "DIVISION
 FKDAT LIKE VBRK-FKDAT, "DATE
 KUNRG LIKE VBRK-KUNRG, "CUSTOMER PLANT
 WERKS LIKE VBRK-WAERK, "SITE
 VKORG LIKE VBRK-VKORG, "SALE ORGANIZATION
 NAME1 LIKE KNA1-NAME1,
 ORT01 LIKE KNA1-ORT01,
 END OF ITAB.
SELECTION-SCREEN : BEGIN OF BLOCK VANEET WITH FRAME TITLE TEXT-001.
*SELECT-OPTIONS : SITE FOR VBRK-WAERK.
SELECT-OPTIONS : PCODE FOR VBRK-KUNRG.
*SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.
SELECT-OPTIONS : S_ORG FOR VBRK-VKORG OBLIGATORY.
SELECT-OPTIONS : DC FOR VBRK-VTWEG OBLIGATORY.
SELECT-OPTIONS : DIVISION FOR VBRK-SPART obligatory.
*SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.
SELECTION-SCREEN : END OF BLOCK VANEET.
SELECTION-SCREEN : BEGIN OF BLOCK VANEET1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS : INVOICE FOR VBRK-VBELN.
SELECT-OPTIONS : PO_DATE FOR VBRK-FKDAT.
SELECTION-SCREEN : END OF BLOCK VANEET1.
*PERFORM TOP-OF-PAGE.
PERFORM FETCH-DATA.
*PERFORM DISP_DATA.
PERFORM T_FIELDCAT.
PERFORM REUSE_ALV.
**& Form TOP-OF-PAGE
 text
--> p1 text
<-- p2 text
*FORM TOP-OF-PAGE .
*FORMAT COLOR 3 INTENSIFIED OFF.
*FORMAT COLOR 5 INTENSIFIED OFF.
*write : /48(120) 'NAHAR RETAIL LTD'.
*FORMAT COLOR 3 INTENSIFIED OFF.
*write : /48(120) 'FOCAL POINT'.
*FORMAT COLOR 6 INTENSIFIED OFF.
*write : /48(120) 'LUDHIANA'.
*write : / sy-uline.
*format color 4.
**WRITE: /1(20) 'INVOICENO',
 25(15) 'SAP CODE',
 55(15) 'PARTYNAME',
 100(50) 'LOCATION'.
 format color 7 INTENSIFIED ON.
*ENDFORM. " TOP-OF-PAGE
*& Form FETCH-DATA
 text
--> p1 text
<-- p2 text
FORM FETCH-DATA .
REFRESH ITAB.
SELECT AVBELN AKUNRG AFKDAT AWAERK BNAME1 BORT01 INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM VBRK AS A INNER JOIN KNA1 AS B
ON AKUNRG = BKUNNR
WHERE
A~VBELN IN INVOICE
and
A~FKDAT IN PO_DATE
and
B~KUNNR IN PCODE
GROUP BY AVBELN AKUNRG BNAME1 BORT01 AFKDAT AWAERK.
SORT ITAB ascending BY VBELN.
*ENDSELECT.
ENDFORM. " FETCH-DATA
**& Form DISP_DATA
 text
--> p1 text
<-- p2 text
*FORM DISP_DATA .
*loop at itab.
*write :/1(18) itab-VBELN,
 27(5) ITAB-KUNRG,
 55(25) ITAB-NAME1,
 100(50) ITAB-ORT01.
*endloop.
*ENDFORM. " DISP_DATA
*& Form T_FIELDCAT
 text
--> p1 text
<-- p2 text
FORM T_FIELDCAT .
PERFORM fill_field USING 'VBELN' 'PO NO'.
PERFORM fill_field USING 'KUNRG' 'CUSTOMER PLANT'.
PERFORM fill_field USING 'NAME1' 'PARTY NAME'.
PERFORM fill_field USING 'ORT01' 'LOCATION'.
PERFORM fill_field USING 'BASME' 'UOM'.
PERFORM SELECTION_WIDTH.
ENDFORM. " T_FIELDCAT
*& Form fill_field
 text
 -->P_0267 text
 -->P_0268 text
FORM fill_field USING p_fieldname
 p_seltext.
L_FIELDCAT-FIELDNAME = p_fieldname.
L_FIELDCAT-TABNAME = 'ITAB'.
L_FIELDCAT-SELTEXT_M = p_seltext.
L_FIELDCAT-OUTPUTLEN = 10.
APPEND L_FIELDCAT TO T_FIELDCAT.
CLEAR L_FIELDCAT.
ENDFORM. " fill_field
*& Form REUSE_ALV
 text
--> p1 text
<-- p2 text
FORM REUSE_ALV .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = ' '
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_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 = T_LAYOUT
 IT_FIELDCAT = T_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_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 = 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.
ENDFORM. " REUSE_ALV
*& Form SELECTION_WIDTH
 text
--> p1 text
<-- p2 text
FORM SELECTION_WIDTH .
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
 INPUT = itab-kunrg
IMPORTING
 OUTPUT = itab-kunrg

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

Selection Screen in smartforms

hi ,
is it possible to design a selection screen in smart form.
my requirement is to pass a set of material numbers obtained from select-optins to the smart form. how can i pass these set of values to the smart form.
Regards
Arun

Hi,
I think you already posted this question.
This time I try to suggest a different solution.
In the Form Interface Import just pass parameters like
s_low type likp-vbeln and
s_high type likp-vbeln.[assumed that s_vbeln is the select-options]
Then create a program line.In that type s_low and s_high as input parameter and lr_vbeln and itab as output parameters.
Then in that program line type the below code.
RANGES:lr_vbeln FOR likp-vbeln.
IF NOT ( s_low IS INITIAL and s_high is initial ).
    lr_vbeln-sign = 'I'.
    lr_vbeln-option = 'EQ'.
    lr_vbeln-low = s_low.
    lr_vbeln-high = s_high.
    APPEND lr_vbeln.
ENDIF.
select * from likp into table itab where vbeln in r_vbeln.
Hope it is helpful.
If not get back to me.
Rgds,
J.Jayanthi

Query regarding selection screen

Hi experts,
I have a requirement that once I get my output on a selection screen, suppose it has just 1 row and 4 columns. If I click on each of these 4 columns, a new transaction/report etc. needs to be called. How can I achieve this functionality?
Thanks,
Ajay.

Hi,
Say you have an internal table with fields as:
VBELN (sales order)
POSNR (sales order line item)
WERKS (plant)
MATNR (matnr)
And you write all these fields on output screen using reporting and when you click on any column field then a particular transaction/report should be called, then follow the below mentioned logic:-
DATA : BEGIN OF it_final OCCURS 0,
 vbeln TYPE vbap-vbeln,
 posnr TYPE vbap-posnr,
 werks TYPE vbap-werks,
 matnr TYPE vbap-matnr,
 END OF it_final.
DATA : fldname(25) TYPE c,
 fldvalue(25) TYPE c.
START-OF-SELECTION.
"select query into it_final internal table
AT LINE-SELECTION.
GET CURSOR FIELD fldname VALUE fldvalue.
CASE fldname.
 WHEN 'IT_FINAL-VBELN'.
 WRITE : / fldvalue.
 "code to call transaction/report
 WHEN 'IT_FINAL-POSNR'.
 WRITE : / fldvalue.
 "code to call transaction/report
 WHEN 'IT_FINAL-WERKS'.
 WRITE : / fldvalue.
 "code to call transaction/report
 WHEN 'IT_FINAL-MATNR'.
 WRITE : / fldvalue.
 "code to call transaction/report
ENDCASE.
END-OF-SELECTION.
ULINE.
FORMAT HOTSPOT.
LOOP AT it_final.
 WRITE : /1 it_final-vbeln, 10 it_final-posnr, 20 it_final-werks, 30 it_final-matnr.
 HIDE : it_final-vbeln, it_final-posnr, it_final-werks, it_final-matnr.
ENDLOOP.
ULINE.
Now to call a transaction user:-
SET PARAMETER ID '<param_id>' FIELD '<field_value>'.
CALL TRANSACTION '<t_code>' AND SKIP FIRST SCREEN.
To call a report use:-
SUBMIT <report_name> WITH <parameter_name1> = <field_value1>
 WITH <parameter_name2> = <field_value2>
 "and so on use parameters
 AND RETURN.
<paramater_name> refer to the parameter of the called report <report_name>
and <field_value> refer to value for the parameter to be passed.
Hope this helps you.
Regards,
Tarun

How to put e-mail adress in the print info. selection screen i smartforms?

Hi all,
Is it possible to have e-mail adress sent to smartform with the input parameters e.g. output_options or some other, so that the e-mail adress appears in the selection screen containing printout info such as output device, page selection, print imm.?
Where should the e-mail adress be placed in the input info to smartform then?
Thanks in advance for all the helpul answers!
BR,
Armin

THANKS

How to call selection screen before smartforms?

Hi experts,
I wanna call a selection screen before displaying smartforms. In NACE transaction, I have program that calls the smartforms and In that program, I wanna add a selection screen with three fields whom values comes from a value range that prepared by me. I don't wanna use popup selection FM's because as ,I said, I wanna display the values according to a value range.
Do you know any way to do this?

REPORT zsd_rv56td00.
SET EXTENDED CHECK OFF.
TABLES: vbpla, thead, ttxern, ttxit, t005, vbddl, stxh, sadr. "SADR40A
INCLUDE vttkdata.                      "Shipment Header
INCLUDE vttsdata.                      "Shipment Segment
INCLUDE vttpdata.                      "Shipment Items
INCLUDE vbpadata.                      "Partner
INCLUDE vtfadata.                      "Flow
INCLUDE sadrdata.                      "Address
INCLUDE vtlfdata.                      "Delivery Selection
INCLUDE rvadtabl.                      "Messages
INCLUDE vsedata.                       "shipping units
INCLUDE rv56acom.                      "I/O-Structure
*INCLUDE zsd_form_screens.
SET EXTENDED CHECK ON.
DATA:
xscreen(1)              TYPE c,
retcode                 LIKE sy-subrc VALUE 0,
there_was_output(1)     TYPE c        VALUE space,
new_page_was_ordered(1) TYPE c        VALUE space.
CONSTANTS:
no(1) VALUE space,
yes(1) VALUE 'X'.
TABLES : tpar,vbak.                                         "n_742056.
SELECTION-SCREEN BEGIN OF SCREEN 900.
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS :
s_ulke FOR vbak-zzcikisulke,
s_gumruk FOR vbak-zzvarisgumruk,
s_ant FOR vbak-zzantrepo.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 900.
Florian as you can see I created the screen! It exists!

Query regarding selection screen layout

i want to knw how to put a blank line / how to skip a line in selection screen...
like
in Block 1
Presentn filepath
Application filepath
(1 line skipped)
Log filepath
end of block 1

Hi ,
use SELECTION-SCREEN SKIP 2. statement.If u want to skip two lines .
check this code.
selection-screen begin of block B1 with frame title text-d01.
selection-screen SKIP 3.
parameters : p_lifnr type lifnr.
parameters : p_kunnr type kunnr.
parameters : p_count(2) type n.
selection-screen SKIP 3.
selection-screen end of block B1.
regards
reena

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 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

Regarding Selection Screen

Hi All,
I have a requirment that:
I need to refresh my selection screen at every time i selected back button.
Following fields are maintained in selection screen.
PARAMETERS     pc_chgno TYPE ZTB1 OBLIGATORY MEMORY ID zbc_change_number.
PARAMETERS     PC_PHONE TYPE telf1 OBLIGATORY.
PARAMETERS     PC_DIR   TYPE LOCALFILE OBLIGATORY default 'C:\' .
SELECT-OPTIONS pc_uname FOR sy-uname          OBLIGATORY NO INTERVALS .
SELECT-OPTIONS pt_korr FOR e070-trkorr                  NO INTERVALS .
The last field is diaplaying some data when i select "Select more single value" button of the field.
This have to be clear when come back the screen.
Thanks,
Subbu

Hi,
Clear all the selection screen fields in the AT SELECTION-SCREEN OUTPUT event. So that it will be triggered each time when your screen displayed again.
Reward if useful.
Thanks,
Muthu.

Regarding selection-screen in module pool

hi
experts,
i am having doubt in module pool programing...
i want create selection screen(pop screen with field) in modulepool., before the display screeen deatils
ex : if i want display the record details for that particular
record number.......
while i am click on display..
pop-up-selection screen will come with record number field..
i f enter the record no, display s the details...
Ananand

Please see Rich's answer here:
[Dialog programming - How to place a select-option field in a dialog screen;
Rob

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

Regarding Selection Screen in smartforms

Similar Messages

Maybe you are looking for