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

295
ve/ve2400d.uml
View File

@ -22,9 +22,9 @@ PAGE "Giacenze" -1 -1 80 23
STRING F_CODMAG 3 STRING F_CODMAG 3
BEGIN BEGIN
PROMPT 2 0 "Magazzino " PROMPT 2 0 "Magazzino "
FLAGS "U" FLAGS "U"
FIELD CODMAG[1,3] FIELD CODMAG[1,3]
USE MAG SELECT CODTAB[4,5]=="" USE MAG SELECT CODTAB[4,5]==""
INPUT CODTAB F_CODMAG INPUT CODTAB F_CODMAG
DISPLAY "Codice " CODTAB[1,3] DISPLAY "Codice " CODTAB[1,3]
@ -33,18 +33,17 @@ 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
STRING F_CODDEP 2 STRING F_CODDEP 2
BEGIN BEGIN
PROMPT 2 1 "Deposito " PROMPT 2 1 "Deposito "
FLAGS "U" FLAGS "U"
FIELD CODMAG[4,5] FIELD CODMAG[4,5]
USE MAG USE MAG
INPUT CODTAB[1,3] F_CODMAG INPUT CODTAB[1,3] F_CODMAG
INPUT CODTAB[4,5] F_CODDEP INPUT CODTAB[4,5] F_CODDEP
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
@ -52,42 +51,42 @@ BEGIN
OUTPUT F_CODDEP CODTAB[4,5] OUTPUT F_CODDEP CODTAB[4,5]
OUTPUT F_DESDEP S0 OUTPUT F_DESDEP S0
OUTPUT F_CODMAG CODTAB[1,3] OUTPUT F_CODMAG CODTAB[1,3]
CHECKTYPE NORMAL CHECKTYPE NORMAL
STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X") STR_EXPR ((#H_GESTGIA=="X")&&(#F_CODDEP!=""))||(#H_GESTGIA!="X")
// WARNING "Indicare il deposito" // WARNING "Indicare il deposito"
END END
STRING F_DESMAG 50 STRING F_DESMAG 50
BEGIN BEGIN
PROMPT 22 0 "" PROMPT 22 0 ""
USE MAG KEY 2 USE MAG KEY 2
INPUT S0 F_DESMAG INPUT S0 F_DESMAG
DISPLAY "Denominazione mag.@50" S0 DISPLAY "Denominazione mag.@50" S0
DISPLAY "Cod. magazzino" CODTAB[1,3] DISPLAY "Cod. magazzino" CODTAB[1,3]
DISPLAY "Cod. deposito" CODTAB[4,5] DISPLAY "Cod. deposito" CODTAB[4,5]
OUTPUT F_CODMAG CODTAB[1,3] OUTPUT F_CODMAG CODTAB[1,3]
OUTPUT F_CODDEP CODTAB[4,5] OUTPUT F_CODDEP CODTAB[4,5]
// GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output // GUIDO!!!!!!!!!!!!!!!!! in che ordine vengono eseguiti gli output
// a cascata??? perchè mi ritrovo il coddep cancellato??? // a cascata??? perchè mi ritrovo il coddep cancellato???
END END
STRING F_DESDEP 50 STRING F_DESDEP 50
BEGIN BEGIN
PROMPT 22 1 "" PROMPT 22 1 ""
FLAGS "H" FLAGS "H"
COPY USE F_DESMAG COPY USE F_DESMAG
INPUT S0 F_DESDEP INPUT S0 F_DESDEP
COPY DISPLAY F_DESMAG COPY DISPLAY F_DESMAG
COPY OUTPUT F_DESMAG COPY OUTPUT F_DESMAG
// MESSAGE K_TAB,F_CODDEP // MESSAGE K_TAB,F_CODDEP
END END
STRING H_DESMAG 50 STRING H_DESMAG 50
BEGIN BEGIN
PROMPT 22 0 "" PROMPT 22 0 ""
FLAGS "D" FLAGS "D"
END END
//Abilitazione/disabil. dei campi relativi al deposito //Abilitazione/disabil. dei campi relativi al deposito
@ -95,266 +94,266 @@ BOOLEAN H_GESTGIA
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 1 1 ""
FLAGS "HG" FLAGS "HG"
MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG MESSAGE TRUE ENABLE,F_CODDEP|CHECK,F_CODDEP|SHOW,F_DESDEP|SHOW,H_DESMAG|HIDE,F_DESMAG
MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG MESSAGE FALSE RESET,F_CODDEP|RESET,F_DESDEP|DISABLE,F_CODDEP|HIDE,F_DESDEP|HIDE,H_DESMAG|SHOW,F_DESMAG
END END
//Livelli giacenza //Livelli giacenza
STRING F_LIV1 10 STRING F_LIV1 10
BEGIN BEGIN
FLAGS "U" // Non mettere FLAGS "D" perchè disabiliterebbe tutta la colonna
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"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "1" INPUT CODTAB[1,1] "1"
INPUT CODTAB[2,11] F_LIV1 INPUT CODTAB[2,11] F_LIV1
DISPLAY "Livello@20" 500@->S0 DISPLAY "Livello@20" 500@->S0
DISPLAY "Gruppo@10" CODTAB[2,20] DISPLAY "Gruppo@10" CODTAB[2,20]
DISPLAY "Descr.@30" S0 DISPLAY "Descr.@30" S0
OUTPUT F_LIV1 CODTAB[2,12] OUTPUT F_LIV1 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV2|RESET,F_LIV3|RESET,F_LIV4
END END
STRING F_LIV2 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" INPUT CODTAB[2,12] F_LIV2
INPUT CODTAB[2,12] F_LIV2 COPY DISPLAY F_LIV1
COPY DISPLAY F_LIV1 OUTPUT F_LIV2 CODTAB[2,12]
OUTPUT F_LIV2 CODTAB[2,12] CHECKTYPE NORMAL
CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV3|RESET,F_LIV4
END END
STRING F_LIV3 6 STRING F_LIV3 6
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 2 3 "Livello 3 " PROMPT 2 3 "Livello 3 "
USE GCG //SELECT CODTAB[1,1]=="3" USE GCG //SELECT CODTAB[1,1]=="3"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "3" INPUT CODTAB[1,1] "3"
INPUT CODTAB[2,12] F_LIV3 INPUT CODTAB[2,12] F_LIV3
COPY DISPLAY F_LIV1 COPY DISPLAY F_LIV1
OUTPUT F_LIV3 CODTAB[2,12] OUTPUT F_LIV3 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
MESSAGE EMPTY RESET,F_LIV4 MESSAGE EMPTY RESET,F_LIV4
END END
STRING F_LIV4 6 STRING F_LIV4 6
BEGIN BEGIN
FLAGS "U" FLAGS "U"
PROMPT 40 3 "Livello 4 " PROMPT 40 3 "Livello 4 "
USE GCG //SELECT CODTAB[1,1]=="4" USE GCG //SELECT CODTAB[1,1]=="4"
JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1] JOIN FCG ALIAS 500 INTO CODTAB==CODTAB[1,1]
INPUT CODTAB[1,1] "4" INPUT CODTAB[1,1] "4"
INPUT CODTAB[2,12] F_LIV4 INPUT CODTAB[2,12] F_LIV4
COPY DISPLAY F_LIV1 COPY DISPLAY F_LIV1
OUTPUT F_LIV4 CODTAB[2,12] OUTPUT F_LIV4 CODTAB[2,12]
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
// ubicazione introdotta da tabella ubicazioni // ubicazione introdotta da tabella ubicazioni
STRING F_UBICAZ 10 STRING F_UBICAZ 10
BEGIN BEGIN
PROMPT 2 4 "Ubicazione " PROMPT 2 4 "Ubicazione "
FIELD UBICAZ FIELD UBICAZ
USE UBI USE UBI
INPUT CODTAB F_UBICAZ INPUT CODTAB F_UBICAZ
DISPLAY "Codice" CODTAB[1,3] DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Ubicazione@50 " S0 DISPLAY "Ubicazione@50 " S0
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
STRING F_UBICAZ2 10 STRING F_UBICAZ2 10
BEGIN BEGIN
PROMPT 2 4 "Ubicazione " PROMPT 2 4 "Ubicazione "
FIELD UBICAZ FIELD UBICAZ
END END
STRING F_UBICAZD 20 STRING F_UBICAZD 20
BEGIN BEGIN
PROMPT 27 4 "" PROMPT 27 4 ""
FLAGS "D" FLAGS "D"
END END
NUMBER F_SCORTAMIN 10 3 NUMBER F_SCORTAMIN 10 3
BEGIN BEGIN
PROMPT 50 4 "Scorta minima " PROMPT 50 4 "Scorta minima "
FIELD SCORTAMIN FIELD SCORTAMIN
END END
NUMBER F_LIVRIOR 15 3 NUMBER F_LIVRIOR 15 3
BEGIN BEGIN
PROMPT 2 5 "Riordino: Livello " PROMPT 2 5 "Riordino: Livello "
FIELD LIVRIOR FIELD LIVRIOR
END 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
NUMBER F_GIAC 15 5 NUMBER F_GIAC 15 5
BEGIN BEGIN
PROMPT 2 6 "Giacenza attuale " PROMPT 2 6 "Giacenza attuale "
FIELD GIAC FIELD GIAC
END END
NUMBER F_RIM 15 5 NUMBER F_RIM 15 5
BEGIN BEGIN
PROMPT 2 7 "Rimanenze iniziali " PROMPT 2 7 "Rimanenze iniziali "
FIELD RIM FIELD RIM
END END
NUMBER F_VRIM 18 3 NUMBER F_VRIM 18 3
BEGIN BEGIN
PROMPT 46 7 "Valore " PROMPT 46 7 "Valore "
FIELD VALRIM FIELD VALRIM
END END
NUMBER F_ACQ 15 5 NUMBER F_ACQ 15 5
BEGIN BEGIN
PROMPT 2 8 "Acquistato " PROMPT 2 8 "Acquistato "
FIELD ACQ FIELD ACQ
END END
NUMBER F_VACQ 18 3 NUMBER F_VACQ 18 3
BEGIN BEGIN
PROMPT 46 8 "Valore " PROMPT 46 8 "Valore "
FIELD VALACQ FIELD VALACQ
END END
NUMBER F_ENTR 15 5 NUMBER F_ENTR 15 5
BEGIN BEGIN
PROMPT 2 9 "Entrato " PROMPT 2 9 "Entrato "
FIELD ENT FIELD ENT
END END
NUMBER F_VENTR 18 3 NUMBER F_VENTR 18 3
BEGIN BEGIN
PROMPT 46 9 "Valore " PROMPT 46 9 "Valore "
FIELD VALENT FIELD VALENT
END END
NUMBER F_VEN 15 5 NUMBER F_VEN 15 5
BEGIN BEGIN
PROMPT 2 10 "Venduto " PROMPT 2 10 "Venduto "
FIELD VEN FIELD VEN
END END
NUMBER F_VVEN 18 3 NUMBER F_VVEN 18 3
BEGIN BEGIN
PROMPT 46 10 "Valore " PROMPT 46 10 "Valore "
FIELD VALVEN FIELD VALVEN
END END
NUMBER F_USC 15 5 NUMBER F_USC 15 5
BEGIN BEGIN
PROMPT 2 11 "Uscito " PROMPT 2 11 "Uscito "
FIELD USC FIELD USC
END END
NUMBER F_VUSC 18 3 NUMBER F_VUSC 18 3
BEGIN BEGIN
PROMPT 46 11 "Valore " PROMPT 46 11 "Valore "
FIELD VALUSC FIELD VALUSC
END END
NUMBER F_ORDF 15 5 NUMBER F_ORDF 15 5
BEGIN BEGIN
PROMPT 2 12 "Ordinato fornitori " PROMPT 2 12 "Ordinato fornitori "
FIELD ORDF FIELD ORDF
END END
NUMBER F_VORDF 18 3 NUMBER F_VORDF 18 3
BEGIN BEGIN
PROMPT 46 12 "Valore " PROMPT 46 12 "Valore "
FIELD VALORDF FIELD VALORDF
END END
NUMBER F_ORDC 15 5 NUMBER F_ORDC 15 5
BEGIN BEGIN
PROMPT 2 13 "Ordinato clienti " PROMPT 2 13 "Ordinato clienti "
FIELD ORDC FIELD ORDC
END END
NUMBER F_VORDC 18 3 NUMBER F_VORDC 18 3
BEGIN BEGIN
PROMPT 46 13 "Valore " PROMPT 46 13 "Valore "
FIELD VALORDC FIELD VALORDC
END END
NUMBER F_SCARTI 15 5 NUMBER F_SCARTI 15 5
BEGIN BEGIN
PROMPT 2 14 "Scarti " PROMPT 2 14 "Scarti "
FIELD SCARTI FIELD SCARTI
END END
NUMBER F_VSCARTI 18 3 NUMBER F_VSCARTI 18 3
BEGIN BEGIN
PROMPT 46 14 "Valore " PROMPT 46 14 "Valore "
FIELD VALSCARTI FIELD VALSCARTI
END END
NUMBER F_INPRODC 15 5 NUMBER F_INPRODC 15 5
BEGIN BEGIN
PROMPT 2 15 "In produzione (componenti) " PROMPT 2 15 "In produzione (componenti) "
FIELD PRODCOMP FIELD PRODCOMP
END END
NUMBER F_INPRODF 15 5 NUMBER F_INPRODF 15 5
BEGIN BEGIN
PROMPT 2 16 "In produzione (finiti) " PROMPT 2 16 "In produzione (finiti) "
FIELD PRODFIN FIELD PRODFIN
END END
NUMBER F_ACL 15 5 NUMBER F_ACL 15 5
BEGIN BEGIN
PROMPT 2 17 "A conto lavorazione " PROMPT 2 17 "A conto lavorazione "
FIELD ACL FIELD ACL
END END
NUMBER F_INCL 15 5 NUMBER F_INCL 15 5
BEGIN BEGIN
PROMPT 2 18 "In conto lavorazione " PROMPT 2 18 "In conto lavorazione "
FIELD INCL FIELD INCL
END END
NUMBER F_LABELS 10 NUMBER F_LABELS 10
BEGIN BEGIN
PROMPT 2 19 "Etichette da stampare " PROMPT 2 19 "Etichette da stampare "
FIELD NLABEL FIELD NLABEL
FLAGS "D" FLAGS "D"
END END
NUMBER F_NDIST 15 5 NUMBER F_NDIST 15 5
BEGIN BEGIN
PROMPT 42 19 "Distinte " PROMPT 42 19 "Distinte "
FIELD NDIST FIELD NDIST
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