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