(09-02-2022, Saat: 20:47)adelphiforumz Adlı Kullanıcıdan Alıntı: Merhabalar

LOGO yazılım Database ile bir entegrasyon yapmam lazım daha önceden uğraşan DB yapısını bilen varsa yardımcı olabilirmi

İhtiyacım olan firmanın günlük olarak tüm parasal giriş(TAHSİLAT) hareketlerine ulaşmaya çalışıyorum 
Logo bunu herbiri farklı raporlarla veriyor bense Direkt DB üzerinden bir Soru ile alabilirmiyim.

KASA GİRİŞLERİ
HAVALE
EFT
ÇEK
KREDİ KARTI
POS
VB......

Teşekkürler

(09-02-2022, Saat: 20:47)adelphiforumz Adlı Kullanıcıdan Alıntı: Merhabalar

LOGO yazılım Database ile bir entegrasyon yapmam lazım daha önceden uğraşan DB yapısını bilen varsa yardımcı olabilirmi

İhtiyacım olan firmanın günlük olarak tüm parasal giriş(TAHSİLAT) hareketlerine ulaşmaya çalışıyorum 
Logo bunu herbiri farklı raporlarla veriyor bense Direkt DB üzerinden bir Soru ile alabilirmiyim.

KASA GİRİŞLERİ
HAVALE
EFT
ÇEK
KREDİ KARTI
POS
VB......

Teşekkürler

SELECT
  "Firma"='100', 
 "Donem"='01',
 FIRM.NAME as  Firma_Adı,
 L_CAPIDIV.NAME AS "ISYERI", 
 L_CAPIDIV.NR AS "ISYERI_NO",
 L_CAPIDEPT.NAME AS "BOLUM", 
 L_CAPIDEPT.NR AS "BOLUM_NO", 
 KSCARD.NAME AS "KASA_ADI", 
 KSCARD.CODE AS "KASA_KODU",
 KSCARD.EXPLAIN AS "KASA_ACIKLAMASI", 
 KSLINES.DATE_ AS "TARIH",
 YEAR(KSLINES.DATE_) AS "YIL",
 AY=CASE MONTH(KSLINES.DATE_)
  WHEN 1 THEN '01_Ocak'
  WHEN 2 THEN '01_Şubat'
  WHEN 3 THEN '03_Mart'
  WHEN 4 THEN '04_Nisan'
  WHEN 5 THEN '05_Mayıs'
  WHEN 6 THEN '06_Haziran'
  WHEN 7 THEN '07_Temmuz'
  WHEN 8 THEN '08_Ağustos'
  WHEN 9 THEN '09_Eylül'
  WHEN 10 THEN '10_Ekim'
  WHEN 11 THEN '11_Kasım'
  WHEN 12 THEN '12_Aralık'
  END,


-------------TL TUTARLAR
KSLINES.AMOUNT AS "TUTAR", 
CASE KSLINES.SIGN WHEN 0 THEN KSLINES.AMOUNT ELSE 0 END AS "BORC", 
CASE KSLINES.SIGN WHEN 1 THEN KSLINES. AMOUNT ELSE 0 END AS "ALACAK", 
CASE KSLINES.SIGN WHEN 0 THEN KSLINES.AMOUNT ELSE KSLINES.AMOUNT*-1 END AS "TL_BAKIYE", 

ISNULL(L_CURRENCYLIST.CURCODE,'TL') AS "ISLEM_DOVIZ_TURU", 
ISNULL(L_CURRENCYLIST2.CURCODE,'TL') AS "KASA_DOVIZ_TURU", 
ISNULL(L_CURRENCYLIST.CURTYPE,0) AS CURTYPE,

(CASE KSLINES.SIGN WHEN 1 THEN -1 ELSE 1 END)*(KSLINES.REPORTNET) AS "DOVIZ_BAKIYE", 

(CASE KSLINES.SIGN WHEN 1 THEN 
(CASE KSLINES.TRRATE WHEN 0 THEN KSLINES.AMOUNT ELSE KSLINES.TRNET END)*-1 ELSE 
(CASE KSLINES.TRRATE WHEN 0 THEN KSLINES.AMOUNT ELSE KSLINES.TRNET END) END) AS "ID_BAKIYE", 

(CASE KSLINES.SIGN WHEN 0 THEN 'BORC' ELSE 'ALACAK' END) AS "BORC_ALACAK", 

