Exit for PR creation
Hi,
The requirement is as below
We have added some zfields in shopping cart at item level.
These fields are transferred to R/3 and hence the z field data comes in the customer data tab of the PR.
Now, there needs to be one special condition checked. If one of the field is X -> mark the item as deleted
ie
if zfield1 = 'X' -> loekz = 'X'
I have used MEREQ001 for getting the zfields data in PR. I am getting all this data in PR.
But when I used the check if zfield1 = 'X' -> loekz = 'X' in this exit, deletion indicator is not set.
Can anyone please provide some exit for PR creation which can help to update the standard field based on the value of zfield at item level.
Thanks
Richa
AMPL0001 User subscreen for additional data on AMPL
LMEDR001 Enhancements to print program
LMELA002 Adopt batch no. from shipping notification when posting a G
LMELA010 Inbound shipping notification: Transfer item data from IDOC
LMEQR001 User exit for source determination
LMEXF001 Conditions in Purchasing Documents Without Invoice Receipt
LWSUS001 Customer-Specific Source Determination in Retail
M06B0001 Role determination for purchase requisition release
M06B0002 Changes to comm. structure for purchase requisition release
M06B0003 Number range and document number
M06B0004 Number range and document number
M06B0005 Changes to comm. structure for overall release of requisn.
M06E0004 Changes to communication structure for release purch. doc.
M06E0005 Role determination for release of purchasing documents
ME590001 Grouping of requsitions for PO split in ME59
MEETA001 Define schedule line type (backlog, immed. req., preview)
MEFLD004 Determine earliest delivery date f. check w. GR (only PO)
MELAB001 Gen. forecast delivery schedules: Transfer schedule implem.
MEQUERY1 Enhancement to Document Overview ME21N/ME51N
MEVME001 WE default quantity calc. and over/ underdelivery tolerance
MM06E001 User exits for EDI inbound and outbound purchasing document
MM06E003 Number range and document number
MM06E004 Control import data screens in purchase order
MM06E005 Customer fields in purchasing document
MM06E007 Change document for requisitions upon conversion into PO
MM06E008 Monitoring of contr. target value in case of release orders
MM06E009 Relevant texts for "Texts exist" indicator
MM06E010 Field selection for vendor address
MMAL0001 ALE source list distribution: Outbound processing
MMAL0002 ALE source list distribution: Inbound processing
MMAL0003 ALE purcasing info record distribution: Outbound processing
MMAL0004 ALE purchasing info record distribution: Inbound processing
MMDA0001 Default delivery addresses
MMFAB001 User exit for generation of release order
Similar Messages
-
BAdI: or User Exit for Campaign Creation IN CRM 5.0
Hi all,
we are working in CRM 5.0,
we have a Requirement like :
when we create the campaign it should check higher level project ID (marketing Plan ID)
if it is there it should permit for create campaign else it ll show error...
Any BAdI: or User Exit for Campaign Creation?
I ll geive reward points....
Rhanks & Regards,
GaneshIN WHICH TRANSACTION U R CREATING CAMPAIGN ??
-
BAdI: or User Exit for Campaign Creation
Hi all,
we are working in CRM 5.0,
we have a Requirement like :
when we create the campaign it should check higher level project ID (marketing Plan ID)
if it is there it should permit for create campaign else it ll show error...
Any BAdI: or User Exit for Campaign Creation?
I ll geive reward points....
Rhanks & Regards,
GaneshDear Ganesh,
As campaign can be created and executed individually also, it will never check for higher level project ID.
Let me check the system if we can block creation of campaign individually, without having a higher level marketing plan. -
User Exit for Delivery Creation
Hi,
I am looking for an User Exit for Delivery Creation, which should provide a Sales Order Number. This is required before Batch determination. Can any one help.Hi,
I think you can try with MV50AFZ1 user exit.
In move fields to LIKP and LIPS routine you can get the sales order.
LIPS-VGBEL gives the sales order.
Thanks,
Rohan -
User Exits for Invoice creation ,cancellation and sales return
Hi Gurus,
Pl help me it's very urgent.
I did not find any user exit invoice creation so i wrote the following code in include program
MV60AF0B_BELEG_SICHERN.
This code is to update the Z*table while saving invoice ,cancellation and sales return.
The code modification is like below
FORM BELEG_SICHERN *
Buchen Fakturabelege *
FORM BELEG_SICHERN.
READ TABLE XVBRK INDEX 1.
IF SY-SUBRC NE 0.
CALL FUNCTION 'DEQUEUE_ALL'.
MESSAGE S032.
EXIT.
ENDIF.
IF SAMH_MOD = ON.
EXPORT XKOMFK TO MEMORY ID 'SDBILLDL'.
ENDIF.
DATA: CALC_TYPE.
IF REBATE_DETERMINED = 'Y'.
CALC_TYPE = 'A'.
ELSE.
CALC_TYPE = 'I'.
ENDIF.
*{ INSERT RD1K903017 1
Work Area*********************
data : wa_xvbrk type VBRKVB.
data : wa_xvbrp type vbrpvb.
data : wa_zmigo type zmigo.
data : wa_vbrp type vbrp.
Internal table Creation*******
DATA: BEGIN OF tab_XVBRP OCCURS 100.
INCLUDE STRUCTURE VBRPVB.
DATA: END OF tab_XVBRP.
data : begin of tab_vbeln occurs 10,
vbeln type vbrk-vbeln,
knumv type vbrk-knumv,
end of tab_vbeln.
data : tab_zmigo type table of zmigo.
data : tab_vbrp type table of vbrp.
*****Data declaration*************
data : v_no_of_inv type i.
data : v_vbeln_no(10) type n.
data : v_last_inv_no(10) type n.
data : v_first_inv_no(10) type c.
data : v_tot_qty type i.
data : v_frbnr type mkpf-frbnr.
*******Ranges*********************
ranges : r_vbeln for vbrk-vbeln.
*****Populating IT****************
tab_xvbrp[] = xvbrp[].
describe table xvbrk lines v_no_of_inv.
*} INSERT
CALL FUNCTION 'RV_INVOICE_DOCUMENT_ADD'
EXPORTING
VBSK_I = VBSK
WITH_POSTING = 'A'
PREISFINDUNGSART = CALC_TYPE
IMPORTING
VBSK_E = VBSK
TABLES
XKOMFK = XKOMFK
XTHEAD = XTHEAD
XVBFS = XVBFS
XVBSS = XVBSS
XVBRK = XVBRK
XVBRP = XVBRP
XVBPA = XVBPA
XKOMV = XKOMV.
*{ INSERT RD1K903017 2
data : v_count type i,v_fkimg type i .
data : v_no_of_records(10) type n.
wa_xvbrk = xvbrk.
********Selecting the last rec no from ZMIGO
select max( sr_no ) from zmigo into v_no_of_records.
*****If Distribution channel is not ZB*********
if wa_xvbrk-vtweg ne 'ZB' and ( wa_xvbrk-fkart = 'ZRIN' or wa_xvbrk-fkart = 'ZRTE' ).
if v_no_of_inv = 1. " Process only when there is one invoice
loop at tab_xvbrp into wa_xvbrp where ( matnr ne 'CDGSTP0001' and
matnr ne 'CD-RW' and
matnr ne 'CD-RW65OHS' and
matnr ne 'CABLE' and
matnr ne 'CD-R' and
matnr ne 'CDQ80N4' and
matnr ne 'GENERAL' and
matnr ne 'NERO' and
matnr ne 'OTHERS' and
matnr ne 'SPARE PARTS' and
matnr ne 'PROMO ITEM' and
matnr ne 'PROMO-1' and
matnr ne 'PROMO-2' and
matnr ne 'PROMO-3' and
matnr ne 'PROMO-4' and
matnr ne 'PROMO-5' and
matnr ne 'PROMO-6' and
matnr ne 'PROMO-7' and
matnr ne 'PROMO-8' and
matnr ne 'PROMO-9' and
matnr ne 'PROMO-10' ).
v_fkimg = wa_xvbrp-fkimg .
v_fkimg = v_fkimg / 1000.
do v_fkimg times.
v_no_of_records = v_no_of_records + 1.
wa_zmigo-sr_no = v_no_of_records.
wa_zmigo-po_no = wa_xvbrk-vbeln.
wa_zmigo-item_no = wa_xvbrp-posnr.
wa_zmigo-mblnr = wa_xmkpf-mblnr.
wa_zmigo-doc_type = wa_xvbrk-fkart.
wa_zmigo-posting_date = wa_xvbrk-fkdat.
wa_zmigo-created_on = sy-datum.
wa_zmigo-created_time = sy-uzeit.
wa_zmigo-bill_lno = v_frbnr.
wa_zmigo-material = wa_xvbrp-matnr.
wa_zmigo-inv_no = wa_xvbrk-vbeln.
wa_zmigo-inv_item_no = wa_xvbrp-posnr.
wa_zmigo-plant = wa_xvbrp-werks.
wa_zmigo-inv_date = wa_xvbrk-fkdat.
wa_zmigo-customer = wa_xvbrk-kunag.
wa_zmigo-unit = 1.
wa_zmigo-mtype = '601'.
insert into zmigo values wa_zmigo.
enddo.
clear : wa_zmigo.
endloop.
clear : v_count,v_fkimg,wa_zmigo.
refresh tab_zmigo[].
clear v_no_of_inv.
else. "When there are Split Invoices
v_last_inv_no = wa_xvbrk-vbeln.
v_vbeln_no = v_last_inv_no - v_no_of_inv + 1.
v_first_inv_no = v_vbeln_no.
sort tab_xvbrp by vbeln.
loop at tab_xvbrp into wa_xvbrp where ( matnr ne 'CDGSTP0001' and
matnr ne 'CD-RW' and
matnr ne 'CD-RW65OHS' and
matnr ne 'CABLE' and
matnr ne 'CD-R' and
matnr ne 'CDQ80N4' and
matnr ne 'GENERAL' and
matnr ne 'NERO' and
matnr ne 'OTHERS' and
matnr ne 'SPARE PARTS' and
matnr ne 'PROMO ITEM' and
matnr ne 'PROMO-1' and
matnr ne 'PROMO-2' and
matnr ne 'PROMO-3' and
matnr ne 'PROMO-4' and
matnr ne 'PROMO-5' and
matnr ne 'PROMO-6' and
matnr ne 'PROMO-7' and
matnr ne 'PROMO-8' and
matnr ne 'PROMO-9' and
matnr ne 'PROMO-10' ).
v_fkimg = wa_xvbrp-fkimg .
v_fkimg = v_fkimg / 1000.
do v_fkimg times.
v_no_of_records = v_no_of_records + 1.
wa_zmigo-sr_no = v_no_of_records.
wa_zmigo-po_no = v_vbeln_no. "wa_vbrp-vbeln.
wa_zmigo-item_no = wa_xvbrp-posnr.
wa_zmigo-mblnr = wa_xmkpf-mblnr.
wa_zmigo-doc_type = wa_xvbrk-fkart.
wa_zmigo-posting_date = wa_xvbrk-fkdat.
wa_zmigo-created_on = sy-datum.
wa_zmigo-created_time = sy-uzeit.
wa_zmigo-bill_lno = v_frbnr.
wa_zmigo-material = wa_xvbrp-matnr.
wa_zmigo-inv_no = v_vbeln_no.
wa_zmigo-inv_item_no = wa_xvbrp-posnr.
wa_zmigo-plant = wa_xvbrp-werks.
wa_zmigo-inv_date = wa_xvbrk-fkdat.
wa_zmigo-customer = wa_xvbrk-kunag.
wa_zmigo-unit = 1.
wa_zmigo-mtype = '601'.
insert into zmigo values wa_zmigo.
enddo.
clear : wa_zmigo.
at end of vbeln.
v_vbeln_no = v_vbeln_no + 1.
endat.
clear : v_count,v_fkimg,wa_zmigo.
refresh tab_zmigo[].
endloop.
endif. "End of first 2nd IF.
clear : v_no_of_inv, v_vbeln_no.
endif.
****************Sales return************************************
if wa_xvbrk-fkart = 'ZRRE' and wa_xvbrk-vtweg ne 'ZB'.
loop at tab_xvbrp into wa_xvbrp where ( matnr ne 'CDGSTP0001' and
matnr ne 'CD-RW' and
matnr ne 'CD-RW65OHS' and
matnr ne 'CABLE' and
matnr ne 'CD-R' and
matnr ne 'CDQ80N4' and
matnr ne 'GENERAL' and
matnr ne 'NERO' and
matnr ne 'OTHERS' and
matnr ne 'SPARE PARTS' and
matnr ne 'PROMO ITEM' and
matnr ne 'PROMO-1' and
matnr ne 'PROMO-2' and
matnr ne 'PROMO-3' and
matnr ne 'PROMO-4' and
matnr ne 'PROMO-5' and
matnr ne 'PROMO-6' and
matnr ne 'PROMO-7' and
matnr ne 'PROMO-8' and
matnr ne 'PROMO-9' and
matnr ne 'PROMO-10' ).
v_fkimg = wa_xvbrp-fkimg.
v_fkimg = v_fkimg / 1000.
v_tot_qty = v_tot_qty + v_fkimg.
do v_fkimg times.
v_no_of_records = v_no_of_records + 1.
wa_zmigo-sr_no = v_no_of_records.
wa_zmigo-po_no = wa_xvbrk-vbeln.
wa_zmigo-item_no = wa_xvbrp-posnr.
wa_zmigo-doc_type = wa_xvbrk-fkart.
wa_zmigo-posting_date = wa_xvbrk-fkdat.
wa_zmigo-created_on = sy-datum.
wa_zmigo-created_time = sy-uzeit.
wa_zmigo-material = wa_xvbrp-matnr.
wa_zmigo-inv_no = wa_xvbrk-vbeln.
wa_zmigo-inv_item_no = wa_xvbrp-posnr.
wa_zmigo-plant = wa_xvbrp-werks.
wa_zmigo-inv_date = wa_xvbrk-fkdat.
wa_zmigo-customer = wa_xvbrk-kunag.
wa_zmigo-unit = 1.
wa_zmigo-mtype = '651'.
condense wa_xvbrk-xblnr.
wa_zmigo-reference = wa_xvbrk-xblnr.
********Bill of lading no**
select single bill_lno from zmigo_final into v_frbnr where inv_no = wa_xvbrk-xblnr and material = wa_xvbrp-matnr.
if sy-subrc eq 0.
wa_zmigo-bill_lno = v_frbnr.
endif.
insert into zmigo values wa_zmigo.
enddo.
clear : wa_zmigo,wa_xvbrp , v_fkimg, v_frbnr.
endloop.
endif.
*******Invoice Cancellation*****************************
if wa_xvbrk-fkart = 'ZRS1' and wa_xvbrk-vtweg ne 'ZB'.
delete tab_xvbrp[] where shkzg eq 'X'.
loop at tab_xvbrp into wa_xvbrp where ( matnr ne 'CDGSTP0001' and
matnr ne 'CD-RW' and
matnr ne 'CD-RW65OHS' and
matnr ne 'CABLE' and
matnr ne 'CD-R' and
matnr ne 'CDQ80N4' and
matnr ne 'GENERAL' and
matnr ne 'NERO' and
matnr ne 'OTHERS' and
matnr ne 'SPARE PARTS' and
matnr ne 'PROMO ITEM' and
matnr ne 'PROMO-1' and
matnr ne 'PROMO-2' and
matnr ne 'PROMO-3' and
matnr ne 'PROMO-4' and
matnr ne 'PROMO-5' and
matnr ne 'PROMO-6' and
matnr ne 'PROMO-7' and
matnr ne 'PROMO-8' and
matnr ne 'PROMO-9' and
matnr ne 'PROMO-10' ).
v_fkimg = wa_xvbrp-fkimg.
v_fkimg = v_fkimg / 1000.
v_tot_qty = v_tot_qty + v_fkimg.
do v_fkimg times.
v_no_of_records = v_no_of_records + 1.
wa_zmigo-sr_no = v_no_of_records.
wa_zmigo-po_no = wa_xvbrk-vbeln.
wa_zmigo-item_no = wa_xvbrp-posnr.
wa_zmigo-doc_type = wa_xvbrk-fkart.
wa_zmigo-posting_date = wa_xvbrk-fkdat.
wa_zmigo-created_on = sy-datum.
wa_zmigo-created_time = sy-uzeit.
wa_zmigo-material = wa_xvbrp-matnr.
wa_zmigo-inv_no = wa_xvbrk-vbeln.
wa_zmigo-inv_item_no = wa_xvbrp-posnr.
wa_zmigo-plant = wa_xvbrp-werks.
wa_zmigo-inv_date = wa_xvbrk-fkdat.
wa_zmigo-customer = wa_xvbrk-kunag.
wa_zmigo-unit = 1.
condense wa_xvbrk-zuonr.
wa_zmigo-reference = wa_xvbrk-zuonr.
wa_zmigo-mtype = '602'.
********Bill of lading no**
select single bill_lno from zmigo_final into v_frbnr where inv_no = wa_xvbrk-xblnr and material = wa_xvbrp-matnr.
if sy-subrc eq 0.
wa_zmigo-bill_lno = v_frbnr.
endif.
insert into zmigo values wa_zmigo.
enddo.
clear : wa_zmigo,wa_xvbrp , v_fkimg.
endloop.
endif.
clear : v_no_of_records.
*} INSERT
CALL FUNCTION 'STACK_RESET'.
R185D-DATALOSS = SPACE.
FOLGEAUFRUF102 = SPACE.
PERFORM SETPAR_INIT.
*{ INSERT RD1K903017 3
*} INSERT
LEAVE.
ENDFORM.
This program is working fine for single user but in production where no of people are creating the invoices from different places the data is not getting updated in table ZMIGO.
sometime populating with wrong data , partial data and sometimes no updation at all.
I have used the table locking system enqueue and dequeue FM's before n after updation but still the same
thing is happening.
What could be the reason.
Looking for help very urgent any other alternate option.Hi,
Go thru these..
Enhancement
SDVFX009 Billing doc. processing KIDONO (payment reference numbe
SDVFX010 User exit item table for the customer lines
SDVFX011 Userexit for the komkcv- and kompcv-structures
V05I0001 User exits for billing index
V05N0001 User Exits for Printing Billing Docs. using POR Procedu
V60A0001 Customer functions in the billing document
V60P0001 Data provision for additional fields for display in lis
V61A0001 Customer enhancement: Pricing
SDVFX001 User exit header line in delivery to accounting
SDVFX002 User exit for A/R line (transfer to accounting)
SDVFX003 User exit: Cash clearing (transfer to accounting)
SDVFX004 User exit: G/L line (transfer to accounting)
SDVFX008 User exit: Processing of transfer structures SD-FI
SDVFX007 User exit: Billing plan during transfer to Accounting
SDVFX006 User exit: Tax line (transfer to accounting)
SDVFX005 User exit: Reserves (transfer to accounting)
Business Add-in
SD_CIN_LV60AU02 BADI for billing
If it is helpful rewards points
Regards
Pratap.M -
Hi expert,
Are there some user exit that i can used for PR creation? I need this exit to set default value for certain field at item level when create PR.
Please advise.
Thanks
Message was edited by:
ari harsyantoHi,
Have you checked the components of enhancement: MEREQ001?
Please check. Hope this helps.
Best Regards, Murugesh AS -
User exit for delivery creation in VL10B/VL10G-
Hi,
Is there any exits available for restricting the document type while the deliveries are selected/processed using VL10B/VL10G - delivery creation in background.
Scenario is when deliveries are created for STO's,the delivery is to be created for a selected document types(EKKO - BSART).Other types of document types have to be ignored when the delivery is created in background.
Regards
DeepakHello Deepak
You handle this through configuration while setting up Stock Transport Orders in MM.
Path: IMG/Materials Management/Purchasing/Purchase Order/Set up Stock Transport Order/Assign Delivery Type and Checking Rule
Here you a Delivery type for a combination of Plant and PO type. So those PO types which you don't want to be included for delivery creation will not figure in this assignment. I don't think you should go down the user exit route.
If you still need to explore user exits, look at OSS note 198137 for a list and purpose of VL10X based exits.
Hope this helps. -
User exit for checking creation of prod. order reference to sales order?
Hi all,
What are user exit suitable for checking creation of prod. order reference to sales order to have the same plant. If plant not the same, an error message should appear.
thanks.Hi,
user exits:
PPCO0003 Check exit for order changes from sales order
PPCO0007 Exit when saving production order
Regards,
Vivek -
User exit for VT01n (Creation of shipment)
Hii All
We have a requirement where we have to automatically enter the planned shipment scheduled time & end time and date for each stage while saving the shipment.
Can anyone let me know user exit which can be used to do the same.
Thanks & Regards
GauravHi,
You can use V56FSTAT this user exit for your purpose..
If you want more selection of user exits you goto transaction SMOD and input V56* and then press F4,so that you can see all the user exits can be used for shipment or transportation purpose...
Regards,
Chandra -
User Exit for employee creation
Hi,
I want to know the user exit which is called whenever the employee is created and employee number is generated.
I found one user exit as below:
EXIT_SAPMP50A_001
Is it correct?
Please advise.
Regards
Manish JaiswalHi Manish,
PFB the correct user exits for the same.
EXIT_SAPFP50M_001 - Customer Default Values for Personnel Administration and Rec
EXIT_SAPFP50M_002 - Customer Checks for Personnel Administration and Recruitment
Regards
Bala -
Exit for automatic creation of line items in VA01
Hello All,
I have a requirement wherein I need to create next blank new line item (with predefined line item no) upon creation of one line item. When user opens sales order creation screen there should be default line item (say line item no 10) created. If user fills data in item 10 & press enter exit should create next line item (say item 20) automatically.
Currently line item get created after user enter item details. I want this to happen before user enters data.
Regards,
Abhijeet moreThere is a customizing for this. You can also make it using MV45AFZZ but really difficult coding. You must debug what system do while you create a line item manually then u need to use every routine which system uses and even there is no error message it's still possible that you'll face with inconsistencies in billing.
I don't suggest you to try this using exit, unless you have 2-3 years SD experience. Best thing to do is inspecting customizing part.
Edited by: Gungor Ozcelebi on Jul 15, 2009 9:20 AM -
Exit for PO creation with reference to PR
Hi all,
Is there any exit/BADI which can throw an error message if a PO is being created against a PR which had no release strategy associated with it? Basically I have to prevent creation of PO if a PR has been created such that no release strategy is applicable on it.
ThanksHi Javed,
Try User Exit MM06E005,
Implement EXIT_SAPMM06E_012,
PR number is passed in field TEKPO-BANFN.
Also you go through this thread,
Re: PO with reference to PR
Here you will find the solution for generating an error message
while creating PO against PR.
Reward points if useful.
Cheers,
Swamy Kunche -
User Exit for PO creation(me21n and me22n) - A/c assgn Category is existing
Hi all,
I would like to have your guidance to find out an appropriate EXIT to meet the following req.
Requirement is such that : This EXIT should generate a G/L account automatically (or over-write the existing G/L a/c) during any PO creation(me21n and me22n tcodes - before saving) based on the fields(mandatory) :
A/c Assignment Category,
Material,
Company code and
Vendor
entered by the user(during his/her PO creation activity)
The identified EXITS as of now are EXIT_SAPLEBND_002 (But the package is not matching our PO tcodes : me21n and me22n)
and EXIT_SAPMM06E_017(Package ME- same as tcodes me21n,me22n)
and even other Exits available for PO based on <b>before saving</b> activity.
Even I tried out creating a PO in debugging mode(with break points set at the above EXITs).
Please do help me out at the earliest to identify the appropriate EXIT to meet this requirement.
With Regards,
SrividyaHi!
in SMOD give MM06E005 enhancement
FM name
EXIT_SAPMM06E_017
This will be triggered during saving.
Regards
Tamá -
User Exit for Equipment Creation
Hi all,
During Equipment creation I want to check whether the equipment for the current licence number or chassis number is already available,if yes i want through an error message as 'Equipment already created for this license number',else i want to proceed for the equipment creation..is there any USER EXIT or BADI to do this...
Regards
Sugumar GHi
cut and paste the code in se38 and execute and give the transaction code for which u need the exit
*& Report ZVBUSEREXIT *
REPORT ZVBUSEREXIT .
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.
Regards,
V.balaji
Reward if usefull -
User-exit for Stock Creation while creating PR
hi guru
In case of materials like tools & equipments for which stock does not exist, the user creates a requisition when the material needs to be sent out for repair (subcontracting). The stock for this will be created automatically when such PR will be saved. The data for this like material code, quantity, GL account, etc will come from the PR.
relavent tcodes
me51n----pR CREATION
MB1A(MOVMENT TYPE)---GOODSISSUE
ME_REQ_POSTED(EXIT NAME)----- PURCHASE REQUSTION POSTED
Program Logic/Pseudo Code
While creating a PR, the values will be entered for KNTTP, WERKS, MATNR, MENGE, SAKTO,KOSTL. These values will be used for the transaction MB1A with movement type 202 to create the stock.
The development is applicable for the PRs with document type ZRP only.(BSART=ZRET) and material type UNBW.
PLZ GIVE ANSWER AND CODE FOR THIS PROGRAM...PLZ URGENThi guru
In case of materials like tools & equipments for which stock does not exist, the user creates a requisition when the material needs to be sent out for repair (subcontracting). The stock for this will be created automatically when such PR will be saved. The data for this like material code, quantity, GL account, etc will come from the PR.
relavent tcodes
me51n----pR CREATION
MB1A(MOVMENT TYPE)---GOODSISSUE
ME_REQ_POSTED(EXIT NAME)----- PURCHASE REQUSTION POSTED
Program Logic/Pseudo Code
While creating a PR, the values will be entered for KNTTP, WERKS, MATNR, MENGE, SAKTO,KOSTL. These values will be used for the transaction MB1A with movement type 202 to create the stock.
The development is applicable for the PRs with document type ZRP only.(BSART=ZRET) and material type UNBW.
PLZ GIVE ANSWER AND CODE FOR THIS PROGRAM...PLZ URGENT
Maybe you are looking for
-
Problem with Audio card in windows 7 in parallel desktop
Hi my friends I was wondering if you help me I have a macbook pro ( mid 2010 ) MC374 I installed windows 7 with Parallels Desktop but I haven't audio in windows 7 What do I do to repair that ? thanks a lot
-
Data Modeling as a component of Business Modeling , and it also involves
Data Modeling as a component of Business Modeling , and it also involves the modeling of a. Data Flow b. Hardware & Software c. Resources d. Process chains
-
Strange folder in App. Support
Trying to free up space on my hd I found this folder: "WB 2004 download" in my "application support" folder. It contains 333 items that are basically of two types: mb199701.001 through mb200706.004 and a bunch of .gif's that appear to be old news ite
-
Problem with backlight in muvo n
hi i have problem with back light when backlight is on i hear some noise in my headphone (ofcourse this noise is very weak) when after 3 seconds backlight off this noise disapear i update firmware in last version but i have still this problem please
-
What is a good cleanup tool for Mavericks?
What is a good cleanup tool for Mavericks?