From 30ddb486473b427605b207727815a8872ca5a001 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 31 Oct 1994 16:03:56 +0000
Subject: [PATCH] Corretti errori vari sulla mashera

git-svn-id: svn://10.65.10.50/trunk@499 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/batb%del.uml | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/ba/batb%del.uml b/ba/batb%del.uml
index 08533a379..9e88681a4 100755
--- a/ba/batb%del.uml
+++ b/ba/batb%del.uml
@@ -11,8 +11,8 @@ PAGE "Tabella deleghe IVA" -1 -1 78 15
 NUMBER F_CODDITTA 5
 BEGIN
   PROMPT 4 1 "Ditta            "
-  FIELD %DEL->CODTAB[1,5]
-  FLAGS "FRZ"
+  FIELD CODTAB[1,5]
+  FLAGS "FR"
   KEY 1
   USE LF_NDITTE KEY 1
   INPUT CODDITTA F_CODDITTA
@@ -40,7 +40,8 @@ END
 NUMBER F_ANNO 4
 BEGIN
   PROMPT 4 3 "Anno             "
-  FIELD %DEL->CODTAB[6,9]
+  FIELD CODTAB[6,9]
+  CHECKTYPE REQUIRED
   FLAGS "RA"
   KEY 1
   USE %DEL 
@@ -64,7 +65,7 @@ END
 LIST F_MESE 10
 BEGIN
   PROMPT 4 4 "Mese             "
-  FIELD %DEL->CODTAB[10,11]
+  FIELD CODTAB[10,11]
   FLAGS "MA"
   KEY 1
   COPY ALL F_ANNO
@@ -77,7 +78,7 @@ END
 LIST F_TIPO 20
 BEGIN
   PROMPT 4 5 "Tipo             "
-  FIELD %DEL->CODTAB[12,12]
+  FIELD CODTAB[12,12]
   KEY 1
   HELP "Introdurre il tipo di versamento"
   ITEM "1|normale"
@@ -97,14 +98,14 @@ END
 DATE F_DATA
 BEGIN
   PROMPT 4 7 "Data             "
-  FIELD %DEL->D0
+  FIELD D0
   HELP "Introdurre la data di versamento"
 END
 
 NUMBER F_BANCA1 5
 BEGIN
   PROMPT 4 8 "Codice ABI       "
-  FIELD %DEL->S7
+  FIELD S7
   FLAGS "RZ"
   USE %BAN
   INPUT CODTAB[1,5] F_BANCA1
@@ -121,7 +122,7 @@ END
 NUMBER F_BANCA2 5
 BEGIN
   PROMPT 4 9 "Codice CAB       "
-  FIELD %DEL->S8
+  FIELD S8
   FLAGS "RZ"
   COPY ALL F_BANCA1
   CHECKTYPE NORMAL
@@ -131,7 +132,7 @@ END
 NUMBER F_IMPORTO 15
 BEGIN
   PROMPT 4 10 "Importo          "
-  FIELD %DEL->R0
+  FIELD R0
   FLAGS "R"
   HELP "Introdurre l'importo versato"
 END
@@ -139,7 +140,7 @@ END
 BOOLEAN F_STAMPATO
 BEGIN
   PROMPT 4 12 "Stampato "
-  FIELD %DEL->B0
+  FIELD B0
 END
 
 ENDPAGE