866 lines
16 KiB
Plaintext
Executable File
866 lines
16 KiB
Plaintext
Executable File
#include <lffiles.h>
|
||
#include "ve2400.h"
|
||
|
||
TOOLBAR "" 0 20 60 2
|
||
#include <toolbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Pag. 1" 0 0 70 20
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
//FLAG "R"
|
||
END
|
||
|
||
STRING F_CODART 20
|
||
BEGIN
|
||
PROMPT 2 1 "Codice art. "
|
||
FIELD LF_ANAMAG->CODART
|
||
KEY 1
|
||
FLAG "U"
|
||
USE LF_ANAMAG
|
||
INPUT CODART F_CODART
|
||
DISPLAY "Codice@20" CODART
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_CODART CODART
|
||
OUTPUT F_DESCR DESCR
|
||
CHECKTYPE REQUIRED
|
||
MESSAGE DISABLE,F_GCA
|
||
MESSAGE EMPTY ENABLE,F_GCA
|
||
END
|
||
|
||
STRING F_LIVART1 20
|
||
BEGIN
|
||
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
|
||
END
|
||
|
||
STRING F_LIVART2 20
|
||
BEGIN
|
||
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
|
||
END
|
||
|
||
STRING F_LIVART3 20
|
||
BEGIN
|
||
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
|
||
END
|
||
|
||
STRING F_LIVART4 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART5 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART6 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART7 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART8 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART9 20
|
||
BEGIN
|
||
FLAGS "HG"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
BUTTON F_GCA 20 1
|
||
BEGIN
|
||
PROMPT 45 1 "Gestione gruppi"
|
||
MESSAGE RUN,MG0,-0, GCA
|
||
END
|
||
|
||
STRING F_DESCR 50
|
||
BEGIN
|
||
PROMPT 2 2 "Descrizione "
|
||
FIELD LF_ANAMAG->DESCR
|
||
KEY 2
|
||
USE LF_ANAMAG KEY 2
|
||
INPUT DESCR F_DESCR
|
||
DISPLAY "Codice@20" CODART
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_CODART CODART
|
||
OUTPUT F_DESCR DESCR
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
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
|
||
END
|
||
|
||
NUMBER F_CODFORN 6
|
||
BEGIN
|
||
PROMPT 1 5 "Codice fornitore "
|
||
FIELD LF_ANAMAG->CODFORN
|
||
USE LF_CLIFO
|
||
INPUT TIPOCF F_TIPOCF SELECT
|
||
INPUT CODCF F_CODFORN
|
||
DISPLAY "Codice " CODCF
|
||
DISPLAY "Ragione sociale@50" RAGSOC
|
||
OUTPUT F_CODFORN CODCF
|
||
OUTPUT F_CODFORN1 RAGSOC
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CODFORN1 50
|
||
BEGIN
|
||
PROMPT 1 6 "Ragione sociale "
|
||
USE LF_CLIFO KEY 2
|
||
INPUT TIPOCF F_TIPOCF SELECT
|
||
INPUT RAGSOC F_CODFORN1
|
||
DISPLAY "Codice " CODCF
|
||
DISPLAY "Ragione sociale@50" RAGSOC
|
||
OUTPUT F_CODFORN CODCF
|
||
OUTPUT F_CODFORN1 RAGSOC
|
||
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"
|
||
END
|
||
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
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
|
||
ITEM "Cod. art.@20"
|
||
ITEM "Tipo@10"
|
||
END
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
PROMPT 3 14 "Descrizioni in lingua"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETDESLIN 71 5
|
||
BEGIN
|
||
PROMPT 2 15 "Descrizioni in lingua"
|
||
FLAGS "A"
|
||
USE LF_DESLIN KEY NRIGA
|
||
INPUT CODART F_CODART
|
||
ITEM "Cod. lingua"
|
||
ITEM "Descrizione@50"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
|
||
|
||
|
||
|
||
PAGE "Pag. 2" 0 0 70 20
|
||
|
||
STRING F_GRMERC 3
|
||
BEGIN
|
||
PROMPT 1 2 "Gr. merc. "
|
||
FIELD LF_ANAMAG->GRMERC[1,3]
|
||
GROUP 1
|
||
FLAG "U"
|
||
USE GMC KEY 1 SELECT CODTAB ?= "???"
|
||
INPUT CODTAB F_GRMERC
|
||
DISPLAY "Codice" CODTAB[1,3]
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_GRMERC CODTAB[1,3]
|
||
OUTPUT F_GRMERCD1 S0
|
||
OUTPUT H_GRMERCD1 S0
|
||
|
||
OUTPUT F_GRMERCB CODTAB[4,5]
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_GRMERCD1 50
|
||
BEGIN
|
||
PROMPT 23 2 ""
|
||
GROUP 1
|
||
USE GMC KEY 2 SELECT CODTAB ?= "???"
|
||
INPUT S0 F_GRMERCD1
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_GRMERC CODTAB[1,3]
|
||
OUTPUT F_GRMERCD1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING H_GRMERCD1 50
|
||
BEGIN
|
||
PROMPT 23 2 ""
|
||
GROUP 1
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_GRMERCB 2
|
||
BEGIN
|
||
PROMPT 1 3 "Sott. merc. "
|
||
FIELD LF_ANAMAG->GRMERC[4,5]
|
||
GROUP 1
|
||
FLAG "U"
|
||
USE GMC //SELECT CODTAB[4,5] != ""
|
||
INPUT CODTAB[1,3] F_GRMERC
|
||
INPUT CODTAB[4,5] F_GRMERCB
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_GRMERC CODTAB[1,3]
|
||
OUTPUT F_GRMERCB CODTAB[4,5]
|
||
OUTPUT F_GRMERCD2 S0
|
||
MESSAGE SHOW,F_GRMERCD2|SHOW,H_GRMERCD1|HIDE,F_GRMERCD1
|
||
MESSAGE EMPTY HIDE,F_GRMERCD2|HIDE,H_GRMERCD1|SHOW,F_GRMERCD1
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_GRMERCD2 50
|
||
BEGIN
|
||
PROMPT 23 3 ""
|
||
GROUP 1
|
||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||
INPUT S0 F_GRMERCD2
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
COPY OUTPUT F_GRMERCB
|
||
// OUTPUT F_GRMERC CODTAB[1,3]
|
||
// OUTPUT F_GRMERCB CODTAB[4,5]
|
||
// OUTPUT F_GRMERCD2 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CODIVA 4
|
||
BEGIN
|
||
PROMPT 1 5 "Codice IVA "
|
||
FIELD LF_ANAMAG->CODIVA
|
||
USE %IVA
|
||
INPUT CODTAB F_CODIVA
|
||
DISPLAY "Codice " CODTAB
|
||
DISPLAY "Descrizione@40" S0
|
||
OUTPUT F_CODIVA CODTAB
|
||
OUTPUT F_CODIVA1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CODIVA1 50
|
||
BEGIN
|
||
PROMPT 23 5 ""
|
||
USE %IVA KEY 2
|
||
INPUT S0 F_CODIVA1
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice " CODTAB
|
||
OUTPUT F_CODIVA CODTAB
|
||
OUTPUT F_CODIVA1 S0
|
||
END
|
||
|
||
STRING F_SCONTO 25
|
||
BEGIN
|
||
FIELD LF_ANAMAG->SCONTO
|
||
PROMPT 1 6 "Sconto "
|
||
END
|
||
|
||
STRING F_CODIVAR 4
|
||
BEGIN
|
||
PROMPT 50 6 "Codice IVA ridotta "
|
||
FIELD LF_ANAMAG->CODIVAR
|
||
USE %IVA
|
||
INPUT CODTAB F_CODIVAR
|
||
DISPLAY "Codice " CODTAB
|
||
DISPLAY "Descrizione@40" S0
|
||
OUTPUT F_CODIVAR CODTAB
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CATCONA 3
|
||
BEGIN
|
||
PROMPT 1 8 "Categoria conto acquisti "
|
||
FIELD LF_ANAMAG->CATCONA
|
||
GROUP 11
|
||
FLAG "UZ"
|
||
USE CAA
|
||
INPUT CODTAB F_CATCONA
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Gruppo" S1
|
||
DISPLAY "Conto" S2
|
||
DISPLAY "Sottoconto" S3
|
||
OUTPUT F_CATCONA CODTAB
|
||
OUTPUT F_CATCONA1 S0
|
||
CHEKTYPE NORMAL
|
||
// MESSAGE CLEAR,12@
|
||
// MESSAGE EMPTY ENABLE,12@
|
||
END
|
||
|
||
STRING F_CATCONA1 40
|
||
BEGIN
|
||
PROMPT 36 8 ""
|
||
FLAG "D"
|
||
GROUP 11
|
||
USE CAA KEY 2
|
||
INPUT S0 F_CATCONA1
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Gruppo" S1
|
||
DISPLAY "Conto" S2
|
||
DISPLAY "Sottoconto" S3
|
||
COPY OUTPUT F_CATCONA
|
||
END
|
||
|
||
NUMBER F_GRUPPOA 3
|
||
BEGIN
|
||
PROMPT 1 9 "Conto d'acquisto "
|
||
FIELD LF_ANAMAG->GRUPPOA
|
||
GROUP 12
|
||
// MESSAGE CLEAR,11@
|
||
// MESSAGE EMPTY ENABLE,11@
|
||
END
|
||
|
||
NUMBER F_CONTOA 3
|
||
BEGIN
|
||
PROMPT 22 9 ""
|
||
FIELD LF_ANAMAG->CONTOA
|
||
GROUP 12
|
||
END
|
||
|
||
NUMBER F_SOTTOCA 6
|
||
BEGIN
|
||
|
||
PROMPT 26 9 ""
|
||
FIELD LF_ANAMAG->SOTTOCA
|
||
GROUP 12
|
||
USE LF_PCON SELECT (500@->INDBIL=="3")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT GRUPPO F_GRUPPOA
|
||
INPUT CONTO F_CONTOA
|
||
INPUT SOTTOCONTO F_SOTTOCA
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOA GRUPPO
|
||
OUTPUT F_CONTOA CONTO
|
||
OUTPUT F_SOTTOCA SOTTOCONTO
|
||
OUTPUT F_DESCRA DESCR
|
||
CHECKTYPE NORMAL
|
||
WARNING "Sottoconto errato"
|
||
// WARNING "Il conto deve essere un costo"
|
||
END
|
||
|
||
|
||
STRING F_DESCRA 40
|
||
BEGIN
|
||
PROMPT 36 9 ""
|
||
FLAG "D"
|
||
GROUP 12
|
||
USE LF_PCON KEY 2 SELECT INDBIL=="3"
|
||
INPUT DESCR F_DESCRA
|
||
DISPLAY "Descrizione@50" DESCR
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
COPY OUTPUT F_SOTTOCA
|
||
WARNING "Il conto deve essere un costo"
|
||
END
|
||
|
||
STRING F_CATCONV 3
|
||
BEGIN
|
||
PROMPT 1 10 "Categoria conto vendite "
|
||
FIELD LF_ANAMAG->CATCONV
|
||
GROUP 21
|
||
FLAG "UZ"
|
||
USE CRA
|
||
INPUT CODTAB F_CATCONV
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Gruppo" S1
|
||
DISPLAY "Conto" S2
|
||
DISPLAY "Sottoconto" S3
|
||
OUTPUT F_CATCONV CODTAB
|
||
OUTPUT F_CATCONV1 S0
|
||
CHECKTYPE NORMAL
|
||
// MESSAGE CLEAR,22@
|
||
// MESSAGE EMPTY ENABLE,22@
|
||
END
|
||
|
||
STRING F_CATCONV1 40
|
||
BEGIN
|
||
PROMPT 36 10 ""
|
||
FLAG "D"
|
||
GROUP 21
|
||
USE CRA KEY 2
|
||
INPUT S0 F_CATCONV1
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Gruppo" S1
|
||
DISPLAY "Conto" S2
|
||
DISPLAY "Sottoconto" S3
|
||
COPY OUTPUT F_CATCONV
|
||
END
|
||
|
||
NUMBER F_GRUPPOV 3
|
||
BEGIN
|
||
PROMPT 1 11 "Conto di vendita "
|
||
FIELD LF_ANAMAG->GRUPPOV
|
||
GROUP 22
|
||
// MESSAGE CLEAR,21@
|
||
// MESSAGE EMPTY ENABLE,21@
|
||
END
|
||
|
||
NUMBER F_CONTOV 3
|
||
BEGIN
|
||
PROMPT 22 11 ""
|
||
FIELD LF_ANAMAG->CONTOV
|
||
GROUP 22
|
||
END
|
||
|
||
NUMBER F_SOTTOCV 6
|
||
BEGIN
|
||
PROMPT 26 11 ""
|
||
FIELD LF_ANAMAG->SOTTOCV
|
||
GROUP 22
|
||
USE LF_PCON SELECT (500@->INDBIL=="4")
|
||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||
INPUT GRUPPO F_GRUPPOV
|
||
INPUT CONTO F_CONTOV
|
||
INPUT SOTTOCONTO F_SOTTOCV
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_GRUPPOV GRUPPO
|
||
OUTPUT F_CONTOV CONTO
|
||
OUTPUT F_SOTTOCV SOTTOCONTO
|
||
OUTPUT F_DESCRV DESCR
|
||
CHECKTYPE NORMAL
|
||
WARNING "Il conto deve essere un ricavo"
|
||
END
|
||
|
||
STRING F_DESCRV 40
|
||
BEGIN
|
||
PROMPT 36 11 ""
|
||
FLAG "D"
|
||
GROUP 22
|
||
USE LF_PCON KEY 2 SELECT INDBIL=="4"
|
||
INPUT DESCR F_DESCRV
|
||
DISPLAY "Descrizione@50" DESCR
|
||
DISPLAY "Gruppo" GRUPPO
|
||
DISPLAY "Conto" CONTO
|
||
DISPLAY "Sottoconto" SOTTOCONTO
|
||
COPY OUTPUT F_SOTTOCV
|
||
WARNING "Il conto deve essere un ricavo"
|
||
END
|
||
|
||
BOOLEAN F_ARTFIS
|
||
BEGIN
|
||
PROMPT 1 13 "Articolo fiscale"
|
||
FIELD LF_ANAMAG->ARTFIS
|
||
MESSAGE TRUE ENABLE,23@
|
||
MESSAGE FALSE DISABLE,23@
|
||
END
|
||
|
||
STRING F_RAGGFIS 5
|
||
BEGIN
|
||
PROMPT 1 14 "Raggrupp. fiscale "
|
||
FIELD LF_ANAMAG->RAGGFIS
|
||
FLAGS "U"
|
||
USE RFA
|
||
JOIN %ASF ALIAS 200 INTO CODTAB=S8
|
||
INPUT CODTAB F_RAGGFIS
|
||
DISPLAY "Codice " CODTAB
|
||
DISPLAY "Descrizione@40" S0
|
||
OUTPUT F_RAGGFIS CODTAB
|
||
OUTPUT F_RAGGFIS1 S0
|
||
OUTPUT H_CLASSEFIS S8
|
||
CHECKTYPE NORMAL
|
||
GROUP 23
|
||
END
|
||
|
||
STRING F_RAGGFIS1 40
|
||
BEGIN
|
||
PROMPT 31 14 ""
|
||
FLAG "D"
|
||
END
|
||
|
||
STRING H_CLASSEFIS 2
|
||
BEGIN
|
||
PROMPT 1 15 ""
|
||
FLAG "HG"
|
||
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"
|
||
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
|
||
CHECKTYPE NORMAL
|
||
GROUP 23
|
||
END
|
||
|
||
STRING F_CLASSEFISD 40
|
||
BEGIN
|
||
PROMPT 31 15 ""
|
||
FLAG "D"
|
||
END
|
||
|
||
|
||
STRING F_CLASSDOG 10
|
||
BEGIN
|
||
PROMPT 1 17 "Classe doganale "
|
||
FIELD LF_ANAMAG->CLASSDOG
|
||
FLAG "UZ"
|
||
USE %CLD
|
||
INPUT CODTAB F_CLASSDOG
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_CLASSDOG CODTAB
|
||
OUTPUT F_CLASSDOG1 S0
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CLASSDOG1 40
|
||
BEGIN
|
||
PROMPT 36 17 ""
|
||
FLAG "D"
|
||
END
|
||
|
||
STRING F_PROVOR 5
|
||
BEGIN
|
||
PROMPT 1 18 "Provincia di origine "
|
||
FIELD LF_ANAMAG->PROV
|
||
USE %PRV
|
||
INPUT CODTAB F_PROVOR
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Provincia@50" S0
|
||
|
||
OUTPUT F_PROVOR CODTAB
|
||
OUTPUT F_PROVOR2 S0
|
||
CHECKTYPE NORMAL
|
||
WARNING "Provincia assente"
|
||
END
|
||
|
||
STRING F_PROVOR2 40
|
||
BEGIN
|
||
PROMPT 36 18 ""
|
||
USE %PRV KEY 2
|
||
INPUT S0 F_PROVOR2
|
||
COPY DISPLAY F_PROVOR
|
||
COPY OUTPUT F_PROVOR
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
PAGE "Pag. 3" 0 0 70 20
|
||
|
||
STRING F_UMP 3
|
||
BEGIN
|
||
PROMPT 1 1 "U.M. peso "
|
||
FIELD LF_ANAMAG->UMP
|
||
FLAG "U"
|
||
USE %UMS
|
||
INPUT CODTAB F_UMP
|
||
DISPLAY "U.M. " CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_UMP CODTAB
|
||
VALIDATE REQIF_FUNC 1 F_PESO
|
||
WARNING "Necessaria una unit<69> di misura valida per il peso "
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
PROMPT 3 2 "Unit<69> di misura articolo"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETUM 77 5
|
||
BEGIN
|
||
PROMPT 2 3 "Unit<69> di misura "
|
||
FLAGS "A"
|
||
USE LF_UMART KEY NRIGA
|
||
INPUT CODART F_CODART
|
||
ITEM "U.M."
|
||
ITEM "F. conversione"
|
||
ITEM "Prezzo netto@18"
|
||
ITEM "Prezzo lordo@18"
|
||
END
|
||
|
||
NUMBER F_PESO 15 5
|
||
BEGIN
|
||
PROMPT 1 10 "Peso "
|
||
FIELD LF_ANAMAG->PESO
|
||
VALIDATE REQIF_FUNC 1 F_TARA
|
||
WARNING "Necessario introdurre il peso se si <20> introdotta la tara"
|
||
END
|
||
|
||
NUMBER F_TARA 15 5
|
||
BEGIN
|
||
PROMPT 42 10 "Tara "
|
||
FIELD LF_ANAMAG->TARA
|
||
END
|
||
|
||
NUMBER F_MASSANUN 10 3
|
||
BEGIN
|
||
PROMPT 1 11 "Massa netta unitaria "
|
||
FIELD LF_ANAMAG->MASSANUN
|
||
END
|
||
|
||
NUMBER F_UNSUPPUN 10 3
|
||
BEGIN
|
||
PROMPT 42 11 "Unit<69> suppl.unitaria "
|
||
FIELD LF_ANAMAG->UNSUPPUN
|
||
END
|
||
|
||
NUMBER F_PPCONF 15 5
|
||
BEGIN
|
||
PROMPT 1 12 "Pz. per confezione "
|
||
FIELD LF_ANAMAG->PPCONF
|
||
END
|
||
|
||
NUMBER F_PPCOLLO 15 5
|
||
BEGIN
|
||
PROMPT 42 12 "Pz. per collo "
|
||
FIELD LF_ANAMAG->PPCOLLO
|
||
END
|
||
|
||
LISTBOX F_TIPOCF 20
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
FLAG "H"
|
||
ITEM "F|Fornitore"
|
||
END
|
||
|
||
NUMBER F_COSTSTD 15 2
|
||
BEGIN
|
||
PROMPT 1 15 "Costo standard "
|
||
FIELD LF_ANAMAG->COSTSTD
|
||
END
|
||
|
||
NUMBER F_ULC1 15 5
|
||
BEGIN
|
||
PROMPT 1 16 "Ultimo costo "
|
||
FIELD LF_ANAMAG->ULTCOS1
|
||
END
|
||
|
||
DATE F_DATAULC1
|
||
BEGIN
|
||
PROMPT 42 16 "Data ultimo costo "
|
||
FIELD LF_ANAMAG->DULTCOS1
|
||
END
|
||
|
||
NUMBER F_ULC2 15 5
|
||
BEGIN
|
||
PROMPT 1 17 "Penultimo costo "
|
||
FIELD LF_ANAMAG->ULTCOS2
|
||
END
|
||
|
||
DATE F_DATAULC2
|
||
BEGIN
|
||
PROMPT 42 17 "Data penultimo costo "
|
||
FIELD LF_ANAMAG->DULTCOS2
|
||
END
|
||
|
||
NUMBER F_PROVV 5 2
|
||
BEGIN
|
||
FIELD LF_ANAMAG->PERCPROVV
|
||
PROMPT 1 20 "Provvigione "
|
||
NUM_EXPR (#F_PROVV>=0)&&(#F_PROVV<=100)
|
||
WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
|
||
END
|
||
|
||
NUMBER F_RICARICO 5 2
|
||
BEGIN
|
||
FIELD LF_ANAMAG->PERCRIC
|
||
PROMPT 42 20 "Ricarico/margine "
|
||
FLAGS "U"
|
||
// NUM_EXPR #F_RICARICO<=
|
||
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
||
END
|
||
|
||
|
||
ENDPAGE
|
||
|
||
|
||
|
||
PAGE "Pag. 4" 0 0 70 20
|
||
|
||
// Anno relativo alle giacenze
|
||
NUMBER H_ANNO 4
|
||
BEGIN
|
||
PROMPT 2 2 ""
|
||
FLAGS "AHG"
|
||
END
|
||
|
||
NUMBER 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"
|
||
END
|
||
|
||
NUMBER F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
||
BEGIN
|
||
PROMPT 2 2 "Giacenze dell'anno "
|
||
FLAGS "AD"
|
||
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 <20> usata per ottenere
|
||
// un ordinamento delle righe dello sheet: NON cambiarla
|
||
ITEM "Liv1@10"
|
||
ITEM "Liv2@6"
|
||
ITEM "Liv3@6"
|
||
ITEM "Liv4@6"
|
||
ITEM "Mag."
|
||
ITEM "Dep."
|
||
ITEM "Ubicazione"
|
||
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"
|
||
ITEM "Acq.@10"
|
||
ITEM "V.Acq.@12"
|
||
ITEM "Entr.@10"
|
||
ITEM "V.Entr.@12"
|
||
ITEM "Ven.@10"
|
||
ITEM "V.Ven.@12"
|
||
ITEM "Uscito@10"
|
||
ITEM "V.Uscito@12"
|
||
ITEM "Ord.For.@10"
|
||
ITEM "V.Ord.For.@12"
|
||
ITEM "Ord.Cli.@10"
|
||
ITEM "V.Ord.Cli.@12"
|
||
ITEM "Scarti@10"
|
||
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."
|
||
END
|
||
ENDPAGE
|
||
PAGE "Pag. 5" 0 0 70 20
|
||
|
||
NUMBER 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"
|
||
END
|
||
|
||
NUMBER F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
||
BEGIN
|
||
PROMPT 2 2 "Storico Giacenze dell'anno "
|
||
FLAGS "AD"
|
||
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<69>@15"
|
||
ITEM "Valore@15"
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|
||
#include "ve2400c.uml"
|
||
#include "ve2400b.uml"
|
||
#include "ve2400a.uml"
|
||
#include "ve2400d.uml"
|
||
#include "ve2400e.uml"
|
||
|
||
|