Netsis Script Desteği ile Kullanıcının Bulunduğu Gün Dışındaki Evrakların İçine Girmeyi Engelleme

Merhabalar

Netsiste bazen personelin bulunduğu gün dışında işlem yapmasını istemiyoruz bunu script desteği diğer adı dinamik kodlama ile yapabiliriz.

Script kod desteğini açmak için önce ilgili modülün sol üst köşesindeki logoya tıklıyoruz ve açılan menüden Netsis Script Kode Desteğine giriş yapıyoruz.

Sonrasında açılan ekrandan sol menüden TNetMaskEdit altındaki Tarihi seçip aşağıdan On Exit eventini seçiyoruz.

Sağ tarafta açılan kod geliştirme ekranına aşağıdaki kodları yazıp kayıt etmet bu iş için yeterli olacaktır.

Dim Kullanici
kullanici = NetsisCore.NetLibSession.NetsisUserName

if kullanici="netsis" then

   fark = DateDiff("d", Tarih.Text, Now)
   
   if fark > 0 then
      NETSISCORE.NetLibWin32.ShowNetsisMesaj "Geçmis Tarihlere Giris Yapamazsiniz." , 2
      Tarih.Text = GirilenTar
      tarih.SetFocus
   end if
   
   if fark < 0 then
      NETSISCORE.NetLibWin32.ShowNetsisMesaj "Ileri Tarihlere Kayit Yapamazsiniz." , 2
      Tarih.Text = GirilenTar
      tarih.SetFocus
   end if

end if