#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

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

BUTTON DLG_RESET 2 2
BEGIN
  PROMPT 1 1 "Cong."
  PICTURE TOOL_RESET
END

#include <cancelbar.h>

ENDPAGE

PAGE "Articoli" 0 2 0 0

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

NUMBER F_CODCF 6
BEGIN
  PROMPT 1 0 "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
  DISPLAY "Partita IVA@11" PAIV
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_RICALT RICALT
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 
END

STRING F_RICALT 30 15
BEGIN
  PROMPT 20 0 "Ricerca Alt."
  USE LF_CLIFO KEY 6
  INPUT TIPOCF "C"
  INPUT RICALT F_RICALT
  DISPLAY "Ricerca alternativa@30" RICALT
  DISPLAY "Sospeso" SOSPESO
  DISPLAY "Ragione sociale@50" RAGSOC
  COPY OUTPUT F_CODCF
  HELP "Chiave di ricerca alternativa"
  CHECKTYPE NORMAL
END

NUMBER F_CODCONT 6
BEGIN
  PROMPT 53 0 "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
  CHECKTYPE REQUIRED
END

NUMBER F_INDSPED 3
BEGIN
  PROMPT 65 0 "Ind. 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
  FIELD CODINDSP
  CHECKTYPE NORMAL
END

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

SPREADSHEET F_RIGHE -1 -10
BEGIN
  PROMPT 0 2 "Righe contratto"
  ITEM "Articolo@8F"
  ITEM "Descrizione@25"
  ITEM "Cong.@3"
  ITEM "Prezzo@7"
  ITEM "Dot.\nIniz.@5"
  ITEM "Dot.\nOd.@5"
  ITEM "Cons.\nmese@5"
  ITEM "Cons.\nanno@5"
  ITEM "Tipo\nForfait@25"
  ITEM "Prezzo\nRinnovo@8"
  ITEM "Sconto %@5"
  ITEM "Dot.\nTemp.@5"
  ITEM "Prezzo\nDot.Temp."
  ITEM "Inizio\nDot.Temp."
  ITEM "Fine\nDot.Temp."
  ITEM "Importo\nfisso"
  ITEM "Prezzo\nDanneggiati@11"
  ITEM "Prezzo\nNolo@11"
  ITEM "Val.\nconvenzionale@13"
  ITEM "Articolo\nbloccato@25"
  ITEM "Calcolo\nconsegnato@28"
  ITEM "Tipo\nnolo/ciclaggio@9"
  ITEM "Tipo\n% val.conv.@9"
  ITEM "Minimo\nciclaggio@9"
  ITEM "%Forfait\nCliente@7"
  ITEM "Causale\ndefault@7"
  ITEM "Ritiro\naut.Dot.Temp.@12"
  ITEM "Fatturazione\na kg"
  ITEM "UM@3"
  ITEM "Pezzi per\nPacco"
  ITEM "Precedenza"
  ITEM "Separatore"
  ITEM "Qta. max.\nXS"
  ITEM "Qta. max.\nM" 
  ITEM "Qta. max.\nXL"
  ITEM "Qta. norm.\nXS"
  ITEM "Qta. norm.\nM"
  ITEM "Qta. norm.\nXL"
  ITEM "Data\nIns."
  ITEM "Conta\npul."
END

STRING F_CODART 20
BEGIN
  PROMPT 1 -9 "Articolo "
  FLAGS "D"
END

STRING F_DESART 40
BEGIN
	PROMPT 39 -9 ""
  FLAGS "D"
END

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

LISTBOX F_CALCCONS 1 29
BEGIN
   PROMPT 39 -8 "Consegnato"
   ITEM  "0|Uguale al ritirato"   
   ITEM  "1|Conguaglio alla confezione"   
END

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

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

LISTBOX F_VCARTCLI 1 15
BEGIN
   PROMPT 60 -6 "Per"
   ITEM "A|Articolo"
   ITEM "C|Cliente"
   GROUP 1
   FLAGS "G"
END

CURRENCY F_IMPFISART 15
BEGIN
   PROMPT 1 -6 "Imp.fisso"
   CHECTYPE REQUIRED
END

CURRENCY F_PREZNOL 15 
BEGIN
   PROMPT 1 -6 "Prz. Nolo"
   FLAGS "U"
   CHECKTYPE REQUIRED
END

CURRENCY F_VALCONV 15 
BEGIN
   PROMPT 29 -6 "Val.Conv. "
   FLAGS "U"   
