How to Include in User exit
i want to include my BDC in that include INCLUDE ZXF04U01 for tcode XD01.
but parametrs , selection screen and form are not accepted. any other way to include my BDC in that include INCLUDE ZXF04U01. or do we have any standard BAPI for credit customer?
plz give step by step guide
ur rewarded.
regards
vinoth.v
Take it from calling stack.
DATA: GW_FIELD(60) TYPE C,
L_KLIMK TYPE KNKA-KLIMK.
FIELD-SYMBOLS: <GW_KLIMK_VAL> TYPE KNKA-KLIMK.
CLEAR: GW_FIELD, L_KLIMK .
MOVE '(SAPLXF04)KNKA-KLIMK' TO GW_FIELD.
ASSIGN (GW_FIELD) TO <GW_KLIMK_VAL>.
IF <GW_KLIMK_VAL> IS ASSIGNED.
L_KLIMK = <GW_KLIMK_VAL>.
ENDIF.
Do the same stuff for KNKA-CTLPC.
G@urav.
Similar Messages
-
How to use/activate user exits
Hi all,
i wish to use user exit COZF0001...
however i have no experience how to do it. do i need an ABAPer or other consultant to do it or can i just activate it and make it work with minimal instructions?
kindly give procedure/overview how to activate/use user exits.
thanks in advanceHi Ramesh,
Go to transaction CMOD . Create a project called ZVA01. Choose the Enhancement assign radio button and press the Change button. In the first column enter COZF0001.
Note that an enhancement can only be used in 1 project. If the enhancement is already in use, and error message will be displayed
Click on Save . Go to Components. You can now see that enhancement uses the user exit EXIT_SAPLCOZF_001. Double click on the exit and add your code.
Activate the include program. Go back to CMOD and activate the project.
-- Shivaji -
HOW TO CREATE A USER-EXIT FOR MB31 GOODS RECEIPT
Hy,
<b>HOW TO CREATE A USER-EXIT FOR MB31</b>
TO COMPARE ORDER QTY CONFIRMED AND GOODS RECEIPT QTY
( IF GR QTY GREATER THAN CONFIRMED QTY ERROR MESSAGE SHOULD COME AND NOT ALLOW TRANSCATION TO PROCEED).
POINTS CONFIRMED.
REGARDS,
KARTIKEY.Hi Rawat,
You Don't need to create User Exits,but you need to find user Exits.Below are list of user Exits for MB31.
Use proper exit as per your requirement.
Exit Name Description
MBCF0002 Customer function exit: Segment text in material doc. item
MBCF0005 Material document item for goods receipt/issue slip
MBCF0006 Customer function for WBS element
MBCF0007 Customer function exit: Updating a reservation
MBCF0009 Filling the storage location field
MBCF0010 Customer exit: Create reservation BAPI_RESERVATION_CREATE1
MBCF0011 Read from RESB and RKPF for print list in MB26
MB_CF001 Customer Function Exit in the Case of Updating a Mat. Doc.
award points if ans is useful.
Regards,
Albert -
Hi All,
How to find out User Exit in particular program.
I mean if you have one profile, how to find is there any user exits in that program.
Appreciate if any body tel answer.
Thanks & Regards,
SubbuYou could try searching the main program for "userexit_"
This would give you a list of all the available user exits within the application.
For Customer exits, you could search SMOD with a short description ex: order in the F4 help. Another way is to search for CUSTOMER-FUNCTION in the main program. You can then navigate to the enhancement in the customer function and use the Z Program in the enhancement.
http://www.easymarketplace.de/userexit.php - has a complete list.
More specifically, in case you're looking for SD exits - http://help.sap.com/saphelp_46c/helpdata/en/1c/f62c7dd435d1118b3f0060b03ca329/content.htm. -
How to find out user exits of t-code va03
hi all
how to find out user exits of any t-code .
regards
deepakHi Deepak,
<b>Try this code.</b>
*& Report Z_USEREXIT *
REPORT Z_USEREXIT
NO STANDARD PAGE HEADING.
*& Enter the transaction code that you want to search through in order
*& to find which Standard SAP User Exits exists.
*& Tables
TABLES : tstc, "SAP Transaction Codes
tadir, "Directory of Repository Objects
modsapt, "SAP Enhancements - Short Texts
modact, "Modifications
trdir, "System table TRDIR
tfdir, "Function Module
enlfdir, "Additional Attributes for Function Modules
tstct. "Transaction Code Texts
*& Variables
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
*& Selection Screen Parameters
SELECTION-SCREEN BEGIN OF BLOCK a01 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN END OF BLOCK a01.
*& Start of main program
START-OF-SELECTION.
Validate Transaction Code
SELECT SINGLE * FROM tstc
WHERE tcode EQ p_tcode.
Find Repository Objects for transaction code
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir
WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir
WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir
WHERE funcname = tfdir-funcname.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name = enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
Find SAP Modifactions
SELECT * FROM tadir
INTO TABLE jtab
WHERE pgmid = 'R3TR'
AND object = 'SMOD'
AND devclass = v_devclass.
SELECT SINGLE * FROM tstct
WHERE sprsl EQ sy-langu
AND tcode EQ p_tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
WRITE:/(95) sy-uline.
LOOP AT jtab.
SELECT SINGLE * FROM modsapt
WHERE sprsl = sy-langu AND
name = jtab-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 sy-vline,
2 jtab-obj_name HOTSPOT ON,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
ENDLOOP.
WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of Exits:' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
Take the user to SMOD for the Exit that was selected.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
<b>plz reward points if helpful or if it solves ur query.</b>
Thanks
Chinmay -
How to find the user exits and BADIS from SPRO
Hi all,
please let us know how to find the User exits or BADIS for an application from SPRO.
Regards,
MadhaviHi Varisetty,
Finding user exits and BAdis from SPRO can be cumbsersome. In most instances you know the standard SAP program and want to check (find) an exit called in the flow of the transaction. You can do this as follows:
For User Exit:
Put "/h" in the command box (to start debugging)
Execute your transaction
When you enter debugging - put a breakpoint at statement
CALL CUSTOMER-FUNCTION
the control will stop at all calls to User Exits
For BAdi (it's simpler)
Go to class CL_EXITHANDLER in SE24
Enter method GET_INSTANCE
Put a breakpoint in this method
Run your standard transaction - control will stop at all BAdis called within the flow since this method is used to check BAdi implementations before invoking them
Also, if you want to find enhancements by package - go to SE80, enter the package and check function groups starting with X - those contain function exits (conventional user exits). For BAdis in a package, there is normally a separate tree node (under the package) for Enhancements hence clearly identifiable.
Cheers,
Adi -
How to find the user exit for a screen..
Hi,
plz help me how to find the user exit for a screen..?
Regards
AnbuHi,
check this program this will give you the list of user-exit and BADI for the perticular Tcode.
REPORT zuserexit_badi.
TABLES : tstc,
tadir,
modsapt,
modact,
trdir,
tfdir,
enlfdir,
sxs_attrt ,
tstct.
DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
PARAMETERS : p_tcode LIKE tstc-tcode,
p_pgmna LIKE tstc-pgmna .
DATA wa_tadir TYPE tadir.
START-OF-SELECTION.
IF NOT p_tcode IS INITIAL.
SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
ELSEIF NOT p_pgmna IS INITIAL.
tstc-pgmna = p_pgmna.
ENDIF.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'PROG'
AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir
WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir
WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir
WHERE funcname = tfdir-funcname.
SELECT SINGLE * FROM tadir
WHERE pgmid = 'R3TR'
AND object = 'FUGR'
AND obj_name EQ enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab
WHERE pgmid = 'R3TR'
AND object IN ('SMOD', 'SXSD')
AND devclass = v_devclass.
SELECT SINGLE * FROM tstct
WHERE sprsl EQ sy-langu
AND tcode EQ p_tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(105) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
Sorting the internal Table
SORT jtab BY object.
DATA : wf_txt(60) TYPE c,
wf_smod TYPE i ,
wf_badi TYPE i ,
wf_object2(30) TYPE c.
CLEAR : wf_smod, wf_badi , wf_object2.
Get the total SMOD.
LOOP AT jtab INTO wa_tadir.
AT FIRST.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline,
2 'Enhancement/ Business Add-in',
41 sy-vline ,
42 'Description',
105 sy-vline.
WRITE:/(105) sy-uline.
ENDAT.
CLEAR wf_txt.
AT NEW object.
IF wa_tadir-object = 'SMOD'.
wf_object2 = 'Enhancement' .
ELSEIF wa_tadir-object = 'SXSD'.
wf_object2 = ' Business Add-in'.
ENDIF.
FORMAT COLOR COL_GROUP INTENSIFIED ON.
WRITE:/1 sy-vline,
2 wf_object2,
105 sy-vline.
ENDAT.
CASE wa_tadir-object.
WHEN 'SMOD'.
wf_smod = wf_smod + 1.
SELECT SINGLE modtext INTO wf_txt
FROM modsapt
WHERE sprsl = sy-langu
AND name = wa_tadir-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WHEN 'SXSD'.
For BADis
wf_badi = wf_badi + 1 .
SELECT SINGLE text INTO wf_txt
FROM sxs_attrt
WHERE sprsl = sy-langu
AND exit_name = wa_tadir-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
ENDCASE.
WRITE:/1 sy-vline,
2 wa_tadir-obj_name HOTSPOT ON,
41 sy-vline ,
42 wf_txt,
105 sy-vline.
AT END OF object.
WRITE : /(105) sy-uline.
ENDAT.
ENDLOOP.
WRITE:/(105) sy-uline.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No.of Exits:' , wf_smod.
WRITE:/ 'No.of BADis:' , wf_badi.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'No userexits or BADis exist'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'Transaction does not exist'.
ENDIF.
AT LINE-SELECTION.
DATA : wf_object TYPE tadir-object.
CLEAR wf_object.
GET CURSOR FIELD field1.
CHECK field1(8) EQ 'WA_TADIR'.
READ TABLE jtab WITH KEY obj_name = sy-lisel+1(20).
MOVE jtab-object TO wf_object.
CASE wf_object.
WHEN 'SMOD'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
WHEN 'SXSD'.
SET PARAMETER ID 'EXN' FIELD sy-lisel+1(20).
CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
ENDCASE.
Reagards,
Bharat. -
How to find the user exit for infotype 2013 ?
Hi All,
How to find the user exit in infotype 2013? i want to change the drop down list default value in infotype 2013.
Thanks,
Srikanth Preward points if useful
User exit name is PBAS0001.
code should be written in ZXPADU01 for PBO
ZXPADU02 for PAI. -
How do we handle User exits in XML Publisher
Hi,
Can anyone tell me how do we handle user exits in XML Publisher ?
Thanks,
Kiran.Do tyou mean the original Oracle Reports user exits ?
If so then the flexfield ones are handled in the data template, check the user guide. Format currency should be called in the template layer. You do not need srw.init with data templates.
Regards, Tim -
How to find the user exits called at the time of posting the IDOC?
Hi,
Could anyone please how to find the user exits while posting a idoc?Hi,
One way to ahive this is by, be ready with IDOC postiong,
then go to ST05 transaction and activate the trace after checking Table Buffer Trace.
Now post the IDOC then deactivate the trace.
Now come back to ST05 and display trace and search for calls starts with EXIT_.
Regards,
Manoj Kumar P -
Examples of code ritten in includes in user exits
Can anyone send some examples on code written in includes of user exits.
Thanks in advanceU S E R E X I T F O R P A 0 0 0 8 *
IF innnn-infty = '0008' AND
( ipsyst-ioper = 'INS' OR
ipsyst-ioper = 'COP' ).
G L O B A L D E C L A R A T I O N S *
DATA:
g_lga TYPE lgart, " Wagetype
g_count(2) TYPE n,
g_cnt_blank(2) TYPE n, " Record position for hrly WT
g_cnt_hrly(2) TYPE n, " Record position for hrly WT
g_cnt_inc(2) TYPE n, " Record position for inc WT
g_cnt_lng(2) TYPE n, " Record position for lng WT
g_cnt_ret(2) TYPE n, " Record position for ret WT
g_wtype(11) TYPE c, " Wage type
g_wrate(11) TYPE c, " Wage rate
g_ht510_rate TYPE betrg, " Default rate for WT0011 from T510
g_maxrate_inc TYPE betrg, " Maximum Incumbency Rate
g_maxrate_lng TYPE betrg, " Maximum Longevity Rate
g_maxrate_ret TYPE betrg. " Maximum Retention Rate
D A T A D E C L A R A T I O N *
DATA:
it_9006 TYPE TABLE OF pa9006,
st_9006 TYPE pa9006,
i0008 TYPE p0008,
st_grdcode TYPE zthhr_grdcode.
F I E L D S Y M B O L S *
FIELD-SYMBOLS: <fs_wtype> TYPE ANY, " Used for Wage Type
<fs_wrate> TYPE ANY. " Used for Amount
C O N S T A N T S *
CONSTANTS:
c_molga_10 type molga value '10', " Country grp for US
c_hlgar_0011 TYPE lgart VALUE '0011', " Hourly Wage Type
c_ilgar_0012 TYPE lgart VALUE '0012', " Incumbent Wage Type
c_llgar_0147 TYPE lgart VALUE '0147', " Longevity Wage Type
c_rlgar_01e0 TYPE lgart VALUE '01E0', " Retention Wage Type
c_subty_inc TYPE subty VALUE '1', " Subtype for Incumbency
c_subty_lng TYPE subty VALUE '4', " Subtype for Longevity
c_subty_ret TYPE subty VALUE '5'. " Subtype for Retention
P R O C E S S I N G *
Typecast PRELP to PNNNN structure
CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
EXPORTING
prelp = innnn
IMPORTING
pnnnn = i0008.
Refresh & Clear Process variables.
CLEAR: g_lga, g_count, g_cnt_blank, g_cnt_hrly, g_cnt_inc,
g_cnt_lng, g_cnt_ret, g_wtype, g_wrate, g_maxrate_inc,
g_maxrate_lng, g_maxrate_ret.
Populate all unexpired & applicable records of IT9006 of subtype:
Incumbency, Longevity and Retention
REFRESH: it_9006.
SELECT * FROM pa9006 INTO TABLE it_9006
WHERE pernr EQ i0008-pernr
AND begda LE i0008-begda
AND endda GE i0008-begda
AND ( subty EQ c_subty_inc
OR subty EQ c_subty_lng
OR subty EQ c_subty_ret )
AND zapplflg EQ 'X'.
Sort IT9006 Table descending based on Amount
SORT it_9006 BY zwage zaddamt DESCENDING.
Check for validity of Pay Scale Group & Level
SELECT * FROM zthhr_grdcode UP TO 1 ROWS
INTO st_grdcode
WHERE trfgr = i0008-trfgr
AND trfst = i0008-trfst.
ENDSELECT.
IF sy-subrc EQ 0.
If valid, read the Maximum Incumbency Rate
READ TABLE it_9006 INTO st_9006
WITH KEY zwage = c_ilgar_0012
zgrdcode = st_grdcode-grdcode
TRANSPORTING zaddamt.
IF sy-subrc EQ 0.
g_maxrate_inc = st_9006-zaddamt.
ENDIF.
ENDIF.
Get Max Longevity rate
READ TABLE it_9006 INTO st_9006 WITH KEY zwage = c_llgar_0147
TRANSPORTING zaddamt. " to g_maxrate_inc.
IF sy-subrc EQ 0.
g_maxrate_lng = st_9006-zaddamt.
ENDIF.
Get Max Retention rate
READ TABLE it_9006 INTO st_9006 WITH KEY zwage = c_rlgar_01e0
TRANSPORTING zaddamt. " to g_maxrate_inc.
IF sy-subrc EQ 0.
g_maxrate_ret = st_9006-zaddamt.
ENDIF.
CLEAR : g_count, g_cnt_blank, g_cnt_hrly, g_cnt_inc,
g_cnt_lng, g_cnt_ret.
Check Infotype 0008 Wagetype entries
DO 40 TIMES
VARYING g_lga FROM i0008-lga01 NEXT i0008-lga02.
g_count = g_count + 1.
IF NOT g_lga IS INITIAL. " Fill max no of field filled
g_cnt_blank = g_count.
ENDIF.
IF g_lga = c_hlgar_0011. " Get Rec Pos for Hrly WT
g_cnt_hrly = g_count.
ELSEIF g_lga = c_ilgar_0012. " Get Rec Pos for Inc WT
g_cnt_inc = g_count.
ELSEIF g_lga = c_llgar_0147. " Get Rec Pos for Lng WT
g_cnt_lng = g_count.
ELSEIF g_lga = c_rlgar_01e0. " Get Rec Pos for Ret WT
g_cnt_ret = g_count.
ENDIF.
ENDDO.
g_cnt_blank = g_cnt_blank + 1. " Next Avl. Pos for WT entry
Incumbency Processing
0011 and 0012 both not found
IF g_cnt_hrly = 0 AND g_cnt_inc = 0.
Do Nothing
0011 Not found but 0012 found
ELSEIF g_cnt_hrly = 0 AND g_cnt_inc > 0.
CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
IF g_maxrate_inc <> 0.
<fs_wtype> = c_ilgar_0012.
<fs_wrate> = g_maxrate_inc.
ELSE.
If WT0012 has expired in IT9006, revert to WT0011 with
default rate from T510
<fs_wtype> = c_hlgar_0011.
SELECT betrg FROM t510 UP TO 1 ROWS
INTO g_ht510_rate
WHERE molga = c_molga_10
AND trfar = i0008-trfar
AND trfgb = i0008-trfgb
AND trfgr = i0008-trfgr
AND trfst = i0008-trfst
AND lgart = c_hlgar_0011
AND begda LE i0008-begda
AND endda GE i0008-endda.
ENDSELECT.
IF sy-subrc = 0.
<fs_wrate> = g_ht510_rate.
ENDIF.
ENDIF.
0011 found but 0012 Not found
ELSEIF g_cnt_hrly > 0 AND g_cnt_inc = 0.
IF g_maxrate_inc <> 0.
Update 9006 amount if greater. And Replace 0011 with 0012
CONCATENATE 'I0008-LGA' g_cnt_hrly INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_hrly INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
IF <fs_wrate> < g_maxrate_inc.
<fs_wtype> = c_ilgar_0012.
<fs_wrate> = g_maxrate_inc.
ELSE.
Do Nothing
ENDIF.
ELSE.
Do Nothing
ENDIF.
0011 and 0012 both found
ELSEIF g_cnt_hrly > 0 AND g_cnt_inc > 0.
Rate in IT9006 exists.
IF g_maxrate_inc <> 0.
Remove existing 0011
CONCATENATE 'I0008-LGA' g_cnt_hrly INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_hrly INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
If hourly rate < Max Inc Rate, Clear Hrly WT & update WT0012
IF <fs_wrate> LT g_maxrate_inc.
CLEAR : <fs_wtype>, <fs_wrate>.
Update existing 0012 with new amount
CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
<fs_wtype> = c_ilgar_0012.
<fs_wrate> = g_maxrate_inc.
If hourly rate > Max Inc Rate, clear WT0012
ELSE.
CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
CLEAR : <fs_wtype>, <fs_wrate>.
ENDIF.
Rate in IT9006 do not exists.
ELSE.
Let 0011 be there but remove 0012.
CONCATENATE 'I0008-LGA' g_cnt_inc INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_inc INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
CLEAR : <fs_wtype>, <fs_wrate>.
ENDIF.
ENDIF.
Longevity Processing
Wage type 0147 already exists
IF g_cnt_lng > 0.
CONCATENATE 'I0008-LGA' g_cnt_lng INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_lng INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
IT9006 contains the rate.
IF g_maxrate_lng > 0.
Update the existing amount
<fs_wtype> = c_llgar_0147.
<fs_wrate> = g_maxrate_lng.
ELSE.
Remove Wage Type 0147
CLEAR <fs_wtype>.
CLEAR <fs_wrate>.
ENDIF.
Currently no 0147 exists
ELSE.
IT9006 contains the rate.
IF g_maxrate_lng > 0.
Add 0147 with amount
CONCATENATE 'I0008-LGA' g_cnt_blank INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_blank INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
<fs_wtype> = c_llgar_0147.
<fs_wrate> = g_maxrate_lng.
g_cnt_blank = g_cnt_blank + 1.
IT9006 does not contain the rate.
ELSE.
Do Nothing
ENDIF.
ENDIF.
Retention Processing
Wage type 01E0 already exists
IF g_cnt_ret > 0.
CONCATENATE 'I0008-LGA' g_cnt_ret INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_ret INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
IT9006 contains the rate.
IF g_maxrate_ret > 0.
Update the existing amount
<fs_wtype> = c_rlgar_01e0.
<fs_wrate> = g_maxrate_ret.
ELSE.
Remove Wage Type 01E0
CLEAR <fs_wtype>.
CLEAR <fs_wrate>.
ENDIF.
Currently no 01E0 exists
ELSE.
IT9006 contains the rate.
IF g_maxrate_ret > 0.
Add 01E0 with amount
CONCATENATE 'I0008-LGA' g_cnt_blank INTO g_wtype.
CONCATENATE 'I0008-BET' g_cnt_blank INTO g_wrate.
ASSIGN (g_wtype) TO <fs_wtype>.
ASSIGN (g_wrate) TO <fs_wrate>.
<fs_wtype> = c_rlgar_01e0.
<fs_wrate> = g_maxrate_ret.
g_cnt_blank = g_cnt_blank + 1.
IT9006 does not contain the rate.
ELSE.
Do Nothing
ENDIF.
ENDIF.
Typecast the PNNNN to PRELP structure
CALL METHOD cl_hr_pnnnn_type_cast=>pnnnn_to_prelp
EXPORTING
pnnnn = i0008
IMPORTING
prelp = innnn.
Show Data Again Switch to display the field values again
show_data_again = 'X'.
ENDIF. -
How to write include in user exit userexit_save_document
when i am trying to insert a inlcude in the exit userexit_save_document. i am getting error.
i ahve written a statement 'include 'Zabcd' inside the user exit.
doubl clicked on the include->system asked to create a new include-> opted for yes-> an editor came inc hange mode-> i ahve witten the statements form test. endform.
when i am trying to activate my include 'Zabcd' ,, ia m getting an error. "the corresponding form should have an edform"
i cant proceed , it is beyond my imagination
can some help me out of this situation.
Best Regards
Amarender Reddy BSo you have
FORM userexit_save_document.
INCLUDE zabcd.
ENDFORM.
And your include contains
FORM myform.
ENDFORM.
Include just inserts source code at the INCLUDE point, so effectively you've written:
FORM userexit_save_document.
FORM myform.
ENDFORM.
ENDFORM.
Now do you see the problem?
matt -
hello
experts how can i find a user exit which is not found in a the table modsap??actualy how can i find the include name in SAP standard program if i don get the exit name in table modsap for userexit??
plz reply
thanxHOW TO FIND USEREXITS
Hello,
To add to the above points --->
1) Option 1 : you don't know the name or dont have any info on user exit
run T-code : SPRO
SPRO -> Click SAP Reference IMG -> click in the relevant module eg: SD (sales and Distribution) ->System Modifications -> User exits
You can view documentation to understand the purpose of that user exit
It is not that always one can find the user exits under the name "System modifications" but with respect to a module definitely user exits can be found under that module in SPRO
2) Option 2 : You know the name of the user exit
Run Tcode : SMOD -> fill in the enhancement name-> click on attributes and then components or directly on components and view the include...if already a code is written in the include,then on double click of include you can see the code...if an existing code is not there and you double click on the include,SAP prompts for a request
3)Option3: You can use the custom code..which was contributed to SDN
Create a new report program -> copy the code -> activate -> run
on the p_tcode : give the name of the tcode for which you need to find the user exits and execute...a list of exits will be displayed...double click and follow the link
**********************************ABAP CODE :***********************************
report zuserexit no standard page heading.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.
select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
select single * from tadir where pgmid = 'R3TR'
and object = 'PROG'
and obj_name = tstc-pgmna.
move : tadir-devclass to v_devclass.
if sy-subrc ne 0.
select single * from trdir where name = tstc-pgmna.
if trdir-subc eq 'F'.
select single * from tfdir where pname = tstc-pgmna.
select single * from enlfdir where funcname =
tfdir-funcname.
select single * from tadir where pgmid = 'R3TR'
and object = 'FUGR'
and obj_name eq enlfdir-area.
move : tadir-devclass to v_devclass.
endif.
endif.
select * from tadir into table jtab
where pgmid = 'R3TR'
and object = 'SMOD'
and devclass = v_devclass.
select single * from tstct where sprsl eq sy-langu and
tcode eq p_tcode.
format color col_positive intensified off.
write:/(19) 'Transaction Code - ',
20(20) p_tcode,
45(50) tstct-ttext.
skip.
if not jtab[] is initial.
write:/(95) sy-uline.
format color col_heading intensified on.
write:/1 sy-vline,
2 'Exit Name',
21 sy-vline ,
22 'Description',
95 sy-vline.
write:/(95) sy-uline.
loop at jtab.
select single * from modsapt
where sprsl = sy-langu and
name = jtab-obj_name.
format color col_normal intensified off.
write:/1 sy-vline,
2 jtab-obj_name hotspot on,
21 sy-vline ,
22 modsapt-modtext,
95 sy-vline.
endloop.
write:/(95) sy-uline.
describe table jtab.
skip.
format color col_total intensified on.
write:/ 'No of Exits:' , sy-tfill.
else.
format color col_negative intensified on.
write:/(95) 'No User Exit exists'.
endif.
else.
format color col_negative intensified on.
write:/(95) 'Transaction Code Does Not Exist'.
endif.
at line-selection.
get cursor field field1.
check field1(4) eq 'JTAB'.
set parameter id 'MON' field sy-lisel+1(10).
call transaction 'SMOD' and skip first screen.
Thanks -
How to find implemented user exits
Hi,
How to find out which user exits have been implemented foe a transaction. Lets say VA01.
I have to check the user exits implemented.
Kindly help.
Moderator Message: FAQ. Please search before posting your question. Thread locked.
Edited by: Suhas Saha on Jan 5, 2012 7:37 PMHi,
You can find old user-exits (include based) by checking the includes in package VMOD using tranaction SE80.
Additionally you should also check implemented SMOD customer exits using transaction CMOD.
You can check also BAdIs and enhancement points included in package VA_BADI.
If there are any modifications made directly to standard SAP coding, you can find then using transaction SE95.
Regards,
Marcin -
How to include input user parameter values in XML report output?
How can i include input user parameter values in XML report output. I a have a report which can be run by providing start date and end date. I would like to include value of these parameters in XML output to enable me to figure out dates for report, just by looking at XML output.
Rgds,
manishI think all the XML attributes can contain lexicals. If you bring up the property palette against the report object you can just set the following:
XML Tag Attributes: myParameter="&<P_1>"
where P_1 is your user parameter.
Maybe you are looking for
-
I tried to set up my wi fi but i typed in the wrong password, how can i change it?
My ipad prompted me to enter the password for my wifi network but of course i typed in the wrong one... now it is not giving me an option to retype it in for this wifi network it just opens pop up screen that says "unable to connect" my other ipad
-
Error Messages in a WebCenter Spaces Components
Dears, we deployed a custom component for check the quota for the folder before add any new item (we deployed it on UCM 11g), the component is working properly from UCM side, so when override the quota for the folder the error message "you can't add
-
Some SAP R/3 Tables are Missing
Hi Friends, I made a connection between SAP R/3 and Crystal Reports. When I am trying to see the tables of SAP R/3 I am not able to see all the tables only few tables are visible. For example in Standard table I am able to see only LIKP table, but
-
IPod touch wifi question + iTunes wireless store question
I have a wireless b/g connection at my house. I have 64 bit WEP encryption on my router. If I get an iPod touch, will it allow me to type in the code so I can connect to the internet? Next, if I activate an iTunes gift card on my pc, will I be able t
-
Hi, I have problems when I tried to open a PDF document with a police of RM generated in the Laundpad, I use a self-signed ssl certificates with the common name https://127.0.0.1:8443 and the base URL in the configuration is the same. I have tried to