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