ME_PROCESS_PO_CUST-PROCESS_ITEM

Die Objektorientierung mit ABAP®: Vererbung, Dynamische Programmierung, GUI Controls (u.a. ALV im OO).

ME_PROCESS_PO_CUST-PROCESS_ITEM

Postby Adolf4594 » Thu Aug 09, 2012 2:59 pm

Hallo,

ich habe folgendes Problem bei o.g. Implementierung:

In der Bestellposition wurden kundeneingene Felder mit der Erweiterung MM06E005 in Komponente EXIT_SAPMM06E_018 angelegt:

e_ci_ekpo-zz_parvw_wl = ekpo-zz_parvw_wl

Die entsprechenden Informationen stehen nach speichern auch in Tabelle EKPO.

Nun soll mittels o.g. Implementierung das Feld ekpo-zz_parvw_wl ausgelesen werden. Leider wird o.g. Implementierung aber bei Feldänderungen des Feldes zz_parvw_wl in der Bestellung nicht durchlaufen. Wird z.B. die Bestellmenge geändert, so wird o.g. Implementierung durchlaufen und mein Coding funktioniert. Kann mir jemand sagen, wie ich kundeneigene Felder als "updaterlevant" für Änderungen einstellen kann, damit ähnlich wie bei der Bestellmenge o.g. Implementierung durchlaufen wird.

Anbei noch der Auszug aus o.g. Implementierung:

*>>> Vers 035, 23.07.2012, STUEBENI

DATA: it_compval TYPE TABLE OF zkoe_exitfilter INITIAL SIZE 0,
wa_compval LIKE LINE OF it_compval.

DATA: wa_mara TYPE mara-xchpf,
wa_liefchar TYPE zkoe_k_liefchar,
wa_lifnr TYPE ekko-lifnr.

DATA: BEGIN OF lt_ekorg,
sign(1) TYPE c ,
option(2) TYPE c ,
low TYPE mepoheader-ekorg,
high TYPE mepoheader-ekorg,
END OF lt_ekorg.

DATA: r_ekorg LIKE STANDARD TABLE OF lt_ekorg INITIAL SIZE 0.
DATA: w_ekorg LIKE lt_ekorg.

* nur bei Kartoffel-EKORG
REFRESH it_compval.
CALL FUNCTION 'Z_KOE_EXITTAB_LESEN' "Abgebender Betrieb
EXPORTING
exitname = 'EKORG_KARTOFFEL'
TABLES
compval_tab = it_compval
EXCEPTIONS
no_entry = 1
OTHERS = 2 .

w_ekorg-sign = 'I'.
w_ekorg-option = 'EQ'.
LOOP AT it_compval INTO wa_compval.
w_ekorg-low = wa_compval-compval.
APPEND w_ekorg TO r_ekorg.
ENDLOOP.

IF h-ekorg IN r_ekorg.

* nur bei Chargenpflicht
SELECT SINGLE xchpf FROM mara INTO wa_mara
WHERE matnr EQ item_get-matnr
AND xchpf EQ 'X'.

* Ermittlung relevanter Partner für Chargenfindung
IF sy-subrc EQ 0 AND item_get-zz_parvw_wl NE ' '.
wa_lifnr = item_get-zz_parvw_wl.
ELSEIF h-llief NE ' '.
wa_lifnr = h-llief.
ELSE.
wa_lifnr = h-lifnr.
ENDIF.

* Chargenermittlung
SELECT * FROM zkoe_k_liefchar INTO wa_liefchar UP TO 1 ROWS
WHERE ekorg EQ h-ekorg
AND lifnr EQ wa_lifnr
AND ( matnr EQ item_get-matnr
OR matnr EQ ' ' )
ORDER BY matnr DESCENDING.

item_set-charg = wa_liefchar-charg.
ENDSELECT.
ENDIF.

*<<< Vers 035, 23.07.2012, STUEBENI


Danke und VG

stuebeni
Adolf4594
.
.
 
Posts: 5
Joined: Thu Aug 09, 2012 2:59 pm

Re: ME_PROCESS_PO_CUST-PROCESS_ITEM

Postby Jonny2227 » Fri Aug 10, 2012 8:47 am

Sali,

schau dir dazu noch die Erweiterung ME_GUI_PO_CUST an - das gehört beides zusammen !

Gruss Jens
Jonny2227
....
....
 
Posts: 605
Joined: Wed Mar 01, 2006 3:16 pm


Return to ABAP Objects®

Who is online

Users browsing this forum: No registered users and 2 guests