From 6e6a4b2692f6941c590705d21d9eb71175e4214c Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 16 Jun 1997 07:27:23 +0000
Subject: [PATCH] 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 | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/cg/cg6901.cpp b/cg/cg6901.cpp
index ddb950819..6ee6e5862 100755
--- a/cg/cg6901.cpp
+++ b/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;
 }