Screen Modifications for Travel Privileges (0017) screen
Hi all,
I am trying to change the screen modifications for Travel Privileges with module pool MP001700. The problem is I can't find the module pool through the IMG>Personnel Management>Personnel Administration>Customization User Interfaces>Change Screen Modifications. If not here, where/how can I do this?
Your help is much appreciated.
Thanks.
Regards,
Eric
Hi guys,
Thanks for the replies but I was looking to do screen modifications preferably by non ABAP methods. I have found the solution where you need to create the module pool manually and the fields selections will appear.
Regards,
Eric
Similar Messages
-
How to can we do selection-screen modification for LDB?
Hi All,
I have custom field in my selection-screen of LDB PNP.
Can you people please let me know how can I put the selection-screen modificaiton For ex:
i have created
parameters a as checbox.
select-options: p_btrtl for p0001-btrtl no-intervals.
now If the check box is selected then p_btrtl we can enter values or esle If check box is not selected then p_btrtl will be grayed out, ( I.e. SCREEN-INPUT = 0)
This is simple from ABAP without LDB. But with LDB can we achieve?????????????
Satish
Edited by: Satish Vasireddy on Jun 23, 2010 4:05 PMyou can use the following logic for the additional selection validation. I have done by using PNP LDB. Ex : I have done for one of the field in IT0377.
SELECT-OPTIONS: s_bplan FOR p0377-bplan.
*& Form check_selection_0377
This subroutine is used to check the selection screen
FORM check_selection_0377.
LOOP AT p0377 WHERE pltyp IN s_bplan
AND levl1 IN s_lti
AND begda LE pn-endda
AND endda GE pn-begda.
CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY'
EXPORTING
tclas = 'A'
pernr = pernr-pernr
infty = p0377-infty
subty = p0377-subty
begda = pn-begda
endda = pn-endda
level = 'R'
EXCEPTIONS
no_authorization = 1
internal_error = 2
OTHERS = 3.
IF NOT sy-subrc IS INITIAL.
DELETE p0377.
ENDIF.
ENDLOOP.
selection not found and no value selected
IF sy-subrc NE 0.
READ TABLE s_bplan.
IF sy-subrc EQ 0.
REJECT.
ENDIF.
READ TABLE s_lti.
IF sy-subrc EQ 0.
REJECT.
ENDIF.
ENDIF.
ENDFORM. " check_selection_0377
Regards,
Preetham -
At Selection Screen modification for a paramter
hi
two questions
I am trying to make a parameter field have a default value with un-editable mode...
So I did it this way
*& Report Z_506757_TEST3 *
REPORT Z_506757_TEST3 .
TYPES: STR(20).
TABLES: VBRP.
SELECTION-SCREEN BEGIN OF BLOCK B1.
PARAMETERS: FNAME TYPE STR,
LNAME TYPE STR,
FINAL TYPE STR DEFAULT '200'.
SELECTION-SCREEN END OF BLOCK B1.
*INITIALIZATION.
final = '200'.
APPEND final.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF SCREEN-NAME = 'FINAL'.
SCREEN-INPUT = 0.
MODIFY SCREEN.
ENDIF.
PERFORM MERGE.
ENDLOOP.
*& Form merge
text
FORM MERGE.
CONCATENATE FNAME LNAME INTO FINAL.
ENDFORM. "merge
I dont get the default value as 200.. if the screen-input = 0... so how should handle this problem
Another problem is if i fill the FNAME AND LNAME fields, WITHOUT PRESSING THE EXECUTE BUTTON i should get the value filled in the FINAL field
Can this be handled in the At-SELECTIOn Screen output
Is this possibleI tried this code in my system and it works as expected. The field FINAL is not input enabled and is defauled to 200.
REPORT zkartest.
TYPES: str(20).
PARAMETERS: fname TYPE str,
lname TYPE str,
final TYPE str DEFAULT '200'.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = 'FINAL'.
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP. -
Can we do screen modifications for OM infotypes?
Hi Experts,
We have a requirement where we need to hide the business area field in the IT1008(Account assignments). Can any one please let me know how to do this?
Thanks,
Revanth.try
to identiry the Module screen number and programme
and later check the same in V_T588M
check in feature PA1008 -
Screen Modifications Recruitment Module
Dear All,
I wanted to make screen modifications for Intial entry of basic data's initial screen and even organisational assignment and other recruitment infotypes. But unable to find any pertaining to them. Can any one suggest me on this...
Regards,
RajasekarHi,
Check feature MASSN via PE03: Determining the Fast Entry Dialog Module.
And check the return value in table TDCT, you will find the screen and program call by PB40 Initial Entry of Applicant Data.
And you can create your own dialog module to adjust the initial screen or change the exist one.
Hope helps,
Chen Jian -
Hai Experts,
we are doing screen modifications for infotypes that we can use through PA30,
i want to know whether its possible to make screen modifications while performing actions(pa40),
if possible what is the procedure.
Regards,
Chiran Reddy.Hai Navneet,
Thank you for your reply,i want to know that if we perform any screen modifications througgh module pool program,its impact will be both on pa30 and pa40 also.
my requirement is that in an infotype
some fields will be active while hiring
same fields will be inactive while promotion
same fields will be hidden while transfer.
for the above process,is there any solution.
Regards,
Chiran Reddy.
Edited by: chiran reddy on May 9, 2008 6:14 AM -
Creation of alternative screen in screen modifications
Hi,
I have a problem in screen modifications.
I want to make PERSG(employee subgroup) field as editable in IT0001 (currently it is grey field).
For that I want to go through screen modifications for IT0001 using table T588M.
There how do I create new alterantive screen.I think you are using Tcode PA30 to change the ESG.
You need to use Tcode PA41 to do changes, No need of doing any screen modifications
Warm Regards -
TrueClear Anti-Smudge Screen Protector for iPhone 5 ?.
TrueClear Anti-Smudge Screen Protector for iPhone 5
This screen protector is good?.
here is the link:
http://www.belkin.com/us/F8W180-2-Belkin/p/P-F8W180-2?q=::devicePath:/Device/IPH ONE/IPHONE5
also, i saw this:
TrueClear Transparent Screen Protector for iPhone 5
http://www.belkin.com/us/F8W179-3-Belkin/p/P-F8W179-3?q=::devicePath:/Device/IPH ONE/IPHONE5any help?.
-
How can I modify the UI for the crystalreportviewer prompt screen ?
<p>Hi,</p><p> I am using Crystal Report XI with JRC.</p><p>I have come across a couple of issues. My report accepts 2 parameters from the user. One is a date field and the other is the 'Period'. I have provided a drop-down having values as Daily, Weekly, Monthly, Quarterly, Yearly.</p><p> The following are the issues that I have come across:</p><p>1. Selecting a value from the drop-down and submitting the form gives the following error.</p><p> [java] 17:46:20,265 INFO [STDOUT] 17:46:20,265 ERROR [com.businessobjects.reports.sdk.JRCCommunicationAdapter] JRCAgent11 detected an exception: The value for parameter `Period` must match one of the specified default values.<br /> [java] at com.crystaldecisions.reports.dataengine.d.case(Unknown Source)<br /> [java] at com.crystaldecisions.reports.dataengine.d.at(Unknown Source)<br /> [java] at com.crystaldecisions.reports.dataengine.d.new(Unknown Source)<br /> [java] at com.crystaldecisions.reports.common.as.a(Unknown Source)<br /> [java] at com.crystaldecisions.reports.common.ae.a(Unknown Source)<br /> [java] at com.businessobjects.reports.sdk.b.k.a(Unknown Source)<br /> [java] at com.businessobjects.reports.sdk.b.s.do(Unknown Source)<br /> [java] at com.businessobjects.reports.sdk.JRCCommunicationAdapter.request(Unknown Source)<br /> [java] at com.businessobjects.reports.sdk.JRCCommunicationAdapter.request(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.x.a(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.q.a(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.q.else(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.q.for(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.q.do(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.q.if(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.u.performDo(Unknown Source)<br /> [java] at com.crystaldecisions.proxy.remoteagent.u.a(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.DataDefController.a(Unknown Sour<br />ce)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ParameterFieldController.modify(<br />Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ParameterFieldController.modify(<br />Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ParameterFieldController.setCurr<br />entValues(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ReportSource.a(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ReportSource.a(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.ReportSource.getPromptParameterF<br />ields(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.AdvancedReportSource.getPromptPa<br />rameterFields(Unknown Source)<br /> [java] at com.crystaldecisions.sdk.occa.report.application.NonDCPAdvancedReportSource.getPr<br />omptParameterFields(Unknown Source)<br /> [java] at com.crystaldecisions.reports.reportengineinterface.JPEReportSource.getPromptParam<br />eterFields(Unknown Source)</p><p> When in the report I set allowcustomvalues to true then it accepts the value selected from the dropdown. But in this case the prompt screen shows a textbox next to the drop-down that gets populated on selecting any option from the dropdown. This textbox is editable and can accept any value. Is there a way I can get rid of this textbox. Also i would like to know why the drop-dwon by itself is incapable of passing the value.</p><p> 2. Secondly, Is there anyway I can change the UI for the crystalreportviewer prompt screen being displayed for accepting the parameters from the user. As per my clients requirement the messages displayed in the prompt screen should be customised.</p><p>3. The third issue is with the date parameter. When a date is selected using the calender control the textbox gets populated in the following format Date(yyyy,mm,dd). My requirement is that this should be a userfriendly format like mm-dd-yyyy. I have succesfully modified the crystalreportviewer javascript so that the calender returns the date in the required format i.e. mm-dd-yyyy. But in this case the date parameter is not accepted though no error is displayed on the console. I have tried rechanging the format into Date(yyyy,mm,dd) before the prompt form is submitted but even this didnot help. What can I do to overcome this problem? </p><p>Any help with respect to the above problems will be highly appreciated.</p><p>Thanks & Regards</p>
<p>From the looks of it, the default parameter prompt screen isn't really fitting your requirements. You have a number of requests for modification.</p><p>In your case I think the best thing to do would be to create your own parameter prompt screen. You can use the SDK to create a page that works for all reports by inspecting the reports parameters before you set the values.</p><p>This would allow you the flexibility of easily meeting your customers requirements.</p><p>Point 1 - I'm not sure.</p><p>Point 2 - There isn't much access to change the prompt screen.</p><p>Point 3 - I'm not sure why you would want to change the formatting of the Date when you are already using a calendar object to get it. It sounds like you might have a small mistake in the way you edited the javascript.</p><p>I really think you are probably better off creating your own prompt screen. <br /></p><p>Rob Horne<br /><a href="/blog/10">Rob's blog - http://diamond.businessobjects.com/blog/10</a></p>
-
Selection screen modification based on various buttons in selection screen
Hi,
I have 1 query related with Selection screen modification.
In my Report Program,I have created GUI Status for my selection screen
Now 2 buttons in application toolbar are coming on selection sceen.
For this i used,'At selection screen output' event.
And there are 2 blocks on selection screen.
If user press button1 then block2 should not display.
and if user press button2 then block1 should not display.
but the problem is i m not getting reqd result and also while doing debugging its not showing me sy-ucomm value.
Any pointers on this.
Thanks,
MamtaHi Mamta,
have it in a group then you can write code accordingly see sample example,
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_r1 RADIOBUTTON GROUP rad
USER-COMMAND clk DEFAULT 'X'. " upload Radio Button
SELECTION-SCREEN COMMENT 5(35) text-003.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : BEGIN OF BLOCK 001 WITH FRAME TITLE text-001.
PARAMETERS: p_upl LIKE rlgrap-filename MODIF ID a "Upload File
DEFAULT 'c:\temp\parbmat.xls',
p_werks like t001w-werks MODIF ID a, "Plant
PARAMETERS: p_rest LIKE rlgrap-filename MODIF ID a "Dwonload File Path
DEFAULT 'c:\temp\Success.xls'.
SELECTION-SCREEN : END OF BLOCK 001.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS : p_r2 RADIOBUTTON GROUP rad.
SELECTION-SCREEN COMMENT 5(35) text-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN : BEGIN OF BLOCK 002 WITH FRAME TITLE text-002.
PARAMETERS : p_plant LIKE marc-werks MODIF ID b. "Plant
PARAMETERS : p_lgort LIKE mard-lgort MODIF ID b. "Storage Location
PARAMETERS : p_vkorg LIKE mvke-vkorg MODIF ID b. "Sales Organization
PARAMETERS : p_vtweg LIKE mvke-vtweg MODIF ID b. "Distribution Channel
SELECT-OPTIONS : s_mat FOR mara-matnr MODIF ID b. "Material No No
SELECT-OPTIONS : s_dat FOR mara-ersda MODIF ID b. "Date on Record Created
PARAMETERS : p_down LIKE rlgrap-filename MODIF ID b
DEFAULT 'c:\temp\Material Master.xls'. "Download File Path
SELECTION-SCREEN : END OF BLOCK 002.
AT SELECTION-SCREEN OUTPUT.
*Inactive Fields depending on the radio button
LOOP AT SCREEN.
IF p_r1 = 'X'.
IF screen-group1 = 'B'.
screen-active = 0.
ENDIF.
ELSEIF p_r2 = 'X'.
IF screen-group1 = 'A'.
screen-active = 0.
ENDIF.
ENDIF.
MODIFY SCREEN.
ENDLOOP.
Edited by: suresh suresh on Jul 28, 2009 12:42 PM
Edited by: suresh suresh on Jul 28, 2009 12:42 PM -
How to add new field to Screen Modifications
Hi,
I want to get P0002-CNAME in screen modifications of Infotype 02. At present i have other 23 fields for which i can set display attributes. This new field is to be added in infotype 02 and also some coding is to be put for this. How this can be achieved ?
One solution is to enhance infotype and add some Z field,but i would like to use the existing structure field.
Please let me know proper way for this.
Thanks.Hi,
I want to get P0002-CNAME in screen modifications of Infotype 02. At present i have other 23 fields for which i can set display attributes. This new field is to be added in infotype 02 and also some coding is to be put for this. How this can be achieved ?
One solution is to enhance infotype and add some Z field,but i would like to use the existing structure field.
Please let me know proper way for this.
Thanks. -
Hide "Administratior" in IT 0001 through screen modification
Hi Gurus,
I have requirement where client wast us to hide Administrator section which have three administrators field from IT 0001. Please help me to understand that is it possible through screen modification.
If not then what is the other solution?
Regards,
Amit JainHi Subhash,
FIrst go to the IT001 screen... go to SYSTEMS -
STATUS and get the program name and screen number
then on
Go to SPRO..
Personnel Management > Personnel Administration > Customizing User Interface > Change Screen Modification >
Select the program name and screen number which you got from IT0001
then click on magnification screen and select the Hide radio button for ADMINISTRATOR field.
Hope this helps...
Ajay -
At-selection-screen modification
Hi Experts,
I am doing the selection screen modification. The selection screen is designed such as i have two radio buttons 1. header & 2. Item anb beside header radio button i have field sales document number and beside item radio button sales item number field.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(30) text-005.
SELECTION-SCREEN: position 32.
parameter:p_sh type c radiobutton group rg. "Sales header
selection-screen: comment 35(15) for field p_sh.
selection-screen: comment 60(20) for field p_vbeln.
parameter:p_vbeln like vbak-vbeln MODIF ID gp5. "Sales Document
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF LINE.
SELECTION-SCREEN: position 32.
parameter:p_si type c radiobutton group rg. "Sales Item
selection-screen: comment 35(15) for field p_si.
selection-screen: comment 60(20) for field p_posnr.
parameter:p_posnr like vbap-posnr MODIF ID gp6. "Sales Document Item
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: skip.
This is the selection screen code where for sales document i have assiged Modif id GP5 for Item Modif id GP6. so when i check radio button p_sh ( header ) then sales document ( p_vbeln) shoudl be active for input .
if i check p_si (item) then both saleds document (p_vbeln) and p_posnr both have different group names i.e GP5 & GP6 should be active. i.e screen-inpu = 1.
I have written the following code for header but for item i am unable to make screen-input = 1 for two different groups. how to do that?
LOOP AT SCREEN.
IF ( P_SH NE 'X' AND SCREEN-GROUP1 EQ 'GP5' ) OR
( P_SI NE 'X' AND SCREEN-GROUP1 EQ 'GP6' ).
screen-input = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
This code is working when i click header radio button but for when i click item radio button (p_si) only item field is active i am unable to make sales docuemnt active at same time. please help me in this regard.
Regards,
sunil kairam.Hi,
Check this piece of code changed a bit.
PARAMETERS : p_ct RADIOBUTTON GROUP grp .
SELECT-OPTIONS : s_kunnr FOR kna1-kunnr,
PARAMETERS : p_sh RADIOBUTTON GROUP grp.
SELECT-OPTIONS : s_vbeln FOR vbak-vbeln,
PARAMETERS : p_si RADIOBUTTON GROUP grp.
SELECT-OPTIONS : s_vbeln1 FOR vbak-vbeln,
s_posnr for vbak-posnr.
IF p_ct IS NOT INITIAL .
LOOP AT SCREEN.
CASE screen-name.
WHEN 'S_KUNNR-LOW'.
screen-input = 1.
MODIFY SCREEN.
WHEN 'S_KUNNR-HIGH'.
screen-input = 1.
MODIFY SCREEN.
WHEN 'S_VBELN-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_VBELN-HIGH'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_VBELN1-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_VBELN1-HIGH'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_POSNR-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_POSNR-HIGH'.
screen-input = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
ELSEIF p_sh IS NOT INITIAL.
LOOP AT SCREEN.
CASE screen-name.
WHEN 'S_KUNNR-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_KUNNR-HIGH'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_VBELN-LOW'.
screen-input = 1.
MODIFY SCREEN.
WHEN 'S_VBELN-HIGH'.
screen-input = 1.
MODIFY SCREEN.
WHEN 'S_VBELN1-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_VBELN1-HIGH'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_POSNR-LOW'.
screen-input = 0.
MODIFY SCREEN.
WHEN 'S_POSNR-HIGH'.
screen-input = 0.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
now one more ELSEIF p_si IS NOT INITIAL
now make s_vbeln1 and s_posnr as input 1 and rest others as input 0.
endif.
Regards,
Nagaraj -
Hi Experts,
Kindly gothrough the below codes and when i click on rb2 radiobutton only that selection option must appear but it is coming when i execute the program,, can any one help to resolve this issue...,
*& Report ZPROGRAM_KPI
REPORT ZPROGRAM_KPI.
TYPE-POOLS SLIS.
tables : pb4000.
DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT LIKE LINE OF IT_FCAT.
DATA : IT_FCAT1 TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT1 LIKE LINE OF IT_FCAT1.
data : lv_end TYPE dats,
lv_beg TYPE dats,
v type i.
data : begin of wa_pb40001,
pernr type pb4000-pernr,
SUBTY TYPE PB4000-SUBTY,
begda type pb4000-begda,
end of wa_pb40001,
it_pb40001 like table of wa_pb40001.
data : begin of wa_pb40002,
pernr type pb4000-pernr,
SUBTY TYPE PB4000-SUBTY,
begda type pb4000-begda,
end of wa_pb40002,
it_pb40002 like table of wa_pb40002.
selection-screen begin of block k with frame title text-001.
parameter : rb1 radiobutton group t, rb2 radiobutton group t.
selection-screen end of block k.
if rb1 = 'X'.
CALL FUNCTION 'OIL_LAST_DAY_OF_PREVIOUS_MONTH'
EXPORTING
i_date_old = sy-datum
IMPORTING
e_date_new = lv_end.
lv_beg = lv_end.
lv_beg+6(2) = '01'.
SELECT pernr SUBTY FROM pb4000 INTO TABLE it_pb40001 where begda BETWEEN lv_beg AND lv_end.
perform fcat using '1' 'PERNR' 'Personnel number' '20' 'C610'.
perform fcat using '1' 'SUBTY' 'Sub type' '20' 'C310'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_GRID_TITLE = 'Report for displaying personnel number in previous month'
IT_FIELDCAT = IT_FCAT
TABLES
t_outtab = IT_PB40001.
elseif rb2 = 'X'.
select-options s_date for wa_pb40001-begda obligatory.
SELECT pernr SUBTY FROM pb4000 INTO TABLE it_pb40002 where begda in s_date.
perform fcat1 using '1' 'PERNR' 'Personnel number' '20' 'C610'.
perform fcat1 using '1' 'SUBTY' 'Sub type' '20' 'C310'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_GRID_TITLE = 'Report for displaying personnel number using selection screen'
IT_FIELDCAT = IT_FCAT1
TABLES
t_outtab = IT_PB40002.
endif.
*& Form FCAT
text
-->P_0068 text
-->P_0069 text
-->P_0070 text
form FCAT using FP_COL_POS
FP_FIELDNAME
FP_SELTEXT_M
FP_OUTPUTLEN
FP_EMPHASIZE.
WA_FCAT-COL_POS = FP_COL_POS.
WA_FCAT-FIELDNAME = FP_FIELDNAME.
WA_FCAT-SELTEXT_M = FP_SELTEXT_M.
WA_FCAT-OUTPUTLEN = FP_OUTPUTLEN.
WA_FCAT-EMPHASIZE = FP_EMPHASIZE.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_fCAT.
endform. " FCAT
*& Form FCAT
text
-->P_0068 text
-->P_0069 text
-->P_0070 text
form FCAT1 using FP_COL_POS
FP_FIELDNAME
FP_SELTEXT_M
FP_OUTPUTLEN
FP_EMPHASIZE.
WA_FCAT1-COL_POS = FP_COL_POS.
WA_FCAT1-FIELDNAME = FP_FIELDNAME.
WA_FCAT1-SELTEXT_M = FP_SELTEXT_M.
WA_FCAT1-OUTPUTLEN = FP_OUTPUTLEN.
WA_FCAT1-EMPHASIZE = FP_EMPHASIZE.
APPEND WA_FCAT1 TO IT_FCAT1.
CLEAR WA_fCAT1.
endform. " FCAT
Regards,
Thiru. RCopy paste this code for your new requirement:
REPORT ZTEST15.
TYPE-POOLS SLIS.
TABLES : PB4000.
DATA : IT_FCAT TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT LIKE LINE OF IT_FCAT.
DATA : IT_FCAT1 TYPE SLIS_T_FIELDCAT_ALV,
WA_FCAT1 LIKE LINE OF IT_FCAT1.
DATA : LV_END TYPE DATS,
LV_BEG TYPE DATS,
V TYPE I.
DATA : BEGIN OF WA_PB40001,
PERNR TYPE PB4000-PERNR,
SUBTY TYPE PB4000-SUBTY,
BEGDA TYPE PB4000-BEGDA,
END OF WA_PB40001,
IT_PB40001 LIKE TABLE OF WA_PB40001.
DATA : BEGIN OF WA_PB40002,
PERNR TYPE PB4000-PERNR,
SUBTY TYPE PB4000-SUBTY,
BEGDA TYPE PB4000-BEGDA,
END OF WA_PB40002,
IT_PB40002 LIKE TABLE OF WA_PB40002.
SELECTION-SCREEN BEGIN OF BLOCK K WITH FRAME TITLE TEXT-001.
PARAMETER : RB1 RADIOBUTTON GROUP T DEFAULT 'X' USER-COMMAND RB,
RB2 RADIOBUTTON GROUP T.
SELECT-OPTIONS S_DATE FOR WA_PB40001-BEGDA MODIF ID DAT.
SELECTION-SCREEN END OF BLOCK K.
AT SELECTION-SCREEN OUTPUT.
IF RB1 = 'X'.
LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'DAT'.
SCREEN-ACTIVE = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
AT SELECTION-SCREEN.
IF RB1 = 'X'.
CLEAR: S_DATE[], S_DATE.
ENDIF.
IF SY-UCOMM = 'ONLI'.
IF RB1 = 'X'.
CALL FUNCTION 'OIL_LAST_DAY_OF_PREVIOUS_MONTH'
EXPORTING
I_DATE_OLD = SY-DATUM
IMPORTING
E_DATE_NEW = LV_END.
LV_BEG = LV_END.
LV_BEG+6(2) = '01'.
SELECT PERNR SUBTY FROM PB4000 INTO TABLE IT_PB40001 WHERE BEGDA BETWEEN LV_BEG AND LV_END.
PERFORM FCAT USING '1' 'PERNR' 'Personnel number' '20' 'C610'.
PERFORM FCAT USING '1' 'SUBTY' 'Sub type' '20' 'C310'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_GRID_TITLE = 'Report for displaying personnel number in previous month'
IT_FIELDCAT = IT_FCAT
TABLES
T_OUTTAB = IT_PB40001.
ELSEIF RB2 = 'X'.
IF S_DATE-LOW IS INITIAL.
MESSAGE 'Enter date' TYPE 'E' DISPLAY LIKE 'S'.
ENDIF.
SELECT PERNR SUBTY FROM PB4000 INTO TABLE IT_PB40002 WHERE BEGDA IN S_DATE.
PERFORM FCAT1 USING '1' 'PERNR' 'Personnel number' '20' 'C610'.
PERFORM FCAT1 USING '1' 'SUBTY' 'Sub type' '20' 'C310'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_CALLBACK_PROGRAM = SY-CPROG
I_GRID_TITLE = 'Report for displaying personnel number using selection screen'
IT_FIELDCAT = IT_FCAT1
TABLES
T_OUTTAB = IT_PB40002.
ENDIF.
ENDIF.
*& Form FCAT
text
-->FP_COL_POS text
-->FP_FIELDNAME text
-->FP_SELTEXT_M text
-->FP_OUTPUTLEN text
-->FP_EMPHASIZE text
FORM FCAT USING FP_COL_POS
FP_FIELDNAME
FP_SELTEXT_M
FP_OUTPUTLEN
FP_EMPHASIZE.
WA_FCAT-COL_POS = FP_COL_POS.
WA_FCAT-FIELDNAME = FP_FIELDNAME.
WA_FCAT-SELTEXT_M = FP_SELTEXT_M.
WA_FCAT-OUTPUTLEN = FP_OUTPUTLEN.
WA_FCAT-EMPHASIZE = FP_EMPHASIZE.
APPEND WA_FCAT TO IT_FCAT.
CLEAR WA_FCAT.
ENDFORM. " FCAT
*& Form FCAT1
text
-->FP_COL_POS text
-->FP_FIELDNAME text
-->FP_SELTEXT_M text
-->FP_OUTPUTLEN text
-->FP_EMPHASIZE text
FORM FCAT1 USING FP_COL_POS
FP_FIELDNAME
FP_SELTEXT_M
FP_OUTPUTLEN
FP_EMPHASIZE.
WA_FCAT1-COL_POS = FP_COL_POS.
WA_FCAT1-FIELDNAME = FP_FIELDNAME.
WA_FCAT1-SELTEXT_M = FP_SELTEXT_M.
WA_FCAT1-OUTPUTLEN = FP_OUTPUTLEN.
WA_FCAT1-EMPHASIZE = FP_EMPHASIZE.
APPEND WA_FCAT1 TO IT_FCAT1.
CLEAR WA_FCAT1.
ENDFORM. " FCAT -
How to display the selection screen fields for selected checkboxes
Hi all,
I have 7 checkboxes, for each check box we have some seletion screen fields.if i select first check box,i want to display first slection screen fields only.
and if we select more than one check box how to display the selection screen fields for selected check boxes,please help me this
Thanks
sriman.hi,
Try this code
report z_13317_sdn2.
tables : mara, marc, dd03l.
parameters : p_chk1 as checkbox user-command ABC,
p_chk2 as checkbox user-command PQR,
p_chk3 as checkbox user-command XYZ.
select-options : s_matnr for mara-matnr modif id A,
s_ersda for mara-ersda modif id A,
s_werks for marc-werks modif id B,
s_lvorm for marc-lvorm modif id B,
s_tab for dd03l-tabname modif id C.
data: v_chk1,
v_chk2,
v_chk3.
at selection-screen output.
loop at screen.
if screen-group1 = 'A' or
screen-group1 = 'B' or
screen-group1 = 'C'.
screen-input = 0.
modify screen.
endif.
endloop.
loop at screen.
if v_chk1 = 'X'.
if screen-group1 = 'A'.
screen-input = 1.
modify screen.
endif.
endif.
if v_chk2 = 'X'.
if screen-group1 = 'B'.
screen-input = 1.
modify screen.
endif.
endif.
if v_chk3 = 'X'.
if screen-group1 = 'C'.
screen-input = 1.
modify screen.
endif.
endif.
endloop.
at selection-screen.
if sy-ucomm = 'ABC'.
if v_chk1 = ' '.
v_chk1 = 'X'.
else.
v_chk1 = ' '.
endif.
endif.
if sy-ucomm = 'PQR'.
if v_chk2 = ' '.
v_chk2 = 'X'.
else.
v_chk2 = ' '.
endif.
endif.
if sy-ucomm = 'XYZ'.
if v_chk3 = ' '.
v_chk3 = 'X'.
else.
v_chk3 = ' '.
endif.
endif.
Regards,
Sailaja.
Maybe you are looking for
-
I deleted the iphoto completely from my mac and want to reinstall it.
I deleted the iphoto completely from my macbut now I want it back. Is there a way to download it again because tha appstore doesn't have it.
-
Any way to clear the Mail Queue Completely?
So it seems my SMTP service was hacked over the weekend, with someone deciding to use my server to send a whole lot of mail. I've shut down the service and locked down the security hole, but now I have a lot of mail sitting in the queue and it is tak
-
How to set components aligned in left when we use BorderLayout
Hello All, How to set the components aligned in the left when we use BorderLayout in a panel.Right now,the components are getting aligned in the center. Any solutions? Thanks in advance, Vijay
-
Problem with iOS 5; Backing up from iTunes.
I have a hugh problem when uppdating to iOS 5. When I try to configure the iPhone after uppdating: I try to choose back-up from iTunes but it just says "connect to iTunes" but iTunes allready have install all the back-up and it's connected. I've trie
-
Hi, I have one scenario in which previously there were 2 BOM's available for single material, i.e. 1) 01 2) 02 After some days, first BOM was deleted by the user and when we try to see BOM detail using CS03 by entering Material = XXX Plant = XXX BOM