From 82fd1934e3028db8575691ecf2033c2ef06ea791 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 2 Nov 1995 14:15:04 +0000
Subject: [PATCH] Corretti errori 004319 004321

git-svn-id: svn://10.65.10.50/trunk@2068 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ab/ab0200a.uml | 50 +++++++++++++++++++++++++++++++-------------------
 1 file changed, 31 insertions(+), 19 deletions(-)

diff --git a/ab/ab0200a.uml b/ab/ab0200a.uml
index 62fa20b68..196651a2b 100755
--- a/ab/ab0200a.uml
+++ b/ab/ab0200a.uml
@@ -22,9 +22,10 @@ BEGIN
   KEY 1
   USE LF_ABPCON KEY 1 
   INPUT CODCBL F_CODICE
-  DISPLAY "Codice@10" CODCBL
-  DISPLAY "Descrizione@80" DESCRIZ
-  DISPLAY "Ind. bil. " INDBIL
+  DISPLAY "Codice@11" CODCBL
+  DISPLAY "Descrizione@40" DESCRIZ[1,40]
+  DISPLAY "I.B." INDBIL
+  DISPLAY "Codice opp.@11" CODCONTR
   OUTPUT F_CODICE CODCBL
   OUTPUT F_DESCRIZ1 DESCRIZ[1,40]
   OUTPUT F_DESCRIZ2 DESCRIZ[41,]
@@ -39,9 +40,10 @@ BEGIN
   KEY 2
   USE LF_ABPCON KEY 2
   INPUT DESCRIZ[1,40] F_DESCRIZ1
-  DISPLAY "Descrizione@80" DESCRIZ
-  DISPLAY "Codice@10R" CODCBL
-  DISPLAY "Ind. bil. " INDBIL
+  DISPLAY "Descrizione@40" DESCRIZ[1,40]
+  DISPLAY "Codice@11" CODCBL
+  DISPLAY "I.B." INDBIL
+  DISPLAY "Codice opp.@11" CODCONTR
   COPY OUTPUT F_CODICE
   HELP "Prima parte della descrizione"
   WARNING "Manca la descrizione"
@@ -82,28 +84,38 @@ BEGIN
   PROMPT 2 10 "Conto di sez.bil.opposta "
   HELP "Inserire il conto di sezione di bilancio opposta"
   FIELD LF_ABPCON->CODCONTR
-  USE LF_ABPCON KEY 1 
+  USE LF_ABPCON
   INPUT CODCBL F_CODCONTR
-  DISPLAY "Codice@10" CODCBL
-  DISPLAY "Ind.bil" INDBIL
-  DISPLAY "Descrizione@80" DESCRIZ
+  DISPLAY "Codice@11" CODCBL
+  DISPLAY "Descrizione@40" DESCRIZ[1,40]
+  DISPLAY "I.B." INDBIL
+  DISPLAY "Codice@11" CODCONTR
   OUTPUT F_CODCONTR CODCBL
-  OUTPUT F_DESCRCONTR1 DESCRIZ[1,33]
-  OUTPUT F_DESCRCONTR2 DESCRIZ[34,]
+  OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
+  OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
   CHECKTYPE NORMAL               
   ADD RUN AB0 -1 #F_CODICE #F_INDBIL
   FLAGS "Z"
 END                                     
 
-STRING F_DESCRCONTR1 33
-BEGIN
-  PROMPT 41 10 ""
-  FLAGS "D"
-END
-
-STRING F_DESCRCONTR2 47
+STRING F_DESCRCONTR1 40
 BEGIN
   PROMPT 27 11 ""
+  USE LF_ABPCON KEY 2
+  INPUT DESCRIZ F_DESCRCONTR1
+  DISPLAY "Descrizione@40" DESCRIZ[1,40]
+  DISPLAY "Codice@11" CODCBL
+  DISPLAY "I.B." INDBIL
+  DISPLAY "Codice@11" CODCONTR
+  OUTPUT F_CODCONTR CODCBL
+  OUTPUT F_DESCRCONTR1 DESCRIZ[1,40]
+  OUTPUT F_DESCRCONTR2 DESCRIZ[41,]
+  ADD RUN AB0 -1 #F_CODICE #F_INDBIL
+END
+
+STRING F_DESCRCONTR2 40
+BEGIN
+  PROMPT 27 12 ""
   FLAGS "D"
 END