Logo Objects ile fatura kesmek

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

15 Replies to “Logo Objects ile fatura kesmek”

    • Örnek delphi örneği ama nerede takıldınız ? lisansınız yoksa hiç uğraşmayın kemalbayat[ ]gmail.com mail adresim

    • Merhaba cevap gecikti ama kusura bakmayın işlerin yoğunluğundan bir türlü fırsat bulamadım.
      en kısa sürede siteye küçük bir örnek eklemeye çalışırım.

  1. Dostum Kolay Gelsin,

    Bir gelişme varmı?

    Objects.dll kullanarak Logoya veri girebilen küçük bir uygulama. Veri olarak fatura, irsaliye, sipariş fişi v.s. olabilir yada daha basit, stok cari kartı olabilir.

    Çalışan küçük bir örnek proje lazım.

    • onları yaratmana gerek yok
      sadece Logo := CoUnityApplication.Create; uygulamayı yarat her uygulamada 1 tane yarat aksi halde lisans sayın dolunca hata verir
      sonra Logo.Login(EdUser.Text, EdPass.Text, StrToIntDef(EdFirm.Text, 0), StrToIntDef(EdDonem.Text, 0)) şeklinde login ol
      sonra data := Logo.NewDataObject(doSalesInvoice); fiş türünü seç data.New;
      data.DataFields.FieldByName(‘NUMBER’).Value burası fatura başlığı
      datalines := data.DataFields.FieldByName(‘TRANSACTIONS’).Lines; burası fatura kalemleri
      datalines.AppendLine;
      sonra data.Post veriyi gönderiyoruz
      data.DataFields.FieldByName(‘INTERNAL_REFERENCE’).Value buradan da kaydedilen faturanın id sini alıyoruz invoice tablosundaki id bu
      hataları try except değilde if data.post then oo başarılı else sıçtı gibi 🙂 ile yakala
      hatalar ise data.ErrorCode <> 0 şeklinde yakala
      en kısa sürede çalışan bir örnek yazacam ama muhasebecilik yapmaktan hiç vaktim olmuyor ve en büyük sorunum logunun işyerinde olması 🙂
      öyle olunca geliştirme yapmak için işyerine ihtiyacım var

      • Selamlar
        Yanıt ışın teşekkürler
        Burda sunucu falan gösterilmiyor acaba logoyu kendı makınamsmı kurmam gerekıyor
        Birde Logo.NewDataObject(doSalesInvoice);
        Logo varabilde ki tipi ne olacak

          • Selmalar
            2 yontem var bırısı dll ockden regıster edıyosun ve fıled by name ıle yapıyon ama bu durumda kandı makınamdakı regıster edılmıs dll dosayasına verı gonderınce servere nasıl gıdecek onu anlamadım

            1 yontemde logonun yenı urettıgı exe bır soap servıce yaratıyor
            onu wdsl den ımport edıp xml gonderıyosun ama 2 sınıde beceremedım henuz 2 yontemde ornegımde mevcut bı yerlerde hata edıyorum ama nasıl bılemedım
            http://www.ercey.com.tr/Depo.rar

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

*