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 
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  
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 8
BEGIN
  PROMPT 0 5 "Righe contratto"
  ITEM "Articolo@20"
  ITEM "Descrizione@50"
  ITEM "UM"
  ITEM "Cong."
  ITEM "Prezzo in vigore"
  ITEM "Prezzo di Rinnovo"
  ITEM "Importo fisso"
  ITEM "Sconto %"
  ITEM "Dot.Iniziale"
  ITEM "Dot.Temporanea"
  ITEM "Prezzo Dot.Temp."
  ITEM "Inizio Dot.Temp."
  ITEM "Fine Dot.Temp."
  ITEM "Prezzo Danneggiati"
  ITEM "Val. convenzionale"
  ITEM "Articolo bloccato"
  ITEM "Calcolo consegnato"
  ITEM "Tipo Forfait"
  ITEM "%Forfait Cliente"
  ITEM "Causale default"
  ITEM "Tipo Noleggio"
  ITEM "Ritiro aut.Dot.Temp."
  ITEM "Fatturazione a kg"
  ITEM "Arrotondamento"
END

GROUPBOX DLG_NULL 78 8
BEGIN
	PROMPT 1 14 "@bDettaglio"
END

NUMBER F_DOTOD 9 
BEGIN
  PROMPT 2 15 "Dotaz. odierna "
  FLAGS "D"
END

STRING F_COLORE 20 10
BEGIN
  PROMPT 30 15 "Colore       "
  FLAGS "D"
END 

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

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

NUMBER F_PPCOLLO 9
BEGIN 
  PROMPT 30 16 "Per Sacco    "
  FLAGS "D"
END 

NUMBER F_PPPALLET 9
BEGIN 
  PROMPT 55 16 "Per Carrello "
  FLAGS "D"
END 

STRING F_MANGDEST 3
BEGIN
  PROMPT 2 17 "Mangano Dest.  "
  FLAGS "D"
END 

STRING F_ARTLAVCONT 4
BEGIN
  PROMPT 30 17 "Art.Lav.cont."
  FLAGS "D"
END 

STRING F_LAVATRICE 4
BEGIN
  PROMPT 55 17 "Lavatrice    "
  FLAGS "D"
END 

STRING F_CODLAV1 3
BEGIN
  PROMPT 2 18 "Cod. Lavag. 1  "
  FLAGS "D"
END 

STRING F_CODLAV2 3
BEGIN
  PROMPT 30 18 "Cod. Lavag. 2"
  FLAGS "D"
END

STRING F_TIPOPARTE 1
BEGIN
  PROMPT 55 18 "Tipo Parte   "
  FLAGS "D"
END 

STRING F_LINDEST1 3
BEGIN
  PROMPT 2 19 "Linea dest. 1  "
  FLAGS "D"
END 

STRING F_LINDEST2 3
BEGIN
  PROMPT 30 19 "Linea dest. 2"
  FLAGS "D"
END 

STRING F_LIVELLO 1
BEGIN
  PROMPT 55 19 "Livello      "
  FLAGS "D"
END 

NUMBER F_CONSMESE 9
BEGIN
   PROMPT 2 20 "Consegnato mese"
   FLAGS "D"
END

NUMBER F_CONSANNO 9
BEGIN
   PROMPT 30 20 "Consegn. anno"
   FLAGS "D"
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 30 6
BEGIN
	PROMPT 1 1 "@bPeriodicit<69> di fatturazione"
END

RADIOBUTTON F_PERFAT 1 30
BEGIN
     PROMPT 1 1 "@bPeriodicit<69> di fatturazione"
     ITEM "0|Giornaliero" 
     ITEM "1|Settimanale" 
     ITEM "2|Quindicinale" 
     ITEM "3|Mensile" 
     FIELD PERFAT
 END
 
 GROUPBOX DLG_NULL 50 6
BEGIN
	PROMPT 31 1 ""
END
 
  DATE F_INPERFAT
BEGIN
   PROMPT 32 2 "Inizio primo periodo di fatturazione"
   FIELD INPERFAT
END

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

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

BOOLEAN  F_FATTSOSP
BEGIN
   PROMPT 32 5 "Escluso da fatturazione"
   FIELD FATTSOSP
END

