Logo Tiger Depo Bazında Malzeme/Stok Durumları

Malzemlerin listesini depo bazında almak isterseniz aşağıdaki kodu kullanabilirsiniz.

SELECT     ITEMS.CODE, ITEMS.NAME, STINVTOT.INVENNO AS DEPO, SUM(STINVTOT.ONHAND) AS MIKTAR
FROM         LV_001_02_STINVTOT AS STINVTOT LEFT OUTER JOIN
LG_001_ITEMS AS ITEMS ON STINVTOT.STOCKREF = ITEMS.LOGICALREF
WHERE     (ITEMS.CARDTYPE = 1) AND STINVTOT.INVENNO = -1 /* Tüm Depolar için -1 */
GROUP BY ITEMS.CODE, ITEMS.NAME, STINVTOT.INVENNO, ITEMS.CARDTYPE
HAVING      (SUM(STINVTOT.ONHAND) <> 0)

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 ) )
    
    )