campo-sirio/ve/ve2400.uml

#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"
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 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[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 5 ""
    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 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
END

STRING F_CATCONA1 50 38
BEGIN
   PROMPT 36 8 ""
   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
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
   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 38
BEGIN
   PROMPT  36 9 ""
   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 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" 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 36 10 ""
   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 11 "Conto di vendita "
   FIELD LF_ANAMAG->GRUPPOV
   GROUP G_CONVEN
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
   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 38
BEGIN
   PROMPT  36 11 ""
   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

STRING F_GRUPPOPCIA 3
BEGIN
  PROMPT 1 12  "C. ind. acquisti "
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDA[1,3]
  CHECKTYPE NORMAL
 END

STRING F_CONTOPCIA 3
BEGIN
  PROMPT 22 12 ""
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDA[4,6]
  CHECKTYPE NORMAL
 END

STRING F_SOTTOPCIA 6
BEGIN
  PROMPT 26 12 ""
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDA[7,12]
  USE PCI SELECT CODTAB[7,12]!=""
  INPUT CODTAB[1,3] F_GRUPPOPCIA
  INPUT CODTAB[4,6] F_CONTOPCIA
  INPUT CODTAB[7,12] F_SOTTOPCIA
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRUPPOPCIA CODTAB[1,3]
  OUTPUT F_CONTOPCIA  CODTAB[4,6]
  OUTPUT F_SOTTOPCIA  CODTAB[7,12]
  OUTPUT F_DESCRCONTOPCIA S0
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN BA3 -0 PCI
END

STRING F_DESCRCONTOPCIA 50 38
BEGIN
  PROMPT 36 12 ""
  FLAG "U"
  USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
  INPUT S0 F_DESCRCONTOPCIA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto"  CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_SOTTOPCIA
  CHECKTYPE NORMAL
  WARNING "Codice piano conti industriale assente"
  ADD RUN BA0 -3 PCI
END

STRING F_GRUPPOPCIV 3
BEGIN
  PROMPT 1 13  "C. ind. vendite  "
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDV[1,3]
  CHECKTYPE NORMAL
 END

STRING F_CONTOPCIV 3
BEGIN
  PROMPT 22 13 ""
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDV[4,6]
  CHECKTYPE NORMAL
 END

STRING F_SOTTOPCIV 6
BEGIN
  PROMPT 26 13 ""
  FLAGS "Z"
  FIELD LF_ANAMAG->CONTOINDV[7,12]
  USE PCI SELECT CODTAB[7,12]!=""
  INPUT CODTAB[1,3] F_GRUPPOPCIV
  INPUT CODTAB[4,6] F_CONTOPCIV
  INPUT CODTAB[7,12] F_SOTTOPCIV
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto" CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  DISPLAY "Descrizione@50" S0
  OUTPUT F_GRUPPOPCIV CODTAB[1,3]
  OUTPUT F_CONTOPCIV  CODTAB[4,6]
  OUTPUT F_SOTTOPCIV  CODTAB[7,12]
  OUTPUT F_DESCRCONTOPCIV S0
  CHECKTYPE NORMAL
  WARNING "Sottoconto errato"
  ADD RUN BA3 -0 PCI
END

STRING F_DESCRCONTOPCIV 50 38
BEGIN
  PROMPT 36 13 ""
  FLAG "U"
  USE PCI KEY 2 SELECT (CODTAB[7,12]!="")
  INPUT S0 F_DESCRCONTOPCIV
  DISPLAY "Descrizione@50" S0
  DISPLAY "Gruppo" CODTAB[1,3]
  DISPLAY "Conto"  CODTAB[4,6]
  DISPLAY "Sottoconto" CODTAB[7,12]
  COPY OUTPUT F_SOTTOPCIV
  CHECKTYPE NORMAL
  WARNING "Codice piano conti industriale assente"
  ADD RUN BA0 -3 PCI
END
 
BOOLEAN F_ARTFIS
BEGIN
    PROMPT 1 14 "Articolo fiscale"
    FIELD LF_ANAMAG->ARTFIS
    MESSAGE TRUE ENABLE,G_RAGGFISC@
    MESSAGE FALSE DISABLE,G_RAGGFISC@
END

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

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

STRING F_CLASSEFIS 2
BEGIN
    PROMPT 1 16 "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 16 ""
    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 1 4 "@bUnita' di misura"
END

SPREADSHEET F_SHEETUM 78 5
BEGIN
  PROMPT 1 5 "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<69> 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 <20> 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<69> 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 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 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 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  "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 <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 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  "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 "Utente" 0 0 70 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"