#include "ve2400.h"

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

PAGE "Codici" 0 0 70 20

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 "@bArticolo"
END

STRING F_CODART 20
BEGIN
  PROMPT 1 2 ""
  FIELD LF_ANAMAG->CODART
  KEY 1
  FLAG "UG"
  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 COPY,G_CODART@
  MESSAGE COPY,F_SEARCHLAV|CHECK,F_SEARCHLAV
END

STRING F_SEARCHLAV 20
BEGIN
	FLAGS "HG"
	PROMPT 40 1   ""
	USE LAV  
	INPUT CODTAB F_SEARCHLAV 
	DISPLAY "CODICE@20" CODTAB 
	OUTPUT F_CODICELAV CODTAB
	MESSAGE CHECK,F_CODICELAV
	MESSAGE EMPTY RESET,F_CODICELAV
	CHECKTYPE SEARCH
END

STRING F_CODICELAV 20
BEGIN
	FLAGS "HG"
	PROMPT 62 1  ""
	STR_EXPR #F_CODICELAV==""
	MESSAGE RESET,F_CODICELAV
	WARNING "Il codice e' gia' utilizzato per le lavorazioni"
END

STRING F_DESCR 50
BEGIN
  PROMPT 24 2 ""
  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

BUTTON F_COPY 7 1
BEGIN
  PROMPT 68 1 "~Copia"
  FLAGS "H"
END

ZOOM F_DESCRAGG 50
BEGIN
  PROMPT 1 4 "Descrizione aggiuntiva "
  FIELD LF_ANAMAG->DESCRAGG
END

STRING F_ARTALT 20
BEGIN
  PROMPT 1 5 "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 1 6 "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

STRING F_PRESIDIO 20
BEGIN
  PROMPT 1 7 "Codice presidio m.s.   "
  FIELD LF_ANAMAG->COD_PMS
  FLAG "U"
END

BOOLEAN F_SOSPESO
BEGIN
  PROMPT 50 7 "Sospeso"
  FIELD SOSPESO
END

TEXT DLG_NULL
BEGIN 
  PROMPT 1 8 "@bCodici corrispondenti"
END

SPREADSHEET F_SHEETCOD 71 4
BEGIN
  PROMPT 1 9 "Codici corrispondenti"
  FLAGS "A"
  USE LF_CODCORR KEY NRIGA
  INPUT CODART F_CODART
  ITEM "Cod. art.@20"
  ITEM "Tipo@10"
  ITEM "U.M."
  ITEM "Liv1@10"
  ITEM "Liv2@6"
  ITEM "Liv3@6"
  ITEM "Liv4@6"
END

TEXT DLG_NULL
BEGIN 
     PROMPT 1 14 "@bDescrizioni in lingua"
END

SPREADSHEET F_SHEETDESLIN 71
BEGIN
  PROMPT 1 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 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END

STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  GROUP G_DESART
END

STRING F_GRMERC 3
BEGIN
    PROMPT 1 4 "Gr. merc.      "
    FIELD LF_ANAMAG->GRMERC[1,3]
    GROUP G_GRMERC
    FLAG "U"
    USE GMC KEY 1 SELECT CODTAB[4,5]==""
    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 4 ""
    GROUP G_GRMERC
    USE GMC KEY 2 SELECT CODTAB[4,5]==""
    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 4 ""
    GROUP G_GRMERC
    FLAGS "D"
END

STRING F_GRMERCB 2
BEGIN
    PROMPT 1 5 "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 5 ""
    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_REPARTO 3
BEGIN
	PROMPT 1 6 "Reparto        "
	HELP "Codice reparto"
  FIELD LF_ANAMAG->REPARTO
	FLAGS "UZ"
	USE RPD
	INPUT CODTAB F_REPARTO
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione @70" S0
	OUTPUT F_REPARTO CODTAB
	OUTPUT F_DESREPARTO S0
	CHECKTYPE NORMAL
	GROUP G_VD
END

STRING F_DESREPARTO 70 50
BEGIN
  PROMPT 23 6 ""
  USE RPD KEY 2
  INPUT S0 F_DESREPARTO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  COPY OUTPUT F_REPARTO
  CHECKTYPE NORMAL
	GROUP G_VD
END

STRING F_STAGIONE 4
BEGIN
	PROMPT 1 7 "Stagione       "
	HELP "Codice stagione"
  FIELD LF_ANAMAG->STAGIONE
	FLAGS "UZ"
	USE %STG
	INPUT CODTAB F_STAGIONE
	DISPLAY "Codice" CODTAB
	DISPLAY "Descrizione @70" S0
	OUTPUT F_STAGIONE CODTAB
	OUTPUT F_DESSTAGIONE S0
  CHECKTYPE NORMAL
	GROUP G_VD
