campo-sirio/lv/lv0400b.uml

#include "lv0400.h"

TOOLBAR "" 0 0 0 2
#include "Relapbar.h"
ENDPAGE

PAGE "Contratto" 0 2 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 1 "@bContratti"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "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_CLI RAGSOC
  CHECKTYPE REQUIRED  
END

STRING F_RAGSOC_CLI 50
BEGIN
  PROMPT 20 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 3 "Contratto N."
  USE LF_LVCONDV
  FLAGS "U"
  FIELD CODCONT
  KEY 1
  
  CHECKTYPE REQUIRED
END

STRING F_DES_CODCONT 50
BEGIN
  PROMPT 20 3 ""
END

SPREADSHEET F_SHEET_ATTIV
BEGIN
  PROMPT 0 5 "Righe contratto"
  ITEM "Articolo "
  ITEM "Descrizione @50"
  ITEM "UM"
  ITEM "Cong."
  ITEM "Prezzo in vigore"
  ITEM "Prezzo di Rinnovo"
  ITEM "Sconto %"
  ITEM "Dot.Iniziale"
  ITEM "Dot.Odierna"
  ITEM "Consegnato Mese*"
  ITEM "Consegnato anno"
  ITEM "Fatturato anno"
  ITEM "Dot.Temporanea"
END

ENDPAGE

PAGE "Opzioni" 0 2 0 0

RADIOBUTTON F_PERFATT 1 40
BEGIN
     PROMPT 2 2 "Periodicit<69> di fatturazione"
     ITEM "0|Giornaliero" 
     ITEM "1|Settimanale" 
     ITEM "2|Quindicinale" 
     ITEM "3|Mensile" 
     FIELD TIPOCAN
END

RADIOBUTTON F_TIPOCAN 1 40
BEGIN
     PROMPT 45 2 "Tipo canone"
     ITEM "0|Nessuno" 
     ITEM "1|Importo fisso" 
     ITEM "2|Raggruppa su unico art." 
     ITEM "3|Calcolato con elenco art." 
     ITEM "4|% sul valore convenzionale per cliente" 
     ITEM "5|% sul valore convenzionale per articolo" 
     FIELD TIPOCAN
END

DATE F_INPERFATT
BEGIN
  PROMPT 85 2 "Data di inizio primo periodo di fatturazione"
  FIELD INPERFATT
END

DATE F_DTLASTFATT
BEGIN
  PROMPT 85 3 "Data ultima fattura"
  FIELD DTLASTFATT
END

BOOLEAN  F_ATTFATTNODT
BEGIN
   PROMPT 85 4 "Attiva fatturazione indipendentemente dalla data"
   FIELD ATTFATTNODT
END

BOOLEAN  F_FORFNOCONS
BEGIN
   PROMPT 85 5 "Non fatturare forfait se senza consegne"
   FIELD FORFNOCONS
END

RADIOBUTTON F_TIPOSTPRZ 1 40
BEGIN
     PROMPT 2 4 "Tipo 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

RADIOBUTTON F_TIPOIMB 1 40
BEGIN
     PROMPT 2 4 "Tipo imballo:"
     ITEM "0|Sacco" 
     ITEM "1|Carrello" 
     FIELD TIPOIMB
END

RADIOBUTTON F_TIPOLIS 1 40
BEGIN
     PROMPT 2 4 "Tipo Listino:"
     ITEM "0|Prezzo nel contratto" 
     ITEM "1|Listino in anag.Articoli" 
     FIELD TIPOLIS
END

RADIOBUTTON F_CONTSPOR 1 40
BEGIN
     PROMPT 2 4 "Conta dello sporco"
     ITEM "0|Nessuno" 
     ITEM "1|Conteggio sporco" 
     ITEM "2|Conteggio solo pulito" 
     ITEM "2|Sporco e pulito con Touch-Screen" 
     FIELD CONTSPOR
END

