Correzione sul controllo del codice registro numerico in

invio causali a Sistema: cambiata la controlla_valore().


git-svn-id: svn://10.65.10.50/trunk@4672 c028cbd2-c16b-5b4b-a496-9718f37d4682

cg/cg6901.cpp

@@ -157,14 +157,14 @@ bool TLista_archivi::set()
      
 bool TLista_archivi::controlla_valore(const TString& val,int lim, int len)
 {
-  if (val.len() > len)
-    return FALSE;
   if (real::is_natural(val))
   {
-    int app = atoi(val);
-    if (app > lim)
+    if (atoi(val) > lim)
       return FALSE;
   }
+  else
+    if (val.len() > len)
+      return FALSE;
   
   return TRUE;
 }