END

STRING F_DESSTAGIONE 70 50
BEGIN
	PROMPT 23 7 ""
  HELP "Descrizione stagione"
	USE %STG KEY 2
	INPUT S0 F_DESSTAGIONE
	DISPLAY "Descrizione @70" S0
	DISPLAY "Codice" CODTAB
  COPY OUTPUT F_STAGIONE
  CHECKTYPE NORMAL
	GROUP G_VD
END

STRING F_CATCONA 3
BEGIN
   PROMPT 1 5 "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
END

STRING F_CATCONA1 50 38
BEGIN
   PROMPT 35 5 ""
   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 6 "Conto d'acquisto "
   FIELD LF_ANAMAG->GRUPPOA
   GROUP G_CONACQ
END

NUMBER F_CONTOA 3
BEGIN
    PROMPT 22 6 ""
    FIELD LF_ANAMAG->CONTOA
    GROUP G_CONACQ
END

NUMBER F_SOTTOCA 6
BEGIN
   PROMPT 26 6 ""
   FIELD LF_ANAMAG->SOTTOCA
   GROUP G_CONACQ
   USE LF_PCON
   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 "Conto assente"
   ADD RUN cg0 -0
END


STRING F_DESCRA 50 37
BEGIN
   PROMPT 36 6 ""
   GROUP G_CONACQ
   USE LF_PCON KEY 2
   INPUT DESCR F_DESCRA
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto"  CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
   COPY OUTPUT F_SOTTOCA
   WARNING "Conto assente"
   ADD RUN cg0 -0
END

STRING F_CATCONV 3
BEGIN
  PROMPT 1 11 "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" I0
  DISPLAY "Conto"  I1
  DISPLAY "Sottoconto" I2
  OUTPUT F_CATCONV CODTAB
  OUTPUT F_CATCONV1 S0
  CHECKTYPE NORMAL
END

STRING F_CATCONV1 50 38
BEGIN
  PROMPT 35 11 ""
  GROUP G_CATVEN
  USE CRA KEY 2
  INPUT S0 F_CATCONV1
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Gruppo" I0
  DISPLAY "Conto"  I1
  DISPLAY "Sottoconto" I2
  COPY OUTPUT F_CATCONV
END

NUMBER F_GRUPPOV 3
BEGIN
  PROMPT 1 12 "Conto di vendita "
  FIELD LF_ANAMAG->GRUPPOV
  GROUP G_CONVEN
END

NUMBER F_CONTOV 3
BEGIN
  PROMPT 22 12 ""
  FIELD LF_ANAMAG->CONTOV
  GROUP G_CONVEN
END

NUMBER F_SOTTOCV 6
BEGIN
  PROMPT 26 12 ""
  FIELD LF_ANAMAG->SOTTOCV
  GROUP G_CONVEN
  USE LF_PCON
  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 "Conto assente"
  ADD RUN cg0 -0
END

STRING F_DESCRV 50 37
BEGIN
  PROMPT 36 12 ""
  GROUP G_CONVEN
  USE LF_PCON KEY 2
  INPUT DESCR F_DESCRV
  DISPLAY "Descrizione@50" DESCR
  DISPLAY "Gruppo" GRUPPO
  DISPLAY "Conto"  CONTO
  DISPLAY "Sottoconto" SOTTOCONTO
  COPY OUTPUT F_SOTTOCV
  WARNING "Conto assente"
  ADD RUN cg0 -0
END

 
BOOLEAN F_ARTFIS
BEGIN
  PROMPT 1 17 "Articolo fiscale"
  FIELD LF_ANAMAG->ARTFIS
  MESSAGE TRUE ENABLE,G_RAGGFISC@
  MESSAGE FALSE DISABLE,G_RAGGFISC@
END

STRING F_RAGGFIS 5
BEGIN
  PROMPT 1 18 "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 18 ""
  FLAG "D"
END

STRING H_CLASSEFIS 2
BEGIN
  PROMPT 1 19 ""
  FLAG "HG"
  MESSAGE  DISABLE,F_CLASSEFIS|COPY,F_CLASSEFIS
  MESSAGE EMPTY ENABLE,F_CLASSEFIS
END

STRING F_CLASSEFIS 2
BEGIN
  PROMPT 1 19 "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 19 ""
  FLAG "D"
END

STRING F_CODIVA 4
BEGIN
  PROMPT  1 20 "Codice IVA "
  FIELD LF_ANAMAG->CODIVA
  USE %IVA
  INPUT CODTAB  F_CODIVA
  DISPLAY "Codice " CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_CODIVA CODTAB
  CHECKTYPE NORMAL
END
  
  
STRING F_CODIVAR 4
BEGIN
  PROMPT 20 20 "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_SCONTO 25
BEGIN
  FIELD LF_ANAMAG->SCONTO
  PROMPT 43 20 "Sconto "
END

ENDPAGE

PAGE "Unita'" 0 0 70 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  GROUP G_DESART
END

TEXT DLG_NULL
BEGIN 
  PROMPT 1 3 "@bUnita' di misura"
END

SPREADSHEET F_SHEETUM 76 6
BEGIN
  PROMPT 1 4 "Unita' 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 11 "U.M. pesi "
  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

NUMBER F_PESO 15 5
BEGIN
  PROMPT 18 11 "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 11 "Tara                 "
    FIELD LF_ANAMAG->TARA
END

NUMBER F_MASSANUN 10 3
BEGIN
    PROMPT 1 12 "Massa netta unitaria  "
    FIELD LF_ANAMAG->MASSANUN
END

NUMBER F_UNSUPPUN 10 3
BEGIN
    PROMPT 42 12 "Unità suppl.unitaria "
    FIELD LF_ANAMAG->UNSUPPUN
END

NUMBER F_PPCONF 15 5
BEGIN
    PROMPT 1 13 "Pz. per confezione    "
    FIELD LF_ANAMAG->PPCONF
END

NUMBER F_PPCOLLO 15 5
BEGIN
    PROMPT 42 13 "Pz. per collo        "
    FIELD LF_ANAMAG->PPCOLLO
END

CURRENCY F_VALSTATUN 15
BEGIN
    PROMPT 1 14 "Valore statistico     "
    FIELD LF_ANAMAG->VALSTATUN
    FLAGS "U"
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 15 "@bPesi per CONAI (Kg)"
  FLAGS "R" 
END

NUMBER F_CONACC 15 5
BEGIN
    PROMPT 1 16 "Acciaio  "
    FIELD CONACC
END

NUMBER F_CONALL 15 5
BEGIN
    PROMPT 27 16 "Alluminio "
    FIELD CONALL
END

NUMBER F_CONCAR 15 5
BEGIN
    PROMPT 54 16 "Carta "
    FIELD CONCAR
END

NUMBER F_CONPLA 15 5
BEGIN
    PROMPT 1 17 "Plastica "
    FIELD CONPLA
END

NUMBER F_CONLEG 15 5
BEGIN
    PROMPT 27 17 "Legno     "
    FIELD CONLEG
END

NUMBER F_CONVET 15 5
BEGIN
    PROMPT 54 17 "Vetro "
    FIELD CONVET
END

TEXT DLG_NULL 
BEGIN
    PROMPT 1 19  "Collegamenti esterni "
END

GOLEM F_GOLEM 4 2
BEGIN
  PROMPT 24 19  ""
  FLAGS "M"
  FIELD LF_ANAMAG->GOLEM
END

ENDPAGE


PAGE "Produz." 0 0 70 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  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 4 "Riordino per "
  FIELD LF_ANAMAG->RIORDINO
  ITEM "F|fabbisogno"
  ITEM "P|punto di riordino"
  ITEM "T|tempo"
END

LIST F_VALDIST 2 20
BEGIN
  PROMPT 28 5 "Val.distinta "
	ITEM " |Normale"
	ITEM "1|Ultimo costo"
	ITEM "4|Media ultimi costi"
	ITEM "10|Prezzo di listino"
	ITEM "5|Costo standard"
	ITEM "2|Costo medio"
  ITEM "3|Costo medio ponder."
	ITEM "6|FIFO annuale"
	ITEM "8|LIFO annuale"
	ITEM "9|FIFO"
	ITEM "7|LIFO"
	FIELD VALDIST
END

DATE F_DATAVDIST
BEGIN
  PROMPT 65 5 "Dal "
	FIELD DATAVDIST
END

LISTBOX F_TIPOCF 20
BEGIN
  PROMPT  0 0 ""
  FLAG "H"
  ITEM "F|Fornitore"
END

LISTBOX F_COLLTYPE 25
BEGIN
  PROMPT 1 7 "Mag.per movim.con distinta "
  FIELD LF_ANAMAG->COLLTYPE
  ITEM " |da movimento" MESSAGE CLEAR,F_CODMAGAN
  ITEM "M|da riga prod.fin/semilav." MESSAGE CLEAR,F_CODMAGAN
  ITEM "F|da fornitore" MESSAGE CLEAR,F_CODMAGAN
  ITEM "A|da articolo" MESSAGE ENABLE,F_CODMAGAN
END

STRING F_CODMAGAN 5
BEGIN
  PROMPT 59 7  "Codice mag. "
  FIELD LF_ANAMAG->CODMAG
  FLAG "U"
  USE MAG
  INPUT CODTAB F_CODMAGAN
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODMAGAN CODTAB
  CHECKTYPE NORMAL
END
  
NUMBER F_CLASSDOG1 4
BEGIN
  PROMPT 1 8  "Nomenclatura combin. "
  FIELD CLASSDOG[1,4]
  FLAG "Z"
  USE %NOC
  INPUT CODTAB[1,4] F_CLASSDOG1
  INPUT CODTAB[5,6] F_CLASSDOG2
  INPUT CODTAB[7,8] F_CLASSDOG3
  DISPLAY "Codice 1" CODTAB[1,4]
  DISPLAY "@3" CODTAB[5,6]
  DISPLAY "@3" CODTAB[7,8]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CLASSDOG1 CODTAB[1,4]
  OUTPUT F_CLASSDOG2 CODTAB[5,6]
  OUTPUT F_CLASSDOG3 CODTAB[7,8]
  OUTPUT F_CLASSDOGD S0
  VALIDATE REQIF_FUNC 1 F_CLASSDOG2
  MESSAGE DIRTY,F_CLASSDOG3
  WARNING "Nomenclatura combinata assente"
END

STRING F_CLASSDOG2 2
BEGIN
  PROMPT 30 8  ""
  FIELD CLASSDOG[5,6]
  COPY ALL F_CLASSDOG1
  VALIDATE REQIF_FUNC 1 F_CLASSDOG2
  MESSAGE DIRTY,F_CLASSDOG3
  WARNING "Nomenclatura combinata assente"
END

NUMBER F_CLASSDOG3 2
BEGIN
  PROMPT 35 8  ""
  FIELD CLASSDOG[7,8]
  FLAG "Z"
  COPY ALL F_CLASSDOG1
  CHECKTYPE NORMAL
  WARNING "Nomenclatura combinata assente"
END

STRING F_CLASSDOGD 37
BEGIN
    PROMPT 40 8 ""
    FLAG "D"
END

STRING F_PROVOR 2
BEGIN
  PROMPT  1 9 "Provincia di origine "
  FIELD LF_ANAMAG->PROV
END

STRING F_PAESEOR 2
BEGIN
  PROMPT  50 9 "Paese di origine        "
  FIELD LF_ANAMAG->PAESE
END

NUMBER F_PROVV 5 2
BEGIN
  FIELD LF_ANAMAG->PERCPROVV
  PROMPT 1 10 "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 50 10 "Ricarico/margine     "
  FLAGS "U"
//  NUM_EXPR #F_RICARICO<=
//  WARNING "La percentuale di ricarico deve essere compresa ..."
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 12 "Riordino"
END

NUMBER F_A_LOTTORIOR 10 3
BEGIN
  PROMPT 1 13 "Lotto minimo     "
  FIELD LOTTORIOR
END
NUMBER F_A_LOTTOIRIOR 10 3
BEGIN
  PROMPT 30 13 "Lotto increm. "
  FIELD LOTTOIRIOR
END
NUMBER F_A_GIORNIRIOR 5 1
BEGIN
  PROMPT 64 13 "Giorni "
  FIELD LEADTIME
END

CURRENCY F_COSTSTD 15
BEGIN
  PROMPT 1 16 "Costo standard   "
  FIELD LF_ANAMAG->COSTSTD
  FLAGS "U"
END

CURRENCY F_ULC1 15
BEGIN
  PROMPT 1 17 "Ultimo costo     "
  FIELD LF_ANAMAG->ULTCOS1
  FLAGS "U"
END

DATE F_DATAULC1 
BEGIN
  PROMPT  35 17 "data "
  FIELD LF_ANAMAG->DULTCOS1
END

NUMBER F_NUMREGULC1 7
BEGIN
  FLAGS "D"
  PROMPT  52 17 "movim. "
  FIELD LF_ANAMAG->NUMREG1
END

NUMBER F_NUMRIGULC1 4
BEGIN
  FLAGS "D"
  PROMPT  68 17 "riga "
  FIELD LF_ANAMAG->NUMRIG1
END

CURRENCY F_ULC2 15
BEGIN
  PROMPT 1 18 "Penultimo costo  "
  FIELD LF_ANAMAG->ULTCOS2
  FLAGS "U"
END

DATE F_DATAULC2
BEGIN
  PROMPT  35 18 "data "
  FIELD LF_ANAMAG->DULTCOS2
END

NUMBER F_NUMREGULC2 7
BEGIN
  FLAGS "D"
  PROMPT  52 18 "movim. "
  FIELD LF_ANAMAG->NUMREG2
END

NUMBER F_NUMRIGULC2 4
BEGIN
  FLAGS "D"
  PROMPT  68 18 "riga "
  FIELD LF_ANAMAG->NUMRIG2
END

ENDPAGE


PAGE "Giacenze" 0 0 70 20

// Anno relativo alle giacenze
NUMBER H_ANNO 4
BEGIN
  PROMPT 2 2 ""
  FLAGS  "AHG"
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END

STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  GROUP G_DESART
END

STRING F_ANNO 4
BEGIN
  PROMPT 2 4 "Seleziona l'esercizio "
  FLAGS  "UPZ"
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Dal@16" D0
  DISPLAY "Al@16"   D1
  OUTPUT F_ANNO CODTAB 
  CHECKTYPE NORMAL                   
  ADD RUN cg0 -5 ESC
END

STRING F_ANNORIF 4  // anno usato per il write dell'annata precedente
BEGIN
  PROMPT 36 4 "Giacenze dell'esercizio "
  FLAGS  "DPZ"
END

STRING F_UMPRINCIPALE 2
BEGIN
  PROMPT 70 4 "U.M. "
  FLAGS  "D"
END

SPREADSHEET F_SHEETGIAC 0 -2
BEGIN
  PROMPT 0 5 "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
  ITEM "Liv1@10"
  ITEM "Liv2@6"
  ITEM "Liv3@6"
  ITEM "Liv4@6"
  ITEM "Mag."
  ITEM "Dep."
  ITEM "Ubicazione"
  ITEM "Livello rior.@10"
  ITEM "Scorta min.@10"
  ITEM "Lotto rior.@10"
  ITEM "Lotto incr.@10"
  ITEM "Giorni rior.@10"
  ITEM "Giacenza @10"
  ITEM "Val.Giac @12"
  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

NUMBER F_TOT_ORD_FOR 15 5
BEGIN
  PROMPT 2 -1 "Ordinato fornitori "
  FLAGS  "D"
END

NUMBER F_TOT_ORD_CLI 15 5
BEGIN
  PROMPT 38 -1 "Ordinato clienti "
  FLAGS  "D"
END  

ENDPAGE

PAGE "Storico" 0 0 70 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  GROUP G_DESART
END

STRING  F_STOANNO 4
BEGIN
  PROMPT 2 4 "Seleziona l'esercizio "
  FLAGS  "UZ"

  USE ESC
  INPUT CODTAB F_STOANNO
  DISPLAY "Codice@10" CODTAB
  DISPLAY "Dal@16" D0
  DISPLAY "Al@16"   D1
  OUTPUT F_STOANNO CODTAB 
  CHECKTYPE NORMAL
  ADD RUN cg0 -5 ESC
END

STRING F_STOANNORIF 4  // anno usato per il write dell'annata precedente
BEGIN
  PROMPT 2 6 "Composizione rimanenze iniziali del "
  FLAGS  "DPZ"
END

STRING F_UMPRINCIPALE2 2
BEGIN
  PROMPT 52 6 "U.M. :"
  FLAGS  "D"
END

SPREADSHEET F_SHEETSTOMAG 78 8
BEGIN
  PROMPT 1 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à@15"
  ITEM "Valore unitario@15"
  ITEM "Valore@15"
END


CURRENCY F_STOULTCOS1 15
BEGIN
  FLAGS "U"
  PROMPT 2 17 "Ultimo costo   "
END

CURRENCY F_STOULTCOS2 15
BEGIN
  FLAGS "U"
  PROMPT 42 17 "Penultimo costo "
END

CURRENCY F_STOCOSTOSTD 15
BEGIN
  FLAGS "U"
  PROMPT 2 18 "Costo standard "
END

CURRENCY F_STOCOSTOMEDIO 15
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

CURRENCY F_STOPREZZOLIST 15
BEGIN
  FLAGS "U"
  PROMPT 51 19  "Prezzo "
END


ENDPAGE

PAGE "Utente" 0 0 70 20

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 0 0 "@bArticolo"
END
STRING DLG_NULL 20
BEGIN
  FLAGS "D"
  PROMPT 2 1 ""
  GROUP G_CODART
END

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 25 1 ""
  GROUP G_DESART
END

ENDPAGE

ENDMASK

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