MODULEPOOL-TABLECONTROL

<<Moderator message: please use a meaningful subject, and not in all CAPITALS. Thank-you>>
Hai,
goodmorning to all,this is srinivas.
my problem is that i have created a module pool pgm using tabstrip control.now i need to insert table control in that tabstrip.please help me.thank u.i will be waiting for ur response.
Edited by: Matt on Nov 5, 2008 9:38 AM

Hi Srinivas,
Give your module-pool program name in Se80 and click display in that expand the screen there you can see your sub-screen in that double click on the screen number in which you want to create the table and click Layout and follow the below steps this i have shown to one user in the morning.
layout->in the left side tool bar click on Table Control(with wizard) ->drag on the layout->opens a window->click continue->give some name to table control say ZTABLE->in the dictionary what is the table name that you are accessing with the screen painter give that name of the table say Zpainter->continue->select the fields fields(columns) which you want->click continue->click continue->select scroll check if needed->click continue->click continue->complete.
Now your table is created.
Cheers!!
VEnk@

Similar Messages

How to update the Ztable using modulepool Tablecontrol...

Hi All,
could anyone help me how to update the Ztable using modulepool Tablecontrol...
if it is possible give me a example with code..
Many thanks in advance...!!
Rajesh

Hi,
For that pls refer to the link:
http://help.sap.com/saphelp_nw70/helpdata/en/9f/dbac3735c111d1829f0000e829fbfe/frameset.htm
Also refer the sample program:
RSDEMO02
Then for updating:
modify the internal table(which u used to populate the tabcntrl) from the table control.
Then update database table like:
update dbtab from table itab.
Regards,
Renjith Michael.

Tablecontrol in modulepool

Hi to all,
I have a tablecontrol in modulepool program.I have to modify some cells in my table control and then those records should be updated in actual database table after pressing save button.And also the modified records should also be maintained in some Ztable after modification.
If any body having code for the same scenario please provide it.
Please help me.It is very urgent.
Thanks
suresh

http://sapmaterial.com/files/database_update.pdf
try this :
*& Module Pool ZCUST_CALL_REC
PROGRAM ZCUST_CALL_REC.
TABLES: ZCUST_CALL_REC,ZREMARKS.
data: v_kun_low like ZCUST_CALL_REC-kunnr ,
v_kun_high like ZCUST_CALL_REC-kunnr,
v_bud_low like ZCUST_CALL_REC-budat,
v_bud_high like ZCUST_CALL_REC-budat.
ranges r_kunnr for ZCUST_CALL_REC-kunnr .
ranges r_budat for zcust_call_rec-budat.
DATA: ITAB TYPE STANDARD TABLE OF ZCUST_CALL_REC WITH HEADER LINE,
JTAB TYPE STANDARD TABLE OF ZREMARKS WITH HEADER LINE.
*data:begin of itab occurs 0,
MANDT LIKE ZCUST_CALL_REC-MANDT,
kunnr like ZCUST_CALL_REC-kunnr,
budat like ZCUST_CALL_REC-budat,
code like ZCUST_CALL_REC-code,
remarks like ZCUST_CALL_REC-remarks,
end of itab.
*data:begin of Jtab occurs 0,
MANDT LIKE ZCUST_CALL_REC-MANDT,
kunnr like ZCUST_CALL_REC-kunnr,
budat like ZCUST_CALL_REC-budat,
code like ZCUST_CALL_REC-code,
remarks like ZCUST_CALL_REC-remarks,
end of Jtab.
CONTROLS:vcontrol TYPE TABLEVIEW USING SCREEN '9001'.
CONTROLS:vcontrol1 TYPE TABLEVIEW USING SCREEN '9002'.
*start-of-selection.
*& Module USER_COMMAND_9000 INPUT
text
MODULE USER_COMMAND_9000 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'ENQUIRY'.
perform multiple_selection.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9001'.
WHEN 'UPDATE'.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9002'.
perform update on commit.
WHEN 'DELETE'.
perform append_CUSTOMER_code.
PERFORM SELECT_DATA.
call screen '9002'.
ENDCASE.
ENDMODULE. " USER_COMMAND_9000 INPUT
*& Module STATUS_9000 OUTPUT
text
MODULE STATUS_9000 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
ENDMODULE. " STATUS_9000 OUTPUT
*& Module USER_COMMAND_9001 INPUT
text
MODULE USER_COMMAND_9001 INPUT.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
endcase.
ENDMODULE. " USER_COMMAND_9001 INPUT
*& Module STATUS_9001 OUTPUT
text
MODULE STATUS_9001 OUTPUT.
SET PF-STATUS 'ZCUSTOMER'.
SET TITLEBAR 'xxx'.
move itab-MANDT to zcust_call_rec-MANDT.
move itab-kunnr to zcust_call_rec-kunnr.
move itab-budat to zcust_call_rec-budat.
move itab-code to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
ENDMODULE. " STATUS_9001 OUTPUT
*& Module USER_COMMAND_9002 INPUT
text
module USER_COMMAND_9002 input.
CASE sy-ucomm.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
LEAVE SCREEN.
CLEAR sy-ucomm.
WHEN 'UPDATE'.
perform move_data.
UPDATE ZCUST_CALL_REC FROM TABLE ITAB.
IF SY-SUBRC = 0.
MESSAGE I000(0) WITH 'RECORDS ARE UPDATED'.
ELSE.
MESSAGE E001(0) WITH 'RECORDS ARE NOT UPDATED'.
ENDIF.
WHEN 'DELETE'.
perform move_data.
DELETE ZCUST_CALL_REC FROM TABLE ITAB.
IF SY-SUBRC = 0.
MESSAGE I000(0) WITH 'RECORDS ARE DELETED'.
ELSE.
MESSAGE E001(0) WITH 'RECORDS ARE NOT DELETED'.
ENDIF.
endcase.
endmodule. " USER_COMMAND_9002 INPUT
*& Module STATUS_9002 OUTPUT
text
module STATUS_9002 output.
SET PF-STATUS 'ZCUSTOMER1'.
SET TITLEBAR 'xxx'.
endmodule. " STATUS_9002 OUTPUT
*& Module update_table OUTPUT
text
module update_table output.
move itab-MANDT to zcust_call_rec-MANDT.
move itab-kunnr to zcust_call_rec-kunnr.
move itab-budat to zcust_call_rec-budat.
move itab-code to zcust_call_rec-code.
move itab-remarks to zcust_call_rec-remarks.
vcontrol-lines = sy-dbcnt.
endmodule. " update_table OUTPUT
***Selection Data
FORM SELECT_DATA.
SELECT mandt kunnr budat code remarks FROM zcust_call_rec INTO
table itab
WHERE kunnr IN r_kunnr AND BUDAT IN R_BUDAT.
ENDFORM.
****append vendor code
FORM APPEND_CUSTOMER_CODE.
clear r_kunnr.
clear itab.
clear r_budat.
refresh r_kunnr.
refresh itab.
refresh r_kunnr.
IF r_kunnr IS INITIAL
AND NOT v_kun_low IS INITIAL
AND NOT v_kun_high IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_kun_low
IMPORTING
OUTPUT = r_kunnr-low.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_kun_high
IMPORTING
OUTPUT = r_kunnr-high.
r_kunnr-option = 'BT'.
r_kunnr-sign = 'I'.
append r_kunnr.
PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
AND NOT v_kun_low IS INITIAL
AND v_kun_high IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_kun_low
IMPORTING
OUTPUT = r_kunnr-low.
r_kunnr-SIGN = 'I'.
r_kunnr-OPTION = 'EQ'.
APPEND r_kunnr.
PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
AND v_kun_low IS INITIAL
AND NOT v_kun_high IS INITIAL.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = v_kun_low
IMPORTING
OUTPUT = r_kunnr-low.
r_kunnr-SIGN = 'I'.
r_kunnr-OPTION = 'EQ'.
APPEND r_kunnr.
PERFORM V_BUDAT.
ELSEIF r_kunnr IS INITIAL
AND v_kun_low IS INITIAL
AND v_kun_high IS INITIAL.
IF SY-SUBRC = 0.
MESSAGE I003(0) WITH 'ENTER CUSTOMER NUMBER'.
CALL SCREEN '9000'.
ENDIF.
PERFORM V_BUDAT.
ENDIF.
ENDFORM.
FORM V_BUDAT.
IF R_BUDAT IS INITIAL
AND NOT v_BUD_low IS INITIAL
AND NOT v_BUD_high IS INITIAL.
r_budat-low = v_bud_low.
r_budat-high = v_bud_high.
r_budat-option = 'BT'.
r_budat-sign = 'I'.
append r_budat.
ELSEIF R_BUDAT IS INITIAL
AND NOT v_BUD_low IS INITIAL
AND v_BUD_high IS INITIAL.
r_budat-low = v_bud_low.
r_budat-high = v_bud_high.
r_budat-option = 'EQ'.
r_budat-sign = 'I'.
append r_budat.
ELSEIF R_BUDAT IS INITIAL
AND v_BUD_low IS INITIAL
AND NOT v_BUD_high IS INITIAL.
r_budat-HIGH = v_bud_HIGH.
r_budat-option = 'EQ'.
r_budat-sign = 'I'.
append r_budat.
ELSEIF R_BUDAT IS INITIAL
AND v_BUD_low IS INITIAL
AND v_BUD_high IS INITIAL.
IF SY-SUBRC = 0.
MESSAGE I002(0) WITH 'ENTER POSTING DATE'.
CALL SCREEN '9000'.
r_budat-low = ''.
r_budat-option = ''.
r_budat-sign = ''.
ENDIF.
ENDIF.
ENDFORM.
*& Form update
text
--> p1 text
<-- p2 text
form update .
commit work.
endform. " update
*& Form move_data
text
--> p1 text
<-- p2 text
form move_data .
clear itab.
refresh itab.
move-corresponding zcust_call_rec to itab.
MOVE ZCUST_CALL_REC-MANDT TO ITAB-MANDT.
MOVE ZCUST_CALL_REC-KUNNR TO ITAB-KUNNR.
MOVE ZCUST_CALL_REC-BUDAT TO ITAB-BUDAT.
MOVE ZCUST_CALL_REC-CODE TO ITAB-CODE.
MOVE ZCUST_CALL_REC-REMARKS TO ITAB-REMARKS.
APPEND ITAB.
delete itab where kunnr is initial.
endform. " move_data
Regards
vasu

How can we pass the select-option value to modulepool program?

hi,
how can we pass the select-option value to modulepool program ?
Because if i declared select-options in executable program and i used SSCRFIELDS to define push buttons in selection screen.
           My requirement if enter the values to select-options and press UPDATE pussbotton then i want call screen which contains tablecontrol.
           How i get select-option values to PAI of call screen for getting the data from database table to my internal table?

Oh I thought that you have selection-screen and again you are working on dialog programming.
if you want to use select-option directly in module pool then it is not possible.
but you can do other way.
create two varaiables
data : v_kun_low like kna1-kunnr,
         v_kun_high like kna1-kunnr.
use these two variables in layout ,let user knows that he can not give options like gt,lt,eq ,it will be always BT.
and also when you see normal report program,you can use multiple values in either low or high,but here it is not possibel.
use can enter only low value and high value.
when you come to program point of view
declare one range
ranges r_kunnr for kna1-kunnr.
do the coding like
r_kunnr-low = v_kun_low.
r_kunnr-high = v_kun_high.
r_kunnr-options = 'BT'.
r_kunnr-sign = 'I'.
append r_kunnr.
now you can use r_kunnr in select query ,it will work like select-option.
other than this there is no option.
Thanks
Seshu

How to print the smartform as in the data of tablecontrol...?

Hi,
1.I create 2 tabs in Modulepool Programming.
2.In First Tab, I enter the data and when i click the SAVE button the data should be saved in my custom table ZDILEEP.
3.In Second Tab,I put an Tablecontrol and DISPLAY the data what i have to save in first tab and i do 3 operations as DELETE,UPDATE,ADD A RECORD.
4. I Create a button in Application Toolbar as FORM,whenever i click this button the SMARTFORM will be triggered.
5.In SmartForm, I put an TableControl and display the data and i put SUM of SALARY.
6.Now My Requirement is At run time, if i add a record or update a record that should be displayed in smartform,
without clicking the pushbuttons UPDATE,ADD A RECORD i.e. without using custom table ZDILEEP the data
should be displayed in smartform as of Tablecontrol.
where I want to write these code....? and what code i want 2 write...?
can anybody help me
Moderator message - Cross and duplicate posting is not allowed in the forum. This is at least the second post of yours that I have locked for this reason. If you continue, your userid may be deleted - thread locked
Edited by: Rob Burbank on May 12, 2010 3:23 PM

Did u look at the system fields of smartform ?
Look at the structure SFSY.
Amandeep

What is the code for entering data in tablecontrol as in smartform....?

Hi
1.I create 2 tabs in Modulepool Programming.
2.In First Tab, I enter the data and when i click the SAVE button the data should be saved in my custom table ZDILEEP.
3.In Second Tab,I put an Tablecontrol and DISPLAY the data what i have to save in first tab and i do 3 operations as DELETE,UPDATE,ADD A RECORD.
4. I Create a button in Application Toolbar as FORM,whenever i click this button the SMARTFORM will be triggered.
5.In SmartForm, I put an TableControl and display the data and i put SUM of SALARY.
6.Now My Requirement is At run time, if i add a record or update a record that should be displayed in smartform,
   without clicking the pushbuttons UPDATE,ADD A RECORD i.e. without using custom table ZDILEEP the data
   should be displayed in smartform as of Tablecontrol.
where I want to write these code....? and what code i want 2 write...?
can anybody help me

>
dileepbandla wrote:
> Hi
>
>
> 1.I create 2 tabs in Modulepool Programming.
> 2.In First Tab, I enter the data and when i click the SAVE button the data should be saved in my custom table ZDILEEP.
> 3.In Second Tab,I put an Tablecontrol and DISPLAY the data what i have to save in first tab and i do 3 operations as DELETE,UPDATE,ADD A RECORD.
> 4. I Create a button in Application Toolbar as FORM,whenever i click this button the SMARTFORM will be triggered.
> 5.In SmartForm, I put an TableControl and display the data and i put SUM of SALARY.
> 6.Now My Requirement is At run time, if i add a record or update a record that should be displayed in smartform,
>    without clicking the pushbuttons UPDATE,ADD A RECORD i.e. without using custom table ZDILEEP the data
>    should be displayed in smartform as of Tablecontrol.
You need to read the table control data along with Custom table data before you call the smartform and passing data to smartform.
> where I want to write these code....? and what code i want 2 write...?
>
In PAI. What code? - Probably, loop at table control and get the data into another internal table then pass this data into smartform interface.
>
> can anybody help me

How to Update&Delete a field in a record of tablecontrol in screens

Hi,
I have one requirement in table control of Modulepool Programming. I want 2 put 2 pushbuttons as "Delete","Update" in Tablecontrol Screen.when ever i select a record that time i want 2 delete that and i have 2 update particular value on tablecontrol itself and that reflects the custom table

Moderator message - duplicate post locked
Rob

TableControl Rows Selection

Hi Gurus,
I am new to Modulepool.
In My screen i have two Tablecontrols, TB1 & TB2,
and the internal tables holding the data -IT1 & IT2 ,
In both Table Control ,I have To enter the data manually .
My req. is In the 1st TB1, i entered the data manually and for that row of data , in TB2 , i entered multiple rows of data .
Like dis when i will enter the second row of data in TB1, the TB2 data( related to TB1 row) will be cleared., so that i can fill TB2 corresponding to TB1,
if i select the row 1 of TB1 and press enter , its related data in TB2 (dat i hav entered before) will display,
like dis the 2nd row of TB2 will display the data in TB2.
How to do this...?

Thnks sajid,
i don need ny other buttons,
i entered the data in TB1 & TB2 as -
                                               TB1                                                                                TB2
ROW 1:                          KF !! 12.06.09 !! 12 .08.09 !! KINGFISHER          I             1A !! 1B !! 2   !!   3
                                                                                I             -
                                                                                I             2A !! 2B !!   4 !! 5
ROW 2 :                         AR !! 12.06.09 !! 12.06.09 !! AIRLINES                I             3A !! 3B !! 20   !! 1
                                                                                I             -
                                                                                I             4A !! 2B !! 14 !! 5
I ENTERED THE ROW1 DATA IN tb1 AND D CORRESPONDING VALUES IN tb2 .
now i entered the the 2nd row data ( AR ) and pressed ' ENTER ' , so that TB2 wil be clear for enterning data for TB1-AR.
like this data will be entered .
and when i SELECT TB1- KF and pressed enter , the respective data in TB2 will display,
if i SELECT AR- presed enter then TB2 data will display related to AR .    I              3A !! 3B !! 20   !! 1
                                                                                I             -
                                                                                I             4A !! 2B !! 14 !! 5
when i select KF & AR ( means Multiple row of data in TB1) and clicked SAVE, all the TB1 data & respective TB2 data will be saved.

Button with Icon in TableControl

Hello,
in my ModulePool I have a TableControl which contents in each line FileNames with FileExtensions.
I have created a Icon-Field in each line which displays the correct Icon (if it exists) for the FileExtension (e.g. ICON_PDF, ICON_BMP ...).
Then I created a button in each line to open the file.
What I want now is that the button changes its icon.
How can I achieve this?
In my PBO for this Dynpro I have the following code but this doesn't work:
LOOP AT gt_zdrud INTO gr_zdrud.
* FuBa zur Ermittlung der Dateierweiterung
CALL FUNCTION 'CRM_IC_WZ_SPLIT_FILE_EXTENSION'
    EXPORTING
      iv_filename_with_ext = gr_zdrud-zzdoc
    IMPORTING
      ev_filename          = lf_filename
      ev_extension         = lf_extension.
TRANSLATE lf_extension TO UPPER CASE.
CASE lf_extension.
    WHEN 'PDF'. MOVE icon_pdf TO gr_zdrud-icon.
    WHEN OTHERS.
      MOVE icon_display TO gr_zdrud-icon.
ENDCASE.
MODIFY gt_zdrud FROM gr_zdrud.
ENDLOOP.
The table GT_ZDRUD is the table which fills the TableControl.
The field GR_ZDRUD-ICON is the field which holds the name of the icon and is defined in the dynpro as PUSH(button).

No solution.
Closing this.

How to add or delete rows in tablecontrol?

Hi,
I am using a tablecontrol to enter data records.
I want to use 2 buttons, one to insert a row into a tablecontrol and another to delete a selected row of a tablecontrol.
How do I insert or delete rows of a tablecontrol?
Thanks.

Hi Kumar,
Please look at the below sections......
ADDING BLANK LINES
To add blank lines to table control we do not need to change any of the fields of the structure CXTAB_CONTROL simply adding blank lines to the internal table will do.
INSERT INITIAL LINE INTO itab.
DELETING SELECTED ROWS
Deletion of selected rows is simple. To delete selected rows first we will determine the rows which have been selected through selection column .
FOR SINGLE ROW SELECTION
IF mark EQ 'X' . "mark is the name of selection column field
DELETE itab FROM workarea .
ENDIF.
FOR MULTIPLE ROW SELECTION
*To deetermine the rows selected we will use the selection column field to loop
*through the internal table.
LOOP AT itab WHERE mark EQ 'X'. "mark is the name of selection column field
DELETE itab " and is part of the internal table .
ENDLOOP.
Thanks,
Ravi Kanth

Warning message in Modulepool

Hi All,
How to create a warning message in Modulepool.
Thanks
Basheer

Hi,
Use the following Way You can use it in PAI.
message 'Please Enter the correct Customer ID' type 'E'.
Remember 1 thing that it will Block all of your input field, to handle this you will have to use the following in the u201CFlow Logicu201D.
process after input.
chain.
    field: field1,
            field2,
            fieldn.
    module user_command_0001.
endchain.
After using Chain EndChain you will be able to use these input field.
Kind Regards,
Faisal
Edited by: Faisal Altaf on Feb 4, 2009 7:36 PM

How to Fetch Data From an Internal table to a field in Modulepool Screen ??

In my Modulepool Screen i have two fields ,
Based on the data of the First field ,the second field will display the data.
For ex- first field - I choosed the data -" MARUTI",
then in the second field , all d CARs ( 800,zen,waganor.....)related to MARUTI shd be displayed.
without using POV module hw to use dis ? and also using POV ,what are the function modules to be used ..
pls explore in details...
Thnks to all d contributors for their Time.....

see if u have a limited values to display in Listbox, den we will go for vrm_set_values.
but here as per the requirement
thr is no limited Values in d second dropdown box.
Let me Clear abt the requirement.
First field - issue no.
2nd field- Item no.
when u select a particular issue no, den in item it shd display the corresponding item nos related to that issueno. And both Fields r Primary keys in d table( customised Table.)
this is wwht exactly my requirement.
as i created The search help for issueNo, its displaying all the issueno Dat are in DB.
But Itemno Field is nt behaving as per That.
Pls Suggest me.. in details

Download and Upload Modulepool program

hai all,
Could any one say how to Download and Upload Modulepool program from sap.
Thanks,
Jeevan.

Hi Puduru
Welcome to ABAP forums.
If you just want to export Module pool program once, you can use transaction SE80 and menu point Utilities->More Utilities->Upload/Download->Download option ( for each include / component ).
Save it as a text file and then repeat the same process.
Here's other programs for the same functionality. You can use one of them.
http://www.members.tripod.com/abap4/Upload_and_Download_ABAP_Source_Code.html
http://sap.ittoolbox.com/code/d.asp?d=1623&a=s
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/com.sap.km.cm.docs/library/webas/abap/finding your code in bsp applications.article
http://www.geocities.com/rmtiwari/Resources/Utilities/WebViewer.html
http://www.dalestech.com/
Dont forget to rewards pts, if it helps ;>)
Regards,
Rakesh

Missing lines in tablecontrol display

Hello,
I have a strange problem:
I have a Screen with different table controls.
In the Layout Editor i set the size of all the tablecontrols to show 3 Lines ( fiixed size ).
Everything seems to be ok.
But when i execute the Program,
a few of these Table Controls are only showing 2 Lines.
There is no additional Coding to hide the lines.
Any idea, what problem we have.
Thanks in advance for any ideas,
Uli

Hy,
Sorry, thats not helping me.
It's not really a programming problem.
I do not want to resize the TC in the Program.
I just want the Screen to appear how it is designed in the Editor.
There is no Programming in the Program to change the TC, only in editing mode a few empty lines are added.
I think, it's a kind of generation problem.
Thx for your answer anyway,
Uli

Drop down box in a modulepool

Hi,
I am creating a modulepool with a drop down box in one of the dynpros. I have managed to fill it with values using the 'VRM_SET_VALUES' function module.
The problem comes when running the modulepoool. The field displays the drop down box with the correct values, but it does not take the values I select. The first opcion is the defualt, and even though I choose a different one it does not take the change.
Is there something missing?
Thanks in advance,
Nerea.

Hi Nerea,
Check with this code
TYPE-POOLS: VRM.
TABLES SPFLI.
TABLES SSCRFIELDS.
DATA flag.
DATA: NAME TYPE VRM_ID,
      LIST TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.
PARAMETERS PS_PARM LIKE SPFLI-CARRID AS LISTBOX VISIBLE LENGTH 10
USER-COMMAND
fcodex.
data: i_spfli type spfli occurs 0 with header line.
PARAMETERS PQ_PARAM LIKE SPFLI-connid AS LISTBOX VISIBLE LENGTH 15
USER-COMMAND
fcodey.
INITIALIZATION.
NAME = 'PS_PARM'.
DATA T TYPE I VALUE 0.
SELECT DISTINCT carrid into corresponding fields of table i_spfli FROM
SPFLI.
loop at i_spfli.
    VALUE-KEY = i_spfli-CARRID.
    VALUE-TEXT = i_spfli-CARRID.
    APPEND VALUE TO LIST.
endloop.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = NAME
      VALUES = LIST.
AT SELECTION-SCREEN.
if sy-ucomm eq 'FCODEX'.
    REFRESH LIST.
    CLEAR LIST.
    PQ_PARAM = ' '.
    NAME = 'PQ_PARAM'.
    SELECT * FROM SPFLI WHERE CARRID = PS_PARM.
      VALUE-KEY = SPFLI-connid.
      VALUE-TEXT = SPFLI-connid.
      APPEND VALUE TO LIST.
    ENDSELECT.
endif.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF SY-UCOMM NE 'FCODEX' OR SY-UCOMM NE 'FCODEY'.
      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          ID     = NAME
          VALUES = LIST.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
START-OF-SELECTION.
clear i_spfli.
refresh i_spfli.
select * into table i_spfli from spfli where carrid = ps_parm and connid
= pq_param.
loop at i_spfli.
    WRITE: / 'CITY FROM:', I_SPFLI-CITYFROM, 'CITY TO :',I_SPFLI-CITYTO,
   'DEPARTURE TIME :', I_SPFLI-DEPTIME.
ENDLOOP.
Reward with point if it is helpful
Regards
Alfred

MODULEPOOL-TABLECONTROL

Similar Messages

Maybe you are looking for