From 315a4317e74dbdda30ee21b85343e06920a876d9 Mon Sep 17 00:00:00 2001
From: alex <alex@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 26 Oct 2010 13:47:39 +0000
Subject: [PATCH] Patch level         : 10.0 patch 828 Files correlati     :
 Ricompilazione Demo : [ ] Commento
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Bug            0001435: Distinta base - manca ricerca componenti per descrizione

Se ricerco un componente da inserire in DB, ho solo l'opportunità di ricercarlo per codic


git-svn-id: svn://10.65.10.50/branches/R_10_00@21069 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 db/db0500a.h   |  3 +++
 db/db0500b.uml | 65 +++++++++++++++++++++++++++++++++++++++++++++-----
 2 files changed, 62 insertions(+), 6 deletions(-)

diff --git a/db/db0500a.h b/db/db0500a.h
index a3c24f4c1..b74b453f8 100755
--- a/db/db0500a.h
+++ b/db/db0500a.h
@@ -67,6 +67,9 @@
 #define F_UMEXPR   111
 #define F_EXPR     112
 #define F_DESCOMP  113
+#define F_DESLAV   213
+#define F_DESDIS   313
+#define F_DESVAR   413
 #define F_SORT1    114
 #define F_SORT2    115
 #define F_SORT3    116
diff --git a/db/db0500b.uml b/db/db0500b.uml
index 69d551b10..aa12a45e4 100755
--- a/db/db0500b.uml
+++ b/db/db0500b.uml
@@ -247,13 +247,13 @@ LIST F_TIPOCOMP 1 12
 BEGIN
   PROMPT 2 1 "Tipo        "
   ITEM "A|Articolo"
-    MESSAGE SHOW,F_CODART|HIDE,F_CODLAV|HIDE,F_CODDIS|HIDE,F_CODVAR|ENABLE,F_UMEXPR
+    MESSAGE SHOW,11@|HIDE,12@|HIDE,13@|HIDE,14@|ENABLE,F_UMEXPR
   ITEM "L|Lavorazione"
-    MESSAGE HIDE,F_CODART|SHOW,F_CODLAV|HIDE,F_CODDIS|HIDE,F_CODVAR|DISABLE,F_UMEXPR
+    MESSAGE HIDE,11@|SHOW,12@|HIDE,13@|HIDE,14@|DISABLE,F_UMEXPR
   ITEM "D|Distinta"
-    MESSAGE HIDE,F_CODART|HIDE,F_CODLAV|SHOW,F_CODDIS|HIDE,F_CODVAR|ENABLE,F_UMEXPR
+    MESSAGE HIDE,11@|HIDE,12@|SHOW,13@|HIDE,14@|ENABLE,F_UMEXPR
   ITEM "V|Variabile"
-    MESSAGE HIDE,F_CODART|HIDE,F_CODLAV|HIDE,F_CODDIS|SHOW,F_CODVAR|CLEAR,F_UMEXPR
+    MESSAGE MESSAGE HIDE,11@|HIDE,12@|HIDE,13@|SHOW,14@|CLEAR,F_UMEXPR
   FIELD TIPO
 END
 
@@ -265,23 +265,27 @@ BEGIN
   DISPLAY "Codice@20" CODART
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_CODART CODART
+  OUTPUT F_DESCOMP DESCR
   CHECKTYPE REQUIRED
   ADD RUN ve2 -3
   FIELD CODCOMP
   FLAGS "U"
+  GROUP 11
 END
 
 STRING F_CODLAV 20
 BEGIN
-  PROMPT 2 2 "Codice      "
+  PROMPT 30 2 "Codice      "
   USE LAV
   INPUT CODTAB F_CODLAV
   DISPLAY "Codice@20" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODLAV CODTAB
+  OUTPUT F_DESLAV S0
   CHECKTYPE REQUIRED
   MESSAGE COPY,F_CODART
   FLAGS "U"
+  GROUP 12
 END
 
 STRING F_CODDIS 20
@@ -292,9 +296,11 @@ BEGIN
   DISPLAY "Codice@20" CODDIST
   DISPLAY "Desrizione@50" DESCR
   OUTPUT F_CODDIS CODDIST
+  OUTPUT F_DESDIS DESCR
   CHECKTYPE REQUIRED
   MESSAGE COPY,F_CODART
   FLAGS "U"
+  GROUP 13
 END
 
 STRING F_CODVAR 20
@@ -305,15 +311,62 @@ BEGIN
   DISPLAY "Codice@20" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODVAR CODTAB
+  OUTPUT F_DESVAR S0
   CHECKTYPE REQUIRED
   MESSAGE COPY,F_CODART
   FLAGS "U"
+  GROUP 14
 END
 
 STRING F_DESCOMP 50
 BEGIN
   PROMPT 2 3 "Descrizione "
-  FLAGS "D"
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR F_DESCOMP
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Codice@20" CODART
+  COPY OUTPUT F_CODART
+  CHECKTYPE NORMAL
+  GROUP 11
+END
+
+STRING F_DESLAV 50
+BEGIN
+  PROMPT 2 3 "Descrizione "
+  USE LAV KEY 2
+  INPUT S0 F_DESLAV
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@20" CODTAB
+  COPY OUTPUT F_CODLAV
+  CHECKTYPE NORMAL
+  FLAGS "U"
+  GROUP 12
+END
+
+STRING F_DESDIS 50
+BEGIN
+  PROMPT 2 3 "Descrizione "
+  USE LF_DIST KEY 2 SELECT VIRTUALE=="X"
+  INPUT DESCR F_DESDIS 
+  DISPLAY "Desrizione@50" DESCR
+  DISPLAY "Codice@20" CODDIST
+  COPY OUTPUT F_CODDIS
+  CHECKTYPE NORMAL
+  FLAGS "U"
+  GROUP 13
+END
+
+STRING F_DESVAR 50
+BEGIN
+  PROMPT 2 3 "Descrizione "
+  USE VAR KEY 2
+  INPUT S0 F_CODVAR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@20" CODTAB
+  COPY OUTPUT F_CODVAR
+  CHECKTYPE NORMAL
+  FLAGS "U"
+  GROUP 14
 END
 
 LISTBOX F_TIPOLIV1 10