Report header user exit
Hi ABAB'ers
Does anyone know the spesific user exit used for getting data automatically for report header?
I mean FBL3N transaction. I want to get G/L account from-to and period from-to to report header. The figures for the header should come straight from the selection screen.
Thanks in advance!
refer to snote 325546. this explains how to enhance additional columns in cji3 report.
regards,
Similar Messages
-
On the Delivery header , in the processing tab , i need to change the delivery date to the current date . Can anyone tell the user exit that can be used to change the value before the delivery is displayed (vl02n) ??
I went to smod ( package VL) search , there are a bunch of them ?Hi,
Check these exits :
V02V0001 Sales area determination for stock transport order
V02V0002 User exit for storage location determination
V02V0003 User exit for gate + matl staging area determination (headr)
V02V0004 User Exit for Staging Area Determination (Item)
V50PSTAT Delivery: Item Status Calculation
V50Q0001 Delivery Monitor: User Exits for Filling Display Fields
V50R0001 Collective processing for delivery creation
V50R0002 Collective processing for delivery creation
V50R0004 Calculation of Stock for POs for Shipping Due Date List
V50S0001 User Exits for Delivery Processing
V53C0001 Rough workload calculation in time per item
V53C0002 W&S: RWE enhancement - shipping material type/time slot
V53W0001 User exits for creating picking waves
VMDE0001 Shipping Interface: Error Handling - Inbound IDoc
VMDE0002 Shipping Interface: Message PICKSD (Picking, Outbound)
VMDE0003 Shipping Interface: Message SDPICK (Picking, Inbound)
VMDE0004 Shipping Interface: Message SDPACK (Packing, Inbound)
BADI
DELIVERY_PUBLISH : Announcement of delivery data during database update
Regards
Appana -
Oracle Applications Report Mod & User Exits...
OK, here is an incredibly stupid question for y'all. I want to customize an existing Oracle Application report (gasp!). I've brought the .rdf file down to my PC and made my changes. I can run the report OK if I ftp it back to UNIX and run it through Oracle Applications...but I can't run it on my PC. It can't find the user exits.
Where can I find these user exits, and what must I do with them so I can run the report on my PC (from Report Builder)?
Thank you for any and all assistance!You need to get and install the applicaions software (but not the DB objects) for your PC (if it's available - depends on the OS), so that the apps user-exits are available.
Otherwise - stick to what you're doing. The advantage of this is that you see exactly how the report is going to look - there are porting issues between unix and win32 (eg fonts). This way you're testing on the target platform.
You could try posting your question to an appsnet discussion forum (http://appsnet.oracle.com) and see what other applications users do.
fyi, a lot of the user exits for apps are going away now that they're moving to Reports 6i as part of apps 11i. This is possible as we have included a lot of the functionality that they originally wrote as a user-exit, native in the product.
Regards
The Oracle Reports Team http://technet.oracle.com -
hi experts,
in our project we are not incorporating BADI technology for extractor enhancements due to known performance issues and now its decided that we will incorporate a simple ABAP technique using PERFORM ststement that will allow a program to dynamically called based on data source name.
now question is that:
1) what type of USEREXIT is recommended by SAP in such a problem explained above.
2)Is there any DATASOURCE or FUNCTION MODULE whose Data source name character exceeds 30 chars.
please ans me in terms of:
1) performance 2) memory and complexity.
thank you very much.Hi Check the links below :
http://knol.google.com/k/alfonzo-vega/sap-bi-global-report-variable-user-exit/2uo5n5fokb0ac/4#
http://it.toolbox.com/wiki/index.php/SAP_BI_Global_Report_Variable_user_exit_modularization
But the above links talks about Query level user exit modularization.
List of User Exits in SAP R/3 Enterprise 4.7:
http://www.erpgenie.com/abap/1395-list-of-user-exits-in-sap-r3-enterprise-47
Regards
Ram.
Edited by: Ramakanth Deepak Gandepalli on Dec 18, 2009 10:59 AM -
Hello Experts,
In transaction VX22n, there is a warning message that needs to be converted to an Error Message:- This is to restrict the transactional changes of the license.
With help of this transaction license changes can be made for block sales document( due to invalid license) and
only warning message appears for the same. This adaption should restrict the transactional changes in the T-code.
Can you please help me with what user exit should i use or any other ideas and tips on how to go about it?Maybe you can use one of the following enhancements (transaction SMOD):
VIMPPROP - User Exit: Proposal dato for import simulation
MVEIPREF - User exits - Preference determination
FTGOVSEL - Declarations to the authorities: User exit f. selection runs
RVEXAKK1 - Document Transaction: Screen Exit for Additional Data
RVEXAKK2 - Additional Customer-specific Lists / Reports
V50EPROP - User Exit: Foreign Trade Data Proposal in MM and SD
V55ECTRL - User Exit: Print Control in Foreign Trade Documents -
Dear all,
I'm looking for an user exit that will be actived during order save. However, it seems most exits just for check, I can not change any data.
The requirement is: if user save certain order, then field function area 'CAUFVD-FUNC_AREA' is filled automatically. This fiels in the order header.
Thanks,
BenHi,
Orders
User Exits BBPK0001
Description Exit for determining the external procurement profile
User Exits CNEX0013
Description Default item category for component assignment
User Exits CNEX0026
Description Customer enhancement for general inspection of material
User Exits CNEX0027
Description Customer enhancement: Plant, storage loc. finding for comp.
User Exits CNEX0037
Description Check new component
User Exits COCCA002
Description Customer Functions for Organizational Authorization Checks (SETTLEMENT)
User Exits COI20001
Description Changing of person found
User Exits COI20002
Description Alternative procurement of HR availability data
User Exits COOM0001
Description Customer Functions for Overhead Percentages
User Exits COOPA_01
Description Customer check modules for internal orders
User Exits COOPA002
Description Customer function for master data maintenance - internal orders
User Exits COOPA003
Description User-Defined Fields in the Order Master
User Exits COOPA004
Description Customer function: Print order master data
User Exits COPCP005 (see: 1, )
Description Material Costing: User exit for material valuation (strategy U)
User Exits CY190001
Description Capacity Planning: Change order operation
User Exits COZF0001
Description Change purchase req. for externally processed operation
User Exits COZF0002
Description Change purchase req. for externally procured component
User Exits CYPP0001
Description Change sequence criteria and sequencing
User Exits ICSV0001
Description Display of geographic location data
User Exits ICSV0002
Description Automatic task determination for service notifications
User Exits ICSV0003
Description Partner selection
User Exits ICSV0004
Description Check PM object and display object information
User Exits ICSV0005
Description Determining reason for rejection - resource-related billing
User Exits ICSV0008
Description Validation of additional partner types
User Exits IWMI0001
Description User exits for SM/PM IDOCs
User Exits IWO10001
Description Create a PM sub-order
User Exits IWO10002
Description Customer check for order release
User Exits IWO10004
Description Customer check for order completion
User Exits IWO10005
Description Customer specific determination of profit centre
User Exits IWO10006
Description FCode exclusion through customer enhancement
User Exits IWO10007
Description Customer enhancement - permits in the order
User Exits IWO10008
Description Customer enhancement: Determination of tax jurisdiction code
User Exits IWO10009
Description Customer Check for 'Save' Event
User Exits IWO10010
Description Customer enhancement for determining WBS element
User Exits IWO10011
Description Customer enhancement for component selection
User Exits IWO10012
Description Priority handling on central header
User Exits IWO10015
Description F4 Help for user fields on operation
User Exits IWO10016
Description Customer enhancement to check operation user fields
User Exits IWO10017
Description Determine external order number by customer logic
User Exits IWO10018
Description User fields on order header
User Exits IWO10020
Description Automatically include task list
User Exits IWO10021
Description Automatic task list transfer when creating order from notification
User Exits IWO10022
Description Determine calendar from user exit
User Exits IWO10023
Description Service order: Change header data for advance shipment document
User Exits IWO10024
Description Service order: Changes to items for advance shipment
User Exits IWO10025
Description Finding responsible cost centre
User Exits IWO10026
Description User check on setting status 'Do not perform'
User Exits IWO10027
Description User exit: Generate user-defined settlement rule
User Exits IWO10029
Description Inclusion of bill of material in PM/SM order
User Exits IWO10030
Description Predefining the fields for the profitability segment
User Exits IWO10031
Description Hide personnel number in PM/SM order
User Exits IWO10033
Description Customer-Specific Authorization Check PM/CS Order
User Exits IWO10034
Description Operation status based on the status of capacity requirements
User Exits IWO20001
Description User exit to pass routing/task list to order
User Exits IWOC0003
Description PM/SM authorization check of ref. object and planner group
User Exits M06B0002
Description Change communication structure for purchase requisition release
User Exits MGA00003
Description Material Master (Industry and Retail): Number Display
User Exits PPCO0001
Description Application development: PP orders
User Exits PPCO0005
Description Storage location/backflushing when order is created
User Exits PPCO0023
Description Checks changes to components
regards,
Venkatesan Anandan -
User Exit -- To include purchase requistion/purchase order in COOIS report
In a MTO envirnoment, trying to include purchase requistion/purchase order
with requested delivery date information in COOIS report. Is there a
user exit for this ?Hi,
Please follow this an Example:-
The COOIS report (Order Info System) gives the complete information regarding Production Order like header report, Operation report, Component Report, document report.
This document deals with the addition of extra fields in the output display of COOIS.
For the demo purpose, I have added the material group (MATKL) for the production order material for header report.
BADI Name: WORKORDER_INFOSYSTEM
Method: TABLES_MODIFY_LAY
In the method TABLES_MODIFY_LAY there are many table parameters for different data display of the production order .In this scenario only the header detail structure is being extended with append structure.
Add the extra fields to be displayed to through append structure to IOHEADER_TAB, here MATKL.
In the method write the code for updating the field value.
DATA : BEGIN OF st_matkl,
matkl TYPE matkl,
END OF st_matkl.
DATA : st_header TYPE ioheader.
LOOP AT ct_ioheader INTO st_header.
IF NOT st_header IS INITIAL.
SELECT SINGLE matkl
FROM mara
INTO st_matkl
WHERE matnr = st_header-matnr.
ENDIF.
st_header-matkl = st_matkl-matkl.
MODIFY ct_ioheader FROM st_header.
ENDLOOP.
Regards,
Ravi -
User exit---to capture SO header text
Hi all,
Requirement is to maintain SO header texts (va02>goto>header-->texts) in a z table (i.e, acceptance numbers..like remark1, remark2,3 and 4).
plz guide me from which structure we can capture this value..i mean runtime structure..
I can use user-exit..MV45AFZZ--->userexit_delete_document
or any otherwayz..?Hi Tuborg,
Use Function module READ_TEXT.
or u can follow the program.
I think it will help u to fulfill ur requirement.
*& Report ZSO_TEXT_CHANGE
REPORT zso_text_change.
TABLES : vbak,
vbap,
cfstructur.
DATA : BEGIN OF itab OCCURS 0,
vbeln LIKE vbak-vbeln,
posnr LIKE vbap-posnr,
text1(30),
text2(30),
text3(20),
END OF itab.
DATA : name LIKE stxh-tdname,
l_tid LIKE stxh-tdid,
obj LIKE stxh-tdid.
*& CUSTOM CONTROL DATA DECLARATIONS
DATA: init,
container1 TYPE REF TO cl_gui_custom_container,
container2 TYPE REF TO cl_gui_custom_container,
container3 TYPE REF TO cl_gui_custom_container,
editor1 TYPE REF TO cl_gui_textedit,
editor2 TYPE REF TO cl_gui_textedit,
editor3 TYPE REF TO cl_gui_textedit.
DATA: event_tab TYPE cntl_simple_events,
event TYPE cntl_simple_event.
data declarations for save long text
TYPES: BEGIN OF type_text ,
line(65),
END OF type_text.
DATA:text_tab1 TYPE STANDARD TABLE OF type_text,
text_tab2 TYPE STANDARD TABLE OF type_text,
text_tab3 TYPE STANDARD TABLE OF type_text,
texttab1 LIKE LINE OF text_tab1,
texttab2 LIKE LINE OF text_tab1,
texttab3 LIKE LINE OF text_tab1,
line(256) TYPE c,
field LIKE line,
lsel LIKE sy-lisel,
lsel1 LIKE sy-lisel,
lin LIKE sy-lilli,
val(50),
val_c(50),
val_scr(50),
scr_val(50),
val1(6),
l_posnr LIKE vbap-posnr,
l_posnr1 LIKE vbap-posnr,
l_text1(30),
l_vbeln LIKE vbap-vbeln.
DATA: textlines LIKE tline-tdline OCCURS 0.
DATA: ls_thead LIKE thead.
DATA: lt_tline1 LIKE TABLE OF tline WITH HEADER LINE,
lt_tline2 LIKE TABLE OF tline WITH HEADER LINE,
lt_tline3 LIKE TABLE OF tline WITH HEADER LINE.
DATA BEGIN OF header OCCURS 10.
INCLUDE STRUCTURE thead.
DATA END OF header.
DATA: gcontrol LIKE cfcontrol,
l_subrc LIKE sy-subrc.
DATA: BEGIN OF pc_tab OCCURS 10,
line LIKE tline-tdline,
END OF pc_tab.
DATA: BEGIN OF pc_tab1 OCCURS 10,
line LIKE tline-tdline,
END OF pc_tab1.
DATA: long_file(23) TYPE c.
PARAMETERS : vbeln LIKE vbak-vbeln OBLIGATORY.
SELECT-OPTIONS : posnr FOR vbap-posnr.
INITIALIZATION.
CLEAR : pc_tab.
REFRESH pc_tab.
START-OF-SELECTION.
SELECT vbeln posnr
FROM vbap
INTO TABLE itab
WHERE vbeln = vbeln
AND posnr IN posnr.
LOOP AT itab.
itab-text1 = 'Material sales text'.
itab-text2 = 'Technical Specifications'.
itab-text3 = 'Packing Note'.
MODIFY itab TRANSPORTING text1 text2 text3.
ENDLOOP.
END-OF-SELECTION.
WRITE: /5 'Header Level Text' COLOR 5.
SKIP 3.
WRITE: /5 'General Remarks in Amendment',
/5 'General Specifications',
/5 'Instructions to Accounts ',
/5 'Instructions to Product Engg',
/5 'Instructions to Electrical ',
/5 'Instructions to Service ',
/5 'Instructions to Despatch ',
/5 'Instructions to Works ',
/5 'Instructions to MMD ',
/5 'Instructions to OED ',
/5 'Instructions to Project Markt',
/5 'Painting Details ',
/5 'Docs. Reqd. for Insp. Call ',
/5 'Docs. to be sent with Invoice ',
/5 'Spl action plan for SO Exec',
/5 'Spl. Inst. for record keeping ',
/5 'Customer Comm. Address ',
/5 'Customer Supplied Products ',
/5 'Cust. prods/traceability reqts ',
/5 'Qualification Tests ',
/5 'Instrument Calib. data to Cust ',
/5 'Test Cert. reqd. for submisn ',
/5 'Customer Inspection Stages ',
/5 'Un resolved points ',
/5 'Regret Reason ',
/5 'Terms of payment ',
/5 'Additional Commercial Terms ',
/5 'Escalation',
/5 'Mode of Despatch Details ',
/5 'Packing Details ',
/5 'QAP Details ',
/5 'Approved Transporters ',
/5 'Eye Catch ',
/5 'LOI Details ',
/5 'Delivery Details ',
/5 'Order Description ',
/5 'Penalty / LD Clause ',
/5 'Activity Completion Schedule ',
/5 'Inspection Details',
/5 'Checked By ',
/5 'Authorised By',
/5 'Distribution',
/5 'Send Original&Dupl. Inv. to',
/5 'Send Copies of Inv.&Challan to ',
/5 'Send R/R & L/R to',
/5 'Bankers Name & Address',
/5 'Sales Tax Details',
/5 'Excise Duty Details',
/5 'CST Number & Date',
/5 'SST Number & Date',
/5 'Bank Charges Details',
/5 'Price Basis Details',
/5 'Freight Details',
/5 'Customer Collection Details',
/5 'Road Permit Details',
/5 'Insurance Details'.
SKIP 5.
WRITE: /25 'Item Level Text' COLOR 5.
ULINE AT /24(20).
SKIP 3.
LOOP AT itab.
WRITE: /5 itab-posnr.
l_text1 = 'Technical Specifications'.
WRITE : 20 l_text1.
CLEAR l_text1.
l_text1 = 'Material sales text'.
WRITE : 50 l_text1.
CLEAR l_text1.
l_text1 = 'Packing Note'.
WRITE : 80 l_text1.
HIDE : l_text1.
ENDLOOP.
CLEAR itab.
AT LINE-SELECTION.
CLEAR : lsel, lsel1.
REFRESH text_tab2.
lsel = sy-lisel.
SHIFT lsel LEFT DELETING LEADING space.
l_posnr = lsel+0(6).
val1 = l_posnr.
lin = sy-lilli.
READ LINE lin FIELD VALUE itab-text1 .
GET CURSOR FIELD l_text1 VALUE val.
val_c = val.
IF l_posnr IS NOT INITIAL.
IF val = val1.
MESSAGE s398(00) WITH 'Select a Item text'.
ELSE.
PERFORM itab_text.
CALL SCREEN 0100.
ENDIF.
ELSEIF l_posnr IS INITIAL.
PERFORM read_text.
CALL SCREEN 0100.
ENDIF.
*& Module STATUS_0100 OUTPUT
text
MODULE status_0100 OUTPUT.
SET PF-STATUS 'ZMENU'.
SET TITLEBAR 'xxx'.
IF l_posnr IS NOT INITIAL.
CLEAR val_scr.
CONCATENATE l_posnr '-' val INTO val_scr SEPARATED BY space.
scr_val = val_scr.
ELSE.
scr_val = val.
ENDIF.
CLEAR :val_scr,l_posnr,val.
INITIALIZING TEXT EDIT CUSTOM CONTROL
IF init IS INITIAL.
init = 'X'.
CREATE OBJECT: container1 EXPORTING container_name = 'CUSTOM1',
editor1 EXPORTING parent = container1
WORDWRAP SET SO THAT TEXT DOES NOT EXCEED THE INTERNAL TABLE FIELD
*LENGTH.
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_mode = cl_gui_textedit=>wordwrap_at_windowborder
wordwrap_position = '60'
wordwrap_to_linebreak_mode = cl_gui_textedit=>true,
container2 EXPORTING container_name = 'CUSTOM2',
editor2 EXPORTING parent = container2
wordwrap_mode = cl_gui_textedit=>wordwrap_at_fixed_position
wordwrap_mode = cl_gui_textedit=>wordwrap_at_windowborder
wordwrap_position = '60'
wordwrap_to_linebreak_mode = cl_gui_textedit=>true.
CALL METHOD editor1->set_text_as_r3table
EXPORTING
table = text_tab1.
CALL METHOD editor2->set_text_as_r3table
EXPORTING
table = text_tab2.
CALL METHOD editor1->delete_text.
CALL METHOD editor2->delete_text.
ELSE.
CALL METHOD editor2->delete_text.
ENDIF.
CALL METHOD editor1->set_text_as_r3table
EXPORTING
table = text_tab1.
CALL METHOD editor2->set_text_as_r3table
EXPORTING
table = text_tab2.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
text
MODULE user_command_0100 INPUT.
CASE sy-ucomm.
WHEN 'DOWNLOAD'.
PERFORM header1.
PERFORM header.
PERFORM download ."changing COM_FILE LIKE LONG_FILE.
WHEN 'SAVE'.
PERFORM header1.
PERFORM header.
WHEN 'BACK' OR 'EXIT' OR 'CANCEL'.
SET SCREEN 0.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Form read_text1
text
--> p1 text
<-- p2 text
FORM read_text1 USING p_l_tid.
CLEAR : lt_tline1.
REFRESH text_tab1.
l_tid = p_l_tid.
name = vbeln.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = p_l_tid
language = 'E'
name = name
object = 'VBBK'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
lines = lt_tline1
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
EXIT.
ENDIF.
LOOP AT lt_tline1 .
move-corresponding lt_tline1 to TEXT_tab1.
APPEND lt_tline1-tdline TO text_tab1 .
move '/' to lt_tline3-tdformat.
ENDLOOP.
REFRESH text_tab2.
ENDFORM. " read_text1
*& Form read_text
text
--> p1 text
<-- p2 text
FORM read_text .
CASE lsel.
WHEN 'General Remarks in Amendment'.
PERFORM read_text1 USING 'Z070'.
WHEN 'General Specifications'.
PERFORM read_text1 USING 'Z001'.
WHEN 'Instructions to Accounts'.
PERFORM read_text1 USING 'Z002'.
WHEN 'Instructions to Product Engg'.
PERFORM read_text1 USING 'Z003'.
WHEN 'Instructions to Electrical'.
PERFORM read_text1 USING 'Z004'.
WHEN 'Instructions to Service'.
PERFORM read_text1 USING 'Z005'.
WHEN 'Instructions to Despatch'.
PERFORM read_text1 USING 'Z006'.
WHEN 'Instructions to Works'.
PERFORM read_text1 USING 'Z007'.
WHEN 'Instructions to MMD'.
PERFORM read_text1 USING 'Z008'.
WHEN 'Instructions to OED'.
PERFORM read_text1 USING 'Z009'.
WHEN 'Instructions to Project Markt'.
PERFORM read_text1 USING 'Z037'.
WHEN 'Painting Details'.
PERFORM read_text1 USING 'Z010'.
WHEN 'Docs. Reqd. for Insp. Call'.
PERFORM read_text1 USING 'Z011'.
WHEN 'Docs. to be sent with Invoice'.
PERFORM read_text1 USING 'Z012'.
WHEN 'Spl action plan for SO Exec'.
PERFORM read_text1 USING 'Z013'.
WHEN 'Spl. Inst. for record keeping'.
PERFORM read_text1 USING 'Z014'.
WHEN 'Customer Comm. Address'.
PERFORM read_text1 USING 'Z015'.
WHEN 'Customer Supplied Products'.
PERFORM read_text1 USING 'Z016'.
WHEN 'Cust. prods/traceability reqts'.
PERFORM read_text1 USING 'Z017'.
WHEN 'Qualification Tests'.
PERFORM read_text1 USING 'Z018'.
WHEN 'Instrument Calib. data to Cust'.
PERFORM read_text1 USING 'Z019'.
WHEN 'Test Cert. reqd. for submisn '.
PERFORM read_text1 USING 'Z020'.
WHEN 'Customer Inspection Stages '.
PERFORM read_text1 USING 'Z021'.
WHEN 'Un resolved points '.
PERFORM read_text1 USING 'Z022'.
WHEN 'Regret Reason '.
PERFORM read_text1 USING 'Z023'.
WHEN 'Terms of payment '.
PERFORM read_text1 USING 'Z120'.
WHEN 'Previous Sales Order '.
PERFORM read_text1 USING 'Z040'.
WHEN 'Escalation'.
PERFORM read_text1 USING 'Z041'.
WHEN 'Mode of Despatch Details '.
PERFORM read_text1 USING 'Z042'.
WHEN 'Packing Details '.
PERFORM read_text1 USING 'Z043'.
WHEN 'QAP Details '.
PERFORM read_text1 USING 'Z044'.
WHEN 'Approved Transporters '.
PERFORM read_text1 USING 'Z045'.
WHEN 'Eye Catch '.
PERFORM read_text1 USING 'Z046'.
WHEN 'LOI Details '.
PERFORM read_text1 USING 'Z047'.
WHEN 'Delivery Details '.
PERFORM read_text1 USING 'Z048'.
WHEN 'Order Description '.
PERFORM read_text1 USING 'Z049'.
WHEN 'Penalty / LD Clause '.
PERFORM read_text1 USING 'Z050'.
WHEN 'Activity Completion Schedule '.
PERFORM read_text1 USING 'Z051'.
WHEN 'Inspection Details '.
PERFORM read_text1 USING 'Z052'.
WHEN 'Checked By '.
PERFORM read_text1 USING 'Z053'.
WHEN 'Authorised By '.
PERFORM read_text1 USING 'Z054'.
WHEN 'Distribution '.
PERFORM read_text1 USING 'Z055'.
WHEN 'Send Original&Dupl. Inv. to '.
PERFORM read_text1 USING 'Z056'.
WHEN 'Send Copies of Inv.&Challan to '.
PERFORM read_text1 USING 'Z057'.
WHEN 'Send R/R & L/R to '.
PERFORM read_text1 USING 'Z058'.
WHEN 'Bankers Name & Address '.
PERFORM read_text1 USING 'Z059'.
WHEN 'Sales Tax Details '.
PERFORM read_text1 USING 'Z060'.
WHEN 'Excise Duty Details '.
PERFORM read_text1 USING 'Z061'.
WHEN 'CST Number & Date '.
PERFORM read_text1 USING 'Z062'.
WHEN 'SST Number & Date '.
PERFORM read_text1 USING 'Z063'.
WHEN 'Bank Charges Details '.
PERFORM read_text1 USING 'Z064'.
WHEN 'Price Basis Details '.
PERFORM read_text1 USING 'Z065'.
WHEN 'Freight Details '.
PERFORM read_text1 USING 'Z066'.
WHEN 'Customer Collection Details '.
PERFORM read_text1 USING 'Z067'.
WHEN 'Road Permit Details '.
PERFORM read_text1 USING 'Z068'.
WHEN 'Insurance Details '.
PERFORM read_text1 USING 'Z069'.
ENDCASE.
ENDFORM. " read_text
*& Form itab_text
text
--> p1 text
<-- p2 text
FORM itab_text .
LOOP AT itab WHERE posnr = posnr.
IF itab-posnr = lsel.
CASE lsel.
WHEN lsel.
READ TABLE itab WITH KEY posnr = l_posnr.
lsel1 = l_posnr.
l_posnr1 = l_posnr.
SHIFT lsel1 LEFT DELETING LEADING space.
CONCATENATE itab-vbeln lsel1 INTO lsel1.
CASE val.
WHEN 'Material sales text'.
PERFORM read_text2 USING '0001'.
WHEN 'Technical Specifications'.
PERFORM read_text2 USING 'Z001'.
WHEN 'Packing Note'.
PERFORM read_text2 USING 'Z005'.
ENDCASE.
ENDIF.
ENDLOOP.
ENDFORM. " itab_text
*& Form read_text2
text
-->P_LSEL text
FORM read_text2 USING p_lsel.
CLEAR : lt_tline1.
REFRESH text_tab1.
CLEAR name.
CLEAR obj.
DATA : name LIKE stxh-tdname.
name = lsel1.
obj = p_lsel.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = p_lsel
language = 'E'
name = name
object = 'VBBP'
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
TABLES
lines = lt_tline1
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8
IF sy-subrc <> 0.
CLEAR lsel1.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
EXIT.
ENDIF.
LOOP AT lt_tline1 .
move-corresponding lt_tline1 to TEXT_tab1.
APPEND lt_tline1-tdline TO text_tab1 .
move '/' to lt_tline3-tdformat.
ENDLOOP.
ENDFORM. " read_text2
*& Form save_text
text
--> p1 text
<-- p2 text
FORM save_text1 ."USING p_l_tid.
CALL METHOD editor2->get_text_as_r3table
IMPORTING
table = text_tab2.
CLEAR lt_tline2.
REFRESH lt_tline2.
MOVE '*' TO lt_tline2-tdformat.
LOOP AT text_tab2 INTO texttab2.
MOVE texttab2 TO lt_tline2-tdline.
APPEND lt_tline2.
MOVE '/' TO lt_tline2-tdformat.
ENDLOOP.
HEADER-TDOBJECT = 'VBBK'.
HEADER-TDNAME = p_l_tid.
HEADER-TDID = 'ZTC1'.
HEADER-TDSPRAS = 'EN'.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
header = header
INSERT = ' '
savemode_direct = 'X'
OWNER_SPECIFIED = ' '
LOCAL_CAT = ' '
IMPORTING
FUNCTION =
newheader = ls_thead
TABLES
lines = lt_tline2.
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5 .
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSEIF sy-subrc = 0.
MESSAGE i398(00) WITH 'Text Saved'.
ENDIF.
ENDFORM. " save_text1
*& Form header
text
--> p1 text
<-- p2 text
FORM header .
PERFORM save_text1 .
ENDFORM. " header
*& Form header1
text
--> p1 text
<-- p2 text
FORM header1 .
IF lsel1 IS NOT INITIAL.
CLEAR header.
REFRESH header.
header-tdobject = 'VBBP'.
header-tdname = name.
header-tdid = obj.
header-tdspras = 'EN'.
APPEND header.
ELSEIF lsel1 IS INITIAL.
CLEAR header.
REFRESH header.
header-tdobject = 'VBBK'.
header-tdname = vbeln.
header-tdid = l_tid.
header-tdspras = 'EN'.
APPEND header.
ENDIF.
ENDFORM. " header1
*& Form download
text
--> p1 text
<-- p2 text
FORM download ."CHANGING .
DATA : dcp_file LIKE long_file.
DATA fullpath TYPE string.
l_vbeln = vbeln.
SHIFT l_vbeln LEFT DELETING LEADING '0'.
concatenate 'C:\' l_vbeln '.txt' into gcontrol-directory.
CONCATENATE 'C:\' l_vbeln '.doc' INTO fullpath.
gcontrol-directory
= 'C:\Text.txt'.
= 'C:\Documents and Settings\Subhasis Mukherjee\Desktop\Text.txt'.
CLEAR pc_tab.
REFRESH pc_tab.
IF l_posnr1 IS NOT INITIAL.
CONCATENATE l_posnr1 '-' val_c INTO val_c SEPARATED BY space.
ENDIF.
pc_tab = val_c.
APPEND pc_tab.
pc_tab = 'Previous Text'.
APPEND pc_tab.
DO 2 TIMES.
pc_tab = ''.
APPEND pc_tab.
ENDDO.
LOOP AT text_tab1 INTO texttab1.
IF sy-tabix = 1.
IF l_posnr IS NOT INITIAL.
CONCATENATE l_posnr '-' val INTO val SEPARATED BY space.
ENDIF.
pc_tab = val.
APPEND pc_tab.
pc_tab = 'Previous Text'.
APPEND pc_tab.
DO 2 TIMES.
pc_tab = ''.
APPEND pc_tab.
ENDDO.
ENDIF.
pc_tab = texttab1-line.
APPEND pc_tab.
AT LAST.
pc_tab = '***************************'.
APPEND pc_tab.
ENDAT.
ENDLOOP.
LOOP AT text_tab2 INTO texttab2.
CLEAR pc_tab.
IF sy-tabix = 1.
DO 3 TIMES.
pc_tab = ''.
APPEND pc_tab.
ENDDO.
pc_tab = 'Changed Text'.
APPEND pc_tab.
DO 2 TIMES.
pc_tab = ''.
APPEND pc_tab.
ENDDO.
ENDIF.
pc_tab = texttab2-line.
APPEND pc_tab.
AT LAST.
pc_tab = '- - - - - - - - - - - - - - - - - - - - - - - - - - - '.
APPEND pc_tab.
ENDAT.
ENDLOOP.
CALL FUNCTION 'GUI_FILE_SAVE_DIALOG'
EXPORTING
window_title = 'Path'
default_extension = 'C:\'
default_file_name = 'TEST.XLS'
IMPORTING
fullpath = fullpath.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filename = fullpath
filetype = 'ASC'
append = 'X'
TABLES
data_tab = pc_tab
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
MESSAGE s001(00) WITH 'File downloaded successfully'.
ENDIF.
ENDFORM. " download
Reward points pls if it is helpfull
Regards
Srimanta -
To find a user exit which update the Invoice header data
Hi,
I need a user exit which will update the invoice header data. For eg I need to update the fields RBKP_V-ESRNR and RBKP_V-ESRRE in table RBKP_V. I was using this user exit EXIT_SAPLMRMP_010 (Program ZXM08U16).But this is not working fine as this has no exporting parameter nor tables of structure RBKP_V.
I need for transaction MIRO.
Kindly help ...
Points will be rewarded
Thanks in advanceHi jayasree,
with the help of the below given program you can find out the requried user exit by giving the T code (MIRO).
*& Report Z_USEREXIT_DISPLAY *
Title : Display UserExits *
Transport Request No : *
Modification Log *
ModNo Date Consultant Description of Change(s) *
REPORT z_userexit_temp
NO STANDARD PAGE HEADING
LINE-SIZE 200
MESSAGE-ID zz.
T A B L E D E C L A R A T I O N S *
TABLES: tftit,
e071,
e070.
S T R U C T U R E D E C L A R A T I O N S *
TYPES: BEGIN OF x_tstc,
tcode TYPE tcode,
pgmna TYPE program_id,
END OF x_tstc.
TYPES: BEGIN OF x_tadir,
obj_name TYPE sobj_name,
devclass TYPE devclass,
END OF x_tadir.
TYPES: BEGIN OF x_slog,
obj_name TYPE sobj_name,
END OF x_slog.
TYPES: BEGIN OF x_final,
name TYPE smodname,
member TYPE modmember,
include(15), "Include name
END OF x_final.
I N T E R N A L T A B L E D E C L A R A T I O N S *
DATA: it_tstc TYPE STANDARD TABLE OF x_tstc WITH HEADER LINE.
DATA: it_tadir TYPE STANDARD TABLE OF x_tadir WITH HEADER LINE.
DATA: it_jtab TYPE STANDARD TABLE OF x_slog WITH HEADER LINE.
DATA: it_final TYPE STANDARD TABLE OF x_final WITH HEADER LINE.
V A R I A B L E S D E C L A R A T I O N S *
U S E R I N P U T S S C R E E N *
S E L E C T I O N S C R E E N *
SELECTION-SCREEN: BEGIN OF BLOCK blk01 WITH FRAME TITLE text-t01.
PARAMETERS: p_tcode LIKE tstc-tcode OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk01.
S t a r t o f S e l e c t i o n *
START-OF-SELECTION.
PERFORM get_tcodes. "Get Tcodes
PERFORM get_objects. "Get Objects
E n d o f S e l e c t i o n *
END-OF-SELECTION.
PERFORM display_results. "Display Results
*& Form get_tcodes
Get Tcodes
FORM get_tcodes.
SELECT tcode
pgmna
INTO TABLE it_tstc
FROM tstc
WHERE tcode = p_tcode.
IF sy-subrc = 0.
SORT it_tstc BY tcode.
ENDIF.
ENDFORM. " get_tcodes
*& Form get_objects
Get Objects
FORM get_objects.
DATA: l_fname LIKE rs38l-name,
l_group LIKE rs38l-area,
l_include LIKE rs38l-include,
l_namespace LIKE rs38l-namespace,
l_str_area LIKE rs38l-str_area.
DATA: v_include LIKE rodiobj-iobjnm.
DATA: e_t_include TYPE STANDARD TABLE OF abapsource WITH HEADER LINE.
DATA: l_line TYPE string,
l_tabix LIKE sy-tabix.
IF NOT it_tstc[] IS INITIAL.
SELECT obj_name
devclass
INTO TABLE it_tadir
FROM tadir FOR ALL ENTRIES IN it_tstc
WHERE pgmid = 'R3TR' AND
object = 'PROG' AND
obj_name = it_tstc-pgmna.
IF sy-subrc = 0.
SORT it_tadir BY obj_name devclass.
SELECT obj_name
INTO TABLE it_jtab
FROM tadir FOR ALL ENTRIES IN it_tadir
WHERE pgmid = 'R3TR' AND
object = 'SMOD' AND
devclass = it_tadir-devclass.
IF sy-subrc = 0.
SORT it_jtab BY obj_name.
ENDIF.
ENDIF.
ENDIF.
*- Get UserExit names
LOOP AT it_jtab.
SELECT name
member
INTO (it_final-name, it_final-member)
FROM modsap
WHERE name = it_jtab-obj_name AND
typ = 'E'.
APPEND it_final.
CLEAR it_final.
ENDSELECT.
ENDLOOP.
*- Process it_final contents.
LOOP AT it_final.
l_tabix = sy-tabix.
CLEAR: l_fname,
l_group,
l_include,
l_namespace,
l_str_area.
l_fname = it_final-member.
CALL FUNCTION 'FUNCTION_EXISTS'
EXPORTING
funcname = l_fname
IMPORTING
group = l_group
include = l_include
namespace = l_namespace
str_area = l_str_area
EXCEPTIONS
function_not_exist = 1
OTHERS = 2.
IF sy-subrc = 0.
IF NOT l_include IS INITIAL.
*- Get Source code of include.
CLEAR: v_include, e_t_include, e_t_include[].
v_include = l_include.
CALL FUNCTION 'MU_INCLUDE_GET'
EXPORTING
i_include = v_include
TABLES
e_t_include = e_t_include.
IF sy-subrc = 0.
LOOP AT e_t_include.
IF e_t_include-line CS 'INCLUDE'.
CLEAR l_line.
l_line = e_t_include-line.
CONDENSE l_line NO-GAPS.
TRANSLATE l_line USING '. '.
l_line = l_line+7(9).
it_final-include = l_line.
MODIFY it_final INDEX l_tabix TRANSPORTING include.
ENDIF.
ENDLOOP.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
ENDFORM. " get_objects
*& Form display_results
Display Results
FORM display_results.
FORMAT COLOR COL_HEADING.
WRITE:/1(150) sy-uline.
WRITE:/ sy-vline,
2(23) 'Extension Name',
24 sy-vline,
25(39) 'Exit Name',
64 sy-vline,
65(74) 'Description',
140 sy-vline,
141(9) 'Include',
150 sy-vline.
WRITE:/1(150) sy-uline.
FORMAT RESET.
SORT it_final BY name member.
LOOP AT it_final.
CLEAR tftit.
SELECT SINGLE stext
INTO tftit-stext
FROM tftit
WHERE spras = 'EN' AND
funcname = it_final-member.
WRITE:/ sy-vline,
it_final-name COLOR COL_KEY, 24 sy-vline,
25 it_final-member, 64 sy-vline,
65 tftit-stext, 140 sy-vline,
141 it_final-include, 150 sy-vline.
WRITE:/1(150) sy-uline.
ENDLOOP.
Regards
Srinivas -
Sub:find out the user exit report for any tc
Hi,
i want to find out the user exit report for any tc
Thanks,
jayarajHi,
Pls go through it the following coding. It will helps u.
*& Report YMS_USEREXITTEST *
REPORT YMS_USEREXITTEST 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.
-End of Program-
Thanks,
Shankar -
User exit for Dlvy Block at header for sales order for Companycode & materl
Hi all,
I have a requirement. I need to apply a Delivery Block for all sales orders which fall
In a particualr company code "999" and if they have any configurable material in the item level.
When a Sales Order is generated, during the process of generation, I should
Write a loigc such that, if the sales orders fall in a particlar company code
Say for '999' and if they have a configurable material at item level,
I have to trigger an ABAP Proxy that goes and fetches a Yes/No value from an
External system. Based on this Flag value I h ave to then apply a delivery block for
The order at header level.
So I assume, I should put a logic in some user exit that gets triggered before order is saved.
And in that user exit I have to check if the Company Code of that order is '999' and if it has
Configurable product or not. If it satisfies the 2 conditions, I should, trigger this ABAP Proxy and
Based on the true/False value I have to set Delivery Block or do not set delivery block for the order
At header level.
So I think first I should figure out following things.
1) user exit ..where I should put the code to check conditions and to apply delivery block.
2) write a proxy and trigger that proxy in this user exit.
Coming to first part, which user exit should I use to set delivery block for the order
At header level. And how will I check for company code and config product?
Which variables of the SAP stnd pgm store Company Code and Config product values so that
I can check those variables for that values?
Please suggest and help me with this.
Any help will be highly appreciated.
Regards,
Sam1)go to the main program sapmv45a
include MV45AFZZ ->userexit_move_field_to_vbak
depending on ur conditions ...
keep a break-point in the form userexit_move_field_to_vbak ,and if it stops there Check for vbak-lifsk .
Write a condition to set the deliveryblock that is vbak-lifsk = 'xx'.
2)then regarding your second point ...what is the middle ware used to interact with legacy system
let me know -
User exit for requested delivery date at SO header
Hi Experts,
Trying to find a user exit which can be used to calculate the default requested delivery date in the order header based on the current date and the lead-time in the route.
By default, In SO header, requested delivery date is system date.
On based some conditions, i need to add lead time in current date and finally this date should be populated instead of current date in requested delivery date field .
The RDD( requested delivery date ) determination should happen only for some order types and for some sales organization & Distribution Channel.
Thanks,
satendra pateriaHi Ravi,
Thanks for input.
I neee one more favour on enhancement for automatically batch determination.
In SO item level, when one item is given and press Enter automatically Batch getting popualted.
I need to check Batch Expiry date and if it got expired then need to display a error message.
As of now i got one user exit EXIT_SAPMM07M_010.
And Batch validation should be happened only for some order types and some Sale Org + Distribution
channel.
Thanks,
satendra -
BADI/User Exit suggestion - for determining Partner in PO header
Hi All,
I want to be able to automatically populate and determine a manual partner function within the header of a purchase order creation.
Example, when PO is allocated against account assignment 'P' then go to the WBS element assigned and retrieve the specific partner number for partner function type XX. Then populate this into the relevant header partner function of the PO.
Any ideas of which BADI/User exit could be used in ME21N?
Thanks
SteveHi Steve
Before going to search the UserExit/BADI, please remember your account assignment will be at item level and the partner will be at Header level.If you have number of line items with different account asssginments or different WBS elements under account assignment P, it is difficult to determine the partner functional at Header level.Please think on how can you build logic? There are number of BADI/Exits available for Purchase order.
Regards
Ramakrishna -
PPCO0007 User Exit for Changing Header Fields During Order (CO40)
.. Hi !!!!
I need your help or suggestions,
I need to change the standar order before to save, i found the user exit PPCO0007,
i assign the new value for the order, but when finish the fuction, EXIT_SAPLCOZV_001, the new values are
lost, and finally the system set the standard order.
Someona know how can change the order and the the batch.
Thanks
Noemí HuertaHi Noemi
You can use the enchancement PPCO0007 (exit when the production order is saved).
Use the function module EXIT_SAPLCOZV_001 (User Exit for Checking or Changing Header Fields During Order Save) to update the field priority starting the information in the material-customer info record. -
BADI-User exit required for updating Purchase order header field -IHREZ
Hello All,
We have requirement in our business to update the purchase order header field "our reference" EKKO-IHREZ with some text field. We need a BADI/user exit that can be used for updating this field . We have checked the BADI ME_PROCESS_PO_CUST and unfortunately we are not able to use this BADI as it getting triggered in enjoy SAP transactions ME21N , ME22N etc. We are not creating the purchase order manually and we are using ME59N for creating Purchase order . Hence we are looking for some user exit/BADI that can be used in ME59N for updating the purchase order header field IHREZ.
Thanks in advance for your immediate response .
With regards,
Joseph Anand BTRY using the exist u2022 EXIT_SAPLME59_001
You can also later on add this field by BAPI_PO_CHANGE
Maybe you are looking for
-
Problem in Exporting FAGLB03 report in Excel
Hi, We have recently done upgrade from ECC 5. to ECC 6.0, first we have the problem related to When we download data to Excel in MHTML format it is adding additional zeros to all the total / sub total lines. But when I download it to excel it is not
-
Adobe pdf printer save dialog box opens in the background - progress bar shows Not Responding
I have two users who have Acrobat X Pro version 10.1.4 that are experiencing the same things. First, one person just changed laptops and the new one has a fresh Windows 7 Enterprise X64 image and new installation of Adobe Acrobat X Pro. When he use
-
Older verizon had an add on to show ip address of page. How do I reinstall in version 6.0?
Older versions of Firefox had an add on that would show the ip address of the page being viewed as a security feature. How do I reinstall this add on in Version 6.0 of Firefox?
-
Can I use a prezzy card to purchase apps?
Is it possible to use a 'prezzy card' to purchase apps?
-
Gigaworks s700 blinking powerlight
Well title says it all. I have searched the boards. Only thing I have found was to basically return the subwoofer. This isn't gonna happen I'm out of warranty. And I'm not gonna put any more money into these speakers. Creative tech service is junk...