Storico con magazzini e info di storico
git-svn-id: svn://10.65.10.50/trunk@4779 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
26dffcf566
commit
b4be2db358
279
ve/ve2400.uml
279
ve/ve2400.uml
@ -26,98 +26,98 @@ BEGIN
|
|||||||
OUTPUT F_CODART CODART
|
OUTPUT F_CODART CODART
|
||||||
OUTPUT F_DESCR DESCR
|
OUTPUT F_DESCR DESCR
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
MESSAGE DISABLE,F_GCA
|
MESSAGE DISABLE,F_GCA
|
||||||
MESSAGE EMPTY ENABLE,F_GCA
|
MESSAGE EMPTY ENABLE,F_GCA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART1 20
|
STRING F_LIVART1 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 2 1 "Codice art. "
|
PROMPT 2 1 "Codice art. "
|
||||||
USE GCA
|
USE GCA
|
||||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
INPUT CODTAB[1,1] "1"
|
INPUT CODTAB[1,1] "1"
|
||||||
INPUT CODTAB[2,11] F_LIVART1
|
INPUT CODTAB[2,11] F_LIVART1
|
||||||
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_LIVART1 CODTAB[2,20]
|
OUTPUT F_LIVART1 CODTAB[2,20]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
ADD RUN MG0 -0 GCA
|
ADD RUN MG0 -0 GCA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART2 20
|
STRING F_LIVART2 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 20 1 ""
|
PROMPT 20 1 ""
|
||||||
USE GCA
|
USE GCA
|
||||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
INPUT CODTAB[1,1] "2"
|
INPUT CODTAB[1,1] "2"
|
||||||
INPUT CODTAB[2,11] F_LIVART2
|
INPUT CODTAB[2,11] F_LIVART2
|
||||||
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_LIVART2 CODTAB[2,20]
|
OUTPUT F_LIVART2 CODTAB[2,20]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
ADD RUN MG0 -0 GCA
|
ADD RUN MG0 -0 GCA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART3 20
|
STRING F_LIVART3 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 30 1 ""
|
PROMPT 30 1 ""
|
||||||
USE GCA
|
USE GCA
|
||||||
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
JOIN FCA ALIAS 500 INTO CODTAB==CODTAB[1,1]
|
||||||
INPUT CODTAB[1,1] "3"
|
INPUT CODTAB[1,1] "3"
|
||||||
INPUT CODTAB[2,11] F_LIVART3
|
INPUT CODTAB[2,11] F_LIVART3
|
||||||
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_LIVART3 CODTAB[2,20]
|
OUTPUT F_LIVART3 CODTAB[2,20]
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
ADD RUN MG0 -0 GCA
|
ADD RUN MG0 -0 GCA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART4 20
|
STRING F_LIVART4 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART5 20
|
STRING F_LIVART5 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART6 20
|
STRING F_LIVART6 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART7 20
|
STRING F_LIVART7 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART8 20
|
STRING F_LIVART8 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_LIVART9 20
|
STRING F_LIVART9 20
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "HG"
|
FLAGS "HG"
|
||||||
PROMPT 15 1 ""
|
PROMPT 15 1 ""
|
||||||
END
|
END
|
||||||
|
|
||||||
BUTTON F_GCA 20 1
|
BUTTON F_GCA 20 1
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 45 1 "Gestione gruppi"
|
PROMPT 45 1 "Gestione gruppi"
|
||||||
MESSAGE RUN,MG0,-0, GCA
|
MESSAGE RUN,MG0,-0, GCA
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCR 50
|
STRING F_DESCR 50
|
||||||
@ -138,8 +138,8 @@ BOOLEAN F_ARTPROD
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Articolo di produzione "
|
PROMPT 2 4 "Articolo di produzione "
|
||||||
FIELD LF_ANAMAG->ARTPROD
|
FIELD LF_ANAMAG->ARTPROD
|
||||||
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1|DISABLE,F_RIORDINO
|
MESSAGE TRUE DISABLE,F_CODFORN|DISABLE,F_CODFORN1|DISABLE,F_RIORDINO
|
||||||
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1|ENABLE,F_RIORDINO
|
MESSAGE FALSE ENABLE,F_CODFORN|ENABLE,F_CODFORN1|ENABLE,F_RIORDINO
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_CODFORN 6
|
NUMBER F_CODFORN 6
|
||||||
@ -153,7 +153,7 @@ BEGIN
|
|||||||
DISPLAY "Ragione sociale@50" RAGSOC
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
OUTPUT F_CODFORN CODCF
|
OUTPUT F_CODFORN CODCF
|
||||||
OUTPUT F_CODFORN1 RAGSOC
|
OUTPUT F_CODFORN1 RAGSOC
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CODFORN1 50
|
STRING F_CODFORN1 50
|
||||||
@ -170,25 +170,25 @@ END
|
|||||||
|
|
||||||
LISTBOX F_RIORDINO 20
|
LISTBOX F_RIORDINO 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 5 "Riordino per "
|
PROMPT 42 5 "Riordino per "
|
||||||
FIELD LF_ANAMAG->RIORDINO
|
FIELD LF_ANAMAG->RIORDINO
|
||||||
ITEM "P|punto di riordino"
|
ITEM "P|punto di riordino"
|
||||||
ITEM "F|fabbisogno"
|
ITEM "F|fabbisogno"
|
||||||
ITEM "T|tempo"
|
ITEM "T|tempo"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
TEXT DLG_NULL
|
TEXT DLG_NULL
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 3 7 "Codici alternativi"
|
PROMPT 3 7 "Codici alternativi"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEETCOD 71 5
|
SPREADSHEET F_SHEETCOD 71 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Codici alternativi"
|
PROMPT 2 8 "Codici alternativi"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
USE LF_CODCORR KEY NRIGA
|
USE LF_CODCORR KEY NRIGA
|
||||||
INPUT CODART F_CODART
|
INPUT CODART F_CODART
|
||||||
ITEM "Cod. art.@20"
|
ITEM "Cod. art.@20"
|
||||||
ITEM "Tipo@10"
|
ITEM "Tipo@10"
|
||||||
END
|
END
|
||||||
@ -201,9 +201,9 @@ END
|
|||||||
SPREADSHEET F_SHEETDESLIN 71 5
|
SPREADSHEET F_SHEETDESLIN 71 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 15 "Descrizioni in lingua"
|
PROMPT 2 15 "Descrizioni in lingua"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
USE LF_DESLIN KEY NRIGA
|
USE LF_DESLIN KEY NRIGA
|
||||||
INPUT CODART F_CODART
|
INPUT CODART F_CODART
|
||||||
ITEM "Cod. lingua"
|
ITEM "Cod. lingua"
|
||||||
ITEM "Descrizione@50"
|
ITEM "Descrizione@50"
|
||||||
END
|
END
|
||||||
@ -251,7 +251,7 @@ STRING H_GRMERCD1 50
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 23 2 ""
|
PROMPT 23 2 ""
|
||||||
GROUP 1
|
GROUP 1
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_GRMERCB 2
|
STRING F_GRMERCB 2
|
||||||
@ -281,7 +281,7 @@ BEGIN
|
|||||||
INPUT S0 F_GRMERCD2
|
INPUT S0 F_GRMERCD2
|
||||||
DISPLAY "Codice" CODTAB
|
DISPLAY "Codice" CODTAB
|
||||||
DISPLAY "Descrizione@50" S0
|
DISPLAY "Descrizione@50" S0
|
||||||
COPY OUTPUT F_GRMERCB
|
COPY OUTPUT F_GRMERCB
|
||||||
// OUTPUT F_GRMERC CODTAB[1,3]
|
// OUTPUT F_GRMERC CODTAB[1,3]
|
||||||
// OUTPUT F_GRMERCB CODTAB[4,5]
|
// OUTPUT F_GRMERCB CODTAB[4,5]
|
||||||
// OUTPUT F_GRMERCD2 S0
|
// OUTPUT F_GRMERCD2 S0
|
||||||
@ -402,7 +402,7 @@ BEGIN
|
|||||||
OUTPUT F_DESCRA DESCR
|
OUTPUT F_DESCRA DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Sottoconto errato"
|
WARNING "Sottoconto errato"
|
||||||
// WARNING "Il conto deve essere un costo"
|
// WARNING "Il conto deve essere un costo"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
@ -418,7 +418,7 @@ BEGIN
|
|||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT F_SOTTOCA
|
COPY OUTPUT F_SOTTOCA
|
||||||
WARNING "Il conto deve essere un costo"
|
WARNING "Il conto deve essere un costo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CATCONV 3
|
STRING F_CATCONV 3
|
||||||
@ -491,7 +491,7 @@ BEGIN
|
|||||||
OUTPUT F_SOTTOCV SOTTOCONTO
|
OUTPUT F_SOTTOCV SOTTOCONTO
|
||||||
OUTPUT F_DESCRV DESCR
|
OUTPUT F_DESCRV DESCR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
WARNING "Il conto deve essere un ricavo"
|
WARNING "Il conto deve essere un ricavo"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_DESCRV 40
|
STRING F_DESCRV 40
|
||||||
@ -506,7 +506,7 @@ BEGIN
|
|||||||
DISPLAY "Conto" CONTO
|
DISPLAY "Conto" CONTO
|
||||||
DISPLAY "Sottoconto" SOTTOCONTO
|
DISPLAY "Sottoconto" SOTTOCONTO
|
||||||
COPY OUTPUT F_SOTTOCV
|
COPY OUTPUT F_SOTTOCV
|
||||||
WARNING "Il conto deve essere un ricavo"
|
WARNING "Il conto deve essere un ricavo"
|
||||||
END
|
END
|
||||||
|
|
||||||
BOOLEAN F_ARTFIS
|
BOOLEAN F_ARTFIS
|
||||||
@ -521,7 +521,7 @@ STRING F_RAGGFIS 5
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 14 "Raggrupp. fiscale "
|
PROMPT 1 14 "Raggrupp. fiscale "
|
||||||
FIELD LF_ANAMAG->RAGGFIS
|
FIELD LF_ANAMAG->RAGGFIS
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
USE RFA
|
USE RFA
|
||||||
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
||||||
INPUT CODTAB F_RAGGFIS
|
INPUT CODTAB F_RAGGFIS
|
||||||
@ -544,22 +544,22 @@ STRING H_CLASSEFIS 2
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 15 ""
|
PROMPT 1 15 ""
|
||||||
FLAG "HG"
|
FLAG "HG"
|
||||||
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
|
MESSAGE DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
|
||||||
MESSAGE EMPTY ENABLE,F_CLASSEFIS
|
MESSAGE EMPTY ENABLE,F_CLASSEFIS
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_CLASSEFIS 2
|
STRING F_CLASSEFIS 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 1 15 "Classe fiscale "
|
PROMPT 1 15 "Classe fiscale "
|
||||||
FIELD LF_ANAMAG->CLASSEFIS
|
FIELD LF_ANAMAG->CLASSEFIS
|
||||||
FLAGS "UD"
|
FLAGS "UD"
|
||||||
USE %ASF
|
USE %ASF
|
||||||
INPUT CODTAB F_CLASSEFIS
|
INPUT CODTAB F_CLASSEFIS
|
||||||
DISPLAY "Codice " CODTAB
|
DISPLAY "Codice " CODTAB
|
||||||
DISPLAY "Descrizione@40" S0
|
DISPLAY "Descrizione@40" S0
|
||||||
OUTPUT F_CLASSEFIS CODTAB
|
OUTPUT F_CLASSEFIS CODTAB
|
||||||
OUTPUT F_CLASSEFISD S0
|
OUTPUT F_CLASSEFISD S0
|
||||||
MESSAGE EMPTY "",F_CLASSEFISD
|
MESSAGE EMPTY "",F_CLASSEFISD
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
GROUP 23
|
GROUP 23
|
||||||
END
|
END
|
||||||
@ -611,8 +611,8 @@ BEGIN
|
|||||||
PROMPT 36 18 ""
|
PROMPT 36 18 ""
|
||||||
USE %PRV KEY 2
|
USE %PRV KEY 2
|
||||||
INPUT S0 F_PROVOR2
|
INPUT S0 F_PROVOR2
|
||||||
COPY DISPLAY F_PROVOR
|
COPY DISPLAY F_PROVOR
|
||||||
COPY OUTPUT F_PROVOR
|
COPY OUTPUT F_PROVOR
|
||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
@ -649,9 +649,9 @@ END
|
|||||||
SPREADSHEET F_SHEETUM 77 5
|
SPREADSHEET F_SHEETUM 77 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 3 "Unità di misura "
|
PROMPT 2 3 "Unità di misura "
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
USE LF_UMART KEY NRIGA
|
USE LF_UMART KEY NRIGA
|
||||||
INPUT CODART F_CODART
|
INPUT CODART F_CODART
|
||||||
ITEM "U.M."
|
ITEM "U.M."
|
||||||
ITEM "F. conversione"
|
ITEM "F. conversione"
|
||||||
ITEM "Prezzo netto@18"
|
ITEM "Prezzo netto@18"
|
||||||
@ -745,7 +745,7 @@ NUMBER F_RICARICO 5 2
|
|||||||
BEGIN
|
BEGIN
|
||||||
FIELD LF_ANAMAG->PERCRIC
|
FIELD LF_ANAMAG->PERCRIC
|
||||||
PROMPT 42 20 "Ricarico/margine "
|
PROMPT 42 20 "Ricarico/margine "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
// NUM_EXPR #F_RICARICO<=
|
// NUM_EXPR #F_RICARICO<=
|
||||||
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
||||||
END
|
END
|
||||||
@ -761,32 +761,37 @@ PAGE "Pag. 4" 0 0 70 20
|
|||||||
NUMBER H_ANNO 4
|
NUMBER H_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 ""
|
PROMPT 2 2 ""
|
||||||
FLAGS "AHG"
|
FLAGS "AHG"
|
||||||
|
//MESSAGE COPY,F_ANNO |COPY,F_ANNORIF
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNO 4
|
STRING F_ANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 2 "Vai all'anno "
|
PROMPT 42 2 "Vai all'anno "
|
||||||
FLAGS "AU"
|
FLAGS "U"
|
||||||
NUM_EXPR (#F_ANNO<=#H_ANNO)&&(#F_ANNO>=(#H_ANNO-"10"))
|
USE ESE
|
||||||
WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
|
INPUT CODTAB F_ANNO
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Dal@10" D0
|
||||||
|
DISPLAY "Al@10" D1
|
||||||
|
OUTPUT F_ANNO CODTAB
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
STRING F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Giacenze dell'anno "
|
PROMPT 2 2 "Giacenze dell'anno "
|
||||||
FLAGS "AD"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
SPREADSHEET F_SHEETGIAC 77 10
|
SPREADSHEET F_SHEETGIAC 77 10
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Giacenze"
|
PROMPT 2 4 "Giacenze"
|
||||||
FLAGS "A"
|
FLAGS "A"
|
||||||
USE LF_MAG KEY NRIGA
|
USE LF_MAG KEY NRIGA
|
||||||
INPUT ANNOES F_ANNO
|
INPUT ANNOES F_ANNO
|
||||||
INPUT CODART F_CODART
|
INPUT CODART F_CODART
|
||||||
// la sequenza delle colonne livelliX, mag e dep è usata per ottenere
|
// la sequenza delle colonne livelliX, mag e dep è usata per ottenere
|
||||||
// un ordinamento delle righe dello sheet: NON cambiarla
|
// un ordinamento delle righe dello sheet: NON cambiarla
|
||||||
ITEM "Liv1@10"
|
ITEM "Liv1@10"
|
||||||
ITEM "Liv2@6"
|
ITEM "Liv2@6"
|
||||||
ITEM "Liv3@6"
|
ITEM "Liv3@6"
|
||||||
@ -794,10 +799,10 @@ BEGIN
|
|||||||
ITEM "Mag."
|
ITEM "Mag."
|
||||||
ITEM "Dep."
|
ITEM "Dep."
|
||||||
ITEM "Ubicazione"
|
ITEM "Ubicazione"
|
||||||
ITEM "Scorta min.@10"
|
ITEM "Scorta min.@10"
|
||||||
ITEM "Livello rior.@10"
|
ITEM "Livello rior.@10"
|
||||||
ITEM "Lotto rior.@10"
|
ITEM "Lotto rior.@10"
|
||||||
ITEM "Giorni rior.@10"
|
ITEM "Giorni rior.@10"
|
||||||
ITEM "Giacenza @10"
|
ITEM "Giacenza @10"
|
||||||
ITEM "Rim.Iniz.@10"
|
ITEM "Rim.Iniz.@10"
|
||||||
ITEM "V.Rim.Iniz.@12"
|
ITEM "V.Rim.Iniz.@12"
|
||||||
@ -808,87 +813,99 @@ BEGIN
|
|||||||
ITEM "Ven.@10"
|
ITEM "Ven.@10"
|
||||||
ITEM "V.Ven.@12"
|
ITEM "V.Ven.@12"
|
||||||
ITEM "Uscito@10"
|
ITEM "Uscito@10"
|
||||||
ITEM "V.Uscito@12"
|
ITEM "V.Uscito@12"
|
||||||
ITEM "Ord.For.@10"
|
ITEM "Ord.For.@10"
|
||||||
ITEM "V.Ord.For.@12"
|
ITEM "V.Ord.For.@12"
|
||||||
ITEM "Ord.Cli.@10"
|
ITEM "Ord.Cli.@10"
|
||||||
ITEM "V.Ord.Cli.@12"
|
ITEM "V.Ord.Cli.@12"
|
||||||
ITEM "Scarti@10"
|
ITEM "Scarti@10"
|
||||||
ITEM "V.Scarti@12"
|
ITEM "V.Scarti@12"
|
||||||
ITEM "In Prod.Comp.@10"
|
ITEM "In Prod.Comp.@10"
|
||||||
ITEM "In Prod.Fin.@10"
|
ITEM "In Prod.Fin.@10"
|
||||||
ITEM "A conto L.@10"
|
ITEM "A conto L.@10"
|
||||||
ITEM "In conto L.@10"
|
ITEM "In conto L.@10"
|
||||||
ITEM "Etichette@10"
|
ITEM "Etichette@10"
|
||||||
ITEM "N.dist."
|
ITEM "N.dist."
|
||||||
END
|
END
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
PAGE "Pag. 5" 0 0 70 20
|
PAGE "Pag. 5" 0 0 70 20
|
||||||
|
|
||||||
NUMBER F_STOANNO 4
|
STRINGA F_STOANNO 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 42 2 "Vai all'anno "
|
PROMPT 42 2 "Vai all'anno "
|
||||||
FLAGS "AU"
|
FLAGS "U"
|
||||||
NUM_EXPR (#F_STOANNO<=#H_ANNO)&&(#F_STOANNO>=(#H_ANNO-"10"))
|
USE ESE
|
||||||
WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
|
INPUT CODTAB F_STOANNO
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Dal@10" D0
|
||||||
|
DISPLAY "Al@10" D1
|
||||||
|
OUTPUT F_STOANNO CODTAB
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
STRINGA F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 2 "Storico Giacenze dell'anno "
|
PROMPT 2 2 "Storico Giacenze dell'anno "
|
||||||
FLAGS "AD"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
TEXT DLG_NULL
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 4 "Composizione rimanenze a fine anno "
|
||||||
|
END
|
||||||
|
|
||||||
|
SPREADSHEET F_SHEETSTOMAG 77 11
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 5 "Composizione"
|
||||||
|
FLAGS "A"
|
||||||
|
USE LF_STOMAG KEY NRIGA
|
||||||
|
INPUT ANNOESRIF F_STOANNO
|
||||||
|
INPUT CODART F_CODART
|
||||||
|
ITEM " @1F"
|
||||||
|
ITEM "Magazzino"
|
||||||
|
ITEM "Esercizio@10"
|
||||||
|
ITEM "U.M.@10"
|
||||||
|
ITEM "Quantità@15"
|
||||||
|
ITEM "Valore@15"
|
||||||
|
END
|
||||||
|
|
||||||
|
|
||||||
NUMBER F_STOULTCOS1 15 5
|
NUMBER F_STOULTCOS1 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
PROMPT 2 16 "Ultimo costo "
|
PROMPT 2 17 "Ultimo costo "
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOULTCOS2 15 5
|
NUMBER F_STOULTCOS2 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
PROMPT 42 16 "Penultimo costo "
|
PROMPT 42 17 "Penultimo costo "
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOCOSTOSTD 15 5
|
NUMBER F_STOCOSTOSTD 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
PROMPT 2 17 "Costo standard "
|
PROMPT 2 18 "Costo standard "
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOCOSTOMEDIO 15 5
|
NUMBER F_STOCOSTOMEDIO 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
PROMPT 42 17 "Costo medio "
|
PROMPT 42 18 "Costo medio "
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_STOCATVEN 3
|
STRING F_STOCATVEN 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 18 "Cat.vendita "
|
PROMPT 2 19 "Cat.vendita "
|
||||||
END
|
END
|
||||||
STRING F_STOCODLIST 3
|
STRING F_STOCODLIST 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 26 18 "Cod.listino "
|
PROMPT 26 19 "Cod.listino "
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOPREZZOLIST 15 5
|
NUMBER F_STOPREZZOLIST 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
PROMPT 47 18 "Prezzo "
|
PROMPT 51 19 "Prezzo "
|
||||||
END
|
|
||||||
|
|
||||||
SPREADSHEET F_SHEETSTOMAG 77 10
|
|
||||||
BEGIN
|
|
||||||
PROMPT 2 4 "Storico Giacenze"
|
|
||||||
FLAGS "A"
|
|
||||||
USE LF_STOMAG KEY NRIGA
|
|
||||||
INPUT ANNOESRIF F_STOANNO
|
|
||||||
INPUT CODART F_CODART
|
|
||||||
ITEM "Esercizio@10"
|
|
||||||
ITEM "U.M.@10"
|
|
||||||
ITEM "Quantità@15"
|
|
||||||
ITEM "Valore@15"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -183,7 +183,7 @@ END
|
|||||||
|
|
||||||
STRING F_UBICAZD 20
|
STRING F_UBICAZD 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 22 4 ""
|
PROMPT 27 4 ""
|
||||||
FLAGS "D"
|
FLAGS "D"
|
||||||
END
|
END
|
||||||
|
|
||||||
|
|||||||
@ -20,52 +20,64 @@ ENDPAGE
|
|||||||
|
|
||||||
PAGE "Storico giacenze" -1 -1 80 23
|
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 "
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD LF_STOMAG->CODMAG
|
||||||
|
USE MAG
|
||||||
|
INPUT CODTAB F_STOCODMAG
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@40" S0
|
||||||
|
OUTPUT F_STOCODMAG CODTAB
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
NUMBER F_STOANNOES 4
|
NUMBER F_STOANNOES 4
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 4 "Codice esercizio "
|
PROMPT 2 4 "Codice esercizio "
|
||||||
FIELD LF_STOMAG->ANNOES
|
FIELD LF_STOMAG->ANNOES
|
||||||
USE ESC
|
USE ESC
|
||||||
INPUT CODTAB F_STOANNOES
|
INPUT CODTAB F_STOANNOES
|
||||||
DISPLAY "Esercizio @15" CODTAB
|
DISPLAY "Esercizio @15" CODTAB
|
||||||
DISPLAY "D. Inizio@15" D0
|
DISPLAY "D. Inizio@15" D0
|
||||||
DISPLAY "D. Fine@15" D1
|
DISPLAY "D. Fine@15" D1
|
||||||
OUTPUT F_STOANNOES CODTAB
|
OUTPUT F_STOANNOES CODTAB
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_STOUM 2
|
STRING F_STOUM 2
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Unità di misura "
|
PROMPT 2 6 "Unità di misura "
|
||||||
FLAGS "U"
|
FLAGS "UD"
|
||||||
FIELD LF_STOMAG->UM
|
|
||||||
USE LF_UMART KEY 2
|
|
||||||
INPUT CODART F_STOCODART SELECT
|
|
||||||
INPUT UM F_STOUM
|
|
||||||
DISPLAY "U.M.@20" UM
|
|
||||||
OUTPUT F_STOUM UM
|
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOQUANT 15 5
|
NUMBER F_STOQUANT 15 5
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 8 "Quantità "
|
PROMPT 2 8 "Quantità "
|
||||||
FIELD LF_STOMAG->QUANT
|
FIELD LF_STOMAG->QUANT
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Indicare la quantità"
|
WARNING "Indicare la quantità"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER F_STOPREZZO 18 3
|
NUMBER F_STOVAL 18 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 10 "Valore "
|
PROMPT 2 10 "Valore "
|
||||||
FIELD LF_STOMAG->VALORE
|
FIELD LF_STOMAG->VALORE
|
||||||
CHECKTYPE REQUIRED
|
CHECKTYPE REQUIRED
|
||||||
WARNING "Indicare il prezzo"
|
WARNING "Indicare il valore"
|
||||||
END
|
END
|
||||||
|
|
||||||
STRING F_STOCODART 20
|
STRING F_STOCODART 20
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 1 "Codice art. "
|
PROMPT 2 18 "Codice art. "
|
||||||
FLAGS "H"
|
FLAGS "HG"
|
||||||
END
|
END
|
||||||
|
|
||||||
ENDPAGE
|
ENDPAGE
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user