cari bilgisi

örn:

fatura edilecek irsaliyesi varsa: x adet fatura edilecek irsaliyesi var.

vadesi gelmemis çekleri varsa : x tutarinda bekleyen çeki var

gibi

TBLCARIMEKTUP Tablosunu incele.

örn:

 

cümle söyle :

SELECT 'CARI TOPLAMI','', SUM(PROJE_CARI.BORC_BAKIYE- PROJE_CARI.ALACAK_BAKIYE), NULL
FROM PROJE_CARI PROJE_CARI
WHERE (PROJE_CARI.CARI_ISIM Like ?) AND (PROJE_CARI.CARI_KOD Not Like '105R%')

UNION ALL
SELECT 'KENDI CEKI TOPLAMI', '', SUM(TBLMCEK.TUTAR),NULL
FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK
WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND  (CARI_ISIM LIKE ?) AND (TBLMCEK.SC_YERI<>'I') AND (TBLMCEK.SC_SONDUR='B') AND (TBLMCEK.AS_C='A')

UNION ALL
SELECT 'KENDI SENEDI TOPLAMI', '', SUM(TBLMSEN.TUTAR), NULL
FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN
WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_YERI<>'I') AND (TBLMSEN.SC_SONDUR='B') AND (TBLMSEN.AS_C='A') AND (CARI_ISIM Like ?))

UNION ALL
SELECT 'MUSTERI CEKI TOPLAMI', '', SUM(TBLMCEK.TUTAR), NULL
FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK
WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND ((TBLMCEK.SC_YERI<>'I') AND (TBLMCEK.SC_SONDUR='B') AND (TBLMCEK.AS_C='C')  AND (CARI_ISIM Like ?))

UNION ALL
SELECT 'MUSTERI SENEDI TOPLAMI', '',SUM(TBLMSEN.TUTAR), NULL
FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN
WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_YERI<>'I') AND (TBLMSEN.SC_SONDUR='B') AND (TBLMSEN.AS_C='c') AND (CARI_ISIM Like ?))

UNION ALL
SELECT 'FATURA EDILMEMIS IRSALIYE TOPLAMI', '', SUM(TBLFATUIRS.GENELTOPLAM), NULL
FROM TBLCASABIT TBLCASABIT, TBLFATUIRS TBLFATUIRS
WHERE TBLCASABIT.CARI_KOD = TBLFATUIRS.CARI_KODU AND ((TBLFATUIRS.FTIRSIP='3') AND (CARI_ISIM Like ?))

UNION ALL
SELECT 'KARSILIKSIZ CEKLER TOPLAMI',  '', SUM(TBLMCEK.TUTAR), NULL
FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK
WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND ((TBLMCEK.SC_SONDUR='P') AND (CARI_ISIM Like ?))

UNION ALL
SELECT 'PROTESTO OLAN SENET TOPLAMI','', SUM(TBLMSEN.TUTAR), NULL
FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN
WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_SONDUR='P') AND (CARI_ISIM Like ?))

 

not: (CARI_ISIM Like ?) soru isareti a1 hücresine yazdigim cari ismi içeriyor

1- yukaridaki cümleyi içerisinde cari isim bulunacak sekilde tekrar dizayn etsem

2- bu cümleyle yeni bir view olustursam

3- son olarakta bu view de bulunan bilgiyi cari karttaki cari bilgisine yazacak trigger i olustursak (sizlerin yardimi ile)

istedigim sonucu elde edebilirmiyim?

benim bu istegime yardimci olacak kimse yokmu. en azindan

"fatura edilecek irsaliyesi : x adet fatura edilecek irsaliyesi var." yazdirmak istiyorum.

bunun nasil yapildigini görsem gerisini kendim hallederim.

 

 

Asagidaki kodu Excel'inizdeki buttonlardan birine koymaniz durumunda A1 hücresinde yazan Cari Isime göre istediginiz cümlenin yazilmasini saglamaktadir. Cari bilgisi ekraninda malesef ki yeni bilgi bir alt satira yazilsin gibi bir yapi yok. O nedenle bilgiler yanyana yazilabilmektedir.

 

