fatihseda
Yeni Üye
- Katılım
- 25 Eki 2018
- Mesajlar
- 16
- En iyi yanıt
- 0
- Puanları
- 1
- Konum
- Burdur
- Ad Soyad
- Ali İhsan Bekar
- Office Vers.
- Office 2019 TR
Aşağıdaki sorguda çeki keşide eden değilde çeki bize veren/ciro eden bilgisini nasıl getirtebilirim.
PHP:
Sub Cekler()
Call degisken: Call baglan: Call tertemiz
S = "SELECT SETDATE 'GİRİŞ TARİHİ', "
S = S & " CASE DOC WHEN 1 THEN 'Çek Girişi' "
S = S & " WHEN 2 THEN 'Senet Girişi' "
S = S & " WHEN 3 THEN 'Çek Çıkış (Cari Hesaba)' "
S = S & " WHEN 4 THEN 'Senet Çıkış (Cari Hesaba)' "
S = S & " WHEN 5 THEN 'Çek Çıkış (Banka Tahsil)' "
S = S & " WHEN 6 THEN 'Senet Çıkış (Banka Tahsil)' "
S = S & " WHEN 7 THEN 'Çek Çıkış (Banka Teminat)' "
S = S & " WHEN 8 THEN 'Senet Çıkış (Banka Teminat)' "
S = S & " WHEN 9 THEN 'İşlem Bordrosu(Müşteri Çeki)' "
S = S & " WHEN 10 THEN 'İşlem bordrosu (Müşteri Senedi)' "
S = S & " WHEN 11 THEN 'İşlem Bordrosu (Kendi Çekimiz)' "
S = S & " WHEN 12 THEN 'İşlem Bordrosu (Borç Senedimiz)' Else 'Ne Oldugu Belirsiz' END 'İŞLEM TÜRÜ', "
S = S & " Case CURRSTAT WHEN 1 THEN 'Portföyde' "
S = S & " WHEN 2 THEN 'Ciro Edildi' "
S = S & " WHEN 3 THEN 'Teminata Verildi' "
S = S & " WHEN 4 THEN 'Tahsile Verildi' "
S = S & " WHEN 5 THEN 'Protestolu Tahsile Verildi' "
S = S & " WHEN 6 THEN 'İade Edildi' "
S = S & " WHEN 7 THEN 'Protesto Edildi' "
S = S & " WHEN 8 THEN 'Tahsil Edildi' "
S = S & " WHEN 9 THEN 'Kendi Çekimiz' "
S = S & " WHEN 10 THEN 'Borç Senedimiz' "
S = S & " WHEN 11 THEN 'Karşılığı Yok' "
S = S & " WHEN 12 THEN 'Tahsil Edilemiyor' Else 'Ne Oldugu Belirsiz' END 'DURUMU', "
S = S & " PORTFOYNO 'PORTFÖY NO', NEWSERINO 'SERİ NO',DueDate 'VADE',BANKNAME 'BANKA ADI', OWING 'BORÇLU',AMOUNT 'TUTAR' "
S = S & " FROM LG_" & Firma & "_" & Dönem & "_CSCARD "
S = S & " WHERE CURRSTAT IN (1) AND DOC IN (1,2) " 'AND DUEDATE BETWEEN '" & tarih1 & "' AND '" & tarih2 & "' OR SETDATE BETWEEN '" & tarih1 & "' AND '" & tarih2 & "' "
S = S & " ORDER BY DUEDATE "
rs.Open S, con
Cells(7, 1).CopyFromRecordset rs
Call kapat
End Sub
Moderatör tarafında düzenlendi: