1009 lines
18 KiB
Plaintext
Executable File
1009 lines
18 KiB
Plaintext
Executable File
#include <lffiles.h>
|
||
#include "ve2400.h"
|
||
|
||
TOOLBAR "" 0 20 60 2
|
||
#include <toolbar.h>
|
||
ENDPAGE
|
||
|
||
PAGE "Codici" 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 EMPTY ENABLE,F_GCA
|
||
MESSAGE COPY,G_CODART@|DISABLE,F_GCA
|
||
END
|
||
|
||
STRING F_LIVART1 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART2 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART3 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART4 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART5 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART6 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART7 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART8 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
PROMPT 15 1 ""
|
||
END
|
||
|
||
STRING F_LIVART9 20
|
||
BEGIN
|
||
FLAGS "H"
|
||
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
|
||
MESSAGE COPY,G_DESART@
|
||
END
|
||
|
||
STRING F_ARTALT 20
|
||
BEGIN
|
||
PROMPT 2 4 "Articolo alternativo "
|
||
FIELD LF_ANAMAG->CODARTALT
|
||
FLAG "U"
|
||
USE LF_ANAMAG
|
||
INPUT CODART F_ARTALT
|
||
DISPLAY "Codice@20" CODART
|
||
DISPLAY "Descrizione@50" DESCR
|
||
OUTPUT F_ARTALT CODART
|
||
OUTPUT F_DESCRALT DESCR
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_DESCRALT 50
|
||
BEGIN
|
||
PROMPT 2 5 "Descrizione art.alt. "
|
||
FLAG "U"
|
||
USE LF_ANAMAG KEY 2
|
||
INPUT DESCR F_DESCRALT
|
||
DISPLAY "Descrizione@50" DESCR
|
||
DISPLAY "Codice@20" CODART
|
||
COPY OUTPUT F_ARTALT
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
PROMPT 3 7 "Codici corrispondenti"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETCOD 71 5
|
||
BEGIN
|
||
PROMPT 2 8 "Codici corrispondenti"
|
||
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 "Classi" 0 0 70 20
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
END
|
||
STRING F_CODARTPAGE2 20
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 1 "Codice art. "
|
||
GROUP G_CODART
|
||
END
|
||
STRING F_DESCRPAGE2 50
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 2 "Descrizione "
|
||
GROUP G_DESART
|
||
END
|
||
|
||
STRING F_GRMERC 3
|
||
BEGIN
|
||
PROMPT 1 5 "Gr. merc. "
|
||
FIELD LF_ANAMAG->GRMERC[1,3]
|
||
GROUP G_GRMERC
|
||
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 5 ""
|
||
GROUP G_GRMERC
|
||
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 5 ""
|
||
GROUP G_GRMERC
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_GRMERCB 2
|
||
BEGIN
|
||
PROMPT 1 6 "Sott. merc. "
|
||
FIELD LF_ANAMAG->GRMERC[4,5]
|
||
GROUP G_GRMERC
|
||
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 6 ""
|
||
GROUP G_GRMERC
|
||
USE GMC KEY 2 SELECT CODTAB[4,5] != ""
|
||
INPUT S0 F_GRMERCD2
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
COPY OUTPUT F_GRMERCB
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_CATCONA 3
|
||
BEGIN
|
||
PROMPT 1 8 "Categoria conto acquisti "
|
||
FIELD LF_ANAMAG->CATCONA
|
||
GROUP G_CATACQ
|
||
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,G_CONACQ@
|
||
// MESSAGE EMPTY ENABLE,G_CONACQ@
|
||
END
|
||
|
||
STRING F_CATCONA1 40
|
||
BEGIN
|
||
PROMPT 36 8 ""
|
||
FLAG "D"
|
||
GROUP G_CATACQ
|
||
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 G_CONACQ
|
||
// MESSAGE CLEAR,G_CATACQ@
|
||
// MESSAGE EMPTY ENABLE,G_CATACQ@
|
||
END
|
||
|
||
NUMBER F_CONTOA 3
|
||
BEGIN
|
||
PROMPT 22 9 ""
|
||
FIELD LF_ANAMAG->CONTOA
|
||
GROUP G_CONACQ
|
||
END
|
||
|
||
NUMBER F_SOTTOCA 6
|
||
BEGIN
|
||
|
||
PROMPT 26 9 ""
|
||
FIELD LF_ANAMAG->SOTTOCA
|
||
GROUP G_CONACQ
|
||
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 G_CONACQ
|
||
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 G_CATVEN
|
||
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,G_CONVEN@
|
||
// MESSAGE EMPTY ENABLE,G_CONVEN@
|
||
END
|
||
|
||
STRING F_CATCONV1 40
|
||
BEGIN
|
||
PROMPT 36 10 ""
|
||
FLAG "D"
|
||
GROUP G_CATVEN
|
||
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 G_CONVEN
|
||
// MESSAGE CLEAR,G_CATVEN@
|
||
// MESSAGE EMPTY ENABLE,G_CATVEN@
|
||
END
|
||
|
||
NUMBER F_CONTOV 3
|
||
BEGIN
|
||
PROMPT 22 11 ""
|
||
FIELD LF_ANAMAG->CONTOV
|
||
GROUP G_CONVEN
|
||
END
|
||
|
||
NUMBER F_SOTTOCV 6
|
||
BEGIN
|
||
PROMPT 26 11 ""
|
||
FIELD LF_ANAMAG->SOTTOCV
|
||
GROUP G_CONVEN
|
||
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 G_CONVEN
|
||
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,G_RAGGFISC@
|
||
MESSAGE FALSE DISABLE,G_RAGGFISC@
|
||
END
|
||
|
||
STRING F_RAGGFIS 5
|
||
BEGIN
|
||
PROMPT 1 14 "Raggrupp. fiscale "
|
||
FIELD LF_ANAMAG->RAGGFIS
|
||
FLAGS "UD"
|
||
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 G_RAGGFISC
|
||
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 G_RAGGFISC
|
||
END
|
||
|
||
STRING F_CLASSEFISD 40
|
||
BEGIN
|
||
PROMPT 31 15 ""
|
||
FLAG "D"
|
||
END
|
||
|
||
STRING F_CODIVA 4
|
||
BEGIN
|
||
PROMPT 1 17 "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 17 ""
|
||
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 18 "Sconto "
|
||
END
|
||
|
||
STRING F_CODIVAR 4
|
||
BEGIN
|
||
PROMPT 50 18 "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
|
||
|
||
|
||
ENDPAGE
|
||
|
||
|
||
|
||
|
||
|
||
|
||
|
||
PAGE "Unita'" 0 0 70 20
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
END
|
||
STRING F_CODARTPAGE3 20
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 1 "Codice art. "
|
||
GROUP G_CODART
|
||
END
|
||
STRING F_DESCRPAGE3 50
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 2 "Descrizione "
|
||
GROUP G_DESART
|
||
END
|
||
|
||
TEXT DLG_NULL
|
||
BEGIN
|
||
PROMPT 3 4 "Unit<69> di misura articolo"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETUM 77 5
|
||
BEGIN
|
||
PROMPT 2 5 "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
|
||
|
||
STRING F_UMP 3
|
||
BEGIN
|
||
PROMPT 1 12 "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
|
||
|
||
NUMBER F_PESO 15 5
|
||
BEGIN
|
||
PROMPT 1 13 "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 13 "Tara "
|
||
FIELD LF_ANAMAG->TARA
|
||
END
|
||
|
||
NUMBER F_MASSANUN 10 3
|
||
BEGIN
|
||
PROMPT 1 14 "Massa netta unitaria "
|
||
FIELD LF_ANAMAG->MASSANUN
|
||
END
|
||
|
||
NUMBER F_UNSUPPUN 10 3
|
||
BEGIN
|
||
PROMPT 42 14 "Unit<69> suppl.unitaria "
|
||
FIELD LF_ANAMAG->UNSUPPUN
|
||
END
|
||
|
||
NUMBER F_PPCONF 15 5
|
||
BEGIN
|
||
PROMPT 1 16 "Pz. per confezione "
|
||
FIELD LF_ANAMAG->PPCONF
|
||
END
|
||
|
||
NUMBER F_PPCOLLO 15 5
|
||
BEGIN
|
||
PROMPT 42 16 "Pz. per collo "
|
||
FIELD LF_ANAMAG->PPCOLLO
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
|
||
PAGE "Produz." 0 0 70 20
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
END
|
||
STRING F_CODARTPAGE4 20
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 1 "Codice art. "
|
||
GROUP G_CODART
|
||
END
|
||
STRING F_DESCRPAGE4 50
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 2 "Descrizione "
|
||
GROUP G_DESART
|
||
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
|
||
|
||
LISTBOX F_TIPOCF 20
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
FLAG "H"
|
||
ITEM "F|Fornitore"
|
||
END
|
||
|
||
STRING F_CLASSDOG 10
|
||
BEGIN
|
||
PROMPT 1 8 "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 8 ""
|
||
FLAG "D"
|
||
END
|
||
|
||
STRING F_PROVOR 5
|
||
BEGIN
|
||
PROMPT 1 10 "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 10 ""
|
||
USE %PRV KEY 2
|
||
INPUT S0 F_PROVOR2
|
||
COPY DISPLAY F_PROVOR
|
||
COPY OUTPUT F_PROVOR
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_PROVV 5 2
|
||
BEGIN
|
||
FIELD LF_ANAMAG->PERCPROVV
|
||
PROMPT 1 12 "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 12 "Ricarico/margine "
|
||
FLAGS "U"
|
||
// NUM_EXPR #F_RICARICO<=
|
||
// WARNING "La percentuale di ricarico deve essere compresa ..."
|
||
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
|
||
|
||
|
||
ENDPAGE
|
||
|
||
|
||
PAGE "Giacenze" 0 0 70 20
|
||
|
||
// Anno relativo alle giacenze
|
||
NUMBER H_ANNO 4
|
||
BEGIN
|
||
PROMPT 2 2 ""
|
||
FLAGS "AHG"
|
||
//MESSAGE COPY,F_ANNO |COPY,F_ANNORIF
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 0 0 ""
|
||
END
|
||
STRING F_CODARTPAGE5 20
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 1 "Codice art. "
|
||
GROUP G_CODART
|
||
END
|
||
STRING F_DESCRPAGE5 50
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 2 "Descrizione "
|
||
GROUP G_DESART
|
||
END
|
||
|
||
STRING F_ANNO 4
|
||
BEGIN
|
||
PROMPT 2 4 "Seleziona l'esercizio "
|
||
FLAGS "U"
|
||
USE ESC
|
||
INPUT CODTAB F_ANNO
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Dal@10" D0
|
||
DISPLAY "Al@10" D1
|
||
OUTPUT F_ANNO CODTAB
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
||
BEGIN
|
||
PROMPT 2 6 "Giacenze dell'esercizio "
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_UMPRINCIPALE 2
|
||
BEGIN
|
||
PROMPT 52 6 "U.M. :"
|
||
FLAGS "D"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETGIAC 77 8
|
||
BEGIN
|
||
PROMPT 2 7 "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 "Storico" 0 0 70 20
|
||
|
||
STRING F_CODARTPAGE6 20
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 1 "Codice art. "
|
||
GROUP G_CODART
|
||
END
|
||
STRING F_DESCRPAGE6 50
|
||
BEGIN
|
||
FLAGS "D"
|
||
PROMPT 2 2 "Descrizione "
|
||
GROUP G_DESART
|
||
END
|
||
|
||
STRING F_STOANNO 4
|
||
BEGIN
|
||
PROMPT 2 4 "Seleziona l'esercizio "
|
||
FLAGS "U"
|
||
USE ESC
|
||
INPUT CODTAB F_STOANNO
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Dal@10" D0
|
||
DISPLAY "Al@10" D1
|
||
OUTPUT F_STOANNO CODTAB
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
||
BEGIN
|
||
PROMPT 2 6 "Composizione rimanenze a fine "
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_UMPRINCIPALE2 2
|
||
BEGIN
|
||
PROMPT 52 6 "U.M. :"
|
||
FLAGS "D"
|
||
END
|
||
|
||
SPREADSHEET F_SHEETSTOMAG 77 8
|
||
BEGIN
|
||
PROMPT 2 7 "Composizione"
|
||
FLAGS "A"
|
||
USE LF_STOMAG KEY NRIGA
|
||
INPUT ANNOESRIF F_STOANNO
|
||
INPUT CODART F_CODART
|
||
ITEM " @1F"
|
||
ITEM "Magazzino"
|
||
ITEM "Esercizio@10"
|
||
ITEM "Quantit<69>@15"
|
||
ITEM "Valore@15"
|
||
END
|
||
|
||
|
||
NUMBER F_STOULTCOS1 15 5
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 2 17 "Ultimo costo "
|
||
END
|
||
|
||
NUMBER F_STOULTCOS2 15 5
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 42 17 "Penultimo costo "
|
||
END
|
||
|
||
NUMBER F_STOCOSTOSTD 15 5
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 2 18 "Costo standard "
|
||
END
|
||
|
||
NUMBER F_STOCOSTOMEDIO 15 5
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 42 18 "Costo medio "
|
||
END
|
||
|
||
STRING F_STOCATVEN 3
|
||
BEGIN
|
||
PROMPT 2 19 "Cat.vendita "
|
||
END
|
||
STRING F_STOCODLIST 3
|
||
BEGIN
|
||
PROMPT 26 19 "Cod.listino "
|
||
END
|
||
|
||
NUMBER F_STOPREZZOLIST 15 5
|
||
BEGIN
|
||
FLAGS "U"
|
||
PROMPT 51 19 "Prezzo "
|
||
END
|
||
|
||
|
||
ENDPAGE
|
||
|
||
ENDMASK
|
||
|
||
#include "ve2400c.uml"
|
||
#include "ve2400b.uml"
|
||
#include "ve2400a.uml"
|
||
#include "ve2400d.uml"
|
||
#include "ve2400e.uml"
|
||
|
||
|