From 8859f4d506cd87b094f6cb8ddab23d3b3cec5719 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 23 Oct 1996 14:21:44 +0000
Subject: [PATCH] Correzzione al codice magazzino e codice IVA

git-svn-id: svn://10.65.10.50/trunk@3817 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/velib01.cpp |  3 +++
 ve/verig.uml   | 22 +++++++++++-----------
 2 files changed, 14 insertions(+), 11 deletions(-)

diff --git a/ve/velib01.cpp b/ve/velib01.cpp
index cc27765ac..f52e5e571 100755
--- a/ve/velib01.cpp
+++ b/ve/velib01.cpp
@@ -213,7 +213,10 @@ HIDDEN bool iva_handler( TMask_field& f, KEY key )
     const TString16 codiva = mask.condv().clifo().get(LF_CFVEN, "ASSFIS");
 
     if (codiva.not_empty())
+    {
       f.set(codiva);
+      f.check();
+    }
   }
   return TRUE;
 }
diff --git a/ve/verig.uml b/ve/verig.uml
index dd8fbdd5b..25604e24c 100755
--- a/ve/verig.uml
+++ b/ve/verig.uml
@@ -69,22 +69,22 @@ ELSEIF
   PROMPT 2 3 "Magazzino   "
 ENDIF
   USE MAG SELECT CODTAB ? "???"
-  INPUT  CODTAB[1,3] FR_CODMAG
-  DISPLAY "Codice" CODTAB[1,3]
+  INPUT CODTAB FR_CODMAG
+  DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
-  OUTPUT FR_CODMAG CODTAB[1,3]
+  OUTPUT FR_CODMAG CODTAB
   OUTPUT FR_DESMAG S0
-IFDEF(CH_CODMAG)
-  CHECKTYPE CH_CODMAG
-ELSE
-  CHECKTYPE NORMAL
-ENDIF
   WARNING "Magazzino assente"
   FLAGS "U"
 IFDEF(FL_CODMAG)
   FLAGS FL_CODMAG
 ENDIF
   KEY 1
+IFDEF(CH_CODMAG)
+  CHECKTYPE CH_CODMAG
+ELSEIF
+  CHECKTYPE NORMAL
+ENDIF
   FIELD CODMAG[1,3]
 END
 
@@ -107,14 +107,14 @@ ENDIF
 IFDEF(F_CODDEP)
 STRING FR_CODDEP 2
 BEGIN
-IFDEF(X_DESMAG)
+IFDEF(X_CODDEP)
   PROMPT X_DESMAG Y_DESMAG PR_DESMAG
 ELSEIF
   PROMPT 2 4 "Deposito    "
 ENDIF
   USE MAG SELECT (CODTAB[1,3]==#FR_CODMAG) && (CODTAB ? "?????")
-  IN CODTAB[1,3] FR_CODMAG
-  IN CODTAB[4,5] FR_CODDEP
+  INPUT CODTAB[1,3] FR_CODMAG
+  INPUT CODTAB[4,5] FR_CODDEP
   DISPLAY "Codice mag." CODTAB[1,3]
   DISPLAY "Codice dep." CODTAB[4,5]
   DISPLAY "Descrizione@50" S0