From ea40da7b5bbef733eff7ce5300c1162aba7c050b Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 26 Aug 1994 13:52:32 +0000
Subject: [PATCH] Corretti errori 207 208 204 210

git-svn-id: svn://10.65.10.50/trunk@67 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba4200b.uml | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml
index 37e7451f6..298bd2a9f 100755
--- a/ba/ba4200b.uml
+++ b/ba/ba4200b.uml
@@ -85,7 +85,6 @@ BEGIN
   PROMPT 2 3 "Nome            "
   FIELD LF_ANAG->RAGSOC[31,0]
   KEY 2
-  COPY ALL FLD_ANAG_RAGSOC1
   HELP "Nome della persona fisica"
   MESSAGE COPY,3@
   CHECKTYPE REQUIRED
@@ -985,7 +984,7 @@ END
 
 STRING F_IMP_PROVCOM 5
 BEGIN
-  PROMPT 64 6 "Prov."
+  PROMPT 62 6 "Prov."
   FLAGS "D"
 END
 
@@ -1007,10 +1006,15 @@ BEGIN
   WARNING "Ufficio imposte assente"
 END
 
-STRING F_DENUFFIIDD 50
+STRING F_DENUFFIIDD 50 48
 BEGIN
   PROMPT 23 7 " "
-  FLAGS "D"
+  USE %UID KEY 2
+  INPUT S0 F_DENUFFIIDD
+  DISPLAY "Denominazione@50" S0
+  DISPLAY "Ufficio" CODTAB
+  DISPLAY "C.C.@8" S4
+  COPY OUTPUT F_UFFIIDD
 END
 
 STRING F_CC_ESATTORIA 8
@@ -1030,7 +1034,7 @@ BEGIN
   FLAGS "UDG"
 END
 
-STRING F_DENUFFREG 50
+STRING F_DENUFFREG 50 48
 BEGIN
   PROMPT 24 9 ""
   FLAGS "D"
@@ -1047,7 +1051,7 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
-STRING F_DENUFFCONC 50
+STRING F_DENUFFCONC 50 48
 BEGIN
   PROMPT 24 10 ""
   FLAGS "D"
@@ -1064,7 +1068,7 @@ BEGIN
   CHECKTYPE NORMAL
 END
 
-STRING F_DENUFFSERV 50
+STRING F_DENUFFSERV 50 48
 BEGIN
   PROMPT 24 11 ""
   FLAGS "D"