campo-sirio/ve/ve2400.uml

#include "ve2400.h"

TOOLBAR "Toolbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Codici" 0 2 0 0 

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 50 8  "Collegamenti esterni "
END

GOLEM F_GOLEM 4 2
BEGIN
  PROMPT 70 7  ""
  FLAGS "M"
  FIELD LF_ANAMAG->GOLEM
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"
  ITEM "Tipo C/F"
  ITEM "Codice C/F"
  ITEM "Ragiore Sociale@50"
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 2 0 0

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
    DISPLAY "IVA@5" S7
    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
    DISPLAY "IVA@5" S7
    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
    COPY DISPLAY F_GRMERC
    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
    COPY DISPLAY F_GRMERCD1
    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 "Descrizione@70" S0
  DISPLAY "Codice" CODTAB
  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_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@50" 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@50" 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@50" 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
  COPY DISPLAY F_CODIVA
  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 2 0 0

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 4
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 9 "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<69> di misura valida per il peso "
  CHECKTYPE NORMAL
END

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

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

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

NUMBER F_PPCONF 15 5
BEGIN
  PROMPT 1 11 "Pz. per pacco         "
  FIELD PPCONF
  FLAGS "U"
END

NUMBER F_PPCOLLO 15 5
BEGIN
  PROMPT 42 11 "Pz. per collo        "
  FIELD PPCOLLO
  FLAGS "U"
END

NUMBER F_PPPALLET 9
BEGIN 
  PROMPT 1 12 "Pz. per pallet        "
  FIELD PPPALLET
  FLAGS "U"
END 

CURRENCY F_VALSTATUN 15
BEGIN
  PROMPT 42 12 "Valore statistico    "
  FIELD VALSTATUN
  FLAGS "U"
END

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 13 "@bCONAI"
  FLAGS "R" 
END

TEXT DLG_NULL
BEGIN
 PROMPT 1 14 "Sottocategorie"
END

STRING F_SCAACC 4
BEGIN
  PROMPT 1 15 "Acciaio  "
  FIELD SCACONTR[1,4]
  USE &SCC SELECT CODTAB[1,2]=="AC"
  INPUT CODTAB F_SCAACC
  DISPLAY "Categoria" CODTAB[1,2]
  DISPLAY "Sottocategoria" CODTAB[3,4]
  DISPLAY "Descrizione@50" S0
  MESSAGE EMPTY CLEAR,F_CONACC
  MESSAGE ENABLE,F_CONACC
  OUTPUT F_SCAACC CODTAB
END

STRING F_SCAALL 4
BEGIN
  PROMPT 27 15 "Alluminio "
  FIELD SCACONTR[5,8]
  USE &SCC SELECT CODTAB[1,2]=="AL"
  INPUT CODTAB F_SCAALL
  COPY DISPLAY F_SCAACC
  OUTPUT F_SCAALL CODTAB
  MESSAGE EMPTY CLEAR,F_CONALL
  MESSAGE ENABLE,F_CONALL
END

STRING F_SCACAR 4
BEGIN
  PROMPT 54 15 "Carta "
  FIELD SCACONTR[9,12]
  USE &SCC SELECT CODTAB[1,2]=="CA"
  INPUT CODTAB F_SCACAR
  COPY DISPLAY F_SCAACC
  OUTPUT F_SCACAR CODTAB
  MESSAGE EMPTY CLEAR,F_CONCAR
  MESSAGE ENABLE,F_CONCAR
END

STRING F_SCAPLA 4
BEGIN
  PROMPT 1 16 "Plastica "
  FIELD SCACONTR[13,16]
  USE &SCC SELECT CODTAB[1,2]=="PL"
  INPUT CODTAB F_SCAPLA
  COPY DISPLAY F_SCAACC
  OUTPUT F_SCAPLA CODTAB
  MESSAGE EMPTY CLEAR,F_CONPLA
  MESSAGE ENABLE,F_CONPLA
END

STRING F_SCALEG 4
BEGIN
  PROMPT 27 16 "Legno     "
  FIELD SCACONTR[17,20]
  USE &SCC SELECT CODTAB[1,2]=="LE"
  INPUT CODTAB F_SCALEG
  COPY DISPLAY F_SCAACC
  OUTPUT F_SCALEG CODTAB
  MESSAGE EMPTY CLEAR,F_CONLEG
  MESSAGE ENABLE,F_CONLEG
END

STRING F_SCAVET 4
BEGIN
  PROMPT 54 16 "Vetro "
  FIELD SCACONTR[21,24]
  USE &SCC SELECT CODTAB[1,2]=="VE"
  INPUT CODTAB F_SCAVET
  COPY DISPLAY F_SCAACC
  OUTPUT F_SCAVET CODTAB
  MESSAGE EMPTY CLEAR,F_CONVET
  MESSAGE ENABLE,F_CONVET
END

TEXT DLG_NULL
BEGIN
 PROMPT 1 17 "Pesi (Kg)"
END

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

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

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

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

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

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

ENDPAGE


PAGE "Produzione" 0 2 0 0

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
  DISPLAY "Partita IVA" PAIV
  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
  COPY DISPLAY F_CODFORN
  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 "@bRiordino"
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 2 0 0

// 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 "Selezione 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

BOOLEAN F_LIVPERART 
BEGIN
	PROMPT 2 5 "Livelli di giacenza definiti per articolo"
	FIELD LIVPERART
END

SPREADSHEET F_SHEETGIAC 0 -2
BEGIN
  PROMPT 0 6 "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 "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 2 0 0

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 "Selezione 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<69>@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 "Analitica" 0 2 0 0

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_CATCONA 3
BEGIN
   PROMPT 1 4 "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 4 ""
   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

ENDPAGE

PAGE "Lavanderie" 0 0 80 15

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

GROUPBOX DLG_NULL 78 8
BEGIN
  PROMPT 0 4 "@bLavanderie"
  GROUP G_LV
END

STRING F_COLORE 20
BEGIN
  PROMPT 1 5 "Colore               "
  FIELD COLORE
  GROUP G_LV
END 

STRING F_LIVELLO 1
BEGIN
  PROMPT 49 5 "Livello              "
  FIELD LIVELLO
  GROUP G_LV
END 

STRING F_TIPOPARTE 1
BEGIN
  PROMPT 1 6 "Tipo Parte           "
  FIELD TIPOPARTE
  GROUP G_LV
END 

STRING F_LAVATRICE 4
BEGIN
  PROMPT 49 6 "Lavatrice            "
  USE &LVLVT
  INPUT CODTAB F_LAVATRICE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_LAVATRICE CODTAB
  FIELD LAVATRICE
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_CODLAV1 3
BEGIN
  PROMPT 1 7 "Cod. Lavaggio 1      "
  USE &LVLAV
  INPUT CODTAB F_CODLAV1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_CODLAV1 CODTAB
  FIELD CODLAV1
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_CODLAV2 3
BEGIN
  PROMPT 49 7 "Cod. Lavaggio 2      "
  USE &LVLAV
  INPUT CODTAB F_CODLAV2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_CODLAV2 CODTAB
  FIELD CODLAV2
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_LINDEST1 3
BEGIN
  PROMPT 1 8 "Linea destinazione 1 "
  USE &LVLND
  INPUT CODTAB F_LINDEST1
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_LINDEST1 CODTAB
  FIELD LINDEST1
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_LINDEST2 3
BEGIN
  PROMPT 49 8 "Linea destinazione 2 "
  USE &LVLND
  INPUT CODTAB F_LINDEST2
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_LINDEST2 CODTAB
  FIELD LINDEST2
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_ARTLAVCONT 4
BEGIN
  PROMPT 1 9 "Lavacontinua         "
  USE &LVLVT
  INPUT CODTAB F_ARTLAVCONT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_ARTLAVCONT CODTAB
  FIELD ARTLAVCONT
  CHECKTYPE NORMAL
  GROUP G_LV
END 

STRING F_MANGDEST 3
BEGIN
  PROMPT 49 9 "Mangano Destinazione "
  USE &LVMAN
  INPUT CODTAB F_MANGDEST
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizioni@50" S0
  OUTPUT F_MANGDEST CODTAB
  FIELD MANGDEST
  CHECKTYPE NORMAL
  GROUP G_LV
END 

ENDPAGE

PAGE "Personalizzazioni" 0 0 80 20

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
END

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

STRING DLG_NULL 50
BEGIN
  FLAGS "D"
  PROMPT 2 2 "Descrizione   "
  GROUP G_DESART
END

ENDPAGE

ENDMASK

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