Kişi bilgileri gizlidir. Logo çalışanları görebilir.

Logo Objects ile bakiye eşitleme

  Tiger/Logo Objects 2.60

Merhaba,


Muhasebe ve virman fişlerinde satır menüsünde bulunan bakiye eşitle işlemini objects te kullanma şansımız var mıdır?


Logo Objects Bakiye Eşitle


Sezgin ÖZDEMİR

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.



06/11/19 14:55

Cevap vermek için giriş yapmanız gerekmektedir.