CASE KSLINES.TRRATE WHEN 0 THEN 'TL' ELSE L_CURRENCYLIST_2.CURCODE END AS "FIRMA_DOVIZ_TURU",
KUR1=ISNULL((SELECT TOP 1 RATES1 AS "KUR1" FROM TIGER.[dbo].L_DAILYEXCHANGES EXCHANGE 
INNER JOIN TIGER.[dbo].L_CURRENCYLIST LISTE ON EXCHANGE.CRTYPE=LISTE.CURTYPE AND LISTE.FIRMNR='100'
WHERE EDATE<=GETDATE()
AND LISTE.CURTYPE=L_CURRENCYLIST.CURTYPE
ORDER BY EDATE DESC),1),
KSLINES.LOGICALREF AS KSLINES_LOGREF

FROM TIGER.dbo.LG_100_01_KSLINES KSLINES (NOLOCK) 
LEFT JOIN TIGER.dbo.LG_100_PROJECT PROJECT (NOLOCK) ON KSLINES.PROJECTREF = PROJECT.LOGICALREF
LEFT JOIN TIGER.dbo.LG_100_KSCARD KSCARD (NOLOCK) ON KSLINES.CARDREF = KSCARD.LOGICALREF 
LEFT JOIN TIGER.dbo.LG_100_KSCARD KSCARD_2 (NOLOCK) ON KSLINES.VCARDREF = KSCARD_2.LOGICALREF 
LEFT JOIN TIGER.dbo.LG_100_EMUHACC EMUHACC (NOLOCK) ON KSLINES.ACCREF = EMUHACC.LOGICALREF 
LEFT JOIN TIGER.[dbo].L_CURRENCYLIST L_CURRENCYLIST (NOLOCK) ON L_CURRENCYLIST.CURTYPE=KSLINES.TRCURR and L_CURRENCYLIST.FIRMNR='100'
LEFT JOIN TIGER.[dbo].L_CURRENCYLIST L_CURRENCYLIST2 (NOLOCK) ON L_CURRENCYLIST2.CURTYPE=KSCARD.CCURRENCY and L_CURRENCYLIST2.FIRMNR='100'
LEFT JOIN TIGER.[dbo].L_CAPIFIRM FIRM (NOLOCK) ON FIRM.NR='100'
LEFT JOIN TIGER.[dbo].L_CURRENCYLIST L_CURRENCYLIST_2 (NOLOCK) ON L_CURRENCYLIST_2.CURTYPE=FIRM.LOCALCTYP and SEPEXCHTABLE=1 AND L_CURRENCYLIST_2.FIRMNR='100'
LEFT JOIN TIGER.dbo.L_CAPIDIV L_CAPIDIV (NOLOCK) ON L_CAPIDIV.NR=KSLINES.BRANCH AND L_CAPIDIV.FIRMNR='100'
LEFT JOIN TIGER.dbo.L_CAPIDEPT L_CAPIDEPT (NOLOCK) ON L_CAPIDEPT.NR=KSLINES.DEPARTMENT AND L_CAPIDEPT.FIRMNR='100'

WHERE KSLINES.CANCELLED=0

(10-02-2022, Saat: 14:21)Tuğrul HELVACI Adlı Kullanıcıdan Alıntı: Logo'nun bu tarz amaçlara binaen hazırlamış olduğu ve ücretli olan; ismini Logo Objects olarak hatırladığım bir DLL'i vardı. Eğer hâla var ise; sorgular ve tabloların ilişkileri arasında boğulmaktansa bu yolu da tercih edebilirsiniz.

