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

18
ve/ve2400e.uml
View File

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