From 06d78e1457d6ab92e86e6399515a0ce18f0ce2b5 Mon Sep 17 00:00:00 2001
From: rajitgill <rajitgill@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 26 Aug 2008 15:54:45 +0000
Subject: [PATCH] Patch level         : Files correlati     : Ricompilazione
 Demo : [ ] Commento            :

git-svn-id: svn://10.65.10.50/trunk@17095 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 lv/lv0400b.uml | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/lv/lv0400b.uml b/lv/lv0400b.uml
index 77409fec6..4792432f0 100755
--- a/lv/lv0400b.uml
+++ b/lv/lv0400b.uml
@@ -216,13 +216,25 @@ END
 STRING F_CAUSMAG 4
 BEGIN
    PROMPT 1 18 "@bCausale di default:"
+   USE CAU
+   INPUT CODTAB F_CAUSMAG
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT F_CAUSMAG CODTAB
+   OUTPUT F_CAUSMAGDESC S0
    FIELD CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 STRING F_CAUSMAGDESC 50
 BEGIN
    PROMPT 7 18 "@bDescrizione@50"
-   FIELD CAUSMAGDESC
+   USE CAU KEY 2
+   INPUT S0 F_CAUSMAGDESC
+   DISPLAY "Descrizione@50" S0
+   DISPLAY "Codice" CODTAB
+   COPY OUTPUT F_CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 RADIOBUTTON F_CONTSPOR 1 80
@@ -488,8 +500,14 @@ END
 
 STRING S_CAUSMAG 4
 BEGIN
-   PROMPT "Causale di default:"
+   PROMPT 1 18 "@bCausale di default:"
+   USE CAU
+   INPUT CODTAB S_CAUSMAG
+   DISPLAY "Codice" CODTAB
+   DISPLAY "Descrizione@50" S0
+   OUTPUT S_CAUSMAG CODTAB
    FIELD CAUSMAG
+   CHECKTYPE NORMAL
 END
 
 BOOLEAN S_RITAUTDTTMP