Badi implementaion for BADI_SD_SLS_PRINT01

Hellow Sap Experts,
How can i implement the BADI_SD_SLS_PRINT01, for pre approval for invoice insterd dmr(Debit memo request )
Regards
Chandu.

Este,
I have few userexit you can try. But i am not sure which one suit your needs .
VF01:
Exit Name Description
J_3RSINV Export sales
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
VF02:
Exit Name Description
J_3RSINV Export sales
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
aRs
Points are always welcome
Message was edited by:
a®

Similar Messages

BADI implementation for NOTIF_EVENT_POST not getting triggered

Hi All,
We have created an implementaion for the NOTIF_EVENT_POST. And it was working fine previously. Now it is not working for some reason. In fact issue is that the implemetation is not getting triggerd at all. I have put a BREAK-POINT statement in the code, but does not even goes into the code.
I have checked all the properties. It is active. The table V_EXT_IMP has a entry corresponding to the BADI definition and implementation.
I tried to debug the standard transaction IW52 (which uses this). The program runs till the FM call for CL_EXITHANDLER=>GET_INSTANCE. It created a instance also. But it does not get inside the call for the method of the BADI LR_BADI_INST->CHECK_DATA_AT_POST.
I am at a fix now. Can somebody answer this issue? It would be very helpful.
Regards
Barada.
Edited by: Baradakanta Swain on Aug 5, 2008 4:06 PM

I did not get the issue with the BADI implementation. But as our time line was very tight, we moved the code to BTE event for Updating Notifications.
This required a little tweaking of the code and now it is working.
I am marking it ANSWERED so as to remove it from the list of unanswered questions.
Regards
Barada

BAdI UC_DATATRANSFER for BCS Mapping in "Load from Data Stream" method

Hello Everyone,
I need some help on finishing up the code for the UC_DATATRANSFER BAdI.
I have looked up in the SDN and other places, but could not get comprehensive breakdown of documentation except for the "F1" documentation available on the BAdI.
So, any help would be appreciated.
The Steps so far completed,
1. Have activated the BAdI and have created the filter value for the BAdI.
2. After the BAdI has been activated, I was able to go into the MAP method and have written the logic for profit center derivation from consolidation hierarchy.
The issue is there are four components for the Map method,
IT_DATA_SOURCE
IS_DATA_TARGET
ES_DATA_TARGET
ET_DATA_TARGET
The data is available from Source system in the table IT_DATA_SOURCE.
But this is not changeable as it is "Importing" type. Whereas the actual ET_DATA_TARGET which is passed over into FINALIZE method of the BAdI is not filled initially.
When I try to do a MOVE-CORRESPONDING from the IT_DATA_TARGET into ET_DATA_TARGET I continuously am getting the short dumps as both the tables length is not the same.
Did anyone else face the same issue as above when trying to do the BAdI implementation for Mapping.
I will really appreciate if any one can provide me a sample code if possible.
Let me know if you need additional information.
Thanks
Dharma.

Hello,
Thanks for looking into the question.
I already had tried doing that, I get the Short dump stating the object tables are not convertible.
When I looked into the table structures, I found out that the table structures "IS_DATA_TARGET", "ES_DATA_TARGET" & "ET_DATA_TARGET" belong to the same category in terms of these structures being flat structures or tables of length 484 as per the debugger.
Whereas the structure "IT_DATA_SOURCE" has the length 404.
Due to this reason when I say,
ET_DATA_TARGET = IT_DATA_SOURCE, I keep getting the short dumps.
Also, is your consolidation process legal or managerial.
Our Consolidation process is legal and we have the Company and Profit Center fields assigned to the Consolidation Unit role in the Data Basis definition.
Can you please let me know what is the structures length in your system.
Thanks
Dharma.

Mkfs: bad value for nbpi: must be at least 1048576 for multi-terabyte, nbpi

