All About ABAP Technique > English > ABAP Tutorial > ABAP Workbench Tools > Enhancement > Customer Exits > Customer Exits Examples > Project ZWMWS001 > Funtions Exits > EXIT_SAPML03T

*&---------------------------------------------------------------------*
*& Include ZXLTOU13 *
*&---------------------------------------------------------------------*

*"----------------------------------------------------------------------
*"*"Globale Schnittstelle:
*" IMPORTING
*" VALUE(I_LTAK) LIKE LTAK STRUCTURE LTAK
*" VALUE(I_LTAP) LIKE LTAP STRUCTURE LTAP
*" VALUE(I_MLVS) LIKE MLVS STRUCTURE MLVS
*" VALUE(I_MGEF) LIKE MGEF STRUCTURE MGEF
*" VALUE(I_T333) LIKE T333 STRUCTURE T333
*" VALUE(I_T340D) LIKE T340D STRUCTURE T340D
*" VALUE(I_VORGA) LIKE LTAP-VORGA
*" VALUE(I_EINML) LIKE RL03T-EINML
*" TABLES
*" T_LTAPE STRUCTURE LTAPE
*" CHANGING
*" VALUE(C_LTKZE) LIKE MLVS-LTKZE
*" VALUE(C_ANZL1) LIKE RL03T-ANZL1
*" VALUE(C_LETY1) LIKE RL03T-LETY1
*" VALUE(C_LMEN1) LIKE RL03T-LMEN1
*" VALUE(C_LMEL1) LIKE RL03T-LMEL1
*" VALUE(C_LGTY1) LIKE RL03T-LGTY1
*" VALUE(C_LGBE1) LIKE RL03T-LGBE1
*" VALUE(C_ANZL2) LIKE RL03T-ANZL2
*" VALUE(C_LETY2) LIKE RL03T-LETY2
*" VALUE(C_LMEN2) LIKE RL03T-LMEN2
*" VALUE(C_LMEL2) LIKE RL03T-LMEL2
*" VALUE(C_LGTY2) LIKE RL03T-LGTY2
*" VALUE(C_LGBE2) LIKE RL03T-LGBE2
*"----------------------------------------------------------------------

data: ch_satuan type p,
ch_mod type p.

data: begin of ch_total occurs 1,
lgnum like ltak-lgnum,
tbnum like ltbp-tbnum,
tbpos like ltbp-tbpos,
menge like RL03T-EINML,
end of ch_total.

data: begin of ch_total2 occurs 1,
lgnum like ltak-lgnum,
tbnum like ltbp-tbnum,
tbpos like ltbp-tbpos,
menge like RL03T-EINML,
end of ch_total2.

if C_LMEL2 ge i_mlvs-LHMG2 and not i_mlvs-LETY2 is initial.
clear: ch_satuan,
ch_mod.
ch_satuan = C_LMEL2 / C_LMEN2.
compute ch_mod
= C_LMEL2 mod i_mlvs-LHMG2.
if ch_mod > 0.
C_LMEL2 = C_LMEL2 - ch_mod.
C_LMEN2 = C_LMEL2 / ch_satuan.
endif.
endif.

*---> Pass target quantity untuk exit end of TO generation MWMTO001
ch_total2-lgnum = i_ltak-lgnum.
ch_total2-tbnum = i_ltak-tbnum.
ch_total2-tbpos = i_ltap-tbpos.
ch_total2-menge = I_EINML - ( C_ANZL1 * C_LMEL1 ) - ( C_ANZL2 * C_LMEL2 ).

import ch_total from memory id 'ZWM_TARGET_TR'.
if sy-subrc = 0.
loop at ch_total.
if ch_total-lgnum = i_ltak-lgnum and
ch_total-tbnum = i_ltak-tbnum and
ch_total-tbpos = i_ltap-tbpos.

modify ch_total from ch_total2 index sy-tabix.
endif.
endloop.
else.
append ch_total2 to ch_total.
endif.
export ch_total to memory id 'ZWM_TARGET_TR'.

*---> Pass LTAK untuk user exit TO split MWMTO012

data: ch_ltak like ltak occurs 0 with header line.

clear ch_ltak.
refresh ch_ltak.
move-corresponding i_ltak to ch_ltak.
ch_ltak-TRART = i_T333-TRART.
append ch_ltak.
export ch_ltak to memory id 'ZWM_SPLIT_TO'.