campo-sirio/lv/lv0400a.uml

#include "lv0400.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Contratto" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
	PROMPT 1 0 "@b Contratti"
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" DATAIN
  DISPLAY "alla data" 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

BOOLEAN F_PROPOSTA
BEGIN
  PROMPT 2 3 "Proposta di contratto"
  MESSAGE FALSE REQUIRED,F_DATAIN
  MESSAGE TRUE NORMAL,F_DATAIN
END

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

DATE F_DATASC
BEGIN
  PROMPT 45 3 "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 4 "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 4 ""
  FLAGS "D"
END

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

SPREADSHEET F_RIGHE
BEGIN
  PROMPT 0 6 "Righe contratto"
  ITEM "Articolo@10"
  ITEM "Descrizione@30"
  ITEM "UM@3"
  ITEM "Cong.@4"
  ITEM "Prezzo in vigore@8"
  ITEM "Prezzo di Rinnovo@8"
  ITEM "Sconto %@4"
  ITEM "Dot.Iniziale@5"
  ITEM "Dotaz. odierna@5"
  ITEM "Cons. mese@6"
  ITEM "Cons.anno@6"
  ITEM "Dot.Temporanea@5"
  ITEM "Prezzo Dot.Temp."
  ITEM "Inizio Dot.Temp."
  ITEM "Fine Dot.Temp."
  ITEM "Importo fisso"
  ITEM "Prezzo Danneggiati"
  ITEM "Val. convenzionale"
  ITEM "Articolo bloccato"
  ITEM "Calcolo consegnato"
  ITEM "Tipo Forfait"
  ITEM "Tipo nolo/ciclaggio"
  ITEM "Tipo % val.conv."
  ITEM "Minimo cilaggio"
  ITEM "%Forfait Cliente"
  ITEM "Causale default"
  ITEM "Tipo Noleggio"
  ITEM "Ritiro aut.Dot.Temp."
  ITEM "Fatturazione a kg"
  ITEM "Arrotondamento"
  ITEM "Tipologia"
  ITEM "Colore"
  ITEM "Livello"
  ITEM "Pezzi per pacco"
  ITEM "Pezzi per sacco"
  ITEM "Pezzi per carrello"
  ITEM "Tipo parte"
  ITEM "Cod. lavaggio 1"
  ITEM "Cod. lavaggio 2"
  ITEM "Linea dest. 1"
  ITEM "Linea dest. 2"
  ITEM "Lavatrice"
  ITEM "Art.lavacont"
  ITEM "Mangano Dest."   
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 79 11
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 da fatturazione"
   FIELD FATTSOSP
END

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

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

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

RADIOBUTTON F_PERFAT 1 70
BEGIN
  PROMPT 5 8 "@b Periodicit<69> di fatturazione "
  ITEM "0|Giornaliero" 
  ITEM "1|Settimanale" 
  ITEM "2|Quindicinale" 
  ITEM "3|Mensile" 
  FIELD PERFAT
  FLAGS "Z"
END

GROUPBOX DLG_NULL 38 10
BEGIN
	PROMPT 1 12 "@b Tipo canone"
END

RADIOBUTTON F_TIPOCAN 1 38
BEGIN
     PROMPT 1 12 ""
     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

RADIOBUTTON F_TIPOLIS 1 25
BEGIN
   PROMPT 40 12 "@b Tipo Listino"
   ITEM "0|Prezzo nel contratto" 
   ITEM "1|Listino in anag.Articoli" 
   FIELD TIPOLIS
END

RADIOBUTTON F_TIPOIMB 1 14
BEGIN
   PROMPT 66 12 "@b Tipo imballo"
   ITEM "0|Sacco" 
   ITEM "1|Carrello" 
   FIELD TIPOIMB
END

RADIOBUTTON F_CONTSPOR 1 40
BEGIN
   PROMPT 40 16 "@b Conta dello sporco"
   ITEM "0|Nessuno" 
   ITEM "1|Sporco" 
   ITEM "2|Solo pulito" 
   ITEM "3|Touch-Screen" 
   FIELD CONTSPOR
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 1 ""
END

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

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

NUMBER F_PERCTOLPES 6 2
BEGIN
   PROMPT 2 3 "Percentuale tolleranza peso teorico/effettivo"
   FIELD PERCTOLPES
END

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

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

GROUPBOX DLG_NULL 78 13
BEGIN
	PROMPT 1 6 ""
END

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

BOOLEAN  F_PROFORME
BEGIN
  PROMPT 2 8 "Proforme(progetti)"
  FIELD PROFORME
END

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

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

BOOLEAN  F_STPRZBOL
BEGIN
  PROMPT 2 11 "Visualizza prezzo in bolla"
  FIELD STPRZBOL
END

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

BOOLEAN  F_STETITS
BEGIN
  PROMPT 2 13 "Stampa etic. con Touch-Screen"
  FIELD STETITS
END

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

BOOLEAN  F_STDICITURA
BEGIN
  PROMPT 2 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
  FIELD STDICITURA
END

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

BOOLEAN F_TIPOSTPRZ 
BEGIN
   PROMPT 2 17 "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 "" -1 -1 80 20

GROUPBOX DLG_NULL 78 4
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 
BEGIN
  PROMPT 25 1 ""
  FLAGS "DG"
  STR_CALC #-F_RAGSOC
END

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

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

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

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


GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 7 "@b Forfait"
END

LISTBOX S_TIPOFORF 1 25
BEGIN
   PROMPT 2 8 "Tipo Forfait "
   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 8 "In base a "
   ITEM "N|Nessuno"
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   GROUP 1
END

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

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

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 11 "@b Prezzo"
END

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

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

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

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

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

BOOLEAN  S_ARROT
BEGIN
   PROMPT 60 13 "Arrotondamento"
   FIELD ARROT
END

CURRENCY S_IMPFISART 15
BEGIN
   PROMPT 2 14 "Impor.fisso"
   FIELD IMPFISART
END

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

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 16 "@b Dotazione"
END

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

NUMBER S_DOTOD 9 
BEGIN
  PROMPT 30 17 "Odierna"
  FLAGS "D"
END

NUMBER S_DOTTMP 9 
BEGIN
   PROMPT 56 17 "Temporanea"
   FIELD DOTTMP
END

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 19 "@b Dotazione Temporanea"
END

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

DATE S_INDTTMP
BEGIN
   PROMPT 25 20 "Dal "
   FIELD INDTTMP
END

DATE S_FIDTTMP
BEGIN 
   PROMPT 41 20 "Al "
   FIELD FIDTTMP
END

BOOLEAN S_RITAUDTTMP
BEGIN
   PROMPT 57 20 "Ritiro automatico"
   FIELD RITAUDTTMP
END


STRING S_UM 2
BEGIN
   PROMPT 2 22 "Unit<69> di misura"
   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

NUMBER S_CONG 9 
BEGIN
   PROMPT 25 22 "Conguaglio"
   FIELD QTACONG
END

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

ENDPAGE

PAGE "" -1 -1 80 20

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

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

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

NUMBER T_CODCONT 6
BEGIN
  PROMPT 2 2 "Contratto N. "
  FLAGS "DG"
  NUM_CALC #-F_CODCONT
END

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

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

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

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

LISTBOX S_ARTBLOC 1 28
BEGIN
   PROMPT 2 7 "Articolo bloccato"
   ITEM  "0|Nessuna"
   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 7 "Tipo Noleggio "
   FIELD TIPONOL
   FLAGS "D"
END


NUMBER S_PPCONF 9
BEGIN 
  PROMPT 2 9 "Pz. per Pacco  "
  FLAGS "D"
END 

NUMBER S_PPCOLLO 9
BEGIN 
  PROMPT 30 9 "Per Sacco    "
  FLAGS "D"
END 

NUMBER S_PPPALLET 9
BEGIN 
  PROMPT 55 9 "Per Carrello "
  FLAGS "D"
END 

STRING S_MANGDEST 3
BEGIN
  PROMPT 2 10 "Mangano Dest.  "
  FLAGS "D"
END 

STRING S_ARTLAVCONT 4
BEGIN
  PROMPT 30 10 "Art.Lav.cont."
  FLAGS "D"
END 

STRING S_LAVATRICE 4
BEGIN
  PROMPT 55 10 "Lavatrice    "
  FLAGS "D"
END 

STRING S_CODLAV1 3
BEGIN
  PROMPT 2 11 "Cod. Lavag. 1  "
  FLAGS "D"
END 

STRING S_CODLAV2 3
BEGIN
  PROMPT 30 11 "Cod. Lavag. 2"
  FLAGS "D"
END

STRING S_TIPOPARTE 1
BEGIN
  PROMPT 55 11 "Tipo Parte   "
  FLAGS "D"
END 

STRING S_LINDEST1 3
BEGIN
  PROMPT 2 12 "Linea dest. 1  "
  FLAGS "D"
END 

STRING S_LINDEST2 3
BEGIN
  PROMPT 30 12 "Linea dest. 2"
  FLAGS "D"
END 

STRING S_LIVELLO 1
BEGIN
  PROMPT 55 12 "Livello      "
  FLAGS "D"
END 

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

STRING S_COLORE 20 10
BEGIN
  PROMPT 30 13 "Colore       "
  FLAGS "D"
END 

STRING S_GRMERC 3
BEGIN
  PROMPT 55 13 "Tipologia    "
  FLAG "UD"
  USE GMC KEY 1 SELECT CODTAB[4,5]==""
  INPUT CODTAB S_GRMERC
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Descrizione@50" S0
  OUTPUT S_GRMERC CODTAB[1,3]
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK