Billing Invoice - Credit line splitting

I have implemented an implicit enhancement in include LFACIF57 to split the credit line into two with part of the amount directed to a Special GL.

sort xbseg descending by buzei.
loop at xbseg.
   xbseg-buzei = xbseg-buzei + 1.
   modify xbseg.
   clear xbseg.
endloop.

loop at xbseg where kunnr is not initial.
move-corresponding xbseg to wa_bseg.
xbseg-dmbtr = xbseg-dmbtr - 100.
xbseg-wrbtr = xbseg-wrbtr - 100.
xbseg-pswbt = xbseg-pswbt - 100.
xbseg-fdwbt = xbseg-fdwbt + 100.
xbseg-klibt = xbseg-klibt - 100.
xbseg-skfbt = xbseg-skfbt + 100.
modify xbseg.
xbseg-dmbtr = 100.
xbseg-wrbtr = 100.
xbseg-pswbt = 100.
xbseg-klibt = 100.
xbseg-buzei = '001'.
xbseg-bschl = '19'.
xbseg-umskz = 'A'.
xbseg-umsks = 'A'.
xbseg-hkont = '0001520000'.
xbseg-vorgn = 'AZBU'.
xbseg-xanet = 'X'.
xbseg-nebtr = 100.
xbseg-skfbt = 100.
clear: xbseg-mwart,xbseg-fdlev,xbseg-fdgrp,xbseg-fdtag,xbseg-xumsw,xbseg-fdwbt,xbseg-mwskz,xbseg-zterm.
append xbseg.
exit.
endloop.
sort xbseg ascending by buzei.

sort bsegsubsttab descending by tabix.
read table bsegsubsttab index 1.
bsegsubsttab-tabix = bsegsubsttab-tabix + 1.
append bsegsubsttab.
clear bsegsubsttab.
sort bsegsubsttab ascending by tabix.

read table xbseu index 1.
append xbseu.
sort xbseu by waers.

This is effecting the Entry view in the accounting document but not effecting the General Ledger View.

Please help