Hi, guys!
*1. I have a big FS (8 TB) on UFS which contains a lot of small files ~ 64B-1MB.*
-bash-3.00# df -h /mnt
Filesystem Size Used Avail Use% Mounted on
/dev/dsk/c10t600000E00D000000000201A400020000d0s0
8.0T 4.3T 3,7T 54% /mnt
*2. But today I noticed in dmesg such errors: "ufs: [ID 682040 kern.notice] NOTICE: /mnt: out of inodes"*
-bash-3.00# df -i /mnt
Filesystem Inodes IUsed IFree IUse% Mounted on
/dev/dsk/c10t600000E00D000000000201A400020000d0s0
8753024 8753020 4 100% /mnt
*3. So, I decided to make file system with new parameters:*
-bash-3.00# mkfs -m /dev/rdsk/c10t600000E00D000000000201A400020000d0s0
mkfs -F ufs -o nsect=128,ntrack=48,bsize=8192,fragsize=8192,cgsize=143,free=1,rps=1,nbpi=997778,opt=t,apc=0,gap=0,nrpos=1,maxcontig=128,mtb=y /dev/rdsk/c10t600000E00D000000000201A400020000d0s0 17165172656
-bash-3.00#
-bash-3.00# mkfs -F ufs -o nsect=128,ntrack=48,bsize=8192,fragsize=1024,cgsize=143,free=1,rps=1,nbpi=512,opt=t,apc=0,gap=0,nrpos=1,maxcontig=128,mtb=f /dev/rdsk/c10t600000E00D000000000201A400020000d0s0 17165172656
*3. I've got some warnings about inodes threshold:*
-bash-3.00# mkfs -F ufs -o nsect=128,ntrack=48,bsize=8192,fragsize=1024,cgsize=143,free=1,rps=1,nbpi=512,opt=t,apc=0,gap=0,nrpos=1,maxcontig=128,mtb=n /dev/rdsk/c10t600000E00D000000000201A400020000d0s0 17165172656
mkfs: bad value for nbpi: must be at least 1048576 for multi-terabyte, nbpi reset to default 1048576
Warning: 2128 sector(s) in last cylinder unallocated
/dev/rdsk/c10t600000E00D000000000201A400020000d0s0: 17165172656 sectors in 2793811 cylinders of 48 tracks, 128 sectors
8381432.0MB in 19538 cyl groups (143 c/g, 429.00MB/g, 448 i/g)
super-block backups (for fsck -F ufs -o b=#) at:
32, 878752, 1757472, 2636192, 3514912, 4393632, 5272352, 6151072, 7029792,
7908512,
Initializing cylinder groups:
super-block backups for last 10 cylinder groups at:
17157145632, 17158024352, 17158903072, 17159781792, 17160660512, 17161539232,
17162417952, 17163296672, 17164175392, 17165054112
*4.And my inodes number didn't change:*
-bash-3.00# df -i /mnt
Filesystem Inodes IUsed IFree IUse% Mounted on
/dev/dsk/c10t600000E00D000000000201A400020000d0s0
8753024 4 8753020 1% /mnt
I found http://wesunsolve.net/bugid.php/id/6595253 that is a bug of mkfs without workaround. Is ZFS what I need now?

Well, to fix the bug you referred to you can apply patch 141444-01 or 141445-01.
However that bug is just regarding an irrelevant error message from mkfs, it will not fix your problem as such.
It seems to me like the minimum value for nbpi on a multi-terabyte filesystem is 1048576, hence you won't be able to create a filesystem with more inodes.
The things to try would be to either create two UFS filesystems, or go with ZFS, which is the future anyway ;-)
.7/M.

Any standarad badi exits for tranction for bp ie in crm

any standarad badi exits for chnaging or writing code in sap-crm standard tranction bp(busness patner) tr code is bp

hello,
BP is BDT (Business Data toolset) enabled (you can check it by adding break point in FM BUS_PBO and executing BP transaction). You can add your check directly to standard view (the check will be executed each time when user pushes enter) or you could add you check to appropriate action (during saving etc.) there are number of actions which you could use it depends on your requirements. You can find a lot of info about BDT (if you are not familiar) in Wiki.
br,
dez_

User Exit / Badi / BTE for Asset creation A ?

Hi Experts,
I need User Exit / BADI / BTE for asset Creation.
After saving newly created Asset from As01 we need to send a mail to the person for whom the Asset is assigned.
i have tried all this.But no one is triggering after saving the As01 transaction.
Exit Name           Description
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
Please suggest if anybody worked on this.
regards,
Imran

Hi,
Check out the following posts pertaining to similar topic.
Change Asset Workflow
Asset Management WORKFLOW
Regards
Sreekanth

User Exit/ Badi/ FM for Tcode IW32

Hi Experts,
I have a requirement which i need to update the next line with the same part number concatenate with u201CNVu201D and in the quantity enter u201C-1u201D and enter the item category as u201CLu201D.
The scenario is this,
In the service order (IW32) when ever a component is entered on a new line item, example below:
RESBD-MATNR= spare part(Ex: 0614-2331) compponent
System should update the next line with the same spare part number concatenate with u201CNVu201D
Ex: 0614-2331NV
and
Required quantity (RESBD-MENGE) =-1
Item Category(RESBD-POSTP) = L
Plant(RESBD-WERKS)= US40
has anyone done this before? Can you lend a hand? I just need the exit/ badi where the coding can be done.
Thanks.
Regards,
Min Dee