BOOLEAN  F_RIFBOLLEFATT
BEGIN
   PROMPT 2 9 "Riferimenti bolle in fattura"
   FIELD FORFNOCONS
END

BOOLEAN  F_ADDCAPROT
BEGIN
   PROMPT 2 9 "Addebita capi rotti in fattura"
   FIELD ADDCAPROT
END

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

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

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

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

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

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

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

BOOLEAN  F_STETITS
BEGIN
   PROMPT 2 9 "Stampa etichette con Touch-Screen"
   FIELD STETITS
END

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

CURRENCY F_IMPMINFATT 18 3
BEGIN
  PROMPT 2 6 "Importo minimo fatturabile "
  FIELD IMPMINFATT
END

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

NUMBER F_PERCTOLLPES 6 2
BEGIN
  PROMPT 2 6 "Percentuale tolleranza peso teorico/effettivo"
  FIELD PERCTOLLPES
END

NUMBER F_NUMUT 5
BEGIN
  PROMPT 2 6 "Numero utente"
  FIELD NUMUT
END

NUMBER F_NUMETI 5
BEGIN
  PROMPT 2 6 "Numero etichette"
  FIELD NUMETI
END

ENDPAGE

ENDMASK

PAGE "" -1 -1 60 10

STRING S_ARTICOLO 20
BEGIN
	PROMPT 1 1 "Codice articolo"
	FLAGS "U"
      USE LF_ANAMAG
      INPUT CODART S_ARTICOLO
      DISPLAY "Articolo" CODART
      DISPLAY "Descrizione@50" DESCR
      OUTPUT S_ARTICOLO CODART
      OUTPUT S_DESCR DESCR
      OUTPUT S_PREZZOST COSTSTD
      CHECKTYPE REQUIRED  
END

STRING S_DESCR 50
BEGIN
	PROMPT 2 4 "Descrizione   "
      USE LF_ANAMAG KEY 2
	INPUT DESCR S_DESCR
      DISPLAY "Descrizone@50" DESCR
      DISPLAY "Articolo" CODART
      COPY OUTPUT S_ARTICOLO
      CHECKTYPE REQUIRED  
END

STRING S_UM 2
BEGIN
  PROMPT 2 6 "Unit<69> di misura "
  USE LF_UMART 2
  JOIN UMS INTO CODTAB=UM
  INPUT CODART S_ARTICOLO SELECT
  INPUT UM S_UM
  DISPLAY "U.M." UM
  DISPLAY "Descrione@50" LF_TAB->S0  
  OUTPUT S_UM UM
  CHECKTYPE REQUIRED
END

CURRENCY S_PREZZOST 18 3
BEGIN
  PROMPT 2 6 "Prezzo in vigore "
  FLAGS "D"
END

CURRENCY S_PREZZORN 18 3
BEGIN
  PROMPT 2 6 "Prezzo di rinnovo "
  FIELD PREZRIN
END

NUMBER S_SCONTO 6 2
BEGIN
  PROMPT 2 6 "Sconto %"
  FIELD SCONTPERC
END
 
NUMBER S_DOTIN 6 
BEGIN
  PROMPT 2 6 "Dotazione iniziale"
  FIELD DOTIN
END

NUMBER S_DOTIN 6 
BEGIN
  PROMPT 2 6 "Dotazione odierna"
  FIELD DOTOD
END

NUMBER S_CONSMESE 15 5
BEGIN
  PROMPT 2 6 "Quantit<69> consegnata al mese da fatturare nel prossimo periodo di fatturazione"
  FIELD CONSMESE
END

NUMBER S_CONSANNO 15 5
BEGIN
  PROMPT 2 6 "Quantit<69> consegnata all'anno "
  FIELD CONSANNO
END

NUMBER S_DOTTMP 6 
BEGIN
  PROMPT 2 6 "Dotazione temporanea"
  FIELD DOTTMP
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK