Screen fields without parameter id's in IW26 pseudo-selection screen
The initial screen of IW26 looks like a selection screen but isn't. It uses a number of screens as follows:
1) For notification/status/order: IQS0 1050 (IQSO is the function group)
2) For Notification Reference Object: IWO1 0100
3) For Notification Responsibilities: IQSO 7326
4) For Notification Start/End Dates: IQS0 7330
5) For Notification Item: IQS0 7324
6) For Notification Malfunction Data: IQS0 7328
If you look at IQS0 7330, you'll see that the only the "Priority" screen field has a parameter id.
If you look at IQS0:7324, you'll see that none of the Item-Related screen-fields have parameter ID's.
Same for IQS0:7328 - none of the Malfunction-related fields have parameter id's.
So - if we do a call transaction/skip first screen, we can't preset any of the Item-related screen fields in 7324, nor any of the Malfunction-related screen fields in 7330, nor any of the Date-related fields in 7328 except Priority.
If we were dealing with a "regular" selection-screen here, I know how to get around this problem - do a "submit program" with the selection-screen parameters and select-options "preset" in the with-clause of the submit.
But here we don't have a regular selection-screen. We have the screens 7330, 7324, and 7328 in IQS0. So I can't do a "submit program".
So how do I preset screen-fields on these screens when SAP has provided no parameter ids for them?
(I assume here that I can's use "submit program" because I'm not trying to present real selection screen fields.)
Sorry if this is a dumb question, but I've only dealt with this problem before when the transaction has a real selection screen and I can use "submit program" with a with clause in which the parameters and select-options are preset.
Thanks for any help anyone can provide.
I
Hi Rich -
I've done the ten because you confirmed my suspicion that nothing "clean" can be done here. I thought maybe some kind of customer screen exit would allow parameter id's to be assigned on the fly rather than in Dictionary, or something like that, but if you've never heard of this then I'm sure it can't be done.
Anyway, the issue regarding the BDC is not the usual one of maintainability over time - it's a political one.
The functional analysts want to use a 3rd party product to create a simpler front-end screen for IW26 - the guys on the shop floor don't want to chase the trees.
We told them that this third party product has recently been known to cause headaches (in fact, by pure coincidence there was a post tonight 12/26 about this product.)
They said - well what else are you going to do, write a BDC?
I hadn't looked at IW26 so I assumed it had a regular selection screen and said to them that a BDC wouldn't be necessary - a call transaction or submit program would suffice.
But of course I spoke too soon, unless I can get an OSSN with the parameter IDs.
Anyway - that's the history here.
BTW, I am going to blog on this topic of "missing" parameter ID's for two reasons:
a) it ticks me off;
b) if IW26 is to be efficiently called as a service, these missing ID's have got to be there;
c) there's no reason to go to a 3rd party product just to avoid using a BDC when parameter IDs are missing.
I know, I know - I'll blog about anything ...
Regards
djh
Similar Messages
-
More than one Input field [Parameter] in a single row on Selection-Screen.
Hi All,
I am having one scenario where i need to create 6 input fields on selection screen. 3 input fields in first row and remaining 3 input fields on the second row. So will you guys send me some sample code how to do this.
Waiting for your reply.
Regards,
SantoshHi Santhosh,
check this snippet for parameters.
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN BEGIN OF BLOCK calc
WITH FRAME TITLE text-001 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:
p_param1(3) type c,
p_param2(3) type c,
p_param3(3) type c,
p_param4(3) type c.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK calc.
check this snippet for select-options.
SELECTION-SCREEN SKIP 3.
SELECTION-SCREEN BEGIN OF BLOCK calc
WITH FRAME TITLE text-001 NO INTERVALS.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN :
PUSHBUTTON 20(3) b1 USER-COMMAND b1,
PUSHBUTTON 29(3) b4 USER-COMMAND b4,
PUSHBUTTON 38(3) b7 USER-COMMAND b7,
PUSHBUTTON 47(3) pm USER-COMMAND pm.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK calc.
Hope this would help you.
Regards
Narin Nandivada. -
Parameter more than 45 characters in selection-screen
Hi All,
I requre help for displaying a parameter of visible length 75 characters in selection screen. By default it is displaying 45 characters.
Thanks in advance.
Regards,
Rohit GoelHello,
Use the line screen element to do it. Follow an example and you can get the positions like described in the SAP Help Documentation
SELECTION-SCREEN: BEGIN OF LINE,
PUSHBUTTON 2(10) push USER-COMMAND fcode,
POSITION 16.
PARAMETERS para TYPE c LENGTH 20.
SELECTION-SCREEN: COMMENT 40(40) text,
END OF LINE.
INITIALIZATION.
push = 'Push'.
text = '<--- Fill field, then push button!'.
Regards. -
How to use a parameter of a report program from selection screen in a dialog program
how to use a parameter value(entered ) of a report program from a selection screen in a dialog program.
I have to fetch the value entered in the parameter of report program and display it in a dialog programHi Aasim,
Just mention like below in your ABAP report.
PARAMETERS: p_aufnr TYPE aufnr MEMORY ID ord.
and mention the same memory ID name in the module pool screen property it automatically populates the value to and fro -
Grey out the input field as soon as check box checks on selection screen!
HI Experts,
In my report selection screen I have input_field1, input_field2, check_box1. Both input fields are mandatory fileds.
My requireemnt is: If user as soon as checks the check_box1, the first input_field1 must go grey out (not allow allow to enter)!
So I have assigned a user command to check box and assigned a modif-ID to the input_field1
and wrote a LOOP AT SCREEN code as below,
PARAMETERS show_all AS CHECKBOX USER-COMMAND flag.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p1 TYPE c LENGTH 10,
p2 TYPE c LENGTH 10,
p3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME.
PARAMETERS: p4 TYPE c LENGTH 10 MODIF ID bl2,
p5 TYPE c LENGTH 10 MODIF ID bl2,
p6 TYPE c LENGTH 10 MODIF ID bl2.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF show_all <> 'X' AND
screen-group1 = 'BL2'.
screen-active = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
But,am getting an error message saying "Enter all required fields"
Pls. let me know how to fix this?
Thank youI assume P1, P2 and P3 are marked as obligatory.
You cannot achieve that. But here is an alternative to achieve a similar functionality.
AT SELECTION-SCREEN.
CHECK sy-ucomm EQ 'ONLI' OR sy-ucomm = 'SJOB' OR sy-ucomm = 'PRIN'.
IF p1 is INITIAL or P2 is INITIAL or P3 is INITIAL.
MESSAGE 'Enter all required fields' TYPE 'E'.
ENDIF.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF show_all = 'X' AND
screen-group1 = 'BL2'.
screen-input = '0'.
ENDIF.
MODIFY SCREEN.
ENDLOOP. -
Problem in PRD to display check box parameter on selection screen
hi ,
i had one problem, i created one report which will show customer advances, for this report i created one selection screen, i transport req to QAS and PRD it shows fine. after that i need to add one more check box to that report selection screen. i transport reqt to QAS and PRD, in QAS it is woking fine but in PRD i am not able to see the check box which i was enterd. transport was perfect. i am saw the report coding in PRD that has the Check box statement. but it not comming,
1, why the selection screen is not showing that check box parameter ?
2, i had 19 selection fields is their any restriction to display the selection screen ?
please try to solve it for me,
thanq,
rajesh.kHello Rajesh,
First check the Log of your TR. whether it is transported properly without any error or with error.
again delete your Checkbox statement and write code again then try to transport again.
there is no any limitation to provide option on selection screen. you can give as per your requirement.
Regards,
Sujeet -
Hi All,
I am facing a problem with selection screen parameter.
I have one file parameter p_fname TYPE rlgrap-filename OBLIGATORY.When I enter some file path and excute I will get the result and once again when I start to execute the program I expect the previous value(file path) should be available for this file parameter that has entered on the selection screen but I am not getting that.
I dont find any parameter id for this field data element.
Please let me know how to do this?
Best Regards
RameshHi,
You should have..
DATA: FLNAME TYPE STRING.
PARAMETERS: FILENAME TYPE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FILENAME.
Find the demo code below, it uses the file :
report ZDS_BDC_MM01_2
no standard page heading line-size 255.
*include bdcrecx1.
*parameters: dataset(132) lower case.
*** DO NOT CHANGE - the generated data section - DO NOT CHANGE ***
* If it is nessesary to change the data section use the rules:
* 1.) Each definition of a field exists of two lines
* 2.) The first line shows exactly the comment
* '* data element: ' followed with the data element
* which describes the field.
* If you don't have a data element use the
* comment without a data element name
* 3.) The second line shows the fieldname of the
* structure, the fieldname must consist of
* a fieldname and optional the character '_' and
* three numbers and the field length in brackets
* 4.) Each field must be type C.
*** Generated data section with specific formatting - DO NOT CHANGE ***
data: begin of record OCCURS 0,
* data element: MATNR
MATNR_001(018),
* data element: MBRSH
MBRSH_002(001),
* data element: MTART
MTART_003(004),
* data element: XFELD
KZSEL_01_004(001),
* data element: MAKTX
MAKTX_005(040),
* data element: MEINS
MEINS_006(003),
* data element: MTPOS_MARA
MTPOS_MARA_007(004),
end of record.
DATA: FLNAME TYPE STRING.
*** End generated data section ***
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
*** MESSAGE******
DATA: BEGIN OF MESSTAB OCCURS 0.
INCLUDE STRUCTURE BDCMSGCOLL.
DATA: MATNR TYPE MARA-MATNR,
END OF MESSTAB.
****END OF MESSAGE****
PARAMETERS: FILENAME TYPE RLGRAP-FILENAME.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILENAME.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
FILE_NAME = FILENAME.
start-of-selection.
*perform open_dataset using dataset.
perform open_group.
FLNAME = FILENAME.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
FILENAME = FLNAME
FILETYPE = 'DAT'
* HAS_FIELD_SEPARATOR = ' '
* HEADER_LENGTH = 0
* READ_BY_LINE = 'X'
* DAT_MODE = ' '
* CODEPAGE = ' '
* IGNORE_CERR = ABAP_TRUE
* REPLACEMENT = '#'
* CHECK_BOM = ' '
* VIRUS_SCAN_PROFILE =
* NO_AUTH_CHECK = ' '
* IMPORTING
* FILELENGTH =
* HEADER =
TABLES
DATA_TAB = record
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT record.
DATA:
CNT TYPE I.
CNT = CNT + 1.
REFRESH BDCDATA.
perform bdc_dynpro using 'SAPLMGMM' '0060'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1-MTART'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RMMG1-MATNR'
record-MATNR_001.
perform bdc_field using 'RMMG1-MBRSH'
record-MBRSH_002.
perform bdc_field using 'RMMG1-MTART'
record-MTART_003.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'MSICHTAUSW-KZSEL(01)'
record-KZSEL_01_004.
perform bdc_dynpro using 'SAPLMGMM' '4004'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'MAKT-MAKTX'
record-MAKTX_005.
perform bdc_field using 'BDC_CURSOR'
'MARA-MEINS'.
perform bdc_field using 'MARA-MEINS'
record-MEINS_006.
perform bdc_field using 'MARA-MTPOS_MARA'
record-MTPOS_MARA_007.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
*perform bdc_transaction using 'MM01'.
CALL TRANSACTION 'MM01' USING BDCDATA
MODE 'N'
UPDATE 'A'
MESSAGES INTO MESSTAB.
READ TABLE MESSTAB INTO MESSTAB INDEX CNT.
IF MESSTAB-MSGTYP = 'E'.
MESSTAB-MATNR = RECORD-MATNR_001.
MODIFY MESSTAB INDEX CNT FROM MESSTAB. " TRANSPORTING MATNR.
ENDIF.
ENDLOOP.
FORM OPEN_GROUP.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING CLIENT = SY-MANDT
GROUP = 'MM01'
USER = SY-UNAME
KEEP = 'X'.
ENDFORM.
FORM BDC_INSERT.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = 'MM01'
* POST_LOCAL = NOVBLOCAL
* PRINTING = NOPRINT
* SIMUBATCH = ' '
* CTUPARAMS = ' '
TABLES
DYNPROTAB = BDCDATA
EXCEPTIONS
INTERNAL_ERROR = 1
NOT_OPEN = 2
QUEUE_ERROR = 3
TCODE_INVALID = 4
PRINTING_INVALID = 5
POSTING_INVALID = 6
OTHERS = 7
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.
END-OF-SELECTION.
LOOP AT MESSTAB.
IF MESSTAB-MSGTYP = 'E'.
WRITE:/ 'ERROR OCCURED ON MATNR = ',MESSTAB-MATNR , 'MESSAGE : MATNR ALREADY EXISTS IN MARA!!!'.
ENDIF.
ENDLOOP.
perform close_group.
*perform close_dataset using dataset.
*& Form close_group
* text
* --> p1 text
* <-- p2 text
FORM close_group .
CALL FUNCTION 'BDC_CLOSE_GROUP'
EXCEPTIONS
NOT_OPEN = 1
QUEUE_ERROR = 2
OTHERS = 3
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. " close_group
*& Form bdc_dynpro
* text
* -->P_0270 text
* -->P_0271 text
FORM bdc_dynpro USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. " bdc_dynpro
*& Form bdc_field
* text
* -->P_0275 text
* -->P_0276 text
FORM bdc_field USING FNAM FVAL.
IF FVAL <> ' '.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDIF.
ENDFORM. " bdc_field
HTH
Regards,
Dhruv Shah -
Error message disble the Fields in Selection Screen
Hi,
In my Report i am validating some fields as mandatory.
If the field is initial then one Error message should be display in the screen and user has to modify the selection screen.
But after displaying the errro message my selection screen is input disable except the mandatory field.
I want all the fields should be input enable.
Sample code for Error message,
MESSAGE E018 WITH 'Enter Plant'.
Please provide the code for this.Performing checks on SELECTION-SCREEN
- if the check uses only one independent field (e.g.: value exist in a table) use a[ AT SELECTION-SCREEN ON <field>|http://help.sap.com/abapdocu/en/ABAPAT_SELECTION-SCREEN_EVENTS.htm#!ABAP_ALTERNATIVE_2@2@], the field will be editable when error is raised
- if the check uses some fields, group them using [SELECTION-SCREEN BEGIN OF BLOCK <block>/END OF BLOCK <block>|http://help.sap.com/abapdocu/en/ABAPSELECTION-SCREEN_BLOCK.htm] and then [AT SELECTION-SCREEN ON BLOCK <block>|http://help.sap.com/abapdocu/en/ABAPAT_SELECTION-SCREEN_EVENTS.htm#!ABAP_ALTERNATIVE_4@4@], each field of the block will be editable when error is raised
So, if you really want that each and every field be editable when an error is raised, declare every parameter and select-options in a big block, and perform the check in a unique AT SELECTION-SCREEN ON BLOCK xxx.
Use Error message, Warning and Information don't break the flow of the report.
Regards,
Raymond -
Auto Incrementation of a Selection-Screen Field
Hi Folks,
How to Increment a Selection-Screen Field (Consider Parameter)..
When we press a back button on Urs Output List.
( For Example : we have a slelction screen field (parameter) by name customer. When we enter 1000(say) in it then an output list is displayed.
after we press the BACK button on the displayed list the next time the Selectio screen fieeld should Automatically Display an Incremented value of 1001 (instead if 1000).
Plz help me..!!hi
try this logic
at user-command.
case sy-ucomm.
when 'BACK'.
customer = customer + 1.
leave to screen 100.
endcase .
Cheers -
Selection-screen fields validation for dialog
Hello ABAP Gurus
Requirements: this is a report wherein , depending upon the correct select-options , user will pick some field values from table and some will be entered by the user in the next se51 custom screen for creation of a record in a ztable .
the problem is :without validating select-options values , it calls the se51 screen 100.
How to keep the cursor at the selection-screen field until & unless user enters the correct i/p s .if i/p are correct then only it should call screen 100 otherwise remain in the selection screen only .
*& Report ZSD_REP_QUOT_BANK_CREATE *
REPORT ZSD_REP_QUOT_BANK_CREATE NO STANDARD PAGE HEADING LINE-SIZE 255.
TABLES: VBAK,VBAP,VBRK,ZSD_TABL_QOTBANK,MARA,KONV.
DATA: OK_CODE LIKE SY-UCOMM,
SAVE_OK_CODE LIKE SY-UCOMM,
WA_ITAB LIKE ZSD_TABL_QOTBANK,
ANSWER TYPE C,
COPIED ,
STS TYPE N,
EMGRP LIKE MARA-EXTWG,
QTY LIKE ZSD_TABL_QOTBANK-QTY,
UPRICE LIKE ZSD_TABL_QOTBANK-UPRICE,
TOT LIKE ZSD_TABL_QOTBANK-TOT,
INO LIKE VBAP-POSNR.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
SELECT-OPTIONS: S_QTNO FOR ZSD_TABL_QOTBANK-QTNO
NO INTERVALS NO-EXTENSION OBLIGATORY,
S_ITNO FOR ZSD_TABL_QOTBANK-ITNO
NO INTERVALS NO-EXTENSION OBLIGATORY.
S_MATNO FOR ZSD_TABL_QOTBANK-MATNO
NO INTERVALS NO-EXTENSION. "
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN.
SELECT SINGLE VBTYP
INTO VBAK-VBTYP
FROM VBAK
WHERE VBELN IN S_QTNO.
IF SY-SUBRC EQ 0 AND VBAK-VBTYP NE 'B'.
MESSAGE I005(ZQOTBANK).
SET CURSOR FIELD S_QTNO-LOW.
SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.
CLEAR WA_ITAB.
SELECT SINGLE QTNO ITNO
INTO WA_ITAB
FROM ZSD_TABL_QOTBANK
WHERE QTNO IN S_QTNO
AND ITNO IN S_ITNO.
IF SY-SUBRC EQ 0.
MESSAGE I001(ZQOTBANK).
SET CURSOR FIELD S_QTNO-LOW.
SET CURSOR FIELD S_ITNO-LOW.
SUBMIT (SY-REPID) VIA SELECTION-SCREEN.
ENDIF.
*START-OF-SELECTION.
END-OF-SELECTION.
CALL SCREEN 0100.
*& Module STATUS_0100 OUTPUT
text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS '0100'.
SET TITLEBAR '0100'.
ZSD_TABL_QOTBANK-QTNO = S_QTNO-LOW.
SELECT SINGLE BUKRS_VF VKORG VTWEG SPART KUNNR ERDAT BNDDT
KNUMV
INTO (ZSD_TABL_QOTBANK-CCODE,
ZSD_TABL_QOTBANK-SORG,
ZSD_TABL_QOTBANK-DISTCHAN,
ZSD_TABL_QOTBANK-DIV,
ZSD_TABL_QOTBANK-CUSTNO,
ZSD_TABL_QOTBANK-QTDAT,
ZSD_TABL_QOTBANK-QTVALDAT,
VBAK-KNUMV)
FROM VBAK
WHERE VBELN IN S_QTNO
AND VBTYP = 'B'.
IF SY-SUBRC EQ 0.
SELECT SINGLE KWMENG POSNR MATNR
INTO (QTY , INO , ZSD_TABL_QOTBANK-MATNO)
FROM VBAP
WHERE VBELN IN S_QTNO.
SELECT SINGLE EXTWG
INTO EMGRP
FROM MARA
WHERE MATNR EQ ZSD_TABL_QOTBANK-MATNO.
ZSD_TABL_QOTBANK-ITNO = INO.
ZSD_TABL_QOTBANK-EMATGRP = EMGRP.
ZSD_TABL_QOTBANK-QTY = QTY.
SELECT SINGLE KBETR
INTO UPRICE
FROM KONV
WHERE KNUMV = VBAK-KNUMV
AND KPOSN = INO
AND KSCHL = 'PR00'.
ENDIF.
ZSD_TABL_QOTBANK-UPRICE = UPRICE.
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-CGL_QTY.
UPRICE = ZSD_TABL_QOTBANK-CGL_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-CGL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-BHEL_QTY.
UPRICE = ZSD_TABL_QOTBANK-BHEL_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-BHEL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-BHEL_QTY.
UPRICE = ZSD_TABL_QOTBANK-BHEL_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-BHEL_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-ALSTOM_QTY.
UPRICE = ZSD_TABL_QOTBANK-ALSTOM_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-ALSTOM_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-SIEMENS_QTY.
UPRICE = ZSD_TABL_QOTBANK-SIEMENS_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-SIEMENS_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-TELK_QTY.
UPRICE = ZSD_TABL_QOTBANK-TELK_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-TELK_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
QTY = ZSD_TABL_QOTBANK-OTH_QTY.
UPRICE = ZSD_TABL_QOTBANK-OTH_UPRICE .
TOT = QTY * UPRICE .
ZSD_TABL_QOTBANK-OTH_TOT = TOT .
CLEAR: QTY, UPRICE, TOT.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE USER_COMMAND_0100 INPUT.
CASE OK_CODE.
WHEN 'SAVE'.
INSERT ZSD_TABL_QOTBANK.
IF SY-SUBRC EQ 0.
MESSAGE I000(ZQOTBANK).
COMMIT WORK.
CALL SELECTION-SCREEN 1000.
ELSE.
MESSAGE E001(ZQOTBANK).
CALL SELECTION-SCREEN 1000.
ENDIF.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module EXIT_COMMAND INPUT
text
MODULE EXIT_COMAND INPUT.
SAVE_OK_CODE = OK_CODE.
CLEAR OK_CODE.
CASE SAVE_OK_CODE.
WHEN 'CANCEL'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Quotation Bank Entry'
TEXT_QUESTION = 'Do you want to Cancel ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE PROGRAM.
ELSE.
CALL SELECTION-SCREEN 1000.
ENDIF.
WHEN 'EXIT'.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
TITLEBAR = 'Quotation Bank Entry'
TEXT_QUESTION = 'Do you want to Exit ?'
TEXT_BUTTON_1 = 'Yes'
TEXT_BUTTON_2 = 'No'
DEFAULT_BUTTON = '2'
IMPORTING
ANSWER = ANSWER.
IF ANSWER = '1'.
LEAVE PROGRAM.
ELSE.
CALL SELECTION-SCREEN 1000.
ENDIF.
ENDCASE.
ENDMODULE. " EXIT_COMMAND INPUT
Thnx in AdvancePut the statement
CALL SCREEN 100
in the event <b>AT SELECTION-SCREEN</b> and NOT in <b>END-OF-SELECTION</b>.
Regards,
Subramanian V. -
Hiding selection screen fields upon clicking a button
Hi .
I have a requirement like we need to hide and bring back the selection screen fields upon clicking a button( Expand and collapse in the same button) .
in ABAP Query,we can maintain this, for the variant we created.
We need this functionality on the selection-screen presently.
How to achieve this in the selection -screen?
Valuale pointers are desparately needful.
Regards,
SSR.Hi,
SELECTION SECREEN (P_) Parameter
(S_) Select Options
SELECTION-SCREEN : BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001,
BEGIN OF LINE,
COMMENT (26) C1 MODIF ID XYZ.
SELECT-OPTIONS : S_MATNR FOR MARA-MATNR MODIF ID XYZ NO-EXTENSION .
SELECTION-SCREEN : END OF LINE,
BEGIN OF LINE,
COMMENT (26) C2 MODIF ID XYZ.
SELECT-OPTIONS : S_MATKL FOR MARA-MATKL MODIF ID XYZ NO-EXTENSION .
SELECTION-SCREEN : END OF LINE.
PARAMETERS : R_MATNR RADIOBUTTON GROUP RAD1 DEFAULT 'X'
MODIF ID ABC USER-COMMAND MAT,
R_MATKL RADIOBUTTON GROUP RAD1.
SELECTION-SCREEN END OF BLOCK blk1.
INITIALIZATION.
C1 = 'Product Code'.
c2 = 'Product Group'.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-NAME0(7) = 'S_MATNR' OR SCREEN-NAME0(7) = 'S_MATKL'.
SCREEN-INPUT = '0'.
SCREEN-INVISIBLE = '1'.
ENDIF.
CASE SCREEN-NAME+0(7).
WHEN 'S_MATNR'.
IF R_MATNR = 'X'.
SCREEN-INPUT = '1'.
SCREEN-INVISIBLE = '0'.
ENDIF.
WHEN 'S_MATKL'.
IF R_MATKL = 'X'..
SCREEN-INPUT = '1'.
SCREEN-INVISIBLE = '0'.
ENDIF.
ENDCASE.
IF R_MATNR = 'X'.
IF SCREEN-NAME = 'C1'.
C1 = 'Product code'.
C2 = SPACE.
ENDIF.
ENDIF.
IF R_MATKL = 'X'.
IF SCREEN-NAME = 'C2'.
C2 = 'Product Group'.
C1 = SPACE.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Hope it helps.
best regards,
Nagaraj Kalbavi -
Adding Radio button & regular button to selection-screen without new gui
Hi,
Is there a way to add a radio button & regular button to a selection-screen without having to create a new gui, status and etc?
Thanks,
JohnHi
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 4(30) TEXT-001 FOR FIELD P_1.
SELECTION-SCREEN POSITION 1.
PARAMETERS: P_1 RADIOBUTTON GROUP R1 DEFAULT 'X'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 4(30) TEXT-002 FOR FIELD P_2.
SELECTION-SCREEN POSITION 1.
PARAMETERS: P_2 RADIOBUTTON GROUP R1.
SELECTION-SCREEN END OF LINE.
Where the symbols text TEXT-001 and TEXT-002 have the label for the radiobuttons
Max -
How do I add a selection screen parameter to get a application server file
Hi All..
Can you please suggest how can we add a selection screen parameter to get a application server file ?
Thanx in Advance...
Regards,
Deepak<b>Parameter def :</b>
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 02(30) text-005 FOR FIELD p_xlfil.
PARAMETERS: p_xlfil LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF LINE.
<b>Browse</b>
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_xlfil.
PERFORM ws_get_filename USING p_xlfil.
FORM ws_get_filename USING p_xlfil.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_path = 'C:'
mask = ',Excel,*.xls,All,*.*.'(100)
mode = 'O'
title = 'Title'(101)
IMPORTING
filename = p_xlfil
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc NE 0.
CLEAR p_xlfil.
ENDIF.
ENDFORM. " WS_GET_FILENAME
Regards
<b>Oops i did not read "application server"</b>
Use FM F4_FILENAME_SERVER and not F4_FILENAME/WS_GET_FILENAME.
Message was edited by:
Raymond Giuseppi -
Selection Screen Parameter behaving strangely.
This one is too weird to believe. Here's what's happening. I have a normal abap list report with a checkbox parameter. I set the value to 'X' initialization and it works the first time the selection screen is presented. Upon running the program I turn off the checkbox. I want the value to be re-initialized to 'X' whenever the selection screen appears. The problem is when F3 is pressed on the list screen, the initialization is invoked and the parameter set to 'X' but the selection screen appears without the checkbox selected. I have verified this through the debugger. Is there a better to change the values of selection screen parameters?
Hello Scott,
I'm not sure if you know about this, so I would explain it to you.
In case of selection-screen processing, the UCOMM value is to be obtained from the structure SSCRFIELDS, as against the structure SY(ST) in case of normal screen processing.
Consider the following code snippet.
====================================================
tables sscrfields.
parameters : p_check as checkbox.
data :w_do_not_reset type flag.
at selection-screen output.
if w_do_not_reset eq space.
p_check = 'X'.
endif.
at selection-screen.
if sscrfields-ucomm eq space.
w_do_not_reset = 'X'.
else.
clear w_do_not_reset.
endif.
start-of-selection.
write : p_check.
====================================================
As the example illustrates, we need to declare the structure SSCRFIELDS with a tables statement and use the value of SSCRFIELDS-UCOMM.
Hope this helps.
Regards,
Anand Mandalika.
P.S. : If you are satisfied with the solution, please award the points. -
Parameter for selection screen
Hi All,
I want a parameter (Input box) in my selection-screen which can hold 250 characters . I don't want to make screen for this, I want to do it using selection-screen only. Is it possible to do this.
Please provide me solution for this.
Thanks.
ShwetaHi All,
I am very thankful to u all getting involved in providing solution to my thread. I am also trying to get it for select-option but not getting.
As Dande suggested the table name holding 250 character field and the syntax I tried using it but its holding only 45 characters. I am not sure whether it will hold more than 45 characters or not.
Dilleep, As Naveen suggested for parameter it is working fine for me , I am using Ecc 6.0 .
Amit , its a request from my side , I f u have any solution or suggestion related to my query please do provide it, I will appreciate and and I will be v thankful to u , but if u don't have any suggestions please don't give such type of comments "Why don't u try it yourself", As I tried it , and tryining the same (becoz its my problem) ,not getting proper solution so posting in the thread. If u have such type of answer please ignore the thread.
Thanks.
Shweta.
Maybe you are looking for
-
I have a macbook 15 inch (retina display) and philips LCD which I'm trying to connect my laptop to. I currently have a HDMI cable plugged in, but am constantly getting an error message "no video input" on the LCD tv. I have checked the philips LCD to
-
QuickTime grabbed all my .WAVs by the throat and won't let go!
This is a Quicktime problem. I fully updated Quicktime on my PC, Febr. 3d, six weeks ago. I have Windows Vista HP SP-2. I don't have or use iTunes, so it's not relevant here. I've used NCH music software for all my music work for 3 years, and am happ
-
BPM Transport acknowledgment problem
Hi, I'm making a scenarion where Sync RFC -> 'ASync' FTP using the BPM. I need to know if the file transport went allright or not and will inform the user direclty. So I've started to use the BPM's acknowledgment Transport feature, to know if it was
-
ESS Who's Who removing Change Own Data Link
Hi, Set-up ESS who's who with no issue on EP7 with ECC6. However I wish to remove the "Change Own Data" link from the page. I have reviewed the IMG but cannot find where to change the details. Also I cannot find Personnel Management >> Employee Sel
-
Tasklist sorting in AwesomeWM [SOLVED]
I just noticed that the tasklist will always put new windows on the left-most side. How can I get Awesome to put new windows to the right-most? Using the tile.left layout, a program window may be on the right but it will be on the left in the tasklis