campo-sirio/lv/lv0400a.uml

#include "lv0400.h"

TOOLBAR "" 0 0 0 2
#include <filebar.h>

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 1 ""
  PICTURE 0
END

BUTTON DLG_PLANNING 8 2
BEGIN
  PROMPT 66 2 "~Giri"
  PICTURE 156
END

#include <cancelbar.h>

ENDPAGE

PAGE "Articoli" 0 2 0 0

GROUPBOX DLG_NULL 80 5
BEGIN
	PROMPT 1 0 "@b Dati Dettaglio"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente      " 
  FIELD CODCF
  FLAGS "U"
  KEY 1
  USE LF_CLIFO 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 
END

STRING F_RAGSOC 50 
BEGIN
  PROMPT 25 1 ""
  KEY 2
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT F_CODCF
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1  
END

NUMBER F_CODCONT 6
BEGIN
  PROMPT 2 2 "Contratto N. "
  USE LF_LVCONDV 
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
  INPUT CODCF F_CODCF SELECT
  INPUT CODCONT F_CODCONT 
  DISPLAY "Cliente" CODCF
  DISPLAY "Contratto" CODCONT
  DISPLAY "Dalla data@10" DATAIN
  DISPLAY "alla data@10" DATASC
  DISPLAY "Stato" STATUS
  DISPLAY "Ragione sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_CODCF CODCF
  OUTPUT F_CODCONT CODCONT
  FLAGS "U"
  FIELD CODCONT
  KEY 1 2
  CHECKTYPE REQUIRED
END

DATE F_DATAIN
BEGIN
  PROMPT 25 2 "Inizio "
  FIELD DATAIN
  FLAGS "A"
  CHECKTYPE REQUIRED
END

DATE F_DATASC
BEGIN
  PROMPT 45 2 "Scadenza "
  FIELD DATASC
  VALIDATE DATE_CMP_FUNC >= F_DATAIN
  WARNING "Inserire una data finale maggiore della data di inizio"
END

NUMBER F_INDSPED 3
BEGIN
  PROMPT 2 3 "Indirizzo sped. "
  USE LF_INDSP KEY 1 
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF SELECT
  INPUT CODIND F_INDSPED
  DISPLAY "Codice" CODCF
  DISPLAY "Cod.Ind.Sped." CODIND
  DISPLAY "Indirizzo@30" INDIR
  DISPLAY "C.A.P." CAP
  OUTPUT F_INDSPED CODIND
  OUTPUT F_INDIR INDIR
  FIELD CODINDSP
  CHECKTYPE NORMAL
END

STRING F_INDIR 50 39
BEGIN
  PROMPT 25 3 ""
  FLAGS "D"
END

SPREADSHEET F_RIGHE -1 7
BEGIN
  PROMPT 0 5 "Righe contratto"
  ITEM "Articolo@10F"
  ITEM "Descrizione@30"
  ITEM "UM@3"
  ITEM "Cong.@4"
  ITEM "Prezzo@8"
  ITEM "Prezzo\nRinnovo@8"
  ITEM "Sconto %@4"
  ITEM "Dot.\nIniz.@5"
  ITEM "Dot.\nOd.@5"
  ITEM "Cons.\nmese@6"
  ITEM "Cons.\nanno@6"
  ITEM "Dot.\nTemp.@5"
  ITEM "Prezzo\nDot.Temp."
  ITEM "Importo\nfisso"
  ITEM "Prezzo\nDanneggiati@11"
  ITEM "Val.\nconvenzionale@13"
  ITEM "Articolo\nbloccato@9"
  ITEM "Calcolo\nconsegnato@9"
  ITEM "Tipo\nForfait@7"
  ITEM "Tipo\nnolo/ciclaggio@9"
  ITEM "Tipo\n% val.conv.@9"
  ITEM "Minimo\nciclaggio@9"
  ITEM "%Forfait\nCliente@7"
  ITEM "Causale\ndefault@7"
  ITEM "Tipo\nNoleggio@8"
  ITEM "Ritiro\naut.Dot.Temp.@12"
  ITEM "Fatturazione\na kg"
  ITEM "Arrotond."
END

GROUPBOX DLG_NULL 80 9
BEGIN
	PROMPT 1 13 "@b Dettaglio"
END

LISTBOX F_ARTBLOC 1 26
BEGIN
   PROMPT 2 14 "Bloccato "
   ITEM  "0|"
   ITEM  "1|Articolo in sostituzione"
   ITEM  "2|Cliente in chiusura"
   ITEM  "3|Contratto in rinnovo"
   
