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

Logo Tiger Hesap Özeti SQL

DSYB Bilgi Yönetim Sisteminde Kullanmış olduğım Cari hesap özetinin SQL Kodları

ALTER FUNCTION [dbo].[GET_LOGO_EKSTRE] ( -- Add the parameters for the function here
                                         @REF INTEGER )
RETURNS TABLE
AS
RETURN
    ( 
    
    SELECT  DATE_ AS TARIH ,
        TRANNO AS BELGENO ,
        LINEEXP ,
        DEBIT AS BORC ,
        CREDIT AS ALACAK
FROM    BDSYB2014.dbo.LV_001_01_CLEKSTRE
WHERE   CLIENTREF = @REF
        AND TRCODE NOT IN ( 38, 39 )
UNION ALL
SELECT  BDSYB2014.dbo.LV_001_01_CLEKSTRE.DATE_ ,
        BDSYB2014.dbo.LV_001_01_CLEKSTRE.TRANNO ,
        CONVERT(VARCHAR, BDSYB2014.dbo.LV_001_01_STLINE.AMOUNT, 102)
        + '- Ad. ' + BDSYB2014.dbo.LV_001_01_STLINE.LINEEXP AS ACIKLAMA ,
        ( SELECT    VATAMNT + VATMATRAH
          FROM      BDSYB2014.dbo.LG_001_01_STLINE
          WHERE     BDSYB2014.dbo.LG_001_01_STLINE.LOGICALREF = BDSYB2014.dbo.LV_001_01_STLINE.LOGICALREF
        ) AS BORC ,
        CASE ( SELECT TOP 1
                        PAIDINCASH
               FROM     BDSYB2014.dbo.LG_001_01_INVOICE
               WHERE    LOGICALREF = BDSYB2014.dbo.LV_001_01_CLEKSTRE.SOURCEFREF
             )
          WHEN 1
          THEN ( SELECT VATAMNT + VATMATRAH
                 FROM   BDSYB2014.dbo.LG_001_01_STLINE
                 WHERE  BDSYB2014.dbo.LG_001_01_STLINE.LOGICALREF = BDSYB2014.dbo.LV_001_01_STLINE.LOGICALREF
               )
          ELSE 0
        END AS ALACAK
FROM    BDSYB2014.dbo.LV_001_01_CLEKSTRE
        INNER JOIN BDSYB2014.dbo.LV_001_01_STLINE ON BDSYB2014.dbo.LV_001_01_CLEKSTRE.SOURCEFREF = BDSYB2014.dbo.LV_001_01_STLINE.INVOICEREF
WHERE   ( BDSYB2014.dbo.LV_001_01_CLEKSTRE.CLIENTREF = @REF )
        AND ( BDSYB2014.dbo.LV_001_01_CLEKSTRE.TRCODE IN ( 38, 39 ) )
    
    )

Logo Tiger Fatura Kaydından Sonra Yazdırmıyor.

Başımızdan geçen logo notlarımı boş kaldıkça paylaşmaya devam ediyorum aslında bir yılın içinde baya bir birikti fakat bir çoğu kemalce düzenlenmesi gerekiyor. Fatura kesildikten sonra yazdırmıyor ise cari kartın INVPRINTCNT alanının değerinde sorun vardır 1 olması gerekiyor. Excelden veya db ye direk erişimle yazılan kartlarda çıkıyor bu sorun.

 update LG_XXX_CLCARD
SET INVPRINTCNT=1
WHERE CARDTYPE NOT IN ('22') AND (INVPRINTCNT=0 OR INVPRINTCNT IS NULL)