http://www.erpne.org/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 17 Apr 2026 17:40:42 +0000 Wed, 05 Nov 2008 23:20:55 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 11.10 360 www.erpne.org/RSS_post_feed.asp?TID=1196 http://www.erpne.org/forum_images/logotype.png http://www.erpne.org/ http://www.erpne.org/kosul-kontrol-programi-v3-0_topic1196_post7078.html#7078 Yazar: Asri
Konu: 1196
Gönderim Zamanı: 05 Kasım 2008 Saat 23:20

Merhaba,

  netsis deki vbscript ile yazilan kosul dosyasi için hata kontrol programi yazmistim.

Version 3.0 Özellikleri.
- Referans.ini dosyasi kullanarak kelime bazinda yazim hatalari kontrolü.
- yazimhatalari.ini dosyasi kullanarak parantez ve tirnak (")" yada
  sizin belirleyeceginiz hatali yazim kelimeleri kontrolü.
- LEFT komutunda alinan parça ile karsilastirilan karakter lerin uzunluklarinin
  esit olup olmadiginin kontrolü.
- LEFT deki ve diger STOKKODU,STOKGRUP,CARIGRUP, VADEKODU, VADEHANGIISK degerlerinin
  ilgili txt data dosyalarinda olup olmadiklarinin kontrolü.
- IF ... THEN ve END IF  bloklarinin kontrolü. END IF ile bitmeyenlerin tespiti.
- THEN ile bitmeyenlerin kontrolü.
- Yazim hatalari için kirmizi renk, Deger hatalari için pembe, Kodlama hatalari
  için Mavi renk kullanimi.
- Kod aralarindaki fazla bosluklarin silinmesi.
- Tüm hata islemleri için log kayitlarinin yapilmasi.Her bir hata için satir numaralarinin eklenmesi saglandi.
- Bosluk silme, Deger kontrolü ve Çift tirnak hata kontrolünün seçimli olmasi saglandi.
- ' ile yapilan açiklamalarin dikkate alinmamasi.
- Kosul editör sayfasi eklendi. Kosul yazimi aninda VB kodlarinin renklendirilmesi saglandi.

* Deger kontrollerinin yapilabilmesi için ilgili firmanin
  STOKKODU,STOKGRUP,CARIGRUP, VADEKODU, VADEHANGIISK degerlerinin ilgili txt dosyaya yazilmis olmasi gerekiyor.
* Program tarafindan hatali görünen ancak hatali olmadigi düsünülen kelimelerin. Referans.ini
  dosyasina kayit edilmis olmasi gerekiyor.
  Program Referans olustur butonu ile bu islemi otomatik olarak yapacaktir. Ancak bu islem yapilmadan önce
  referans a eklenecesk kosul dosyasinin hatasiz olmasi gerekmektedir.

Örnek Log Dosyasi: Bu hatalar ayni zamanda görsel olarak renklendiriliyor.

4. satirda -->CARIKOD1 = NETDB.FIELDS(1).ASSTRIN
Bu satirda hatali kelime ASSTRIN yazimi mevcut.
 
3. satirda -->CARIGRU = NETDB.FIELDS(0).ASSTRING
Bu satirda hatali kelime CARIGRU yazimi mevcut.
 
33. satirda -->IF(CARIGRU = "212") THEN SONUCDETAY.ISKORANLARI() = 3
Bu satirda hatali kelime CARIGRU yazimi mevcut.
 
23. satirda -->IF(CARIGRUP"203") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda hatali kelime CARIGRUP"203" yazimi mevcut.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
Bu satirda hatali kelime STOKKOD yazimi mevcut.
 
27. satirda -->IF(CARIGRUP = "") THENN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda hatali kelime THENN yazimi mevcut.
 
21. satirda -->IF(CARIGRUP = "201" THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda parantez () hatasi mevcut.
 
30. satirda -->IF(CARIGRUP = "210")) THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda parantez () hatasi mevcut.
 
22. satirda -->IF(CARIGRUP = 202") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda tirnak "" eksikligi mevcut.
 
28. satirda -->IF(CARIGRUP = ") THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
29. satirda -->IF(CARIGRUP = 209") THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
31. satirda -->IF(CARIGRUP = "211) THEN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda tirnak "" eksikligi mevcut.
 
25. satirda -->F(CARIGRUP = "205") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF ile baslanmasi gerekiyor.
 
26. satirda -->I(CARIGRUP = "206") THEN SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF ile baslanmasi gerekiyor.
 
24. satirda -->IF(CARIGRUP = "204") SONUCDETAY.ISKORANLARI(2) = 3
Bu satirda IF den sonra THEN kullanilmamis.
 
27. satirda -->IF(CARIGRUP = "") THENN SONUCDETAY.ISKORANLARI(2) = 1
Bu satirda hataliyazim.ini dosyasindaki "" yazim hatasi mevcut.
 
33. satirda -->IF(CARIGRU = "212") THEN SONUCDETAY.ISKORANLARI() = 3
Bu satirda hataliyazim.ini dosyasindaki () yazim hatasi mevcut.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
LEFT de 2 karakter alinmis. Karsilastirma 3 karakter ile yapiliyor.
 
20. satirda -->IF(LEFT(STOKKOD,2) = "000") THEN
Bu 000 degeri STOKKOD dosyasinda ilk 2 karakterde bulunamadi.
 
53. satirda -->IF( LEFT (STOKKODU,4) = "0101" AND STOKKODU <> "0101006" ) THEN
Bu 0101 degeri STOKKODU dosyasinda ilk 4 karakterde bulunamadi.
 
48. satirda -->IF(LEFT(STOKKODU,2) = "00") THEN
IF .. THEN blogundan sonra END IF kullanilmamis.

Programin indirme linki:

http://rapidshare.com/files/160998495/kosulkontrol.zip.html

Iyi çalismalar.


]]> Wed, 05 Nov 2008 23:20:55 +0000 http://www.erpne.org/kosul-kontrol-programi-v3-0_topic1196_post7078.html#7078