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

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 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
  OUTPUT F_RICALT RICALT
  CHECKTYPE REQUIRED
  ADD RUN cg0 -1 
END

STRING F_RAGSOC 50 30
BEGIN
  PROMPT 2 2 "Ragione sociale"
  KEY 1
  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 53 1 "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 1 "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_RICALT 30 15
BEGIN
  PROMPT 20 1 "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

SPREADSHEET F_RIGHE -1 8
BEGIN
  PROMPT 0 3 "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"
END

STRING F_CODART 20
BEGIN
  PROMPT 1 12 "Articolo "
  FLAGS "D"
END

STRING F_DESART 40
BEGIN
	PROMPT 32 12 ""
  FLAGS "D"
END

LISTBOX F_ARTBLOC 1 25
BEGIN
   PROMPT 1 13 "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 40 13 "Consegnato"
   ITEM  "0|Uguale al ritirato"   
   ITEM  "1|Conguaglio alla confezione"   
END

LISTBOX F_TIPOFORF 1 25
BEGIN
   PROMPT 1 14 "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 40 14 "In base a "
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   GROUP 1
END

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

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

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

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

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

CURRENCY F_PREZDAN 15
BEGIN
   PROMPT 1 16 "Danneggiati "
   FLAGS "U"
END

STRING F_CAUSLAVRIG 3
BEGIN
   PROMPT 30 16 "Cau. default "
   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 16 "Perc. Cliente "
   GROUP 3
END

NUMBER F_DOTTMP 9 
BEGIN
   PROMPT 1 17 "Dot. temp. "
END

CURRENCY F_PRZDTTMP 15 
BEGIN
   PROMPT 24 17 "Prezzo "
   FLAGS "U"
END

DATE F_INDTTEMP
BEGIN
  PROMPT 47 17 "Inizio"
END

DATE F_FIDTTEMP
BEGIN
  PROMPT 65 17 "Fine"
END

NUMBER F_PPCONF 15 4
BEGIN 
  PROMPT 1 18 "Pz per Pacco "
  FLAGS "DG"
END 

STRING F_BARCODE 21
BEGIN
  PROMPT 34 18 "BarCode "
  FLAGS "D"
END 
 
STRING F_TIPOLOGIA 20
BEGIN
  PROMPT 1 19 "Tipologia  "
  FLAGS "D"
END 

STRING F_COLORE 21
BEGIN
  PROMPT 34 19 "Colore  "
  FLAGS "D"
END 

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

BOOLEAN  F_FATTKG
BEGIN
   PROMPT 35 20 "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 48 7 "Con " 
  ITEM "0|Nessun elenco" 
  ITEM "1|Elenco art. con qt<71>." 
  ITEM "2|Elenco art. senza qt<71>." 
  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<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 43 9 "Tipo Listino "
  ITEM "0|Prezzo nel contratto" 
  ITEM "1|Prezzo su articoli" 
  FIELD TIPOLIS
END

STRING F_REDDI 5
BEGIN
  PROMPT 2 10 "Redditivit<69> "
  FIELD REDDI
END

BOOLEAN  F_RAGGCGRUP
BEGIN
  PROMPT 43 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 36 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 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 59 1 "Contratto N. "
  FLAGS "DG"
  NUM_CALC #-F_CODCONT
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 2 "@b Articolo"
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_UM 2
BEGIN
   PROMPT 25 3 "U.M."
   FLAGS "D"
END

STRING S_DESCR 50 40
BEGIN
	PROMPT 35 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

LISTBOX S_ARTBLOC 1 25
BEGIN
   PROMPT 2 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 78 7
BEGIN
	PROMPT 1 6 "@b Forfait/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 45 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 45 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 30 9 "Di rinnovo "
   FIELD PREZRIN
   FLAGS "U"
   GROUP 2
END

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

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

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

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

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

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

NUMBER S_MINCIC 4 2
BEGIN
   PROMPT 58 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
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

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 "Pezzi per Pacco      "
  FLAGS "DG"
END 

NUMBER S_PREC 2
BEGIN 
  PROMPT 50 1 "Precedenza "
  FLAGS "D"
END 

NUMBER S_QTAMAXXS 6
BEGIN 
  PROMPT 2 2 "Qta. max.XS  "
  FLAGS "D"
END 

NUMBER S_QTAMAXM 6
BEGIN 
  PROMPT 30 2 "Qta. max.M  " 
  FLAGS "D"
END 

NUMBER S_QTAMAXXL 6
BEGIN 
  PROMPT 55 2 "Qta. max.XL  "
  FLAGS "D"
END 

NUMBER S_QTANORMXS 6
BEGIN 
  PROMPT 2 3 "Qta. norm.XS "
  FLAGS "D"
END 

NUMBER S_QTANORMM 6
BEGIN 
  PROMPT 30 3 "Qta. norm.M "
  FLAGS "D"
END 

NUMBER S_QTANORMXL 6
BEGIN 
  PROMPT 55 3 "Qta. norm.XL "
  FLAGS "D"
END 

ENDMASK