GROUPBOX DLG_NULL 38 9
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_TIPOSTPRZ 1 40
BEGIN
   PROMPT 40 11 "@bTipo di stampa prezzo"
   ITEM "0|Prezzo in DDT/Bolla" 
   ITEM "1|Richiesta stampa in sede bollettaz." 
   ITEM "2|Prezzo e totale DOC. in DDT" 
   FIELD TIPOSTPRZ
END

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

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

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

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

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

LISTBOX F_DOCCP 23
BEGIN
  PROMPT 1 19 "Documenti di consegna/ritiro "
  ITEM  "0|"
  ITEM  "1|Documento di trasporto"
  ITEM  "2|Buono di Ritiro"
  ITEM  "3|Buono di Prelievo"
  ITEM  "4|Buono di Anticipo"
  FIELD DOCCP 
END

RADIOBUTTON F_CONTSPOR 1 80
BEGIN
   PROMPT 1 20 "@bConta dello sporco"
   ITEM "0|Nessuno" 
   ITEM "1|Sporco" 
   ITEM "2|Solo pulito" 
   ITEM "3|Touch-Screen" 
   FIELD CONTSPOR
   FLAG "Z"
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

GROUPBOX DLG_NULL 58 16
BEGIN
	PROMPT 9 2 ""
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

ENDPAGE

ENDMASK

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" 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" CODART
  COPY OUTPUT S_CODART
  CHECKTYPE REQUIRED  
END

CURRENCY S_PREZZOST 15 
BEGIN
   PROMPT 1 3 "Prezzo in vigore       "
   FIELD PREZZO   
END

CURRENCY S_PREZZORN 15 
BEGIN
   PROMPT 43 3 "Prezzo di rinnovo "
   FIELD PREZRIN
END

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

NUMBER S_SCONTO 6 2
BEGIN
   PROMPT 43 4 "Sconto %          "
   FIELD SCONTPERC
END

NUMBER S_CONG 9 
BEGIN
   PROMPT 1 5 "Conguaglio             "
   FIELD QTACONG
END

CURRENCY S_VALCONV 15 
BEGIN
   PROMPT 43 5 "Val. convenzionale"
   FLAGS "U"
   FIELD VALCONV
END

STRING S_UM 2
BEGIN
   PROMPT 1 6 "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

STRING S_CAUSMAG 4
BEGIN
   PROMPT 43 6 "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 1 7 "Prezzo danneggiati     "
   FLAGS "U"
   FIELD PREZDAN
END

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

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

NUMBER S_DOTTMP 9 
BEGIN
   PROMPT 43 8 "Dot. temporanea   "
   FIELD DOTTMP
END

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

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

NUMBER S_FORFPERCL 6 2
BEGIN
   PROMPT 1 10 "% Forfait cliente      "
   FIELD FORFPERCL
END

LISTBOX S_TIPOFORF 1 34
BEGIN
   PROMPT 1 11 "Tipo Forfait           "
   ITEM  "0|Nessuno"
   ITEM  "1|A valore fisso"
   ITEM  "2|Nolo in base a dot. iniziale"
   ITEM  "3|Nolo in base a dot. odierna"
   ITEM  "4|Ciclaggio in base a dot. odierna"
   ITEM  "5|Ciclaggio in base a dot. iniziale"
   ITEM  "6|% sul val. convenz. per articolo"
   ITEM  "7|% sul val. convenz. per cliente"
   ITEM  "8|Fisso in base alla dot. iniziale"
   FIELD TIPOFORF
END

LISTBOX S_ARTBLOC 1 34
BEGIN
   PROMPT 1 12 "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_CALCCONS 1 34
BEGIN
   PROMPT 1 13 "Calcolo del consegnato "
   ITEM  "0|Conguaglio alla confezione"
   ITEM  "1|Uguale al ritirato"
   FIELD CALCCONS
END

LISTBOX S_TIPONOL 1 34
BEGIN
   PROMPT 1 14 "Tipo Noleggio          "
   FIELD TIPONOL
   FLAGS "D"
END

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

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

BOOLEAN  S_ARROT
BEGIN
   PROMPT 1 17 "Arrotondamento"
   FIELD ARROT
END

ENDPAGE

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

ENDMASK