From fecd62abff398bb4d8a84b2bcb2a73518bcd27e7 Mon Sep 17 00:00:00 2001
From: sperego <sperego@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 5 Nov 2008 16:25:34 +0000
Subject: [PATCH] Patch level         :10.0 Files correlati     :
 Ricompilazione Demo : [ ] Commento            : Portato il codice causale
 lavanderia a 3 caratteri

git-svn-id: svn://10.65.10.50/trunk@17562 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 lv/lvtbcau.uml | 27 +++++++++++++++------------
 1 file changed, 15 insertions(+), 12 deletions(-)

diff --git a/lv/lvtbcau.uml b/lv/lvtbcau.uml
index 46a5860a3..072a8aefd 100755
--- a/lv/lvtbcau.uml
+++ b/lv/lvtbcau.uml
@@ -6,22 +6,24 @@ ENDPAGE
 
 PAGE "Causali Lavanderie" -1 -1 78 10
 
-GROUPBOX DLG_NULL 100 4
+GROUPBOX DLG_NULL 90 4
 BEGIN
   PROMPT 1 1 "@bDati Causale"
 END
 
-STRING F_COD_CAUSALE 7
+STRING F_COD_CAUSALE 3
 BEGIN
   PROMPT 2 2 "Causale     "
   FLAGS "U"
   HELP "Inserire il codice della causale."  
-  USE &CAU
+  USE &CAU KEY 1
   INPUT CODTAB F_COD_CAUSALE
   DISPLAY "Codice@8" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CAUSALE CODTAB
   OUTPUT F_DES_CAUSALE S0
+  OUTPUT F_CAUSALE_RITIRO S1
+  OUTPUT F_CAUSALE_CONSEGNA S2
   FIELD CODTAB
   KEY 1
   CHECKTYPE REQUIRED 
@@ -41,7 +43,7 @@ BEGIN
   KEY 2
 END
 
-GROUPBOX DLG_NULL 100 4
+GROUPBOX DLG_NULL 90 4
 BEGIN
   PROMPT 1 5 "@b Ritiro"
 END
@@ -56,33 +58,34 @@ END
 
 STRING F_CAUSALE_RITIRO 5
 BEGIN
-  PROMPT 2 7 "Causale di magazzino "
+  PROMPT 2 7 "Causale di magazzino"
   USE %CAU KEY 1
   INPUT  CODTAB F_CAUSALE_RITIRO
   DISPLAY "Codice@8" CODTAB  
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSALE_RITIRO CODTAB
   OUTPUT F_DES_CAUSALE_RITIRO S0
-  FIELD S1
   VALIDATE REQIF_FUNC TRUE F_RITIRATO
   WARNING "Causale ritirato obbligatoria"
   GROUP 1
   FLAGS "D"
+  FIELD S1
 END
 
 STRING F_DES_CAUSALE_RITIRO 50
 BEGIN
-  PROMPT 35 7 "Descrizione"
+  PROMPT 30 7 " "
   USE %CAU KEY 2
   INPUT S0 F_DES_CAUSALE_RITIRO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione @50" S0
-  COPY OUTPUT F_CAUSALE_RITIRO
+  OUTPUT F_DES_CAUSALE_RITIRO S0
+  OUTPUT F_CAUSALE_RITIRO CODTAB
   GROUP 1
   FLAGS "D"
 END
 
-GROUPBOX DLG_NULL 100 4
+GROUPBOX DLG_NULL 90 4
 BEGIN
   PROMPT 1 10 "@b Consegna"
 END
@@ -97,7 +100,7 @@ END
 
 STRING F_CAUSALE_CONSEGNA 5
 BEGIN
-  PROMPT 2 12 "Causale di magazzino "
+  PROMPT 2 12 "Causale di magazzino"
   USE %CAU KEY 1
   INPUT  CODTAB F_CAUSALE_CONSEGNA
   DISPLAY "Codice@8" CODTAB  
@@ -113,7 +116,7 @@ END
 
 STRING F_DES_CAUSALE_CONSEGNA 50
 BEGIN
-  PROMPT 35 12 "Descrizione"
+  PROMPT 30 12 " "
   USE %CAU KEY 2
   INPUT S0 F_DES_CAUSALE_CONSEGNA
   DISPLAY "Codice" CODTAB
@@ -123,7 +126,7 @@ BEGIN
   GROUP 2
 END
 
-GROUPBOX DLG_NULL 100 4
+GROUPBOX DLG_NULL 90 4
 BEGIN
   PROMPT 1 14 ""
 END