From a246d81e51cf1428d329df34bfd580a18d6e0d6b Mon Sep 17 00:00:00 2001
From: luca <luca@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 23 Mar 2010 14:56:55 +0000
Subject: [PATCH] Patch level         :10.0 Files correlati     :
 Ricompilazione Demo : [ ] Commento            : modifiche minori alla
 maschera

git-svn-id: svn://10.65.10.50/trunk@20260 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/cgtbivd.uml | 37 +++++++++++++++----------------------
 1 file changed, 15 insertions(+), 22 deletions(-)

diff --git a/cg/cgtbivd.uml b/cg/cgtbivd.uml
index b5ea15b84..247b60c7c 100755
--- a/cg/cgtbivd.uml
+++ b/cg/cgtbivd.uml
@@ -10,18 +10,17 @@ PAGE "Voci di bilancio IV direttiva CEE" 0 2 0 0
 LIST F_SEZ 1 18
 BEGIN
   PROMPT 1 1 "Sezione "
-  FIELD %IVD->CODTAB[1,1]
   ITEM "1|Attivita'"
   ITEM "2|Passivita'"
   ITEM "9|Conto economico"
   KEY 1
+  FIELD %IVD->CODTAB[1,1]
   HELP "Sezione secondo la IV dir. CEE"
 END
 
 STRING F_LETT 1
 BEGIN
   PROMPT 1 3 "Lettera "
-  FIELD %IVD->CODTAB[2,2]
   FLAGS "U"
   KEY 1
   USE %IVD SELECT CODTAB?="??"
@@ -34,9 +33,9 @@ BEGIN
   OUTPUT F_LETT CODTAB[2,2]
   OUTPUT F_DESCR_LETT S0
   CHECKTYPE NORMAL
+  FIELD %IVD->CODTAB[2,2]
   HELP "Lettera secondo la IV dir. CEE"
   GROUP GR_SEARCH
-//  VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
 END
 
 STRING F_DESCR_LETT 70 50
@@ -48,7 +47,6 @@ END
 NUMBER F_CLASSE 8 4
 BEGIN
   PROMPT 1 5 "Classe  "
-  FIELD %IVD->CODTAB[3,6]
   FLAGS "MZ"
   KEY 1
   USE %IVD SELECT CODTAB[7,10]==""
@@ -63,8 +61,8 @@ BEGIN
   OUTPUT F_CLASSE CODTAB[3,6]
   OUTPUT F_DESCR_CLAS S0
   CHECKTYPE NORMAL
+  FIELD %IVD->CODTAB[3,6]
   HELP "Classe secondo la IV dir. CEE (numero romano)"
-//  VALIDATE AUTOEXIT_FUNC 2 F_LETT F_NUM
 END
 
 STRING F_DESCR_CLAS 70 50
@@ -76,7 +74,6 @@ END
 STRING F_NUM 2
 BEGIN
   PROMPT 1 7 "Numero  "
-  FIELD %IVD->CODTAB[7,8]
   KEY 1
   USE %IVD
   COPY INPUT F_CLASSE
@@ -92,32 +89,28 @@ BEGIN
   OUTPUT F_SEZ CODTAB[1,1]
   OUTPUT F_LETT CODTAB[2,2]
   OUTPUT F_CLASSE CODTAB[3,6]
-	MESSAGE EMPTY CLEAR,F_SUB
-	MESSAGE ENABLE,F_SUB
+  MESSAGE EMPTY CLEAR,F_SUB
+  MESSAGE ENABLE,F_SUB
+  FIELD %IVD->CODTAB[7,8]
   HELP "Numero (arabo) secondo la IV dir. CEE"
 END
 
-LIST F_SUB 9
+LIST F_SUB 2 9
 BEGIN
   PROMPT 15 7 ""
-	ITEM "  |"
-	ITEM "02|Bis"
-	ITEM "03|Ter"
-	ITEM "04|Quater"
-	ITEM "05|Quinquies"
-	ITEM "06|Sexies"
+  ITEM "  |"
+  ITEM "02|Bis"
+  ITEM "03|Ter"
+  ITEM "04|Quater"
+  ITEM "05|Quinquies"
+  ITEM "06|Sexies"
   FIELD %IVD->CODTAB[9,10]
   KEY 1
 END
 
-TEXT DLG_NULL
+STRING F_DESCR 70 55
 BEGIN
-  PROMPT 1 9 "Descrizione"
-END
-
-STRING F_DESCR 70
-BEGIN
-  PROMPT 2 11 ""
+  PROMPT 1 9 "Descrizione "
   FIELD %IVD->S0
   KEY 2
   USE %IVD KEY 2