This website is not affiliated with, sponsored by, or approved by SAP AG.

enhancement of LO COckpit data dources for procurement

Business Warehouse

Moderators: Snowy, thx4allthefish

enhancement of LO COckpit data dources for procurement

Postby mannie » Tue Oct 22, 2002 11:19 am

Hi Folks,

Can anyone please send me a sample code related to the enhancement
of any of the following data source

2lis_02_hdr
2lis_02_itm
2lis_02_scl

using the the enhancement LEINS001 to pouplate additional fields which are cominf from tables other than base tables used for the communication structures for these data sources.

Thanx in advance.

mannie
mannie
 

Sample code

Postby FCI » Wed Oct 23, 2002 5:28 am

Here is a sample code of an enhancement of the SCL data source.

Regards,
FCI

*----------------------------------------------------------------------*
* INCLUDE ZXM06U16 *
*----------------------------------------------------------------------*
*" IMPORTING
*" VALUE(ZEITP) LIKE TMC5-ZEITP
*" VALUE(CONTROL) LIKE MCCONTROL STRUCTURE MCCONTROL
*" TABLES
*" XMCEKET STRUCTURE MCEKETB
*" XMCEKKO STRUCTURE MCEKKOB
*" XMCEKPO STRUCTURE MCEKPOB
*" T_EKKN STRUCTURE EKKN OPTIONAL
*" XMCEKPA STRUCTURE MCEKPAB OPTIONAL
*" XMCEKPV STRUCTURE MCEKPVB OPTIONAL
*" XMCESLL STRUCTURE MCESLLB OPTIONAL
*" XMCEKKN STRUCTURE MCEKKNB OPTIONAL
*" XMCEKES STRUCTURE MCEKESB OPTIONAL
*" XMCLIAK STRUCTURE MCLIAKB OPTIONAL
*" XMCLIAP STRUCTURE MCLIAPB OPTIONAL
*" XMCKOMV STRUCTURE MCKOMVB OPTIONAL

data : s_ekpo like ekpo, s_ekkn like ekkn, s_eban like eban,
s_adrc like adrc.

loop at xmcekpo.

* Données DA
read table xmceket with key ebeln = xmcekpo-ebeln
ebelp = xmcekpo-ebelp.

if sy-subrc eq 0.
clear s_eban.
select single * into corresponding fields of s_eban
from eban
where banfn eq xmceket-banfn
and bnfpo eq xmceket-bnfpo.

xmcekpo-badat = s_eban-badat.
xmcekpo-zznodevis = s_eban-zznodevis.
xmcekpo-lfdat = s_eban-lfdat.
xmcekpo-frgdt = s_eban-frgdt.
xmcekpo-dispo_da = s_eban-dispo.
xmcekpo-zzsubven = s_eban-zzsubven.
xmcekpo-zztypeco = s_eban-zztypeco.


* Recherche du nom du gestionnaire
IF xmcekpo-dispo_da NE space.
clear xmcekpo-dsnam.
SELECT SINGLE dsnam INTO xmcekpo-dsnam
FROM t024d
WHERE dispo EQ xmcekpo-dispo_da
and werks eq xmcekpo-werks.
ENDIF.

endif.

modify xmcekpo.

endloop.
FCI
 
Posts: 214
Joined: Wed Oct 23, 2002 4:45 am
Location: France

Hi FCI

Postby mannie » Wed Oct 23, 2002 11:32 am

Hi FCI,

Thanx for sending the code. That really helps. I have anothe rquestion for you. How are the deltas handled thro' this exit. Suppose the user defined fields go thro' the change does system automatically takes care of writing the old record and the new record for these additinal fields or we need to handle this in the user exit itself.

Also, what's the use of the field SUPKZ which identifies whether it is an old record or the new one and under what circumstance we use this.

Thanks a lot .

Regards:mannie
mannie
 


Return to Business Warehouse

Who is online

Users browsing this forum: No registered users and 9 guests



cron


loading...


This website is not affiliated with, sponsored by, or approved by SAP AG.