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