Skip to Content
0
Former Member
Apr 23, 2007 at 07:44 PM

Urgent. Badi or user exit for ML81N transaction

339 Views

Hi!

Currently I am working on the transaction LM81N. I am looking for a user exit or BADI before save (commit work). I need to modify the XIMSEG table where this table is updated in the code:

FORM SET_XIMSEG_ACC using p_rcode.

&----


*& Form SET_XIMSEG_ACC

&----


  • ximseg fuellen - Buchung auf Ebene Kontierung

----


p_rcode = 0.

CLEAR XIMSEG.

XIMSEG-BWART = T156N-BWART_NEXT.

XIMSEG-EBELN = XESSR-EBELN.

XIMSEG-EBELP = XESSR-EBELP.

XIMSEG-KZBEW = 'B'.

XIMSEG-LFBJA = XESSR-ERDAT.

XIMSEG-LFBNR = XESSR-LBLNI.

XIMSEG-ELIKZ = XESSR-FINAL. "set ELIKZ

IF XESSR-KZABN EQ KZABN_S. "Storno

XIMSEG-XSTOB = 'X'.

XIMSEG-ELIKZ = SPACE. "reset ELIKZ

ENDIF.

XIMSEG-ERFMG = 1.

XIMSEG-ERFME = XEKPO-MEINS.

XIMSEG-BPMNG = 1.

XIMSEG-BPRME = XEKPO-MEINS.

<b>XIMSEG-SGTXT = XESSR-TXZ01.</b>

LOOP AT XESKN WHERE PACKNO EQ XESSR-LBLNI

AND LOEKZ IS INITIAL

AND NETWR > 0.

XIMSEG-LFPOS = XESKN-ZEKKN.

APPEND XIMSEG.

ENDLOOP.

IF SY-SUBRC > 0.

p_rcode = 8.

REFRESH: XIMSEG, XEMSEG.

exit.

ENDIF.

ENDFORM. " SET_XIMSEG_ACC

I need to modify

XIMSEG-SGTXT = XESSR-TXZ01 with ESSL-KTEXT1

I found that use ATP_PUBLISH_RESULTS BADI after the call SET_XIMSEG_ACC . But I didn't found it.

Thanks in advance.