END

LISTBOX F_CALCCONS 1 28
BEGIN
   PROMPT 41 14 "Calcolo "
   ITEM  "0|Conguaglio alla confezione"
   ITEM  "1|Uguale al ritirato"
   
END

LISTBOX F_TIPONOL 1 10
BEGIN
   PROMPT 2 15 "Tipo Noleggio "
   FLAGS "D"
END


CURRENCY F_PREZDAN 15
BEGIN
   PROMPT 41 15 "Danneggiati            "
   FLAGS "U"
   
END

LISTBOX F_TIPOFORF 1 25
BEGIN
   PROMPT 2 16 "Tipo     "
   ITEM  "0|Nessuno"
   MESSAGE DISABLE,1@|DISABLE, F_IMPFISART|DISABLE,3@|DISABLE,F_MINCIC|ENABLE,2@
   ITEM  "1|A valore fisso"
   MESSAGE DISABLE,1@|ENABLE,F_IMPFISART|DISABLE,3@|DISABLE,F_MINCIC|DISABLE,2@
   ITEM  "2|Nolo"
   MESSAGE ENABLE,F_NOLCIC|DISABLE,F_VCARTCLI|DISABLE,F_IMPFISART|DISABLE,3@|DISABLE,F_MINCIC|ENABLE,2@
   ITEM  "3|Ciclaggio"
   MESSAGE ENABLE,F_NOLCIC|DISABLE,F_VCARTCLI|DISABLE,F_IMPFISART|DISABLE,3@|ENABLE,F_MINCIC|ENABLE,2@
   ITEM  "4|% sul val. convenz."
   MESSAGE DISABLE,F_NOLCIC|ENABLE,F_VCARTCLI|DISABLE,F_IMPFISART|ENABLE,3@|DISABLE,F_MINCIC|DISABLE,2@
   ITEM  "5|Fisso su dot. iniziale"
   MESSAGE DISABLE,1@|ENABLE,F_IMPFISART|DISABLE,3@|DISABLE,F_MINCIC|DISABLE,2@
END

LISTBOX F_NOLCIC 1 20
BEGIN
   PROMPT 41 16 "In base a       "
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   GROUP 1
END

LISTBOX F_VCARTCLI 1 20
BEGIN
   PROMPT 2 17 "Per      "
   ITEM "N|Nessuno"
   ITEM "C|Cliente"
   ITEM "A|Articolo"
   GROUP 1
END

NUMBER F_FORFPERCL 6 2
BEGIN
   PROMPT 41 17 "% Cliente                       "
   GROUP 3
END

STRING F_CAUSLAVRIG 3
BEGIN
   PROMPT 2 18 "Causale di default"
   USE &CAU
   INPUT CODTAB F_CAUSLAVRIG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSLAVRIG CODTAB
   OUTPUT F_CAUSLAVDESCRIG S0
   CHECKTYPE NORMAL
END

STRING F_CAUSLAVDESCRIG 50 47
BEGIN
   PROMPT 28 18 ""
   USE CAU KEY 2
   INPUT S0 F_CAUSLAVDESCRIG
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSLAVRIG
   CHECKTYPE NORMAL
END


CURRENCY F_IMPFISART 15
BEGIN
   PROMPT 2 19 "Imp.fisso "
   
END

CURRENCY F_VALCONV 15 
BEGIN
   PROMPT 30 19 "Val.Conven. "
   FLAGS "U"
   GROUP 3
END

NUMBER F_MINCIC 4 2
BEGIN
   PROMPT 60 19 "Min.ciclaggio "
END

BOOLEAN F_RITAUDTTMPRIG
BEGIN
   PROMPT 2 20 "Ritiro automatico dotazione"
END

BOOLEAN  F_FATTKG
BEGIN
   PROMPT 30 20 "Fatturazione a Kg."
  
END

BOOLEAN  F_ARROT
BEGIN
   PROMPT 60 20 "Arrotondamento"
   FLAGS "G"
   // MESSAGE FALSE CLEAR, S_CONG
   // MESSAGE TRUE ENABLE, S_CONG
END

ENDPAGE

PAGE "Dati Testata" 0 2 0 0

GROUPBOX DLG_NULL 79 10
BEGIN
	PROMPT 1 1 "@b Fatturazione"
END

DATE F_INPERFAT
BEGIN
  PROMPT 2 2 "Inizio primo periodo di fatturazione"
  FIELD INPERFAT
END

DATE F_DTLASTFAT
BEGIN
  PROMPT 2 3 "Data ultima fattura                 "
  FIELD DTLASTFAT
END

CURRENCY F_IMPMINFAT 15 
BEGIN
  PROMPT 2 4 "Importo minimo fatturabile          "
  FIELD IMPMINFAT
END

BOOLEAN  F_FORFNOCONS
BEGIN
  PROMPT 2 5 "Non fatturare forfait se senza consegne"
  FIELD FORFNOCONS
END

BOOLEAN  F_FATTSOSP
BEGIN
   PROMPT 45 5 "Escluso"
   FIELD FATTSOSP
END

BOOLEAN  F_RIFBOLFAT 
BEGIN
  PROMPT 2 6 "Riferimenti bolle"
  FIELD RIFBOLFAT
END

BOOLEAN  F_ADDCAPROT
BEGIN
  PROMPT 45 6 "Addebita capi rotti"
  FIELD ADDCAPROT
END

BOOLEAN  F_ATTFATNODT
BEGIN
  PROMPT 2 7 "Attiva indipendentemente dalla data"
  FIELD ATTFATNODT
END

BOOLEAN  F_CICLAGGIO
BEGIN
  PROMPT 45 7 "Ciclaggio su 2 righe"
  FIELD CICLAGGIO
END

LISTBOX F_TIPOCAN 1 36
BEGIN
  PROMPT 2 8 "Tipo canone "
  ITEM "0|Nessuno" 
  ITEM "1|Importo fisso" 
  ITEM "2|Raggruppa su unico art." 
  ITEM "3|Calcolato con elenco art." 
  ITEM "4|% sul val.convenzionale per cliente" 
  ITEM "5|% sul val.convenzionale per articolo" 
  FIELD TIPOCAN
END

LISTBOX F_PERFAT 1 12
BEGIN
  PROMPT 2 9 "Periodicit<69> "
  ITEM "0|Giornaliero" 
  ITEM "1|Settimanale" 
  ITEM "2|Quindicinale" 
  ITEM "3|Mensile" 
  FIELD PERFAT
  FLAGS "Z"
END

LISTBOX F_TIPOLIS 1 20
BEGIN
  PROMPT 45 9 "Tipo Listino"
  ITEM "0|Prezzo nel contratto" 
  ITEM "1|Prezzo su articoli" 
  FIELD TIPOLIS
END

GROUPBOX DLG_NULL 79 12
BEGIN
	PROMPT 1 11 ""
END

LISTBOX F_PROPOSTA 15
BEGIN
  PROMPT 2 12 "Tipo              "
  FIELD PROPOSTA
  ITEM "|Contratto" MESSAGE REQUIRED,F_DATAIN
  ITEM "X|Proposta" MESSAGE NORMAL,F_DATAIN
END

STRING F_CAUSLAV 3
BEGIN
   PROMPT 2 13 "Causale di default"
   USE &CAU
   INPUT CODTAB F_CAUSLAV
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSLAV CODTAB
   OUTPUT F_CAUSLAVDESC S0
   FIELD CAUSLAV
   CHECKTYPE NORMAL
END

STRING F_CAUSLAVDESC 50 47
BEGIN
   PROMPT 28 13 ""
   USE CAU KEY 2
   INPUT S0 F_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSLAV
   CHECKTYPE NORMAL
END

LISTBOX F_TIPOIMB 1 8
BEGIN
  PROMPT 2 14 "Tipo imballo      "
  ITEM "0|Sacco" 
  ITEM "1|Carrello" 
  FIELD TIPOIMB
END

LISTBOX F_CONTSPOR 1 12
BEGIN
  PROMPT 45 14 "Conta dello sporco "
  ITEM "0|Nessuno" 
  ITEM "1|Sporco" 
  ITEM "2|Solo pulito" 
  ITEM "3|Touch-Screen" 
  FIELD CONTSPOR
END

NUMBER F_PERCNOCONT 6 2
BEGIN
  PROMPT 2 15 "Percentuale aumento per mancato conteggio   "
  FIELD PERCNOCONT
END

NUMBER F_NUMUT 5
BEGIN
  PROMPT 58 15 "Num. utente   "
  FIELD NUMUT
END

NUMBER F_PERCTOLPES 6 2
BEGIN
  PROMPT 2 16 "Percentuale tolleranza peso teorico/effett. "
  FIELD PERCTOLPES
END

NUMBER F_NUMETI 5
BEGIN
  PROMPT 58 16 "Num. etichette"
  FIELD NUMETI
END

