campo-sirio/ve/ve2400.uml

#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

STRING F_PRESIDIO 20
BEGIN
  PROMPT 2 6 "Codice presidio m.s. "
  FILED LF_ANAMAG->COD_PMS
  FLAG "U"
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[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
//   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

TEXT DLG_NULL 
BEGIN
    PROMPT 1 18  "Collegamenti esterni "
END

GOLEM F_GOLEM 4 2
BEGIN
  PROMPT 24 18  ""
  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 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  "UP"
  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  "DP"
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  "UP"
  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  "DP"
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"