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

Unità di misura uniche per sheet storico e giacenze + codice alternativo

Browse Source 
Esplosione tabs


git-svn-id: svn://10.65.10.50/trunk@4907 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-25 08:53:07 +00:00
parent cf3e0c9c26
commit 5a65ba992e
2 changed files with 159 additions and 156 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ve/ve2400d.uml
View File

@ -33,7 +33,6 @@ BEGIN
OUTPUT F_DESMAG S0
OUTPUT H_DESMAG S0
OUTPUT H_GESTGIA B0
// OUTPUT F_CODDEP CODTAB[4,5]
CHECKTYPE REQUIRED
END
@ -102,6 +101,7 @@ END
//Livelli giacenza
STRING F_LIV1 10
BEGIN
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
FLAGS "U"
PROMPT 2 2 "Livello 1 "
USE GCG //SELECT CODTAB[1,1]=="1"
@ -121,7 +121,6 @@ STRING F_LIV2 6
BEGIN
FLAGS "U"
PROMPT 40 2 "Livello 2 "
// Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
USE GCG //SELECT CODTAB[1,1]=="2"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "2"
@ -171,7 +170,7 @@ BEGIN
OUTPUT F_UBICAZ CODTAB
OUTPUT F_UBICAZD S0
CHECKTYPE NORMAL
STR_EXPR (#F_UBICAZ?="???")
STR_EXPR (#F_UBICAZ[4,10]=="")
END
// ubicazione introdotta direttamente o da tabella
@ -203,14 +202,14 @@ END
NUMBER F_LOTTORIOR 10 3
BEGIN
PROMPT 40 5 "Lotto minimo "
PROMPT 40 5 "Quantità minima"
FLAGS "U"
FIELD LOTTORIOR
END
NUMBER F_GIORNIRIOR 2
BEGIN
PROMPT 66 5 "Giorni "
PROMPT 68 5 "Giorni "
FLAGS "U"
FIELD GIORNIRIOR
END

18
ve/ve2400e.uml
View File

@ -20,12 +20,14 @@ ENDPAGE
PAGE "Storico giacenze" -1 -1 80 23
STRING F_STOTIPORIGA 1
BEGIN
FLAGS "D"
PROMPT 2 100 "Tipo riga"
END
STRING F_STOCODMAG 3
BEGIN
PROMPT 2 2 "Codice magazzino "
@ -39,9 +41,16 @@ BEGIN
CHECKTYPE REQUIRED
END
NUMBER F_STOANNOES 4
/*STRING F_NOMETOT 10
BEGIN
FLAGS "H"
PROMPT 2 4 ""
END*/
STRING F_STOANNOES 6
BEGIN
PROMPT 2 4 "Codice esercizio "
FLAGS "R"
FIELD LF_STOMAG->ANNOES
USE ESC
INPUT CODTAB F_STOANNOES
@ -50,12 +59,7 @@ BEGIN
DISPLAY "D. Fine@15" D1
OUTPUT F_STOANNOES CODTAB
CHECKTYPE REQUIRED
END
STRING F_STOUM 2
BEGIN
PROMPT 2 6 "Unità di misura "
FLAGS "UD"
PICTURE "9999"
END
NUMBER F_STOQUANT 15 5