#include <lffiles.h>
#include "ve2400.h"

TOOLBAR "" 0 20 60 2
 #include <toolbar.h>
ENDPAGE

PAGE "Pagina 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
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 "Pagina 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 "Pagina 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à di misura valida per il peso "
  CHECKTYPE NORMAL
END

TEXT DLG_NULL
BEGIN 
  PROMPT 3 2 "Unità di misura articolo"
END

SPREADSHEET F_SHEETUM 77 5
BEGIN
  PROMPT 2 3 "Unità 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 è 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à 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 "Pagina 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 "Anno considerato "
	FLAGS  "AD"
END

TEXT DLG_NULL
BEGIN 
  PROMPT 3 4 "Giacenze"
END

SPREADSHEET F_SHEETGIAC 77 10
BEGIN
  PROMPT 2 5 "Giacenze"
  ITEM "Mag."
  ITEM "Dep."
  ITEM "Liv1@10"
  ITEM "Liv2@6"
  ITEM "Liv3@6"
  ITEM "Liv4@6"
  ITEM "Ubicazione"
  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 "Scorta min.@10"
	ITEM "Livello rior.@10"
	ITEM "Lotto rior.@10"
// !?!?!Troppe colonne!!!!!
//	ITEM "Giorni rior.@10"
//	ITEM "N.dist."
END
ENDPAGE
PAGE "Pagina 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 "Anno considerato "
	FLAGS  "AD"
END

TEXT DLG_NULL
BEGIN 
  PROMPT 3 4 "Storico Giacenze"
END

SPREADSHEET F_SHEETSTOMAG 77 10
BEGIN
  PROMPT 2 5 "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

ENDPAGE

ENDMASK

 #include "ve2400c.uml"
 #include "ve2400b.uml"
 #include "ve2400a.uml"
 #include "ve2400d.uml"
 #include "ve2400e.uml"