Screen Exit - CS01 Tcode
Dear Friends,
I performed CS01 Screen Exit. I need to add customer specific fields to BOM header level, For this I have added two fields to BOM header record table i.e. STKO, then create a sub screen to hold these two fields and write the corresponding logic in the Functional exits provided. And when I have written respective code in Include program ZXCSAU04. And here I got the error when i am activating i.e. CSCI_STKO must be flat structure. So what i have to perform.
Hi,
I hope you ahve added the new fields in the structure 'CI_STKO'. If not check that and add the new fields to this structure only.
Regards,
Himanshu Verma
Similar Messages
-
Hi All,
To allow multiple selection of production orders to be processed in tcode co88. Can you provide the screen exits for tcode co88.hi,
Try this COOM0003.
Thanks,
Sanket. -
Custom Field using screen exits CS01/CS02/CS03
Dear Experts,
I am using Screen exits to add some text description in CS01/CS02/CS03, my requirement is to add a field 'Product Appearance' with multiple lines for the material description. For this I have created customer field 'ZTEXT1' and appended it to STKO table. Now in screen painter(SE51) i need to add 3-4 lines of type stko-ztext1 because the product desc is of size 300-400 character.
I am not able to create 3-4 lines of type stko-ztext1. Can u plz suggest how can i add 3-4 lines of type stko-ztext1 in SE51.
I am able to create a blank field in SE51 using Edit->Grouping->Step Loop->Define, but while activating it is giving error as "Input/Outpt field STKO-ZTEXT1 and key word are not in the same screen".
Plz suggest.
RegardsHi Kurtt,
Below are the available user exits :-
PCSD0001 Applications development R/3 BOMS
PCSD0002 BOMs: Customer fields in item
PCSD0003 BOMs: Customer fields in header
PCSD0004 BOM comparison
PCSD0005 BOMs: component check for material items
PCSD0006 Mass changes user exit
PCSD0007 Check changes in STKO
PCSD0008 WBS BOM: Customer-specific explosion for creating
PCSD0009 Order/WBS BOM, determine URL page
PCSD0010 Order/WBS BOM, determine explosion date
PCSD0011 Knowledge-based order BOM, parallel update
PCSD0012 Customer - Mat. number/mat. number during material exchange
PCSD0013 Customer-specific processing of an explosion for BOM browser
PCSD0014 Knowledge-based order BOM: Status
Check which one suits your requirement.
Regards
Abhii -
Screen Exit in Tcode COR1 - Create Process Order
Hi All,
Can anyone let me know if there is a screen exit or a BADI where in i can use it to extend the COR1 general data tab to include a field.
Even if i can add a additional tab in COR1 tcode through a BADI, will be good.
Please help.
Thanks,
Jaffer Ali.SHi,
STEP1:- Add Z-Fiels in Structure CAUFVD & Table: AUFK using (Goto --> Append Structure)
Step1. T-code: CMOD
STEP2: Enter project name: Zxxxxx --> Create
STEP3: Enter Short text -- > Click Enhancement Assignment
STEP4: Enter Enhancement: PPCO0001 & PPCO0020
STEP5: Click on Components
STEP6.1: double click on Screen-Exit: SAPLCOKO (Screen no: 5900)
A) Add Z-fileds in SCreen layout with keyp of structure :CAUFVD
Screen FLOW LOGIC:-
Process before output.
PROCESS BEFORE OUTPUT.
Set the screen status
Screen modifications incase of Display
MODULE screen_display.
Process after input.
PROCESS AFTER INPUT.
Screen fields and its processing.
CHAIN.
FIELD: caufvd-z_cust1,
caufvd-z_cust2,
caufvd-z_cust3,
caufvd-z_cust4,
caufvd-z_cust5,
caufvd-z_qty1,
caufvd-z_qty2,
caufvd-z_qty3,
caufvd-z_qty4,
caufvd-z_qty5.
MODULE header_update.
ENDCHAIN.
FIELD: z_total.
MODULE disp_data.
Update the header.
Not required as of now.
module screen_display output.
Disable input in case of display.
if sy-tcode = 'COR3'.
loop at screen.
screen-input = 0.
modify screen.
endloop.
endif.
endmodule. " screen_display OUTPUT
module header_update input.
check not sy-tcode = 'COR3'.
perform data_check using caufvd.
endmodule. " HEADER_UPDATE INPUT
*Validate screen input fiels
form data_check using p_caufvd structure caufvd.
data: l_v_count type i.
get parameter id 'MAT' field p_caufvd-matnr.
if p_caufvd-z_cust1 is initial and p_caufvd-z_qty1 is initial and
p_caufvd-z_cust2 is initial and p_caufvd-z_qty2 is initial and
p_caufvd-z_cust3 is initial and p_caufvd-z_qty3 is initial and
p_caufvd-z_cust4 is initial and p_caufvd-z_qty4 is initial and
p_caufvd-z_cust5 is initial and p_caufvd-z_qty5 is initial.
else.
if not p_caufvd-z_cust1 is initial
and not p_caufvd-z_qty1 is initial.
select single count(*) into l_v_count from zcc_t01
where z_custmat = p_caufvd-z_cust1 and
matnr = p_caufvd-matnr.
if l_v_count < 1.
message e000(zpp) with 'Entered customer does not exist'.
endif.
clear l_v_count.
else.
message e000(zpp) with 'Fill both customer material and Qty'.
endif.
if not p_caufvd-z_cust2 is initial
and not p_caufvd-z_qty2 is initial.
select single count(*) into l_v_count from zcc_t01
where z_custmat = p_caufvd-z_cust2 and
matnr = p_caufvd-matnr.
if l_v_count < 1.
message e000(zpp) with 'Entered customer does not exist'.
endif.
clear l_v_count.
elseif
not ( p_caufvd-z_cust2 is initial and p_caufvd-z_qty2 is initial ).
message e000(zpp) with 'Fill both customer material and Qty'.
endif.
if not p_caufvd-z_cust3 is initial
and not p_caufvd-z_qty3 is initial.
select single count(*) into l_v_count from zcc_t01
where z_custmat = p_caufvd-z_cust3 and
matnr = p_caufvd-matnr.
if l_v_count < 1.
message e000(zpp) with 'Entered customer does not exist'.
endif.
clear l_v_count.
elseif
not ( p_caufvd-z_cust3 is initial and p_caufvd-z_qty3 is initial ).
message e000(zpp) with 'Fill both customer material and Qty'.
endif.
if not p_caufvd-z_cust4 is initial
and not p_caufvd-z_qty4 is initial.
select single count(*) into l_v_count from zcc_t01
where z_custmat = p_caufvd-z_cust4 and
matnr = p_caufvd-matnr.
if l_v_count < 1.
message e000(zpp) with 'Entered customer does not exist'.
endif.
clear l_v_count.
elseif
not ( p_caufvd-z_cust4 is initial and p_caufvd-z_qty4 is initial ).
message e000(zpp) with 'Fill both customer material and Qty'.
endif.
if not p_caufvd-z_cust5 is initial
and not p_caufvd-z_qty5 is initial.
select single count(*) into l_v_count from zcc_t01
where z_custmat = p_caufvd-z_cust5 and
matnr = p_caufvd-matnr.
if l_v_count < 1.
message e000(zpp) with 'Entered customer does not exist'.
endif.
clear l_v_count.
elseif
not ( p_caufvd-z_cust5 is initial and p_caufvd-z_qty5 is initial ).
message e000(zpp) with 'Fill both customer material and Qty'.
endif.
endif.
endform. " Data_check
STEP7:-Double click on Function Exit:EXIT_SAPLCOKO_005
Doouble click on include program: ZXCO1U21 and careae and add below code in include program
Data declarations
TYPES: BEGIN OF l_ty_zqty,
z_custmat TYPE zcc_t01-z_custmat,
z_qty TYPE zcc_t01-z_qty,
END OF l_ty_zqty.
DATA: l_s_zqty TYPE l_ty_zqty,
l_t_zqty LIKE STANDARD TABLE OF l_s_zqty,
l_v_frac TYPE zcc_t01-z_qty,
l_v_four TYPE f VALUE '0.4'.
SET PARAMETER ID 'MAT' FIELD i_caufvd-matnr.
Get the fields from ZCC_T01 and display it.
IF ( sy-tcode EQ 'COR1' OR sy-tcode EQ 'COR2' )
AND g_v_flag IS INITIAL.
IF i_caufvd-z_cust1 IS INITIAL AND
i_caufvd-z_cust2 IS INITIAL AND
i_caufvd-z_cust3 IS INITIAL AND
i_caufvd-z_cust4 IS INITIAL AND
i_caufvd-z_cust5 IS INITIAL.
SELECT z_custmat z_qty INTO TABLE l_t_zqty FROM zcc_t01
WHERE matnr = i_caufvd-matnr
AND z_qty NE space
AND z_qty NE '0'.
CHECK sy-subrc = 0.
LOOP AT l_t_zqty INTO l_s_zqty.
CASE sy-tabix.
WHEN 1.
caufvd-z_cust1 = l_s_zqty-z_custmat.
caufvd-z_qty1 = i_caufvd-gamng * l_s_zqty-z_qty / 100.
COMPUTE l_v_frac = FRAC( caufvd-z_qty1 ).
IF l_v_frac > l_v_four.
COMPUTE caufvd-z_qty1 = CEIL( caufvd-z_qty1 ).
ELSE.
COMPUTE caufvd-z_qty1 = FLOOR( caufvd-z_qty1 ).
ENDIF.
CLEAR l_v_frac.
WHEN 2.
caufvd-z_cust2 = l_s_zqty-z_custmat.
caufvd-z_qty2 = i_caufvd-gamng * l_s_zqty-z_qty / 100.
COMPUTE l_v_frac = FRAC( caufvd-z_qty2 ).
IF l_v_frac > l_v_four.
COMPUTE caufvd-z_qty2 = CEIL( caufvd-z_qty2 ).
ELSE.
COMPUTE caufvd-z_qty2 = FLOOR( caufvd-z_qty2 ).
ENDIF.
CLEAR l_v_frac.
WHEN 3.
caufvd-z_cust3 = l_s_zqty-z_custmat.
caufvd-z_qty3 = i_caufvd-gamng * l_s_zqty-z_qty / 100.
COMPUTE l_v_frac = FRAC( caufvd-z_qty3 ).
IF l_v_frac > l_v_four.
COMPUTE caufvd-z_qty3 = CEIL( caufvd-z_qty3 ).
ELSE.
COMPUTE caufvd-z_qty3 = FLOOR( caufvd-z_qty3 ).
ENDIF.
CLEAR l_v_frac.
WHEN 4.
caufvd-z_cust4 = l_s_zqty-z_custmat.
caufvd-z_qty4 = i_caufvd-gamng * l_s_zqty-z_qty / 100.
COMPUTE l_v_frac = FRAC( caufvd-z_qty4 ).
IF l_v_frac > l_v_four.
COMPUTE caufvd-z_qty4 = CEIL( caufvd-z_qty4 ).
ELSE.
COMPUTE caufvd-z_qty4 = FLOOR( caufvd-z_qty4 ).
ENDIF.
CLEAR l_v_frac.
WHEN 5.
caufvd-z_cust5 = l_s_zqty-z_custmat.
caufvd-z_qty5 = i_caufvd-gamng * l_s_zqty-z_qty / 100.
COMPUTE l_v_frac = FRAC( caufvd-z_qty5 ).
IF l_v_frac > l_v_four.
COMPUTE caufvd-z_qty5 = CEIL( caufvd-z_qty5 ).
ELSE.
COMPUTE caufvd-z_qty5 = FLOOR( caufvd-z_qty5 ).
ENDIF.
CLEAR l_v_frac.
WHEN OTHERS.
ENDCASE.
ENDLOOP.
g_v_flag = 'X'.
ENDIF.
IF g_v_flag IS INITIAL AND sy-tcode = 'COR2'.
MOVE-CORRESPONDING i_caufvd TO caufvd.
ENDIF.
ELSE.
MOVE-CORRESPONDING i_caufvd TO caufvd.
ENDIF.
STEP8:- Double click EXIT_SAPLCOKO_006
Doouble click on include program: ZXCO1U17 and careae and add below code in include program
Data Declaration.
tables : caufvd.
Export the fields.
move-corresponding caufvd to e_coci_aufk.
hope this help...
Regards
Sudheer Madisetty -
Screen exits for tcode vl31n.
Hi,
I need to add push button(Print) in VL31N tcode.
Please provide any screen exits for that.
Thanks,Hi
Use BADI LE_SHP_TAB_CUST_HEAD for delivery header.
Method: ACTIVATE_TAB_PAGE
Use BADI LE_SHP_TAB_CUST_ITEM for delivery item
Method: ACTIVATE_TAB_PAGE.
In the method specify the caption, program name and screen number as below.
ef_caption = 'Customer Data'.
ef_program = 'Z_IBDELIVERY'.
ef_dynpro = '9000'. -
Screen Exit for TCode: QM01
Hi Champs,
I would appreciate if anyone could solve my problem.
<b>Problem is I have to add one field in the standard program (Service Order Notification TCode: QM01).</b>
Can you please provide me any screen exit name or any other solution on which i can work upon.
Thanks,
Chidanand.Hey Guru,
I solved it in some different way.
I find the Funciton group 'QM03' and then enter into the function group and the select the screen no : ' 0140 'and change the requirement.
Thanks for reply.
Chidanand -
Menu exit ( or ) Screen exit for tcode VF01
Hi,
Can you tell me menu exit or screen exit for this tcode VF01.
Thanks,
Prathap.Hi,
der r total 17 exit.
J_3RSINV
SDVFX001 User exit header line in delivery to accounting
SDVFX002 User exit for A/R line in transfer to accounting
SDVFX003 User exit cash clearing in transfer to accounting
SDVFX004 User exit G/L line in transfer to accounting
SDVFX005 User exit reserves in transfer to accounting
SDVFX006 User exit tax line in transfer to accounting
SDVFX007 User exit: Billing plan during transfer to Accounting
SDVFX008 User exit: Processing of transfer structures SD-FI
SDVFX009 Billing doc. processing KIDONO (payment reference number)
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 Procedure
V60A0001 Customer functions in the billing document
V60P0001 Data provision for additional fields for display in lists
V61A0001 Customer enhancement: Pricing
Hope it helps.
/sachinkumar. -
how can we add a screen exit in tcode AS01 (create asset)
Experts plz help meHi
check the following enhancements for AS01
AAPM0001 Integration of asset accounting and plant maintenance
AFAR0003 External changeover method
AFAR0004 Determination of proportional values for retirement
AINT0004 Change amount posted for certain areas
AINT0005 Dummy for extended syntax check. Do not use.
AISA0001 Assign Inventory Number
AIST0001 Exchange number range in master data maintenance
AIST0002 Customer fields in asset master
AMSP0002 Determine relationship type for two company codes
TRAN0001 User exit for asset transfer
Regards
Kiran Sure -
Hi ppl,
I am looking for a screen exit for tcode MSC3n.
Using SMOD, I found the following enhancements:
BATCHCHK
MBCFC010
SAPLCHVW
SAPLMHD1
SAPLV01D
SAPLV01P
SAPLV01Z
SAPLV1ZE
SAPLV1ZN
But, all these have function exits. There was no screen exit specifically mentioned in any of these enhancements.
Does it mean that there is no screen exit or will these function exits be useful?
Please help.
Regards,
David.Hi,
My requirement is to remove 2 fields from a subscreen of the tcode MSC3n and replace with 2 custom fields which I have appended in the standard database table. All the fields are from the same database table.
Thanks,
David.
Edited by: David D on Aug 28, 2009 6:59 AM -
Screen Exit for TX01/02/03
Hi,
I've searched for possible screen exits for tcode TX01/02/03 but cannot find any. Is there any possible way to add a custom tab?
Any inputs is appreciated.Thanks! that link solved my problem. I have one question though, when I add the custom tab with some fields, can we add the custom fields to the database table VTBFHA/VTBFHAZU? or should we create a custom table for this custom fields?
Edited by: Marc Ng on Feb 24, 2009 4:38 AM -
How to Implement Screen Exits for MK01...
Hi All,
I have to implement screen exits for Tcode MK01.
There is a BADI namely VENDOR_ADD_DATA_CS for Mk01.
Please guide me on how to implement a screen exit..
If possible send me the steps to be followed.
Regards,
Vidya.Hi,
Check this:
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
Have a look at this thread:
your working with BADI Then do as follows....
you follow the SPRO way and do everything they say.
1.you make an own z program with your subscreens
2.by VENDOR_ADD_DATA you put something like this to method CHECK_ADD_ON_ACTIVE:
Aktivierung Zusatzfelder für ZDB
if i_screen_group = 'Z1'.
e_add_on_active = 'X'.
endif.
3.by VENDOR_ADD_DATA_CS you put something like this to get_taxi_screen
CASE i_taxi_fcode.
Premier
WHEN 'Z1_SRCE1'.
e_screen = '0100'.
e_program = 'ZPM_SCREENEXIT_MK02'. " your own program
e_headerscreen_layout = ' '.
Deuxiem
WHEN 'Z1_SRCE2'.
e_screen = '0110'.
e_program = 'ZPM_SCREENEXIT_MK02'.
e_headerscreen_layout = ' '.
ENDCASE.
4. you make sure, that everything is active
Regards
Kiran
Edited by: Kiran Sure(skk) on Apr 11, 2008 3:42 PM -
Problem while transporting Screen exit object from DEV to QAS client
Hello All,
I have developed screen exit for tcode 'ME51N' to add customer field in newly added TAB. To grayout that field in display mode, I have added code on the PBO event of that screen. Code for PBO even has been written inside the include. Exit is working fine on development client.
After transporting the exit on QAS client the field graying out functionality in diplay mode is not working eventhough the include which contains the code for PBO even is exist on QAS. Also in flow logic if i double clock on the PBO module event, it says object does not exist, eventhough the include which contains the PBO event code exist in QAS.
Please, help me to understand why the linkage between flow logic PBO event and the include where the PBO code has been written is not getting transported from DEV to QAS.Hi,
First check the TR log if there is any errors. If no errors, then check if all the objects were properly transported or not.
You might have missed out in transporting the enhancement activation(CMOD).
Try to Rebuild the object list for updating the navigation index. You can do this from SE80=>Rightclick on function group=>More functions=>Rebuild object list.
Thanks,
Vinod. -
HI ,
EVERYBODY
I AM DOING SCREEN EXIT FOR TCODE ME51N, ENHANCEMENT (MEREQ001) EXIT SAPLMEGUI , I HAVE ADDED TWO FIELDS
VALIDITY START DATE AND VALIDITY END DATE.
I HAVE CONFUSION ABOUT HOW TO EXPORT DATA ENTERED IN SUBSCREEN.
PLS HELP ME ..........
THANKS & REGARDS
SANJEEVhi,
EXIT_SAPLMEREQ_001 -
Export Data to Customer Subscreen for Requisition (PBO)
*sample code write in the corresponding include
DATA: ls_mereq_item TYPE mereq_item.
clear eban values if no PReq item
IF im_req_item IS INITIAL.
CLEAR: *eban,
eban.
ELSE.
read item data from system
ls_mereq_item = im_req_item->get_data( ).
fill customer field with old values
eban-zflag = ls_mereq_item-zflag.
*eban-zflag = ls_mereq_item-zflag.
ENDIF.
Read and store activity type to chnge the field status
of the subscreen
IF NOT im_req_item IS INITIAL.
gf_aktyp = im_req_item->GET_ACTIVITY( ).
endif.
EXIT_SAPLMEREQ_003 Import Data from Customer Subscreen for Requisition
data: ls_mereq_item type mereq_item.
*get values if PReq item exists
if not im_req_item is initial.
*read item data from system
ls_mereq_item = im_req_item->get_data( ).
*if customer field changed
if eban-zflag ne *eban-zflag.
*fill field with new value
ls_mereq_item-zflag = eban-zflag.
*set new item data to system
call method im_req_item->set_data( ls_mereq_item ).
*tell the system that there has something changed on the customer tab
EX_CHANGED = 'X'.
endif.
endif.
cheers,
sasi -
hi all,
i am working on screen exit,i have enhancements related to that are CNEX0007 and CNEX0006.
i need to add a field in the screen 900 which is include wbs elements which comes when we press include wbs button in the hierarchy graphic.how can i get this,please let me know...Hi Anil,
Screen Exits for Tcode CJ02
SAPLCJWB0205_CUSTSCR1_SAPZSAMPRJ
SAPLCJWB1215_CUSTSCR1_SAP
hopefully this info will be helpful for u
Regards
Karan Arya -
Screen Exit in ME41(Request For Quotation)
Dear All ,
I want a screen exit in tcode ME41(Request for Quotation) for a particular Requirement.I have already checked AMPL0001 and i am unable to locate the screen in the RFQ(ME41) that i have created & subsequently activated in the Exit.
Are there any other screen exits in ME41 .if any one knows about the utility of exit AMPL0001, Kindly guide me as to where the activated screen appears in the TCODE ME41.
Any help in this regard will be appreciated
Thanks in advance
Gaurav
Edited by: Gaurav Angrass on Dec 26, 2007 5:03 AMNo Other Screen Exits are available. In AMPL000, screen exits are available for Item Level. for this screen exit u have to insert the field in teh structure CI_AMPL. and activate the structute also.
in this case u activete screen exit, CI_AMPL structure and EXIT_SAPLMBAM_001, EXIT_SAPLMBAM_002.
- Selva
Maybe you are looking for
-
I need your valuable suggestion on how to create the Value based shipment cost. Our Process: Create POS - Create Inbound delivery - Create Shipment - Create Shipment cost - Post Inbound Delivery. So while posting the inbound delivery, the freight cos
-
IPhone Not Recognizing Media Queries
http://www.sandiegohomegrown.com/testSDTG/ This is my first RWD site and is a work in progress. I have been testing it on emulators, google's "view responsive layouts", ipad, and it all works - albeit it's not done. I tried it finally on my iPhone
-
? Please help, thank you
-
How to add text to a polygon shape?
I created a triangle: <Polygon Name="triangle_top" Points="0,0 130,0, 130,130" Stroke="Black" /> I would like to add text to it without adding a label. how should I do it?
-
After installing 10.6, shutting down with my browser(Safari) open and external modem connected results in a kernel panic message and the shutdown is not completed. If I close Safari and disconnect the modem first before shutting down there is no prob