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

Patch level : 10.0

Browse Source 
Files correlati     : lv0
Ricompilazione Demo : [ ]
Commento            :
Aggiunta ricerca sui magazzini, che prima mancava


git-svn-id: svn://10.65.10.50/trunk@18093 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-01-23 11:11:34 +00:00
parent bf6f89c488
commit 02cd31b578
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lv/lv0300a.uml
View File

@ -419,6 +419,15 @@ STRING F_CODMAGN 4
BEGIN BEGIN
PROMPT 2 2 "Magazzino del nuovo " PROMPT 2 2 "Magazzino del nuovo "
HELP "Codice deposito del nuovo" HELP "Codice deposito del nuovo"
FIELD CODTAB[1,3]
KEY 1
USE MAG SELECT CODTAB[4,5]==""
FLAG "U"
INPUT CODTAB F_CODMAGN
DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODMAGN CODTAB[1,3]
OUTPUT F_DESMAGN S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "UPA" FLAGS "UPA"
END END
@ -427,12 +436,22 @@ STRING F_DESMAGN 50
BEGIN BEGIN
PROMPT 2 3 " " PROMPT 2 3 " "
HELP "Descrizione Magazzino" HELP "Descrizione Magazzino"
FLAGS "D"
END END
STRING F_CODMAGC 4 STRING F_CODMAGC 4
BEGIN BEGIN
PROMPT 2 4 "Magazzino del circolante " PROMPT 2 4 "Magazzino del circolante "
HELP "Codice deposito del circolante" HELP "Codice deposito del circolante"
FIELD CODTAB[1,3]
KEY 1
USE MAG SELECT CODTAB[4,5]==""
FLAG "U"
INPUT CODTAB F_CODMAGC
DISPLAY "Codice " CODTAB[1,3]
DISPLAY "Denominazione mag.@50 " S0
OUTPUT F_CODMAGC CODTAB[1,3]
OUTPUT F_DESMAGC S0
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "UPA" FLAGS "UPA"
END END
@ -441,6 +460,7 @@ STRING F_DESMAGC 50
BEGIN BEGIN
PROMPT 2 5 " " PROMPT 2 5 " "
HELP "Descrizione Magazzino" HELP "Descrizione Magazzino"
FLAGS "D"
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 5