From 6ffb5fc2b5be9eb769cae2dc9d8d00df1455bad4 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 7 Nov 1995 10:01:38 +0000
Subject: [PATCH] Corrette maschere condizioni pagamento e classificazioni

git-svn-id: svn://10.65.10.50/trunk@2097 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba3700a.uml |  2 +-
 ba/batbclr.uml | 30 ++++++++++++++++--------------
 2 files changed, 17 insertions(+), 15 deletions(-)

diff --git a/ba/ba3700a.uml b/ba/ba3700a.uml
index 46e3c4f68..b6fd7e871 100755
--- a/ba/ba3700a.uml
+++ b/ba/ba3700a.uml
@@ -289,7 +289,7 @@ BEGIN
   CHECKTYPE NORMAL 
 END
 
-STRING 105 28
+STRING 105 50 28
 BEGIN
   PROMPT 4 7 "Pagamento                 "
   FLAGS "D"
diff --git a/ba/batbclr.uml b/ba/batbclr.uml
index c5268e34b..620a015bb 100755
--- a/ba/batbclr.uml
+++ b/ba/batbclr.uml
@@ -10,18 +10,18 @@ PAGE "Ulteriore classificazione" -1 -1 78 13
 
 GROUPBOX DLG_NULL 75 7
 BEGIN
- PROMPT 1 0 ""
+ PROMPT 1 0 "Ulterire classificazione"
  FLAGS "R"
 END
 
-STRING F_CODICERATA 1 
+NUMBER F_CODICERATA 1 
 BEGIN
   PROMPT 2 2 "Codice      "
-  HELP "Codice della rata dell'ulteriore classificazione"
-  FIELD %CLR->CODTAB[1,1]
-  SHEET "Cod|Descrizione@60"
+  FIELD CODTAB[1,1]
+  SHEET "Codice|Descrizione@50"
   INPUT F_CODICERATA
   OUTPUT F_CODICERATA
+  OUTPUT F_DESCR 
   ITEM "1|Rimessa diretta o contanti"
   ITEM "2|Tratta"
   ITEM "3|Ricevuta Bancaria"
@@ -29,16 +29,17 @@ BEGIN
   ITEM "5|Paghero'"
   ITEM "6|Lettera di accredito"
   ITEM "7|Tratta accettata"
-  ITEM "8|Rapporti interban. diretti"           
+  ITEM "8|Rapporti Interbancari Diretti"           
   ITEM "9|Bonifici"                        
   KEY 1
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
+  VALIDATE AUTOEXIT_FUNC 1 F_CODICERATA
 END 
 
 STRING F_CODICEALFA 1
 BEGIN
-  PROMPT 18 2 ""
-  FIELD %CLR->CODTAB[2,2]
+  PROMPT 20 2 "Classificazione "
+  FIELD CODTAB[2,2]
   KEY 1
   USE %CLR
   INPUT CODTAB[1,1] F_CODICERATA 
@@ -49,14 +50,15 @@ BEGIN
   OUTPUT F_CODICERATA CODTAB[1,1]
   OUTPUT F_CODICEALFA CODTAB[2,2]
   OUTPUT F_DESCR S0
-  HELP "Codice dell' ulteriore classificazione"
-  CHECKTYPE REQUIRED
+  CHECKTYPE NORMAL
+  VALIDATE AUTOEXIT_FUNC 1 F_CODICERATA
 END
 
 STRING F_DESCR 50
 BEGIN
   PROMPT 2 4 "Descrizione "
-  FIELD %CLR->S0
+  FIELD S0
+  KEY 2
   USE %CLR KEY 2
   INPUT S0 F_DESCR
   DISPLAY "Descrizione@50" S0
@@ -64,8 +66,8 @@ BEGIN
   DISPLAY "Classificazione" CODTAB[2,2]
   OUTPUT F_CODICERATA CODTAB[1,1]
   OUTPUT F_CODICEALFA CODTAB[2,2]
-  OUTPUT F_DESCR S0
-  HELP "Descrizione dell' ulteriore classificazione"
+  OUTPUT F_DESCR S0          
+  CHECKTYPE REQUIRED
 END
 
 ENDPAGE