Hi,
try this User Exit..
Exit name    Short text
IWO10012 Maintenance order: Priority handling on central header
to find the user exits & Badi's for the T-code..
go to table TSTC>enter T-code and execute> get the Program for the t-code..
and go to-se38-->get the package attached to the t-code..
next go to t-code Se15>expand the enhacement tab>enter package under userexit and
                                                     execute you will get the list of exits
                                                     available...
                                                  -->enter package under Badi's tab and
                                                     execute you will get the list of Badi's
                                                     available...
All the User exits are stored in Table MODSAP..
Prabhudas

To find out BADI implementation for a standard transaction

Like for User Exit is there any standard code to find the BADI implemetation for a Transaction Code.
If so please paste the code.

Hi pagal,
The following is the code for the report program which lists Userexits and BAdi's for a given Tcode...
Regards
Karthik D
<b>P.S.: Reward Points if this is Helpful</b>
*& Report ZDK_FIND_BADI
REPORT ZDK_FIND_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.

Error: 400 "Bad Request" for "deletetree", file "": Unsupported protocol .

Hi
I have an C# application suddenly crashing after months of operation. The application is running on a Windows7 machine and is controlling 2 x NI6602 PCI counter cards through daqmx. The only clues to what when wrong is the following messages in the Windows Application Log.
Message 1 (occurring first):
LabVIEW information: Error: 400 "Bad Request" for "deletetree", file "": Unsupported protocol .
Message 2:
Faulting application name: RecordingStationGUI.exe, version: 1.0.0.0, time stamp: 0x4e3fa214Faulting module name: KERNELBASE.dll, version: 6.1.7600.16385, time stamp: 0x4a5bdaaeException code: 0x80000003
Does anyone know what is causing this error and/or how I prevent this from happening again?
Regards,
mola

Where you ever able to resolve this issue? I have a very similar issue

Badi method for knb1-atlkn in customer master in ECC 6.0

Hi all,
in ECC 6.0 .., customer master under company code data under account management we have field named "Prev. acct no." ( KNB1-ALTKN ) .....I have to do some validations for that field ....can you ppl advise/suggest me the correct badi method for this purpose ???
because the control is not stopped in save_data badi method....can u pls advise on the same??????
pl. do th needful.
thanks in advance
jack

tHANKS

BADI/EXIT for FB60 Save document

Hi All,
I need to perform certain custom checks and save custom date in FB60 transaction.
Please let me know the BADI/EXIT for header check and save document badis in FB60 transaction.
Thanks and Regards,
Vijay

Hi,
Could any of these exits be useful for you..??
F050S001            FIDCMT, FIDCC1, FIDCC2: Edit user-defined IDoc segment
F050S002            FIDCC1: Change IDoc/do not send
F050S003            FIDCC2: Change IDoc/do not send
F050S004            FIDCMT, FIDCC1, FIDCC2: Change outbound IDoc/do not send
F050S005            FIDCMT, FIDCC1, FIDCC2 Inbound IDoc: Change FI document
F050S006            FI Outgoing IDoc: Reset Clearing in FI Document
F050S007            FIDCCH Outbound: Influence on IDoc for Document Change
F180A001            Balance Sheet Adjustment
FARC0002            Additional Checks for Archiving MM Vendor Master Data
RFAVIS01            Customer Exit for Changing Payment Advice Segment Text
RFEPOS00            Line item display: Checking of selection conditions
RFKORIEX            Automatic correspondence
SAPLF051            Workflow for FI (pre-capture, release for payment)
Thanks

Need a BADI/ exit for MIGO transaction

Hi,
I need a BADI / exit for tha transaction MIGO. My requirement is before displaying the materials in the item tab, check whether the user has authorization for that material or not. If he has no authorization, give error message. This should be done for all types of documents.
Please let me know if you need more information.
thanks,
Kishore

hi,
You can have the authorization for the inventory management via authorisation..
Check the path: SPRO --> MM --> Purchasing --> Inv. management nad physical inventory --> Authorization management --> Maintain roles and assign users....
Regards
Priyanka.P

Badi name for Sales order download from R/3 to CRM

Hi Guys,
Can some one give me the badi name for below requirement.
Requirement:
We are downloading the orders from R/3 to CRM system.while downloading the Order history from R/3, top level VC (Variant config data) is also comming to CRM.
But we want to download only 73 top level VC's Out of 103 top level vc.we want to filter the 30 Top level VC's before starting the Intial load of Sales orders in CRM system.
I need a badi name in the R/3 system, which filters the 30 top level VC's while orders going to CRM system.
I will allot Max points for Perfect Solution.
Regards,
Sathya Reddy.

Hi Roberto,
I need a badi name,which helps to delete the unwanted Top level vc's while starting an Intial load of orders from R/3 to CRM.I don't want see the Unwanted 30 top level vc's after intial load in the CRM order.
Hope you understand the requirement.
Regards,
Sathya Reddy.

Startup nomont problem- ORA-07446: sdnfy: bad value '' for paramete

what i am doing wrong?
SQL> startup nomount pfile=/oracle/product/9.2.0.6/dbs/initncersp.ora;
ORA-00444: background process "PMON" failed while starting
ORA-07446: sdnfy: bad value '' for parameter .
-rw-r--r-- 1 oracle dba 466 Jan 21 11:11 initncersp.ora
oracle:tulppwradb02:ncersp>pwd
/oracle/product/9.2.0.6/dbs
oracle:tulppwradb02:ncersp>vi initncersp.ora
"initncersp.ora" 127 lines, 3788 characters
# Copyright (c) 1991, 2001, 2002 by Oracle Corporation
# Archive
log_archive_dest='/archive_nmarket/ncersp'
log_archive_format='arch.ncersp.%s_%t.log'
log_archive_start=true
# Cache and I/O
db_block_size=8192
db_cache_size=25165824
db_file_multiblock_read_count=16
db_files = 400
# Cursors and Library Cache
open_cursors=500
# Database Identification
db_domain=""
db_name=ncersp
# Global Naming -- enforce that a dblink has same name as the db it connects to
global_names = TRUE
# Diagnostics and Statistics
background_dump_dest=/oracle/admin/ncersp/bdump
core_dump_dest=/oracle/admin/ncersp/cdump
user_dump_dest=/oracle/admin/ncersp/udump
timed_statistics=TRUE
# File Configuration
control_files=("/db01/oradata/ncersp/ncerspcontrol01.ctl","/db01/oradata/ncersp/ncerspcontrol02.ctl","/db01/oradata/ncer
sp/ncerspcontrol03.ctl")
# Instance Identification
instance_name=ncersp
# Job Queues
job_queue_processes=0 #zero during maintenance
# Optimizer
hash_join_enabled=TRUE
#query_rewrite_enabled=TRUE
#query_rewrite_integrity='trusted'
#star_transformation_enabled=FALSE
# Pools
java_pool_size=51200
large_pool_size=8388608
shared_pool_size=55343360
# Processes and Sessions
processes=100
# Redo Log and Recovery
fast_start_mttr_target=300
# Security and Auditing
remote_login_passwordfile='EXCLUSIVE'
audit_trail=DB
# Sort, Hash Joins, Bitmap Indexes
pga_aggregate_target=25165824
sort_area_size=1024000
# Need Varification for below paramaters by Primary DBA
# Miscellaneous
aq_tm_processes=1
compatible=9.2.0.0.0
log_buffer=32768
log_checkpoint_interval = 10000
log_checkpoints_to_alert=TRUE
max_dump_file_size='10240'
os_roles=FALSE
remote_os_roles=FALSE
os_authent_prefix=''
# System Managed Undo and Rollback Segments
undo_management=AUTO
undo_retention=10800
undo_tablespace=UNDOTBS1
#utl_file_dir='*'
# OLD DB PARAMETERS
#db_block_buffers=550
#resource_limit=true
#parallel_max_servers = 5 # SMALL
#global_names = TRUE
#job_queue_interval = 60

Is this correct:
os_authent_prefix=''
I believe if you want to set this to null, you need to use double quotes, (as in os_authent_prefix="")
Ref: http://www.dba-oracle.com/security/local_os_authentication.htm
==============================================
To disable this feature, place the following lines in the initialization file, or change the lines to the following if they already exist and bounce the database.
os_authent_prefix = ""
remote_os_authent = FALSE

Finding out BADI's for a Transaction

Hi,
    I want to find out the Badi's for a Particular Transaction. Is there any Specific Method for finding out the Badi's for a Transaction.

Hi Krish,
Check out this Prgm and execute it ...
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.

Badi implementaion for BADI_SD_SLS_PRINT01

Similar Messages

Maybe you are looking for