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 5
BEGIN
	PROMPT 1 0 "@bContratti"
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

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

DATE F_DATASC
BEGIN
  PROMPT 45 2 "Scadenza "
  FIELD DATASC
  CHECKTYPE REQUIRED
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

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

SPREADSHEET F_RIGHE 0 14
BEGIN
  PROMPT 0 5 "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 78 6
BEGIN
	PROMPT 1 1 "@bPeriodicit<69> di fatturazione"
END

RADIOBUTTON F_PERFAT 1 23
BEGIN
     PROMPT 1 1 "@bPeriodicit<69> di fatturazione"
     ITEM "0|Giornaliero" 
     ITEM "1|Settimanale" 
     ITEM "2|Quindicinale" 
     ITEM "3|Mensile" 
     FIELD PERFAT
 END
 
DATE F_INPERFAT
BEGIN
   PROMPT 28 2 "Inizio primo periodo di fatturazione"
   FIELD INPERFAT
END

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

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

GROUPBOX DLG_NULL 38 10
BEGIN
	PROMPT 1 7 "@bTipo canone"
END

RADIOBUTTON F_TIPOCAN 1 38
BEGIN
     PROMPT 1 7 ""
     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 7 "@bTipo Listino"
   ITEM "0|Prezzo nel contratto" 
   ITEM "1|Listino in anag.Articoli" 
   FIELD TIPOLIS
END

RADIOBUTTON F_TIPOIMB 1 14
BEGIN
   PROMPT 66 7 "@bTipo imballo"
   ITEM "0|Sacco" 
   ITEM "1|Carrello" 
   FIELD TIPOIMB
END

RADIOBUTTON F_CONTSPOR 1 40
BEGIN
   PROMPT 40 11 "@bConta 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 1 17 "Percentuale aumento per mancato conteggio    "
   FIELD PERCNOCONT
END

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

NUMBER F_NUMUT 5
BEGIN
   PROMPT 60 17 "Num. utente   "
   FIELD NUMUT
END

NUMBER F_NUMETI 5
BEGIN
   PROMPT 60 18 "Num. etichette"
   FIELD NUMETI
END

STRING F_CAUSMAG 4
BEGIN
   PROMPT 1 19 "Causale di default"
   USE CAU
   INPUT CODTAB F_CAUSMAG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSMAG CODTAB
   OUTPUT F_CAUSMAGDESC S0
   FIELD CAUSMAG
   CHECKTYPE NORMAL
END

STRING F_CAUSMAGDESC 50
BEGIN
   PROMPT 27 19 ""
   USE CAU KEY 2
   INPUT S0 F_CAUSMAGDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSMAG
   CHECKTYPE NORMAL
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 58 18
BEGIN
	PROMPT 9 1 ""
END

BOOLEAN  F_FATTSOSP
BEGIN
   PROMPT 10 2 "Escluso da fatturazione"
   FIELD FATTSOSP
END

BOOLEAN  F_ATTFATNODT
BEGIN
  PROMPT 10 3 "Attiva fatturazione indipendentemente dalla data"
  FIELD ATTFATNODT
END

BOOLEAN  F_FORFNOCONS
BEGIN
  PROMPT 10 4 "Non fatturare forfait se senza consegne"
  FIELD FORFNOCONS
END

BOOLEAN  F_SSCONS
BEGIN
  PROMPT 10 5 "Spese di spedizione alla consegna"
  FIELD SSCONS
END

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

BOOLEAN  F_ADDCAPROT
BEGIN
  PROMPT 10 7 "Addebita capi rotti in fattura"
  FIELD ADDCAPROT
END

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

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

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

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

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

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

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

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

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

BOOLEAN F_TIPOSTPRZ 
BEGIN
   PROMPT 10 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 3
BEGIN
	PROMPT 1 0 "@bArticolo"
END

STRING S_CODART 20
BEGIN
  PROMPT 2 1 ""
  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 1 ""
  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_TIPOFORF 1 25
BEGIN
   PROMPT 1 3 "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 46 3 "In base a "
   ITEM "N|Nessuno"
   ITEM "I|Dot. iniziale" 
   ITEM "O|Dot. odierna"
   GROUP 1
END

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

STRING S_UM 2
BEGIN
   PROMPT 1 5 "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 43 5 "Conguaglio             "
   FIELD QTACONG
END

CURRENCY S_PREZZOST 15 
BEGIN
   PROMPT 1 6 "Prezzo in vigore       "
   FIELD PREZZO 
   GROUP 2  
END

CURRENCY S_PREZZORN 15 
BEGIN
   PROMPT 43 6 "Prezzo di rinnovo "
   FIELD PREZRIN
   GROUP 2
END

NUMBER S_SCONTO 6 2
BEGIN
   PROMPT 1 7 "Sconto %          "
   FIELD SCONTPERC
END

NUMBER S_DOTIN 9 
BEGIN
   PROMPT 1 8 "Dot. iniziale          "
   FIELD DOTIN
END

NUMBER S_DOTOD 9 
BEGIN
  PROMPT 43 8 "Dotaz. odierna "
  FLAGS "D"
END

NUMBER S_CONSMESE 9
BEGIN
   PROMPT 1 9 "Consegnato mese"
   FLAGS "D"
END

NUMBER S_CONSANNO 9
BEGIN
   PROMPT 43 9 "Consegn. anno"
   FLAGS "D"
END

NUMBER S_DOTTMP 9 
BEGIN
   PROMPT 1 10 "Dot. temporanea   "
   FIELD DOTTMP
END

CURRENCY S_PRZDTTMP 15 
BEGIN
   PROMPT 43 10 "Prezzo dot. temp. "
   FLAGS "U"
   FIELD PRZDTTMP
END

DATE S_INDTTMP
BEGIN
   PROMPT 1 11 "Inizio dot. temporanea "
   FIELD INDTTMP
END

DATE S_FIDTTMP
BEGIN
   PROMPT 43 11 "Fine dot. temp    "
   FIELD FIDTTMP
END

CURRENCY S_IMPFISART 15
BEGIN
   PROMPT 1 12 "Importo fisso          "
   FIELD IMPFISART
END

CURRENCY S_VALCONV 15 
BEGIN
   PROMPT 43 12 "Val. convenzionale"
   FLAGS "U"
   FIELD VALCONV
   GROUP 3
END

NUMBER S_FORFPERCL 6 2
BEGIN
   PROMPT 1 13 "% Forfait cliente      "
   FIELD FORFPERCL
   GROUP 3
END

NUMBER S_MINCIC 4 2
BEGIN
   PROMPT 43 13 "Minimo cilcaggio  "
   FIELD MINCIC
END

STRING S_CAUSMAG 4
BEGIN
   PROMPT 1 14 "Causale di default"
   USE CAU
   INPUT CODTAB S_CAUSMAG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT S_CAUSMAG CODTAB
   FIELD CAUSMAG
   CHECKTYPE NORMAL
END

CURRENCY S_PREZDAN 15
BEGIN
   PROMPT 43 14 "Prezzo danneggiati     "
   FLAGS "U"
   FIELD PREZDAN
END

LISTBOX S_ARTBLOC 1 28
BEGIN
   PROMPT 1 16 "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 55 16 "Tipo Noleggio "
   FIELD TIPONOL
   FLAGS "D"
END

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

BOOLEAN  S_FATTKG
BEGIN
   PROMPT 1 18 "Fatturazione a Kg."
   FIELD FATTKG
END

BOOLEAN  S_ARROT
BEGIN
   PROMPT 43 18 "Arrotondamento"
   FIELD ARROT
END

BOOLEAN S_RITAUDTTMP
BEGIN
   PROMPT 1 19 "Ritiro automatico dotazione temporanea"
   FIELD RITAUDTTMP
END

ENDPAGE

PAGE "" -1 -1 80 20

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

STRING S_GRMERC 3
BEGIN
  PROMPT 55 5 "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

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

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

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

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

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

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

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

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

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

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

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

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

ENDPAGE

ENDMASK