root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 patch 828

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento

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
This commit is contained in:
alex 2010-10-26 13:47:39 +00:00
parent 4e7de57c4e
commit 315a4317e7
2 changed files with 62 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
db/db0500a.h
View File

@ -67,6 +67,9 @@
#define F_UMEXPR 111 #define F_UMEXPR 111
#define F_EXPR 112 #define F_EXPR 112
#define F_DESCOMP 113 #define F_DESCOMP 113
#define F_DESLAV 213
#define F_DESDIS 313
#define F_DESVAR 413
#define F_SORT1 114 #define F_SORT1 114
#define F_SORT2 115 #define F_SORT2 115
#define F_SORT3 116 #define F_SORT3 116

65
db/db0500b.uml
View File

@ -247,13 +247,13 @@ LIST F_TIPOCOMP 1 12
BEGIN BEGIN
PROMPT 2 1 "Tipo " PROMPT 2 1 "Tipo "
ITEM "A|Articolo" 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" 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" 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" 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 FIELD TIPO
END END
@ -265,23 +265,27 @@ BEGIN
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODART CODART OUTPUT F_CODART CODART
OUTPUT F_DESCOMP DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN ve2 -3 ADD RUN ve2 -3
FIELD CODCOMP FIELD CODCOMP
FLAGS "U" FLAGS "U"
GROUP 11
END END
STRING F_CODLAV 20 STRING F_CODLAV 20
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 30 2 "Codice "
USE LAV USE LAV
INPUT CODTAB F_CODLAV INPUT CODTAB F_CODLAV
DISPLAY "Codice@20" CODTAB DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODLAV CODTAB OUTPUT F_CODLAV CODTAB
OUTPUT F_DESLAV S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,F_CODART MESSAGE COPY,F_CODART
FLAGS "U" FLAGS "U"
GROUP 12
END END
STRING F_CODDIS 20 STRING F_CODDIS 20
@ -292,9 +296,11 @@ BEGIN
DISPLAY "Codice@20" CODDIST DISPLAY "Codice@20" CODDIST
DISPLAY "Desrizione@50" DESCR DISPLAY "Desrizione@50" DESCR
OUTPUT F_CODDIS CODDIST OUTPUT F_CODDIS CODDIST
OUTPUT F_DESDIS DESCR
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,F_CODART MESSAGE COPY,F_CODART
FLAGS "U" FLAGS "U"
GROUP 13
END END
STRING F_CODVAR 20 STRING F_CODVAR 20
@ -305,15 +311,62 @@ BEGIN
DISPLAY "Codice@20" CODTAB DISPLAY "Codice@20" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CODVAR CODTAB OUTPUT F_CODVAR CODTAB
OUTPUT F_DESVAR S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
MESSAGE COPY,F_CODART MESSAGE COPY,F_CODART
FLAGS "U" FLAGS "U"
GROUP 14
END END
STRING F_DESCOMP 50 STRING F_DESCOMP 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " 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 END
LISTBOX F_TIPOLIV1 10 LISTBOX F_TIPOLIV1 10