Iyi Çalismalar...

 

    Set Baglanti = CreateObject("ADODB.CONNECTION")
    Set Rs = CreateObject("ADODB.Recordset")
    Set Rs1 = CreateObject("ADODB.Recordset")
    Set Rs2 = CreateObject("ADODB.Recordset")
    Set Rs3 = CreateObject("ADODB.Recordset")
    Baglanti.Open "driver={SQL SERVER};server=ISTNB33\SQL2005;database=APMOLLER;uid=sa;pwd=123456;"
    Dim Str As String
    Dim CARI As String
   
    SQLSTR3 = "SELECT CARI_KOD FROM TBLCASABIT WHERE CARI_ISIM LIKE '%" + Me.Cells(1, 1) + "%'"
    Rs3.Open SQLSTR3, Baglanti
    CARI = Rs3!CARI_KOD
   
    SQLSTR = "SELECT    'KENDI CEKI TOPLAMI:'+ CAST(ISNULL(SUM(TBLMCEK.TUTAR),0) AS NVARCHAR) SONUC"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND  (CARI_ISIM LIKE 'ULKER GRUBU') AND (TBLMCEK.SC_YERI<>'I') AND (TBLMCEK.SC_SONDUR='B') AND (TBLMCEK.AS_C='A')"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'KENDI SENEDI TOPLAMI:'+ CAST(ISNULL(SUM(TBLMSEN.TUTAR),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_YERI<>'I') AND (TBLMSEN.SC_SONDUR='B') AND (TBLMSEN.AS_C='A') AND (CARI_ISIM Like 'ULKER GRUBU'))"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'MUSTERI CEKI TOPLAMI:'+ CAST(ISNULL(SUM(TBLMCEK.TUTAR),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND ((TBLMCEK.SC_YERI<>'I') AND (TBLMCEK.SC_SONDUR='B') AND (TBLMCEK.AS_C='C')  AND (CARI_ISIM Like 'ULKER GRUBU'))"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'MUSTERI SENEDI TOPLAMI:' + CAST(ISNULL(SUM(TBLMSEN.TUTAR),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_YERI<>'I') AND (TBLMSEN.SC_SONDUR='B') AND (TBLMSEN.AS_C='c') AND (CARI_ISIM Like 'ULKER GRUBU'))"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'FATURA EDILMEMIS IRSALIYE TOPLAMI:' + CAST(ISNULL(SUM(TBLFATUIRS.GENELTOPLAM),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLFATUIRS TBLFATUIRS"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLFATUIRS.CARI_KODU AND ((TBLFATUIRS.FTIRSIP='3') AND (CARI_ISIM Like 'ULKER GRUBU'))"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'KARSILIKSIZ CEKLER TOPLAMI:' + CAST(ISNULL(SUM(TBLMCEK.TUTAR),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMCEK TBLMCEK"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMCEK.SC_VERENK AND ((TBLMCEK.SC_SONDUR='P') AND (CARI_ISIM Like 'ULKER GRUBU'))"
    SQLSTR = SQLSTR & " Union ALL"
    SQLSTR = SQLSTR & " SELECT 'PROTESTO OLAN SENET TOPLAMI:' + CAST(ISNULL(SUM(TBLMSEN.TUTAR),0) AS NVARCHAR)"
    SQLSTR = SQLSTR & " FROM TBLCASABIT TBLCASABIT, TBLMSEN TBLMSEN"
    SQLSTR = SQLSTR & " WHERE TBLCASABIT.CARI_KOD = TBLMSEN.SC_VERENK AND ((TBLMSEN.SC_SONDUR='P') AND (CARI_ISIM Like 'ULKER GRUBU'))"
    Rs.Open SQLSTR, Baglanti
   
    While Not Rs.EOF
       Str = Str + Rs!SONUC + " " + Chr(10)
    Rs.MoveNext
    Wend

    SQLSTR1 = "DELETE FROM TBLCARIMEKTUP WHERE CARI_KOD='" + CARI + "'"
    Rs1.Open SQLSTR1, Baglanti

    SQLSTR2 = "INSERT INTO TBLCARIMEKTUP(CARI_KOD,MEKTUP) SELECT'" & CARI & "', '" & Str & "'"
    Rs2.Open SQLSTR2, Baglanti