END

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

CURRENCY F_PREZDAN 15
BEGIN
   PROMPT 1 -5 "Dannegg. "
   FLAGS "U"
END

STRING F_CAUSLAVRIG 3
BEGIN
   PROMPT 29 -5 "Cau. Def. "
   USE &CAU
   INPUT CODTAB F_CAUSLAVRIG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSLAVRIG CODTAB
   CHECKTYPE NORMAL
END

NUMBER F_FORFPERCL 5 2
BEGIN
   PROMPT 60 -5 "Perc. Cliente "
   GROUP 3
END

NUMBER F_DOTTMP 9 
BEGIN
   PROMPT 1 -4 "Dot.temp."
END

CURRENCY F_PRZDTTMP 15 
BEGIN
   PROMPT 23 -4 "Prezzo "
   FLAGS "U"
END

DATE F_INDTTEMP
BEGIN
  PROMPT 47 -4 "Inizio"
END

DATE F_FIDTTEMP
BEGIN
  PROMPT 65 -4 "Fine"
  VALIDATE DATE_CMP_FUNC >= F_INDTTEMP
  WARNING "La data di fine dotazione temporanea deve essere superiore a quella di inizio"
END

NUMBER F_PPCONF 15 4
BEGIN 
  PROMPT 1 -3 "Pz X pac."
  FLAGS "DG"
END 

STRING F_BARCODE 20
BEGIN
  PROMPT 39 -3 "BarCode "
  FLAGS "D"
END 
 
STRING F_TIPOLOGIA 20
BEGIN
  PROMPT 1 -2 "Tipologia"
  FLAGS "D"
END 

STRING F_COLORE 18
BEGIN
  PROMPT 39 -2 "Colore  "
  FLAGS "D"
END 

BOOLEAN F_RITAUDTTMPRIG
BEGIN
   PROMPT 1 -1 "Ritiro automatico dot. temp."
END

BOOLEAN  F_FATTKG
BEGIN
   PROMPT 39 -1 "Fatturazione a Kg."
END

ENDPAGE

PAGE "Dati Testata" 0 2 0 0

GROUPBOX DLG_NULL 80 12
BEGIN
	PROMPT 1 0 "@b Fatturazione"
END

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

DATE F_DTLASTFAT
BEGIN
  PROMPT 49 1 "Data ultima fattura "
  FIELD DTLASTFAT
END

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

CURRENCY F_IMPFIX 10 
BEGIN
  PROMPT 49 2 "Importo fisso       "
  FIELD IMPFIX
  CHECKTYPE REQUIRED
END

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

BOOLEAN  F_FATTSOSP
BEGIN
   PROMPT 49 3 "Escluso " 
   FIELD FATTSOSP
END

BOOLEAN  F_ELCONS
BEGIN
  PROMPT 2 4 "Stampa '..COME DA ELENCO CONSEGNE'"
  MESSAGE FALSE ENABLE,F_RIFBOL
  MESSAGE TRUE CLEAR,F_RIFBOL
  FIELD ELCONS
END

BOOLEAN F_RIFBOL 
BEGIN
  PROMPT 49 4 "Riferimenti bolle "
  MESSAGE FALSE ENABLE,F_ELCONS
  MESSAGE TRUE CLEAR,F_ELCONS
  FIELD RIFBOL
END
 
BOOLEAN  F_RIPCONS
BEGIN
  PROMPT 2 5 "Stampa di riepilogo consegne "
  FIELD RIPCONS
END

BOOLEAN  F_ADDCAPROT
BEGIN
  PROMPT 49 5 "Addebita capi rotti "
  FIELD ADDCAPROT
END

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

BOOLEAN  F_CICLAGGIO
BEGIN
  PROMPT 49 6 "Ciclaggio su 2 righe "
  FIELD CICLAGGIO
END

LISTBOX F_TIPOCAN 1 29 
BEGIN
  PROMPT 2 7 "Tipo canone "
  ITEM "0|Nessuno" 
  MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|HIDE,F_NOLCICTE
  ITEM "1|Importo fisso" 
  MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|SHOW,F_CANFIX|HIDE,F_NOLCICTE
  ITEM "2|% sul val. conv. per cli." 
  MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|SHOW,F_NOLCICTE
  FIELD TIPOCAN
END

LISTBOX F_NOLCICTE 1 20
BEGIN
   PROMPT 48 7 "In base a "
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   FIELD NOLCICTE
   GROUP 1
