Bir Çekin Muhasebe Fişi İçin Sorgu

[maximis]

Merhabalar, SQL Serverda Seri Numarasını Bildiğimiz bir Firma Çekinin Muhasebe Fişini Nasıl sorgulayabiliriz. Program içinde Bordro da İlgili muhasebe fişi özelliği var ancak çek kartında bu özellik yok çok sayıda çek olduğu için işlemi bir dorgu ile gerçekleştirmek gerekiyor. Sorgu hakkında önerisi olan arkadaşlardan yardım talep ediyorum

[memorphin]

muhasebeleşmiş bordro üzeirnde sağ tıklatıp ilgili muhasebe fişlerine ulaşabilirsiniz

[maximis]

Mesajımdada Bahsettiğim gibi Bu özelliğin var olduğunu ve fiş bilgisine erişmenin mümkün pşduğunu biliyorum, Ancak elimde 1000 in üzerinde çek olduğundan önce her çekin bordrosunu sonra fişini tek tek bulmak kolay bir çalışma değil, benim amacım bir sorgu ile excelden vba kullanarak seri numarasına göre SQL e sorgu göndermek ve dönen sonucu çekin ilgili alanına yazdırmak, böylece birkaç saniye içindetüm çeklerin kayıt bilgilerini almak.

[memorphin]

örnekle açıklarmısınız ? çek kaydından istediğiniz nedir?

[maximis]

Bir çek kaydından maksadım. Cari Hesaplara çıkışı yapılmış olan Kendi çeklerimiz diye tabir edilen firma çeklerinin Muhasebe Fiş bilgisi dir.

  Örnek Firma çeklerinden 0467764 Seri Numaralı çekin Muhasebe Fişini bulmak Bunun için Sorgu kullanacağım,

Kod: (VBA) [Seç]

Sub Firma_Cek_Sorgu()

Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
    i = 6
     With conn
     conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;" & _
                             "Initial Catalog=GO;Data Source= Istshipsbs "
     conn.Open
    End With
       
        SqlText = " SELECT    " _
                               & " WHERE NEWSERINO = " 'Range(i,1)""' (ÇEK NO İLE SORGULANACAK)'"
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly

    Range("A6:I65500").ClearContents
    Dim i As Integer
   
    Do While Not rs.EOF
        Range("A" & i) = rs!CEKNO
        Range("B" & i) = rs!BORDRONO
        Range("C" & i) = rs!CEKVADE
        Range("D" & i) = rs!MAHSUPTARIHI
        Range("E" & i) = rs!MAHSUPNO
        Range("F" & i) = rs!VERILDIGICARI
        rs.MoveNext
     
    Loop
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
  i = i + 1
End Sub


[maximis]

Konu hakkında bilgisi olan arkadaş yok mu acaba

[memorphin]

arkadaşım biraz sabırlı ol herkesin işi var bi müsait olup bakıcaz

[Monsieur®]

Merhaba,

Sanırım bayağı bi sıkışmışsın bu konuda
İstemiş olduğun şey her zaman düzgün çalışmayabilir.

Sanırım yazılım ile yapıyorsun.
Önce muhasebe bağlantısı olupta muhaseb fişi bağlantısı olmayan kayıtları(fişleri bulman lazım) (çünkü bunlar senin istediğin bilgiye ulaşmanı engelleyecek kayıtlardır.)
Sonra senin istediğini yapabilirsin.

İki tablo arasındaki bağlantın

SELECT ACCFICHEREF
FROM LG_XXX_YY_CSROLL

Burada gerçekleşiyor.

Kolay gelsin.