Kategori arşivi: Delphi

Logo Objects ile Fatura Kesmek Yöntem 1

Posted on by

Merhaba yoğun taleb ve verdiğim sözler nedeniyle bu örneği yazmam farz oldu.
Bu işe başlamadan önce biraz logoyu, gerek kullanımı, tablo yapısı gibi özelliklerini inceleyin.
anlatma kabiliyetim biraz zayıftır şimdiden özür dilerim.
Lisansınız yoksa yormayın kendinizi !!!!
örnekteki amacım sizin işinizi yapmak değil size küçük bir örnekle yardımcı olmak balık tutumayı öğretmek gibi düşünün bu nedenle yazılım bilginiz konu için yetmiyorsa (zamanla oda olur kimse anasının karnında öğrenmedi) ne olur beni üzmeyin ben sadece 1 adet fatura örneği vereceğim farklı fişler yapma istiyorsanız kartları veya hareketleri dışarı xml olarak atarak xml dosyaları inceyin emin olun çok kısa sürede olayı kavrayacaksınız şimdi bir fatura xml ile başlayaım örnekle bereber xml yi anlayacasınız.

Okumaya devam et Logo Objects ile Fatura Kesmek Yöntem 1→

Logo Objects ile fatura kesmek

Posted on by

1 yılı aşkın bir süredir logo tiger kullanıyorum/z öncelikle copy paste olayı ile hemen hemen her işimizi görüyor. logo da objects kullanmak istiyorsanız ilk olarak lisansınızın olması gerekiyor. register felan nette bir çok sitede var ben sadece delphi ile pek az örnek var küçük bir örnekte ben sunmak istedim. döküman diye fazla kıvranmayın tablo isimleri harici pek fazla döküman bulamazsınız üretici firma ise sadece çözüm ortaklarına destek veriyor. benim tavsiyem ne yapacaksanız fiş fatura vs. logoda yapın ve araçlar veri aktarımı ile dışarı xml atın ve alanları inceleyin aşağıdaki örnek size yol gösterecektir. unutmadan saati herzaman pack etmek zorundasınız.

var
data: IData;
datalines: UnityObjects_TLB.ILines;
zaman: OleVariant;
begin
data := Logo.NewDataObject(doSalesInvoice);
data.New;
data.DataFields.FieldByName('TYPE').Value := 9;
data.DataFields.FieldByName('NUMBER').Value := //Fatura No
data.DataFields.FieldByName('DOC_NUMBER').Value := // Belge Numarası
data.DataFields.FieldByName('AUXIL_CODE').Value := 'AUTO';
data.DataFields.FieldByName('DATE').Value := //Tarih
data.DataFields.FieldByName('DOC_DATE').Value := // Tarih
Logo.PackTime(12, 12, 12, zaman);
data.DataFields.FieldByName('TIME').Value := zaman;
data.DataFields.FieldByName('ARP_CODE').Value := // Müşteri Kodu
data.DataFields.FieldByName('POST_FLAGS').Value := 247;
data.DataFields.FieldByName('PAYMENT_CODE').Value := // Ödeme Planı
data.DataFields.FieldByName('SALESMAN_CODE').Value := // Satıcı
data.DataFields.FieldByName('NOTES1').Value := //Açıklama
data.DataFields.FieldByName('SOURCE_WH').Value := // Ambar Kodu
data.DataFields.FieldByName('DIVISION').Value := //Depo Kodu
datalines := data.DataFields.FieldByName('TRANSACTIONS').Lines;
datalines.AppendLine;
datalines[0].FieldByName('TYPE').Value := 4;
datalines[0].FieldByName('MASTER_CODE').Value := //Stok Kodu
datalines[0].FieldByName('QUANTITY').Value := //Adet
datalines[0].FieldByName('PRICE').Value := //B.Fiyat
datalines[0].FieldByName('UNIT_CODE').Value := 'ADET';
datalines[0].FieldByName('VAT_RATE').Value := //KdV
data.Post