From 44da57db73032d421451808e90e73cbe238fe230 Mon Sep 17 00:00:00 2001
From: luca83 <luca83@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Fri, 12 Dec 2008 15:31:35 +0000
Subject: [PATCH] =?UTF-8?q?Patch=20level=20=20=20=20=20=20=20=20=20:=2010.?=
 =?UTF-8?q?0=20Files=20correlati=20=20=20=20=20:=20LV0=20Ricompilazione=20?=
 =?UTF-8?q?Demo=20:=20[=20]=20Commento=20=20=20=20=20=20=20=20=20=20=20=20?=
 =?UTF-8?q?:=200001040:=20Manca=20ricerca=20alfaberica=20clienti=20in=20pa?=
 =?UTF-8?q?ssaggi=20per=20contratto=20Descrizione=20=09Pogramma=20passaggi?=
 =?UTF-8?q?=20per=20contratto=20e=20periodi=20sospensione,=20manca=20ricer?=
 =?UTF-8?q?ca=20per=20ragione=20sociale=20ciente=20La=20modifica=20,=20con?=
 =?UTF-8?q?cordata,=20=C3=A8=20questa:=20-=20sul=20codice=20cliente=20far?=
 =?UTF-8?q?=20partire=20la=20ricerca=20sul=20anagrafica=20clienti=20-=20su?=
 =?UTF-8?q?l=20codice=20contratto=20va=20bene=20quella=20attuale.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: svn://10.65.10.50/trunk@17889 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 lv/lv0500a.uml | 46 +++++++++++++++++++++++++++++-----------------
 1 file changed, 29 insertions(+), 17 deletions(-)

diff --git a/lv/lv0500a.uml b/lv/lv0500a.uml
index 568fa0319..54afaa0a4 100755
--- a/lv/lv0500a.uml
+++ b/lv/lv0500a.uml
@@ -16,7 +16,35 @@ BEGIN
   PROMPT 2 2 "Cliente   "
   FLAGS "UG"
   FIELD CODCF
-  USE LF_LVCONDV
+  USE LF_CLIFO 
+  INPUT TIPOCF "C"
+  INPUT CODCF F_CODCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  OUTPUT F_CODCF CODCF
+  OUTPUT F_RAGSOCCLI RAGSOC
+  CHECKTYPE REQUIRED
+  KEY 1
+END
+
+STRING F_RAGSOCCLI 50
+BEGIN
+  PROMPT 22 2 ""
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF "C"
+  INPUT RAGSOC F_RAGSOCCLI
+  DISPLAY "Ragione Sociale@50" RAGSOC
+  DISPLAY "Codice" CODCF
+  COPY OUTPUT F_CODCF
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_CODCONT 6
+BEGIN
+  PROMPT 2 3 "Contratto "
+  FLAGS "U"
+  FIELD CODCONT
+  USE LF_LVCONDV SELECT BETWEEN(CODCF,#F_CODCF,#F_CODCF)
   JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
   INPUT CODCF F_CODCF  
   INPUT CODCONT F_CODCONT  
@@ -34,22 +62,6 @@ BEGIN
   KEY 1
 END
 
-STRING F_RAGSOCCLI 50
-BEGIN
-  PROMPT 22 2 ""
-  FLAGS "D"
-END
-
-NUMBER F_CODCONT 6
-BEGIN
-  PROMPT 2 3 "Contratto "
-  FLAGS "U"
-  FIELD CODCONT
-  COPY ALL F_CODCF
-  CHECKTYPE FORCED
-  KEY 1
-END
-
 DATE F_VALIDA
 BEGIN
   PROMPT 22 3 "Valido dal "