SELECT ROW_NUMBER() OVER (ORDER BY CARHAR.DATE_ ,CARHAR.FTIME) AS NR,
CK.CODE ,CK.DEFINITION_ ,CARHAR.DATE_ ,CARHAR.TRANNO ,
CASE ((CARHAR.MODULENR*100)+CARHAR.TRCODE)
   WHEN 381 THEN 'Satış Siparişi'
   WHEN 382 THEN 'Satınalma Siparişi'
   WHEN 431 THEN 'Satın Alma Faturası'
   WHEN 432 THEN 'Perakende Satış İade Faturası'
   WHEN 433 THEN 'Toptan Satış İade Faturası'
   WHEN 434 THEN 'Alınan Hizmet Faturası'
   WHEN 435 THEN 'Alınan Proforma Faturası'
   WHEN 436 THEN 'Alım İade Faturası'
   WHEN 437 THEN 'Perakende Satış Faturası'
   WHEN 438 THEN 'Toptan Satış Faturası'
   WHEN 439 THEN 'Verilen Hizmet Faturası'
   WHEN 440 THEN 'Verilen Proforma Faturası'
   WHEN 441 THEN 'Verilen Vade Farkı Faturası'
   WHEN 442 THEN 'Alınan Vade Farkı Faturası'
   WHEN 443 THEN 'Alınan Fiyat Farkı Faturası'
   WHEN 444 THEN 'Verilen Fiyat Farkı Faturası'
   WHEN 456 THEN 'Müstahsil Makbuzu'
   WHEN 501 THEN 'Nakit Tahsilat'
   WHEN 502 THEN 'Nakit Ödeme'
   WHEN 503 THEN 'Borç Dekontu'
   WHEN 504 THEN 'Alacak Dekontu'
   WHEN 505 THEN 'Virman İşlemi'
   WHEN 506 THEN 'Kur Farkı İşlemi'
   WHEN 512 THEN 'Özel İşlem'
   WHEN 514 THEN 'Açılış Fişi'
   WHEN 570 THEN 'Kredi Kartı Fişi'
   WHEN 661 THEN 'Çek Girişi'
   WHEN 662  THEN 'Senet Girişi'
   WHEN 663 THEN 'Çek Çıkış Cari Hesaba'
   WHEN 664 THEN 'Senet Çıkış Cari Hesaba'
   WHEN 720 THEN 'Gelen Havaleler'
   WHEN 721 THEN 'Gönderilen Havaleler'
   WHEN 728 THEN 'Banka Alınan Hizmet'
   WHEN 729 THEN 'Banka Verilen Hizmet'
   WHEN 1001 THEN 'Nakit Tahsilat'
   WHEN 1002 THEN 'Nakit Ödeme'
   WHEN 6103 THEN 'Borç Dekontu (Çek)'
   WHEN 6104 THEN 'Alacak Dekontu (Çek)'
END EVRAKTIP,
CARHAR.DOCODE AS BELGENO,CARHAR.LINEEXP ,  
CASE SIGN WHEN 0 THEN  ROUND(AMOUNT,2) ELSE 0 END BORC,
CASE SIGN WHEN 1 THEN  ROUND(-1*AMOUNT,2) ELSE 0 END ALACAK,
CASE SIGN WHEN 0 THEN  ROUND(AMOUNT,2) ELSE  ROUND(-1*AMOUNT,2) END TUTAR
--,CASE  WHEN CARHAR.TRCURR=0 OR CARHAR.TRCURR=160 THEN 'TL'  WHEN CARHAR.TRCURR=1 THEN  'USD' WHEN CARHAR.TRCURR=20 THEN  'EUR' END ISL_PARA_BIRIM,
--CARHAR.TRRATE DOVIZ_KUR,
--CASE SIGN WHEN 0 THEN  ROUND(CARHAR.TRNET,2) ELSE  ROUND(-1*CARHAR.TRNET,2) END ISL_DOVIZ_TUTAR
FROM LG_004_01_CLFLINE CARHAR WITH (NOLOCK)
LEFT OUTER JOIN LG_004_CLCARD CK WITH (NOLOCK) ON (CARHAR.CLIENTREF = CK.LOGICALREF) 
WHERE CARHAR.BRANCH IN ( 0 ) AND CARHAR.DEPARTMENT IN ( 0 )
AND (CARHAR.TRCODE IN ( 31, 32, 33, 34, 36, 37, 38, 39, 43, 44, 56, 1, 2, 3, 4, 5, 6, 12, 14, 41, 42, 45, 46, 70,71, 72, 73, 20, 21, 24, 25, 28, 29, 30, 61, 62, 63, 64, 75, 81, 82 )) 
--AND CK.CODE=@CODE AND CARHAR.DATE_>=@TARIH1  AND CARHAR.DATE_ <=@TARIH2 
and CARHAR.CANCELLED=0 
ORDER BY 1

(09-02-2022, Saat: 20:47)adelphiforumz Adlı Kullanıcıdan Alıntı: Merhabalar

LOGO yazılım Database ile bir entegrasyon yapmam lazım daha önceden uğraşan DB yapısını bilen varsa yardımcı olabilirmi

İhtiyacım olan firmanın günlük olarak tüm parasal giriş(TAHSİLAT) hareketlerine ulaşmaya çalışıyorum 
Logo bunu herbiri farklı raporlarla veriyor bense Direkt DB üzerinden bir Soru ile alabilirmiyim.

KASA GİRİŞLERİ
HAVALE
EFT
ÇEK
KREDİ KARTI
POS
VB......

Teşekkürler