BOOLEAN  F_SSCONS
BEGIN
  PROMPT 2 17 "Spese di spedizione alla consegna"
  FIELD SSCONS
END

BOOLEAN  F_PROFORME
BEGIN
  PROMPT 45 17 "Proforme(progetti)"
  FIELD PROFORME
END

BOOLEAN  F_STRCONS
BEGIN
  PROMPT 2 18 "Stampa di riepilogo consegne"
  FIELD STRCONS
END

BOOLEAN  F_STPRZBOL
BEGIN
  PROMPT 45 18 "Visualizza prezzo in bolla"
  FIELD STPRZBOL
END

BOOLEAN  F_STETIMATI
BEGIN
  PROMPT 2 19 "Stampa etichette con MATI"
  FIELD STETIMATI
END

BOOLEAN  F_STETITS
BEGIN
  PROMPT 45 19 "Stampa etic. con Touch-Screen"
  FIELD STETITS
END

BOOLEAN  F_STDDTPTS
BEGIN
  PROMPT 2 20 "Stampa DDT da pulito con Touch-Screen"
  FIELD STDDTPTS
END

BOOLEAN  F_STDICITURA
BEGIN
  PROMPT 45 20 "Stampa '..COME DA ELENCO CONSEGNE'"
  FIELD STDICITURA
END

BOOLEAN F_RITAUDTTMP
BEGIN
  PROMPT 2 21 "Ritiro automatico dotazione temporanea"
  FIELD RITAUDTTMP
END

BOOLEAN F_TIPOSTPRZ 
BEGIN
   PROMPT 45 21 "Stampa prezzo in bolla"
   FIELD TIPOSTPRZ
END

ENDPAGE

ENDMASK

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

PAGE "Riga Contratto" -1 -1 80 20

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 0 "@b Contratto"
END

NUMBER S_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente      " 
  FLAGS "DG"
  NUM_CALC #-F_CODCF
END

STRING S_RAGSOC 50 28
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  STR_CALC #-F_RAGSOC
END

NUMBER S_CODCONT 6
BEGIN
  PROMPT 55 1 "Contratto N. "
  FLAGS "DG"
  NUM_CALC #-F_CODCONT
END

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 3 "@b Articolo"
END

STRING S_CODART 20
BEGIN
  PROMPT 2 4 ""
  FLAGS "U"
  USE LF_ANAMAG
  INPUT CODART S_CODART
  DISPLAY "Articolo@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT S_CODART CODART
  OUTPUT S_DESCR DESCR
  OUTPUT S_PREZZOST COSTSTD
  OUTPUT S_PPCONF PPCONF
  FIELD CODART
  CHECKTYPE REQUIRED 
  ADD RUN ve2 -3 
END

STRING S_UM 2
BEGIN
   PROMPT 25 4 "U.M."
   USE LF_UMART KEY 2
   JOIN UMS INTO CODTAB=UM
   INPUT CODART S_CODART SELECT
   INPUT UM S_UM
   DISPLAY "U.M." UM
   DISPLAY "Descrione@50" LF_TAB->S0  
   OUTPUT S_UM UM
   FIELD UM
   CHECKTYPE REQUIRED
END

STRING S_DESCR 50 40
BEGIN
	PROMPT 35 4 ""
  USE LF_ANAMAG KEY 2
  INPUT DESCR S_DESCR
  DISPLAY "Descrizone@50" DESCR
  DISPLAY "Articolo@20" CODART
  COPY OUTPUT S_CODART
  CHECKTYPE REQUIRED  
END

LISTBOX S_ARTBLOC 1 28
BEGIN
   PROMPT 2 5 "Bloccato   "
   ITEM  "0|"
   ITEM  "1|Articolo in sostituzione"
   ITEM  "2|Cliente in chiusura"
   ITEM  "3|Contratto in rinnovo"
   FIELD ARTBLOC
END

LISTBOX S_TIPONOL 1 10
BEGIN
   PROMPT 51 5 "Tipo Noleggio "
   FIELD TIPONOL
   FLAGS "D"
END

NUMBER S_PPCONF 9
BEGIN 
  PROMPT 2 6 "Pezzi Pacco"
  FLAGS "DG"
  MESSAGE EMPTY CLEAR,S_ARROT
  MESSAGE ENABLE,S_ARROT
END 

BOOLEAN  S_ARROT
BEGIN
   PROMPT 30 6 "Arrotondamento"
   FIELD ARROT
   FLAGS "G"
	 MESSAGE FALSE CLEAR,S_CONG
	 MESSAGE TRUE ENABLE,S_CONG
END

NUMBER S_CONG 9 
BEGIN
   PROMPT 50 6 "Conguaglio"
   FIELD QTACONG
END

GROUPBOX DLG_NULL 78 7
BEGIN
	PROMPT 1 8 "@b Forfait/Prezzi"
END

LISTBOX S_TIPOFORF 1 25
BEGIN
   PROMPT 2 9 "Tipo       "
   ITEM  "0|Nessuno"
   MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
   ITEM  "1|A valore fisso"
   MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
   ITEM  "2|Nolo"
   MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
   ITEM  "3|Ciclaggio"
   MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@
   ITEM  "4|% sul val. convenz."
   MESSAGE DISABLE,S_NOLCIC|ENABLE,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
   ITEM  "5|Fisso su dot. iniziale"
   MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
   FIELD TIPOFORF
END

LISTBOX S_NOLCIC 1 20
BEGIN
   PROMPT 45 9 "In base a "
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   GROUP 1
END

NUMBER S_FORFPERCL 6 2
BEGIN
   PROMPT 2 10 "% Cliente  "
   FIELD FORFPERCL
   GROUP 3
END

LISTBOX S_VCARTCLI 1 20
BEGIN
   PROMPT 45 10 "Per       "
   ITEM "N|Nessuno"
   ITEM "C|Cliente"
   ITEM "A|Articolo"
   GROUP 1
END

CURRENCY S_PREZZOST 15 
BEGIN
   PROMPT 2 11 "In vigore  "
   FIELD PREZZO 
   GROUP 2  
END

CURRENCY S_PREZZORN 15 
BEGIN
   PROMPT 30 11 "Di rinnovo "
   FIELD PREZRIN
   GROUP 2
END

NUMBER S_SCONTO 6 2
BEGIN
   PROMPT 60 11 "Sconto %"
   FIELD SCONTPERC
END

CURRENCY S_PREZDAN 15
BEGIN
   PROMPT 2 12 "Danneggiati"
   FLAGS "U"
   FIELD PREZDAN
END

BOOLEAN  S_FATTKG
BEGIN
   PROMPT 30 12 "Fatturazione a Kg."
   FIELD FATTKG
END

CURRENCY S_IMPFISART 15
BEGIN
   PROMPT 2 13 "Imp.fisso  "
   FIELD IMPFISART
END

CURRENCY S_VALCONV 15 
BEGIN
   PROMPT 30 13 "Val.Conven."
   FLAGS "U"
   FIELD VALCONV
   GROUP 3
END

NUMBER S_MINCIC 4 2
BEGIN
   PROMPT 58 13 "Min.ciclaggio"
   FIELD MINCIC
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 15 "@b Dotazione"
END

NUMBER S_DOTIN 9 
BEGIN
   PROMPT 2 16 "Iniziale"
   FIELD DOTIN
END

NUMBER S_DOTOD 9 
BEGIN
  PROMPT 21 16 "Odierna"
  FLAGS "D"
END

NUMBER S_DOTTMP 9 
BEGIN
   PROMPT 39 16 "Temporanea"
   FIELD DOTTMP
END

CURRENCY S_PRZDTTMP 15 
BEGIN
   PROMPT 2 17 "Prezzo dotazione temporanea "
   FLAGS "U"
   FIELD PRZDTTMP
END

BOOLEAN S_RITAUDTTMP
BEGIN
   PROMPT 56 17 "Ritiro automatico dotazione"
   FIELD RITAUDTTMP
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 19 "@b Consegnato"
END

LISTBOX S_CALCCONS 1 34
BEGIN
   PROMPT 2 20 "Calcolo"
   ITEM  "0|Conguaglio alla confezione"
   ITEM  "1|Uguale al ritirato"
   FIELD CALCCONS
END

NUMBER S_CONSMESE 9
BEGIN
   PROMPT 47 20 "Mese"
   FLAGS "D"
END

NUMBER S_CONSANNO 9
BEGIN
   PROMPT 62 20 "Anno"
   FLAGS "D"
END

STRING S_CAUSLAV 3
BEGIN
   PROMPT 2 21 "Causale di default"
   USE &CAU
   INPUT CODTAB S_CAUSLAV
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT S_CAUSLAV CODTAB
   OUTPUT S_CAUSLAVDESC S0
   FIELD CAUSLAV
   CHECKTYPE NORMAL
END

STRING S_CAUSLAVDESC 50 47
BEGIN
   PROMPT 28 21 ""
   USE CAU KEY 2
   INPUT S0 S_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT S_CAUSLAV
   CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK