Regarding At selection-screen on Radiobutton output....
Hi...
This is the code I used, to check AT SELECTION-SCREEN ON RADIOBUTTON.
But, after displaying the error message,
all fields are becoming inactive in selection screen.
CODE:
TYPES : BEGIN OF st_employee,
cid TYPE zintelli_emp-cid,
cname TYPE zintelli_emp-cname,
l ocation TYPE zintelli_emp-location,
phno TYPE zintelli_emp-phno ,
gender TYPE zintelli_emp-gender,
END OF st_employee.
DATA : it_employee TYPE STANDARD TABLE OF st_employee,
wa_employee TYPE st_employee,
v_cid TYPE zintelli_emp-cid.
SELECTION-SCREEN BEGIN OF SCREEN 500 TITLE title.
PARAMETERS : p_cid TYPE st_employee-cid obligatory.
PARAMETERS : p_cname TYPE st_employee-cname,
p_culoc TYPE st_employeelocation,
p_phno TYPE st_employee-phno.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(6) rc1.
PARAMETERS : rb_1 RADIOBUTTON GROUP b .
SELECTION-SCREEN COMMENT 15(7) rc2.
PARAMETERS : rb_2 RADIOBUTTON GROUP b.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP 2.
SELECTION-SCREEN PUSHBUTTON /35(10) pb1 USER-COMMAND pb1.
SELECTION-SCREEN SKIP 5.
SELECTION-SCREEN END OF SCREEN 500.
CALL SELECTION-SCREEN '500'.
INITIALIZATION.
title = 'CUSTOMER INFORMATION'.
pb1 = 'INSERT'.
rc1 = 'MALE'.
rc2 = 'FEMALE'.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP b.
IF rb_1 EQ 'X'.
p_cid = p_cid+0(1).
IF p_cid NE 'M'.
MESSAGE e020(z50871msg) WITH 'The id should start with "M" '.
EXIT.
ENDIF.
ELSE.
p_cid = p_cid+0(1).
IF p_cid NE 'F'.
MESSAGE e020(z50871msg) WITH 'The id should start with "F" '.
EXIT.
ENDIF.
ENDIF.
Regards
sandeep.
At selection-screen on FIELD
Will give work like: If given input is wrong then it will give the Error message and all other fields will be diasable except the entered wrong on At selection-screen on FIELD.
until you give the right input it won't go for next At Selection-screen On FILED.
If you Don't want to disable other fields Use ONLY AT SELECTION-SCREEN.
Regards,
Umashankar
Similar Messages
-
Regarding At selection-screen on radiobutton
Hi..
I need sample code on AT SELECTION-SCREEN ON RADIOBUTTON.
thanx and regards
Sandeep.Hi,
Just copy paste this code and run it,
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
PARAMETERS: R1 RADIOBUTTON GROUP RAD1 DEFAULT 'X',
R2 RADIOBUTTON GROUP RAD1,
R3 RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: R4 RADIOBUTTON GROUP RAD2 DEFAULT 'X',
R5 RADIOBUTTON GROUP RAD2,
R6 RADIOBUTTON GROUP RAD2.
SELECTION-SCREEN END OF BLOCK B2.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD1.
IF R1 = 'X'.
MESSAGE W040(HB).
ENDIF.
AT SELECTION-SCREEN ON RADIOBUTTON GROUP RAD2.
IF R4 = 'X'.
MESSAGE W040(HB).
ENDIF.
note: after selecting the choices press F8 and test.
hope this helps. -
Regarding At Selection-Screen On field
Hi..
When we wil use At Selection-Screen On <Field>
and At Selection-Screen On Radiobutton.
What is the purpose of these events.
I need samplecode for these events.
Regards
Sandeep.Hi Sandeep
hope this will help you.
REPORT zextest595 .
*--- Radiobuttons
PARAMETERS: p_up RADIOBUTTON GROUP a DEFAULT 'X' USER-COMMAND rb,
p_list RADIOBUTTON GROUP a.
PARAMETERS: p_pcfile LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\'
MODIF ID ccc,
p_pctype LIKE rlgrap-filetype OBLIGATORY DEFAULT 'ASC'
MODIF ID ccc,
p_unix LIKE rlgrap-filename OBLIGATORY DEFAULT '.\'
MODIF ID ccc.
PARAMETERS: p_dir LIKE rlgrap-filename OBLIGATORY DEFAULT '.'
MODIF ID ddd,
p_fp LIKE rlgrap-filename
MODIF ID ddd.
AT SELECTION-SCREEN
AT SELECTION-SCREEN OUTPUT.
IF p_up = 'X' .
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'CCC'.
screen-input = 1. "Enable
screen-invisible = 0. "Disable
MODIFY SCREEN.
WHEN 'DDD'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF.
IF p_list = 'X'.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'CCC'.
screen-input = 0.
screen-invisible = 1.
MODIFY SCREEN.
WHEN 'DDD'.
screen-input = 1.
screen-invisible = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ENDIF. -
At selection-screen on radiobutton group is triggering again on execute??
Hi Friends,
I want to show a Information pop up on selection of a radio button for that i have done
AT SELECTION-SCREEN ON RADIOBUTTON GROUP RG.
IF P_UPL = 'X'.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TITEL = TEXT-017
TXT1 = TEXT-015
TXT2 = TEXT-016.
ENDIF.
I have two radio buttons and second radio button is P_UPL. Its working fine.
But same event is getting triggered when execute button is pressed( i mean when report is executed ), which i don't want.
How to restrict.
Any help is greately appreciated.
Thanks,
Simhawhen the event is clicked for the first time .
Initiate the before the popup is called .
Now when again when you execute and p_upl = 'X'
check the falg if value then don't call the pop-up .
and clear the flag at that moment .
So the Popup fun is ignored when you click execute event .
SEE THE lines in bold .
AT SELECTION-SCREEN ON RADIOBUTTON GROUP RG.
IF P_UPL = 'X'.
if v_flag is initial.
v_flag = 'X'.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
TITEL = TEXT-017
TXT1 = TEXT-015
TXT2 = TEXT-016.
ENDIF.
ENDIF. -
FM to display Selection screen on report output??
Hi Experts,
Is there an FM to display Selection screen on report output.
Thanks In Advance.Hi Ashwin,
Refer to below link
http://help.sap.com/saphelp_nw04/helpdata/en/2a/755b94ca5911d299af5c9604c10e27/content.htm
or
The easiest way is to define your selection screen in the TOP include of your module pool.
Then call the selection screen.
Selection Screen
selection-screen begin of screen 1010 as window title text-001.
selection-screen begin of block b1 with frame title text-002.
parameters: p_vornr type resb-vornr,
p_refno(20) type c,
p_plnid type zplcfg-plnid as listbox visible length 20,
p_sorts type c as listbox visible length 20.
selection-screen begin of line.
selection-screen comment (20) text-004.
selection-screen position 33.
parameters: p_order as checkbox default 'X'.
selection-screen end of line.
selection-screen end of block b1.
selection-screen end of screen 1010.
Now call the selection screen.
call selection-screen 1010.
if sy-subrc = 0.
perform get_production_orders.
perform process_orders.
endif.
Thanks!! -
Hi Experts,
In the selection-screen, i have 2 radiobuttons .
parameters : rb1 radiobutton group g2 ,
rb2 radiobutton group g2 .
and 4 input fields.
SELECT-OPTIONS : S_MATNR FOR MARA-MATNR. " OBLIGATORY.
SELECT-OPTIONS : S_MTART FOR MARA-MTART NO INTERVALS NO-EXTENSION.
SELECT-OPTIONS : S_WERKS FOR MARA-MATNR NO INTERVALS NO-EXTENSION.
parameters : lifnr like lfa1-lifnr .
Now my requirement is when i execute the report by default the 1st radiobutton is selected. For this radiobutton,
i want to display only the first 3 select-options. And when the user clicks on the second radiobutton,
the parameter LIFNR should appear without pressing enter button. Again when the user clicks on
1st radiobutton the parameter field LIFNr should not appear.
Please can anybod yrpovide the code.
Thanks in advance.Hi,
Test the Code Bellow it is working as per your requirement,
TABLES: mara.
PARAMETERS : rb1 RADIOBUTTON GROUP g2 USER-COMMAND a DEFAULT 'X',
rb2 RADIOBUTTON GROUP g2 .
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_matnr FOR mara-matnr MODIF ID s1. " OBLIGATORY.
SELECT-OPTIONS : s_mtart FOR mara-mtart NO INTERVALS NO-EXTENSION MODIF ID s1.
SELECT-OPTIONS : s_werks FOR mara-matnr NO INTERVALS NO-EXTENSION MODIF ID s1.
SELECTION-SCREEN END OF BLOCK a.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.
PARAMETERS : lifnr LIKE lfa1-lifnr MODIF ID s2.
SELECTION-SCREEN END OF BLOCK b.
BREAK-POINT.
AT SELECTION-SCREEN OUTPUT.
IF rb1 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'S2'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF rb2 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'S1'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
Best Regards,
Faisal -
Regarding Hardcoding selection-screen field.
Hi frnds,
I want to hardcode vbak-erdat in my selection screen , i m using loop at screen . and i m also usiing INITIALIZATION EVENT,where i am initializing vbak-erdat.
so frnds can anyone help me in this regard.
Thanks,
satishHi,
Please look at the code below :
TABLES : bsis.
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETER : sp_sel radiobutton group rad USER-COMMAND radio DEFAULT 'X',
sp_all RADIOBUTTON GROUP rad.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS : so_bukrs FOR bsis-bukrs MODIF ID sp1.
SELECT-OPTIONS : so_hkont FOR bsis-hkont MODIF ID sp2.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF sp_sel = 'X'.
IF screen-group1 = 'SP2'.
screen-input = '0'.
screen-invisible = '0'.
screen-required = '0'.
MODIFY SCREEN.
ENDIF.
elseif sp_all = 'X'.
IF screen-group1 = 'SP1'.
screen-input = '0'.
screen-invisible = '0'.
screen-required = '0'.
MODIFY SCREEN.
ENDIF.
endif.
ENDLOOP.
Thanks,
Sriram Ponna. -
Regarding hiding Selection screen block
hi all ,
i have 2 blocks in the selection screen. the First block has 4 radiobuttons and the second block has 4 parameters.
i need to hide the block 2 based on the radiobutton checked in the initail block.
if radiobutton 1 or 2 is selected then the block should not be visible and if the rdbtn 3 or 4 is selected the block should be visible
i have wriiten the code but it doesn't work at all. the block is hidden but when i select the radiobtn 3 or 4 it doesn't work
the code i hve wriiten is as follows
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: par1 RADIOBUTTON GROUP rg2 DEFAULT 'X' USER-COMMAND ucom1
PARAMETERS: par2 RADIOBUTTON GROUP rg2 .
PARAMETERS: par3 RADIOBUTTON GROUP rg2 .
PARAMETERS: par4 RADIOBUTTON GROUP rg2
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER p_pwwrk TYPE plaf-pwwrk MODIF ID FSC.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS p_wch TYPE cr_hname MODIF ID FSC.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS s_mdv01 FOR g_mdv01 MODIF ID FSC.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a1.
I have declared this after Initialization.
AT SELECTION-SCREEN OUTPUT.
if par3 eq 'X' or par4 eq 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'FSC'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
endif.
can anybody please suggest.
Thanx
SrinivasHiding Input Fields Locate the document in its SAP Library structure
To suppress the display of the input field on the selection screen, you use the following syntax:
PARAMETERS p ...... NO-DISPLAY ......
Although parameter p is declared, it is not displayed on the selection screen.
If the parameter belongs to the standard selection screen, you can assign a value to it either by using the DEFAULT addition when you declare it, or during the INITIALIZATION event. If you call the executable program using the SUBMIT statement, the calling program can also pass the value.
When you use user-defined selection screens, you can assign a value to the parameter at any time before calling the selection screen.
If you want to display a parameter only in certain cases, for example, depending on the values entered by the user in other input fields of the selection screen, you cannot use the NO-DISPLAY addition. If you use NO-DISPLAY, the parameter actually is an element of the interface for program calls, but not an element of the selection screen. As a result, you cannot make it visible using the MODIFY SCREEN statement.
To hide a parameter that is an element of the selection screen, you must declare it without the NO-DISPLAY addition and suppress its display using the MODIFY SCREEN statement.
We can Hide parameter / select option in selection screen dynamically by manipulating screen object.
SCREEN is like an internal table with a header line. However, you do not have to declare it in your program. Go to debugging mode and then view structure of screen.
You can modify SCREEN in your ABAP program during the PBO event of a screen. Its contents override the static attributes of the screen fields for a single screen call. The only statements that you can use with SCREEN are:
LOOP AT SCREEN.
MODIFY SCREEN.
ENDLOOP.
We can hide parameter by set screen-active to 0.
Here is example of how to hide parameter in selection screen. Write it, and change click on radiobutton to hide parameter.
REPORT ZAALGAL0006.
DATA: d_ucomm LIKE sy-ucomm.
PARAMETERS: p_grpa1(10) MODIF ID A,
p_grpa2(5) MODIF ID A,
p_grpb1(2) MODIF ID B.
PARAMETERS: p_actA RADIOBUTTON GROUP rad1 USER-COMMAND ACT DEFAULT 'X',
p_actB RADIOBUTTON GROUP rad1.
AT SELECTION-SCREEN.
d_ucomm = sy-ucomm.
AT SELECTION-SCREEN OUTPUT.
LOOP AT screen.
IF p_actA = 'X'.
IF screen-group1 = 'B'.
screen-active = 0.
ENDIF.
ELSEIF p_actB = 'X'.
IF screen-group1 = 'A'.
screen-active = 0.
ENDIF.
ENDIF.
MODIFY screen.
ENDLOOP.
START-OF-SELECTION.
regards,
srinivas
<b>*reward for useful answers*</b> -
Regarding one selection screen
hi,
i have 4 radio buttons in my selection screen.
ex 1,2,3,4.
i want to click if 1 , then 3 should automatically active state,
same when i click radiobutton 2, 4 will come.
how to do this ....???
please help,
yours regards
subhasisHi
If your radio buttons is in the same group then u cant do this. Because in one group u can select only one radio button at any time.
If first 2 are in group1 and last 2 are in group2 then U can do like this. Copy paste this code in ur system and check the functionality.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.
PARAMETER: P_RADIO1 RADIOBUTTON GROUP GRP1 USER-COMMAND ucomm DEFAULT 'X',
P_RADIO2 RADIOBUTTON GROUP GRP1.
SELECTION-SCREEN: END OF BLOCK B1.
SELECTION-SCREEN: BEGIN OF BLOCK B2 WITH FRAME.
PARAMETER: P_RADIO3 RADIOBUTTON GROUP GRP2 USER-COMMAND ucomm,
P_RADIO4 RADIOBUTTON GROUP GRP2.
SELECTION-SCREEN: END OF BLOCK B2.
AT SELECTION-SCREEN OUTPUT.
IF p_radio1 EQ 'X'.
CLEAR: p_radio4.
p_radio3 = 'X'.
ELSEIF p_radio2 EQ 'X'.
CLEAR: p_radio3.
p_radio4 = 'X'.
ENDIF. -
Is it possible to display a tag at the selection screen in the output.
Hi all,
When you go to se38 and in the program editor screen, at the bottom right end of the screen you find a value called NUM and when you place your cursor on that it displays a tag that says "Num Lock Mode. Double click to toggle."
My query is, when i execute a report it takes me to the output screen that has a parameter, here i want to display a tag, say "enter the record as it is in the database". Is it possible to have such an option.
If you'll are wondering why I'm looking for such an option it is just to make a report that can be understood by many.
P.S: Not only on the NUM field the tag is available. Even on tools like activate display and so on.
Regards,
Narayanan Chandran.If it's a report program, use a comment in the selcetion screen for information of the user as shown below.
* Information
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-003.
SELECTION-SCREEN COMMENT /1(60) text-004. "Text containing the information message
SELECTION-SCREEN END OF BLOCK b1.
If you are using a module pool, you can create a tooltip for the element as suggested. -
Selection-screen in the output of the program
Hi,
I want to print the selection criteria ( or Values ) in the output of the program on the RIGHT HAND SIDE OF THE HEADER. I am doing code through ALV and I want to include the respective code in 'TOP_OF_PAGE'
If there are no values in the selection screen fields, then I DO NOT Print them. Start the values with the texts, such as 'Material', 'Plant', 'MRP Controller' etc. For single values, print the values separated by commas, For a range of values, print the values separated by '-', For the exclusion of single values, print 'EX' before the values.
Thanks in Advance.To get the parameter list, use [RS_REFRESH_FROM_SELECTOPTIONS|https://forums.sdn.sap.com/search.jspa?objID=c42&q=RS_REFRESH_FROM_SELECTOPTIONS], the rest is basic Abap.
Regards,
Raymond -
Enable a field in selection screen using radiobuttons
Hi gurus,
I am having 2 radio buttons in a group.
If I click on the second radio button a field for path should appear i.e enabled or else the field should be in disable mode if it is first radio button.
Please send me the code.
promise to reward
MacHi
Try this code
tables ltak.
parameters :rad_tc radiobutton group rad1 default 'X' user-command ucom,
rad_pr radiobutton group rad1 .
selection-screen begin of block blk1 with frame.
selection-screen begin of line.
selection-screen comment 1(20) text-001.
parameters : p_tanum like ltak-tanum modif id abc.
parameters : p_tapos like ltap-tapos modif id abc.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(20) text-002.
parameters : p_user like sy-uname modif id abc.
selection-screen end of line.
selection-screen end of block blk1.
selection-screen begin of block blk3 with frame.
selection-screen comment 1(20) text-003.
select-options : s_tanum for ltak-tanum modif id cda.
parameters : zp_user like sy-uname modif id cda.
selection-screen end of block blk3.
at selection-screen output.
loop at screen.
if rad_tc = 'X' and screen-group1 = 'CDA'.
screen-input = '0'.
modify screen.
endif.
if rad_pr = 'X' and screen-group1 = 'ABC'.
screen-input = '0'.
modify screen.
endif.
endloop.
If your query is solved kindly close the thread and award points
cheers
Shafiq -
Regarding the selection screen..
Hi all,
i have a requirement that.i need to create two selection screens..i.e. in the first selection screen i need to enter some values after that if i execute then another selection screen need to come and make the user to enter the values.Hi,
You can make this definitely through Dialog Programming.
I am attaching the code for that.
*& Module Pool SAPMZDS_CRTSCREEN
INCLUDE MZDS_SUBSCREENTOP.
*INCLUDE MZDS_IOCHKRBTTOP.
INCLUDE MZDS_SUBSCREENO01.
*INCLUDE MZDS_IOCHKRBTO01.
INCLUDE MZDS_SUBSCREENI01.
*INCLUDE MZDS_IOCHKRBTI01.
INCLUDE MZDS_SUBSCREENF01.
*GUI Texts
* TITLE --> MODULE POOL PROGRAM BY DS
TOP INCLUDE
*& Include MZDS_CRTSCREENTOP Module Pool SAPMZDS_CRTSCREEN
PROGRAM SAPMZDS_CRTSCREEN.
TABLES: SPFLI,SBOOK.
DATA: OK_CODE TYPE SYUCOMM.
CONTROLS TAB1 TYPE TABSTRIP.
DATA: BEGIN OF IT_SPFLI OCCURS 0,
CITYFROM TYPE SPFLI-CITYFROM,
AIRPFROM TYPE SPFLI-AIRPFROM,
CITYTO TYPE SPFLI-CITYTO,
AIRPTO TYPE SPFLI-AIRPTO,
END OF IT_SPFLI.
DATA: IT_SBOOK TYPE SBOOK.
DATA: DYNNR TYPE SY-DYNNR.
DATA: DEP_CITY(20) TYPE C,
DEP_AIR(20) TYPE C,
DES_CITY(20) TYPE C,
DES_AIR(20) TYPE C.
DATA: FLDATE(20) TYPE C,
BOOKNO(20) TYPE C,
CUSTNO(20) TYPE C.
DATA:CITY_FROM(20) TYPE C,
AIRP_FROM(20) TYPE C,
CITY_TO(20) TYPE C,
AIRP_TO(20) TYPE C.
DATA: FL_DATE(20) TYPE C,
BOOKID(20) TYPE C,
CUSTOMID(20) TYPE C.
DATA: BEGIN OF RBT,
SPFLI VALUE 'X',
SBOOK,
END OF RBT.
PBO
*& Include MZDS_CRTSCREENO01
*& Module STATUS_0100 OUTPUT
* text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'BASE'.
SET TITLEBAR 'TITLE'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module CLEAR_OKCODE OUTPUT
* text
MODULE CLEAR_OKCODE OUTPUT.
CLEAR OK_CODE.
ENDMODULE. " CLEAR_OKCODE OUTPUT
MODULE DISPLAY_DATA OUTPUT.
CASE 'X' .
WHEN RBT-SPFLI.
SELECT CITYFROM AIRPFROM CITYTO AIRPTO FROM SPFLI
INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
WHERE CARRID = SPFLI-CARRID
AND CONNID = SPFLI-CONNID.
FLDATE = ' '.
BOOKNO = ' '.
CUSTNO = ' '.
LOOP AT IT_SPFLI.
DEP_CITY = IT_SPFLI-CITYFROM.
DEP_AIR = IT_SPFLI-AIRPFROM.
DES_CITY = IT_SPFLI-CITYTO.
DES_AIR = IT_SPFLI-AIRPTO.
ENDLOOP.
WHEN RBT-SBOOK.
SELECT SINGLE FLDATE BOOKID CUSTOMID FROM SBOOK
INTO CORRESPONDING FIELDS OF IT_SBOOK
WHERE CARRID = SPFLI-CARRID
AND CONNID = SPFLI-CONNID.
FLDATE = IT_SBOOK-FLDATE.
BOOKNO = IT_SBOOK-BOOKID.
CUSTNO = IT_SBOOK-CUSTOMID.
DEP_CITY = ' '.
DEP_AIR = ' '.
DES_CITY = ' '.
DES_AIR = ' '.
ENDCASE.
ENDMODULE.
*& Module CALL_DYNNR OUTPUT
* text
MODULE CALL_DYNNR OUTPUT.
CASE TAB1-ACTIVETAB.
WHEN 'SPFLI'.
DYNNR = 102.
WHEN 'SBOOK'.
DYNNR = 103.
WHEN OTHERS.
TAB1-ACTIVETAB = 'SPFLI'.
DYNNR = 102.
ENDCASE.
ENDMODULE. " CALL_DYNNR OUTPUT
*& Module DISPLAY_SFLIGHT OUTPUT
* text
MODULE DISPLAY_SFLIGHT OUTPUT.
SELECT CITYFROM AIRPFROM CITYTO AIRPTO FROM SPFLI
INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
WHERE CARRID = SPFLI-CARRID
AND CONNID = SPFLI-CONNID.
CITY_FROM = IT_SPFLI-CITYFROM.
AIRP_FROM = IT_SPFLI-AIRPFROM.
CITY_TO = IT_SPFLI-CITYTO.
AIRP_TO = IT_SPFLI-AIRPTO.
ENDMODULE. " DISPLAY_SFLIGHT OUTPUT
*& Module DISPLAY_SBOOK OUTPUT
* text
MODULE DISPLAY_SBOOK OUTPUT.
SELECT SINGLE FLDATE BOOKID CUSTOMID FROM SBOOK
INTO CORRESPONDING FIELDS OF IT_SBOOK
WHERE CARRID = SPFLI-CARRID
AND CONNID = SPFLI-CONNID.
FL_DATE = IT_SBOOK-FLDATE.
BOOKID = IT_SBOOK-BOOKID.
CUSTOMID = IT_SBOOK-CUSTOMID.
ENDMODULE. " DISPLAY_SBOOK OUTPUT
PAI
*& Include MZDS_CRTSCREENI01
*& Module USER_COMMAND_0100 INPUT
* text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'SPFLI' OR 'SBOOK'.
TAB1-ACTIVETAB = OK_CODE.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE TO SCREEN 100.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
FORM Routine
*& Include MZDS_SUBSCREENF01
FORM DISPLAY_SPFLI_DATA.
*SELECT CITYFROM AIRPFROM CITYTO AIRPTO FROM SPFLI
* INTO CORRESPONDING FIELDS OF TABLE IT_SPFLI
* WHERE CARRID = SPFLI-CARRID
* AND CONNID = SPFLI-CONNID.
*CITY_FROM = IT_SPFLI-CITYFROM.
*AIRP_FROM = IT_SPFLI-AIRPFROM.
*CITY_TO = IT_SPFLI-CITYTO.
*AIRP_TO = IT_SPFLI-AIRPTO.
ENDFORM.
FORM DISPLAY_SBOOK_DATA.
*SELECT SINGLE FLDATE BOOKID CUSTOMID FROM SBOOK
* INTO CORRESPONDING FIELDS OF IT_SBOOK
* WHERE CARRID = SPFLI-CARRID
* AND CONNID = SPFLI-CONNID.
ENDFORM.
HTH
Regards,
Dhruv Shah -
Regarding at selection screen event
hi experts,
i m working on hr abap report with the help of pnp ldb i made my selection screen using report category 'PY_DEF' now what i want that i m not using the first selction screen which contains current period details etc but when i click on the payroll period button the second selection screen is coming no doubt... containing payroll area current period ,other periods etc here i m entering payroll area eq 'ka' and other periods from '012006' to '122006' ,,here i want to validate the user input that it sud be of one year that is from 1 to 12.....for this i know i will use at selection event but how can i use it for the second selection screen not for first screen......... plz help me....Do u realy need the first selection screen having the current period? If u don't need then u can hide the field in the report category, by passing only the payroll area with other period, in this case we can validate through selection screen..
Reward points ... if found helpful...
Regards,
Sowmen Das -
Selection-screen fields in output.
hi experts,
i have one requirement.
here i am giving some values in parameters(upto 12).
PARAMETERS:
apr LIKE sy-datum MODIF ID 1yr,
may LIKE sy-datum MODIF ID 1yr,
jun LIKE sy-datum MODIF ID 1yr,
jul LIKE sy-datum MODIF ID 1yr,
aug LIKE sy-datum MODIF ID 1yr,
sep LIKE sy-datum MODIF ID 1yr,
oct LIKE sy-datum MODIF ID 1yr,
nov LIKE sy-datum MODIF ID 1yr,
dec LIKE sy-datum MODIF ID 1yr,
JAN LIKE sy-datum MODIF ID 1yr,
FEB LIKE sy-datum MODIF ID 1yr,
MAR LIKE sy-datum MODIF ID 1yr.
SELECTION-SCREEN:END OF BLOCK 1yr.
DATA: BEGIN OF it_display OCCURS 0,
month(4) TYPE c, "month
year(2) TYPE n, "year
totalemp(4) TYPE n VALUE 0, "total
esiwage TYPE pc207-betrg,
empesi LIKE pc207-betrg,
empyresi LIKE pc207-betrg,
total LIKE pc207-betrg,
paydate LIKE sy-datum,
END OF it_display.
i am having itab with 8 fields. the last field is date.
for this field i have to get data from selection-screen.
Some of these fileds i require in the output. Not all the 12 months .....dates ..with respect to the output...
if output is coming for 3 months jan, feb, mar.
then i have to pass to move the dates to 3 months(jan feb mar) (payment of esi).
Message was edited by:
dasr r
Message was edited by:
dasr r
Message was edited by:
dasr r
Message was edited by:
dasr rhi,
do the necesseray validations in this event and make the parameters visible and invisible.
<b>At selection-screen output</b> : triggered when the selection screen is loaded in memory before being displayed.
Regrds
Anversha
Maybe you are looking for
-
I don't want to share my apple id with my family anymore but I own over 2000 songs and a few other things I bought so would I be able to get them if I got a new apple id?
-
What is backside illumination, got poor Image quality too
Hi, I have recently purchased the new iPad with retina display, it had the 5mp iSight camera with backside illumination, can someone please explain what these are firstly, secondly I upgraded from the iPad 2 in hope of better photos but they still se
-
hai i want to transmit an image in the local host..how can do it...plz help me..its urgent..
-
Oracle 10g RAC - public network interface down
Hi all, I have a question about Oracle RAC and network interface. We're using Oracle 10gR2 RAC with two nodes on Linux Red Hat. Let's assume that the public network interface goes down. I would like to know what happens with existing connections on n
-
I can read World docs on IPad but not on my MacBook Pro. What mistake do I do ? Thanks, I can read World docs on IPad but not on my MacBook Pro. What mistake do I do ? Thanks