From 7b4320cec7e691bb7789939cc50f05c3386ec2ed Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 15 Feb 1995 08:51:41 +0000
Subject: [PATCH] Eliminato Isamfile in ba1100 Corretto validate del codice CAB
 delle persone

git-svn-id: svn://10.65.10.50/trunk@1000 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba1100.cpp  |  6 +-----
 ba/ba4200b.uml | 16 ++++++++--------
 ba/ba4200c.uml | 14 +++++++-------
 3 files changed, 16 insertions(+), 20 deletions(-)

diff --git a/ba/ba1100.cpp b/ba/ba1100.cpp
index 293674b6c..2ea0e0cf2 100755
--- a/ba/ba1100.cpp
+++ b/ba/ba1100.cpp
@@ -594,9 +594,7 @@ void TManutenzione_app::update()
   update_dir();
   convert_dir();
   
-  TIsamfile ditte(LF_NDITTE);
-  
-  ditte.open();
+  TLocalisamfile ditte(LF_NDITTE);
   
   for (ditte.first(); !ditte.eof(); ditte.next())
   {
@@ -606,10 +604,8 @@ void TManutenzione_app::update()
     if (prefhndl->exist(codditta))
     {
       set_firm(codditta);
-      ditte.close();
       update_dir();
       convert_dir();
-      ditte.open();
     }
     ditte.readat(rec);
   }
diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml
index fa9a11c13..fcb53e95e 100755
--- a/ba/ba4200b.uml
+++ b/ba/ba4200b.uml
@@ -137,7 +137,7 @@ NUMBER F_STATO 3
 BEGIN
   PROMPT 44 5 "Stato                       "
   FIELD LF_ANAGFIS->STATO
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %STA
   INPUT CODTAB F_STATO
   DISPLAY "Codice" CODTAB
@@ -311,7 +311,7 @@ NUMBER F_STATORES 3
 BEGIN
   PROMPT 2 7 "Comune : Stato  "
   FIELD LF_ANAG->STATORES
-  FLAGS "RZ"
+  FLAGS "Z"
   COPY USE F_STATO
   INPUT CODTAB F_STATORES
   COPY DISPLAY F_STATO
@@ -517,7 +517,7 @@ NUMBER FLD_AF2_STATOCORR 3
 BEGIN
   PROMPT 2 7 "Comune : Stato  "
   FIELD LF_ANAG->STATOCORR
-  FLAGS "RZ"
+  FLAGS "Z"
   COPY USE F_STATO
   INPUT CODTAB FLD_AF2_STATOCORR
   COPY DISPLAY F_STATO
@@ -780,7 +780,7 @@ BEGIN
   PROMPT 2 15 "Codice ABI       "
   HELP "Codice ABI della banca di appoggio"
   FIELD LF_ANAG->CODABI
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %BAN
   INPUT CODTAB[1,5] F_CODABI
   INPUT CODTAB[6,10] F_CODCAB
@@ -797,10 +797,10 @@ BEGIN
   PROMPT 42 15 "Codice CAB          "
   HELP "Codice CAB della banca di appoggio"
   FIELD LF_ANAG->CODCAB
-  FLAGS "RZ"
+  FLAGS "Z"
   COPY ALL F_CODABI
   CHECKTYPE NORMAL
-  VALIDATE REQIF_FUNC F_CODABI
+  VALIDATE REQIF_FUNC 1 F_CODABI
 END
 
 ENDPAGE
@@ -984,7 +984,7 @@ STRING F_UFFIIDD 3
 BEGIN
   PROMPT 1 7 "Imposte Dirette "
   FIELD LF_ANAG->UFFIIDD 
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %UID
   INPUT CODTAB F_UFFIIDD
   DISPLAY "Ufficio" CODTAB
@@ -1019,7 +1019,7 @@ END
 STRING F_UFFIVA 3
 BEGIN
   PROMPT 1 9 "Ufficio IVA     "
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %UIV
   INPUT CODTAB F_UFFIVA
   DISPLAY "Ufficio" CODTAB
diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml
index 598996c3b..fe1df0fae 100755
--- a/ba/ba4200c.uml
+++ b/ba/ba4200c.uml
@@ -231,7 +231,7 @@ NUMBER F_STATORES 3
 BEGIN
   PROMPT 2 6 "Comune : Stato  "
   FIELD LF_ANAG->STATORES
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %STA 
   INPUT CODTAB F_STATORES
   DISPLAY "Codice" CODTAB
@@ -449,7 +449,7 @@ NUMBER FLD_AG2_STATOCORR 3
 BEGIN
 	PROMPT 2 6 "Comune : Stato  "
   FIELD LF_ANAG->STATOCORR
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %STA 
   INPUT CODTAB FLD_AG2_STATOCORR
   DISPLAY "Codice" CODTAB
@@ -882,7 +882,7 @@ BEGIN
   PROMPT 2 15 "Codice ABI       "
   HELP "Codice ABI della banca di appoggio"
   FIELD LF_ANAG->CODABI
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %BAN
   INPUT CODTAB[1,5] F_CODABI
   INPUT CODTAB[6,10] F_CODCAB
@@ -899,10 +899,10 @@ BEGIN
   PROMPT 42 15 "Codice CAB          "
   HELP "Codice CAB della banca di appoggio"
   FIELD LF_ANAG->CODCAB
-  FLAGS "RZ"
+  FLAGS "Z"
   COPY ALL F_CODABI
   CHECKTYPE NORMAL
-  VALIDATE REQIF_FUNC F_CODABI
+  VALIDATE REQIF_FUNC 1 F_CODABI
 END
 
 ENDPAGE
@@ -1111,7 +1111,7 @@ STRING F_UFFIIDD 3
 BEGIN
   PROMPT 1 7 "Imposte Dirette "
   FIELD LF_ANAG->UFFIIDD 
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %UID
   INPUT CODTAB F_UFFIIDD
   DISPLAY "Ufficio" CODTAB
@@ -1145,7 +1145,7 @@ END
 STRING F_UFFIVA 3
 BEGIN
   PROMPT 1 9 "Ufficio IVA     "
-  FLAGS "RZ"
+  FLAGS "Z"
   USE %UIV
   INPUT CODTAB F_UFFIVA
   DISPLAY "Ufficio" CODTAB