
		
Logo ürünleri için geliştirmiş olduğum bu program muhasebeciler için gerekli olan , fiyat kartı olmayan ürünlerin eksik olduğunu bildiren bir mekanizma sunar.
Sistem belirlenen saat veya tarihlerde çalışır veritabanını tarar , fiyatsız ürün bulduğu takdirde bunları excel listesi oluşturarak ilgili kişilere mail ile bildirimini yapar.
Programın Lisans Ücreti için üst menüde bulunan fiyat listesi kısmından inceleyebilirsiniz.
İletişim ve Hesap Numaralarım iletişim sayfasında mevcuttur.
Tags : Logo , Fiyatsız , Ürünler , Malzemeler , Aktarma , Listeleme , SQL , Query , ITEMS , Sorgu
 
' 000000000000000000000000000000000000000000000000000000000000000000000000000
' Visual Dil Grubu için Verilen Doğum Tarihinden Kişinin Yaşının Hesaplanması
' Fonksiyon Kullanım için tarihe yol vermeniz gerekir.
' Örneğin Response.Write kacyasinda("01.01.2000") şeklinde kullanılır.
' 000000000000000000000000000000000000000000000000000000000000000000000000000
Public Function KacYasinda(DogumGunu)
    Dim DogumTarihi As Date
    DogumTarihi = DateValue(DogumGunu)
    
    `Yasi hesapla
    Dim Yas As Integer
    Yas = Int(DateDiff("D", DogumTarihi, Now) / 365.25)
    
    KacYasinda = Yas
End Function
Public Function FlipData(data) length = Len(data) If length = 0 Then Exit Function For i=1 To length cache = Mid(data,i,1) & cache Next FlipData = cache End Function
Function TumBasHarfleriBuyut(ByVal GelenVeri As String) As String
    Dim BoslukYeri As Integer
    Mid(GelenVeri, 1, 1) = UCase(Mid(GelenVeri, 1, 1))
    BoslukYeri = InStr(GelenVeri, " ")
    While BoslukYeri <> 0
        Mid(GelenVeri, BoslukYeri + 1, 1) = UCase(Mid(GelenVeri, BoslukYeri + 1, 1))
        BoslukYeri = InStr(BoslukYeri + 1, GelenVeri, " ")
    Wend
    TumBasHarfleriBuyut = GelenVeri
End Function