END

LISTBOX F_CANFIX 1 22
BEGIN
  PROMPT 49 7 "Con   " 
  ITEM "0|Nessun elenco" 
  ITEM "1|Elenco art. con qt�." 
  ITEM "2|Elenco art. senza qt�." 
  FIELD CANFIX
END

BOOLEAN  F_RAGART
BEGIN
  PROMPT 2 8 "Raggruppa su unico articolo "
  FIELD RAGART
END

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

LISTBOX F_TIPOLIS 1 20
BEGIN
  PROMPT 49 9 "Tp. Lis."
  ITEM "0|Prezzo nel contratto" 
  ITEM "1|Prezzo su articoli" 
  FIELD TIPOLIS
END

STRING F_REDDI 5
BEGIN
  PROMPT 2 10 "Redditivit� "
  FIELD REDDI
END

BOOLEAN  F_RAGGCGRUP
BEGIN
  PROMPT 49 10 "Raggruppa sul capogruppo"
  FIELD RAGGCGRUP
END

GROUPBOX DLG_NULL 79 11
BEGIN
	PROMPT 1 12 ""
END

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

DATE F_DATAIN
BEGIN
  PROMPT 30 13 "Inizio "
  FIELD DATAIN
  FLAGS "A"
  CHECKTYPE REQUIRED
END

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

STRING F_CODNUM 4
BEGIN
  PROMPT 2 14 "Buono di Consegna "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  FIELD CODNUM
  FLAG "UPA"
END

STRING F_TPDOC 4
BEGIN
  PROMPT 28 14 ""
  USE %TIP
  INPUT CODTAB F_TPDOC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TPDOC CODTAB
  OUTPUT F_DESCR S0
  FIELD TPDOC
  FLAG "UP"
END

STRING F_DESCR 50 40
BEGIN
  PROMPT 37 14 ""
  USE %TIP
  INPUT CODTAB F_TPDOC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TPDOC
END

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

LISTBOX F_CONTSPOR 1 12
BEGIN
  PROMPT 45 15 "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 16 "Percentuale aumento per mancato conteggio  "
  FIELD PERCNOCONT
END

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

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

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

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


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

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

BOOLEAN  F_STETITS
BEGIN
  PROMPT 45 20 "Stampa etic. con Touch-Screen"
  FIELD STETITS
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 1 1 "Cliente " 
  FLAGS "DG"
  NUM_CALC #-F_CODCF
END

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

NUMBER S_CODCONT 6
BEGIN
  PROMPT 68 1 "Cont. "
  FLAGS "DG"
  NUM_CALC #-F_CODCONT
END

GROUPBOX DLG_NULL 80 4
BEGIN
	PROMPT 1 2 "@bArticolo"
END

STRING S_CODART 20
BEGIN
  PROMPT 2 3 ""
  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_VALCONV COSTSTD
  OUTPUT S_PPCONF PPCONF
  FIELD CODART
  CHECKTYPE REQUIRED 
  ADD RUN ve2 -3 
END

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

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

LISTBOX S_ARTBLOC 1 25
BEGIN
   PROMPT 15 4 "Bloccato  "
   ITEM  "0|No"
   ITEM  "1|Articolo in sostituzione"
   ITEM  "2|Cliente in chiusura"
   ITEM  "3|Contratto in rinnovo"
   FIELD ARTBLOC
END

NUMBER S_CONG 9 
BEGIN
   PROMPT 58 4 "Conguaglio "
   FIELD QTACONG
END

GROUPBOX DLG_NULL 80 7
BEGIN
	PROMPT 1 6 "@bForfait/Prezzi"
END

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

LISTBOX S_NOLCIC 1 20
BEGIN
   PROMPT 47 7 "In base a "
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   FIELD NOLCIC
   GROUP 1
END

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

LISTBOX S_VCARTCLI 1 20
BEGIN
   PROMPT 47 8 "Per       "
   ITEM "A|Articolo"
   ITEM "C|Cliente"
   FIELD VCARTCLI
   FLAGS "D"
   GROUP 1
END

CURRENCY S_PREZZOST 15 
BEGIN
   PROMPT 2 9 "In vigore  "
   FIELD PREZZO 
   FLAGS "U"
END

CURRENCY S_PREZZORN 15 
BEGIN
   PROMPT 32 9 "Di rinnovo  "
   FIELD PREZRIN
   FLAGS "U"
   GROUP 2
END

