Corretta descrizione IVA

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

ve/verig.h

@@ -45,4 +45,5 @@
 #define FR_DESDEP      151
 #define FR_DESIVA      152
 #define FR_DESASP      153
+#define FR_DESTIPORIGA 154
 #endif                    

ve/verig.uml

@@ -34,14 +34,28 @@ PAGE MASK_TITLE1 -1 -1 MASK_WIDTH MASK_HEIGHT
 
 STRING FR_STATORIGA 2
 BEGIN
-  PROMPT 0 0 ""
+  PROMPT 2 1 "Stato riga "
-  FLAGS "H"
+  FLAGS "DG"
 END
 
 STRING FR_TIPORIGA 2
 BEGIN
-  PROMPT 0 0 ""
+  PROMPT 2 2 "Tipo riga  "
-  FLAGS "H"
+  USE %TRI
+  IN CODTAB FR_TIPORIGA
+  OU FR_DESTIPORIGA S0
+  CHECKTYPE NORMAL
+  FLAGS "DG"
+END
+
+#ifdef FULL_SCREEN
+STRING FR_DESTIPORIGA 50
+#else
+STRING FR_DESTIPORIGA 25
+#endif
+BEGIN
+  PROMPT 16 2 ""
+  FLAGS "D"
 END
 
 IFDEF(F_CODMAG)
@@ -171,6 +185,7 @@ ENDIF
   OUTPUT FR_DESCRSPV S0
   OUTPUT FR_VALORE R0
   OUTPUT FR_CODIVA S1[1,4]
+  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
 IFDEF(CH_CODSPV)
   CHECKTYPE CH_CODSPV
 ELSEIF
@@ -195,6 +210,7 @@ ENDIF
   OUTPUT FR_DESCRSPQ S0
   OUTPUT FR_PREZZO R0
   OUTPUT FR_CODIVA S1[1,4]
+  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
 IFDEF(CH_CODSPQ)
   CHECKTYPE CH_CODSPQ
 ELSEIF
@@ -219,6 +235,7 @@ ENDIF
   OUTPUT FR_DESCRSPP S0
   OUTPUT FR_PERCSP R0
   OUTPUT FR_CODIVA S1[1,4]
+  MESSAGE DIRTY,FR_CODIVA|K_TAB,FR_CODIVA
 IFDEF(CH_CODSPP)
   CHECKTYPE CH_CODSPP
 ELSEIF