Merhabalar,

Bu iş için Lobject içerisinde EqualizeBalance metodu kullanılmaktadır. 

Index parametresi ilk eleman için 0'dan başlar, 1 değeri verilirse 2. elemana tekabül eder. Eğer index değeri için 0'dan küçük bir değer veya eleman sayısından fazla bir değer verilirse FALSE değeri üretir, sorun oluşmadıysa TRUE değeri üretir. Eşitlemeyi belirtilen satırda borç tarafına mı yoksa alacak tarafına mı işleyeceğini fonksiyon kendisi karar verir. 

Kullanım şekli aşağıdaki gibidir. Örnek kod parçası aşağıdaki gibidir. 

 gl_voucher := AppRec.FObject.NewDataObject(doGLVoucher);
 gl_voucher.New;
 gl_voucher.DataFields.FieldByName('XXX').Value := XXX;
 ...

 trans := gl_voucher.DataFields.FieldByName('TRANSACTIONS').Lines;
 trans.AppendLine;
 trans.item[(trans.Count - 1)].FieldByName('XXX').Value := XXX;
 ...
 trans.AppendLine;
 trans.item[(trans.Count - 1)].FieldByName('XXX').Value := XXX;
 ...

 if not trans.EqualizeBalance(1) then
 begin
 ShowMessage('Bakiye eşitleme başarısız');
 exit;
 end;

 gl_voucher.Post;

İyi çalışmalar.