STRING S_SCONTO 6
BEGIN
   PROMPT 63 9 "Sconto % "
   FIELD SCONTPERC
END

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

CURRENCY S_PREZNOL 15
BEGIN
   PROMPT 32 10 "Prezzo nolo "
   FLAGS "U"
   FIELD PREZNOL
   CHECKTYPE REQUIRED
END

BOOLEAN  S_FATTKG
BEGIN
   PROMPT 63 10 "Fatturaz. a Kg."
   FIELD FATTKG
END

CURRENCY S_IMPFISART 15
BEGIN
   PROMPT 2 11 "Imp. fisso "
   FIELD IMPFISART
   CHECKTYPE REQUIRED
END

CURRENCY S_VALCONV 15 
BEGIN
   PROMPT 32 11 "Val. Conven."
   FLAGS "U"
   FIELD VALCONV
END

NUMBER S_MINCIC 4 2
BEGIN
   PROMPT 61 11 "Min.ciclaggio"
   FIELD MINCIC
END

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 13 "@b Dotazione"
END

NUMBER S_DOTIN 9 
BEGIN
   PROMPT 2 14 "Iniziale"
END

NUMBER S_DOTOD 9 
BEGIN
  PROMPT 21 14 "Odierna"
END

NUMBER S_DOTTMP 9 
BEGIN
   PROMPT 39 14 "Temporanea"
END

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

BOOLEAN S_RITAUDTTMP
BEGIN
   PROMPT 48 15 "Ritiro automatico dotazione "
   FIELD RITAUDTTMP
END

DATE S_INDTTEMP
BEGIN
  PROMPT 2 16 "Inizio dot.temp. "
  FIELD INDTTMP
END

DATE S_FIDTTEMP
BEGIN
  PROMPT 50 16 "Fine dot.temp. "
  FIELD FIDTTMP
  VALIDATE DATE_CMP_FUNC >= S_INDTTEMP
  WARNING "La data di fine dotazione temporanea deve essere superiore a quella di inizio"
END

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

LISTBOX S_CALCCONS 1 34
BEGIN
   PROMPT 2 19 "Calcolo"
   ITEM  "0|Uguale al ritirato"
   MESSAGE CLEAR,S_CONG
   ITEM  "1|Conguaglio alla confezione"
   MESSAGE ENABLE,S_CONG
   FIELD CALCCONS
END

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

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

STRING S_CAUSLAV 3
BEGIN
   PROMPT 2 20 "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 20 ""
   USE CAU KEY 2
   INPUT S0 S_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT S_CAUSLAV
   CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 22 "@bParametri"
END

DATE S_DATAINS
BEGIN
  PROMPT 2 23 "Data inserimento "
  FIELD DATAINS
END

BOOLEAN S_CONTPUL
BEGIN
   PROMPT 35 23 "Conta Pulito"
   FIELD CONTPUL
END

ENDPAGE

PAGE "Dati carrello" -1 -1 80 20

GROUPBOX DLG_NULL 79 5
BEGIN
	PROMPT 1 0 ""
END

NUMBER S_PPCONF 15 5
BEGIN 
  PROMPT 2 1 "Pz. per pacco "
  FLAGS "DG"
END 

NUMBER S_PREC 2
BEGIN 
  PROMPT 35 1 "Precedenza "
  FIELD PRECEDENZA
END

NUMBER S_SEPAR 2
BEGIN
  PROMPT 50 1 "Separatore "
  FIELD SEPARATORE
END

NUMBER S_QTAMAXXS 6
BEGIN 
  PROMPT 2 2 "Qta. max.XS  "
  FIELD QTAMAXXS
END 

NUMBER S_QTAMAXM 6
BEGIN 
  PROMPT 30 2 "Qta. max.M  " 
  FIELD QTAMAXM
END 

NUMBER S_QTAMAXXL 6
BEGIN 
  PROMPT 55 2 "Qta. max.XL  "
  FIELD QTAMAXXL
END 

NUMBER S_QTANORMXS 6
BEGIN 
  PROMPT 2 3 "Qta. norm.XS "
  FIELD QTANORMXS
END 

NUMBER S_QTANORMM 6
BEGIN 
  PROMPT 30 3 "Qta. norm.M "
  FIELD QTANORMM
END 

NUMBER S_QTANORMXL 6
BEGIN 
  PROMPT 55 3 "Qta. norm.XL "
  FIELD QTANORMXL
END 

ENDMASK