Skip to Content
0
Former Member
Dec 15, 2008 at 03:29 PM

SMOD logic help!

134 Views

Hi

We are using the following logic to enhance 2lis_02_itm with different fields from diff tables. We could able to see the enahnced field data in RSA3 , but after making any change in ME22n its not pulling those changes. can anybody advice where is my mistake here ?

&----


*& Include ZXM06U16

&----


DATA: i_t_ekpo LIKE ekpo OCCURS 1 WITH HEADER LINE,

i_t_eket LIKE eket OCCURS 1 WITH HEADER LINE,

i_t_ekpv LIKE ekpv OCCURS 1 WITH HEADER LINE,

i_t_ekko LIKE ekko OCCURS 1 WITH HEADER LINE

.

DATA: ebeln LIKE ekpo-ebeln,

ebelp LIKE ekpo-ebelp,

it_ekpo TYPE TABLE OF ekpo WITH HEADER LINE,

it_ekko TYPE TABLE OF ekko WITH HEADER LINE,

it_eket TYPE TABLE OF eket WITH HEADER LINE,

it_ekpv TYPE TABLE OF ekpv WITH HEADER LINE,

old_val(50) TYPE c. "For storing the value from the Field Symbol

FIELD-SYMBOLS <fs> TYPE ANY TABLE.

CASE zeitp.

*

*

WHEN 'MA'. "When creating a purchase order

  • Filling the setup tables (Initial data load)

IF control-modus EQ 'E'.

MOVE '(SAPLEINS)T_EKPO[]' TO old_val.

ASSIGN (old_val) TO <fs>.

endif.

LOOP AT xmcekpo.

SELECT SINGLE * FROM ekpo INTO i_t_ekpo WHERE ebeln = xmcekpo-ebeln and ebelp = xmcekpo-ebelp.

SELECT SINGLE * FROM ekko INTO i_t_ekko WHERE ebeln = xmcekko-ebeln .

SELECT SINGLE * FROM eket INTO i_t_eket WHERE ebeln = xmceket-ebeln and ebelp = xmceket-ebelp.

SELECT SINGLE * FROM ekpv INTO i_t_ekpv WHERE ebeln = xmcekpv-ebeln and ebelp = xmcekpv-ebelp.

  • Before image

IF xmcekpo-supkz = '1'.

xmcekpo-ZZKUNNR = i_t_ekpo-kunnr.

xmcekpo-ZZSOBKZ = i_t_ekpo-sobkz.

xmcekpo-ZZAEDAT = i_t_ekko-aedat.

xmcekpo-ZZEINDT = i_t_eket-eindt.

xmcekpo-ZZMENGE = i_t_eket-menge.

xmcekpo-ZZGLMNG = i_t_eket-glmng.

xmcekpo-ZZALTDT = i_t_eket-altdt.

xmcekpo-ZZVSTEL = i_t_ekpv-vstel.

xmcekpo-ZZLEDAT = i_t_ekpv-ledat.

xmcekpo-ZZPLIFZ = i_t_ekpv-plifz.

xmcekpo-ZZVKORG = i_t_ekpv-vkorg.

xmcekpo-ZZVTWEG = i_t_ekpv-vtweg.

xmcekpo-ZZSPART = i_t_ekpv-spart.

  • After image

ELSEIF xmcekpo-supkz = '2'..

READ TABLE i_t_ekpo WITH KEY ebeln = xmcekpo-ebeln ebelp = xmcekpo-ebelp.

xmcekpo-ZZKUNNR = i_t_ekpo-kunnr.

xmcekpo-ZZSOBKZ = i_t_ekpo-sobkz.

xmcekpo-ZZAEDAT = i_t_ekko-aedat.

xmcekpo-ZZEINDT = i_t_eket-eindt.

xmcekpo-ZZMENGE = i_t_eket-menge.

xmcekpo-ZZGLMNG = i_t_eket-glmng.

xmcekpo-ZZALTDT = i_t_eket-altdt.

xmcekpo-ZZVSTEL = i_t_ekpv-vstel.

xmcekpo-ZZLEDAT = i_t_ekpv-ledat.

xmcekpo-ZZPLIFZ = i_t_ekpv-plifz.

xmcekpo-ZZVKORG = i_t_ekpv-vkorg.

xmcekpo-ZZVTWEG = i_t_ekpv-vtweg.

xmcekpo-ZZSPART = i_t_ekpv-spart.

ENDIF.

ENDLOOP.

EndCase.