From 5f6c357ce34a544da3e375a40694d7e5b9056bc7 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Sat, 29 Oct 2011 08:35:13 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            : Corretta gestione capozona

git-svn-id: svn://10.65.10.50/branches/R_10_00@22470 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 pr/pr0500a.uml | 15 +++++----------
 1 file changed, 5 insertions(+), 10 deletions(-)

diff --git a/pr/pr0500a.uml b/pr/pr0500a.uml
index fa24235ce..aea3c8dde 100755
--- a/pr/pr0500a.uml
+++ b/pr/pr0500a.uml
@@ -24,6 +24,7 @@ BEGIN
   INPUT CODAGE F_CODAGE
   DISPLAY "Codice@8R" CODAGE
   DISPLAY "Descrizione@50" RAGSOC
+  DISPLAY "Capo Zona@5" CAPO
   OUTPUT F_CODAGE CODAGE
   OUTPUT F_RAGSOC RAGSOC
   CHECKTYPE REQUIRED
@@ -76,11 +77,8 @@ BEGIN
   PROMPT 2 6 "Tipo agente    "
   FIELD TIPO
   ITEM "A|Agente"
-  MESSAGE CLEAR,G_CAPOZONA@
   ITEM "C|Capozona"
-  MESSAGE ENABLE,G_CAPOZONA@
   ITEM "S|Subagente"
-  MESSAGE ENABLE,G_CAPOZONA@
 END
 
 GROUPBOX DLG_NULL 80 4
@@ -91,13 +89,12 @@ END
 
 STRING F_CODCAPO 5
 BEGIN
-  PROMPT 2 8 "Cod. capozona  "
+  PROMPT 2 8 "Cod. capo zona "
   FIELD CODCAPO
   FLAGS "UZ"
   USE LF_AGENTI SELECT TIPO=="C"
   INPUT CODAGE F_CODCAPO
-  DISPLAY "Codice@8R" CODAGE
-  DISPLAY "Descrizione@50" RAGSOC
+  COPY DISPLAY F_CODAGE
   OUTPUT F_CODCAPO CODAGE
   OUTPUT F_DESCRCAPO RAGSOC
   CHECKTYPE NORMAL
@@ -111,10 +108,8 @@ BEING
   PROMPT 27 8 ""
   USE LF_AGENTI KEY 2 SELECT TIPO=="C"
   INPUT RAGSOC F_DESCRCAPO
-  DISPLAY "Descrizione@50" RAGSOC
-  DISPLAY "Codice@8R" CODAGE
-  OUTPUT F_CODCAPO CODAGE
-  OUTPUT F_DESCRCAPO RAGSOC
+  COPY DISPLAY F_RAGSOC
+  COPY OUTPUT F_CODCAPO
   CHECKTYPE NORMAL
   GROUP G_CAPOZONA
 END