campo-sirio/lv/lv0400b.uml

367 lines
6.1 KiB
Plaintext
Raw Normal View History

#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@20"
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 "Fatturato anno"
ITEM "Dot.Temporanea"
END
ENDPAGE
PAGE "Opzioni" 0 2 0 0
RADIOBUTTON F_PERFATT 1 30
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 32 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 2 3 "Data di inizio primo periodo di fatturazione"
FIELD INPERFATT
END
DATE F_DTLASTFATT
BEGIN
PROMPT 2 4 "Data ultima fattura"
FIELD DTLASTFATT
END
BOOLEAN F_ATTFATTNODT
BEGIN
PROMPT 12 2 "Attiva fatturazione indipendentemente dalla data"
FIELD ATTFATTNODT
END
BOOLEAN F_FORFNOCONS
BEGIN
PROMPT 12 3 "Non fatturare forfait se senza consegne"
FIELD FORFNOCONS
END
RADIOBUTTON F_TIPOSTPRZ 1 40
BEGIN
PROMPT 2 5 "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_TIPOLIS 1 25
BEGIN
PROMPT 45 5 "Tipo Listino:"
ITEM "0|Prezzo nel contratto"
ITEM "1|Listino in anag.Articoli"
FIELD TIPOLIS
END
RADIOBUTTON F_TIPOIMB 1 15
BEGIN
PROMPT 2 6 "Tipo imballo:"
ITEM "0|Sacco"
ITEM "1|Carrello"
FIELD TIPOIMB
END
RADIOBUTTON F_CONTSPOR 1 40
BEGIN
PROMPT 20 6 "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 7 "Riferimenti bolle in fattura"
FIELD FORFNOCONS
END
BOOLEAN F_ADDCAPROT
BEGIN
PROMPT 2 8 "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 45 7 "Stampa di riepilogo consegne"
FIELD STRCONS
END
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 45 8 "Escluso da fatturazione"
FIELD FATTSOSP
END
BOOLEAN F_STDICITURA
BEGIN
PROMPT 45 9 "Stampa dicitura '...COME DA ELENCO CONSEGNE'"
FIELD STDICITURA
END
BOOLEAN F_CICLAGGIO
BEGIN
PROMPT 2 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
END
BOOLEAN F_STPRZBOL
BEGIN
PROMPT 45 10 "Visualizza prezzo in bolla"
FIELD STPRZBOL
END
BOOLEAN F_STETIMATI
BEGIN
PROMPT 2 10 "Stampa etichette con MATI"
FIELD STETIMATI
END
BOOLEAN F_STETITS
BEGIN
PROMPT 45 10 "Stampa etichette con Touch-Screen"
FIELD STETITS
END
BOOLEAN F_STDDTPTS
BEGIN
PROMPT 2 11 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS
END
CURRENCY F_IMPMINFATT 18
BEGIN
PROMPT 2 12 "Importo minimo fatturabile "
FIELD IMPMINFATT
END
NUMBER F_PERCNOCONT 6 2
BEGIN
PROMPT 25 12 "Percentuale aumento per mancato conteggio"
FIELD PERCNOCONT
END
NUMBER F_PERCTOLLPES 6 2
BEGIN
PROMPT 25 13 "Percentuale tolleranza peso teorico/effettivo"
FIELD PERCTOLLPES
END
NUMBER F_NUMUT 5
BEGIN
PROMPT 35 12 "Numero utente"
FIELD NUMUT
END
NUMBER F_NUMETI 5
BEGIN
PROMPT 35 13 "Numero etichette"
FIELD NUMETI
END
ENDPAGE
ENDMASK
PAGE "" -1 -1 60 10
STRING S_ARTICOLO 20
BEGIN
PROMPT 2 2 "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 25 2 "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 3 "Unit<69> di misura "
USE LF_UMART KEY 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
NUMBER S_CONG 15 5
BEGIN
PROMPT 5 3 "Conguaglio"
FIELD QTACONG
END
CURRENCY S_PREZZOST 18
BEGIN
PROMPT 22 3 "Prezzo in vigore "
FLAGS "D"
END
CURRENCY S_PREZZORN 18
BEGIN
PROMPT 22 4 "Prezzo di rinnovo "
FIELD PREZRIN
END
NUMBER S_SCONTO 6 2
BEGIN
PROMPT 42 3 "Sconto %"
FIELD SCONTPERC
END
NUMBER S_DOTIN 6
BEGIN
PROMPT 2 4 "Dotazione iniziale"
FIELD DOTIN
END
NUMBER S_DOTOD 6
BEGIN
PROMPT 10 4 "Dotazione odierna"
FIELD DOTOD
END
NUMBER S_CONSMESE 15 5
BEGIN
PROMPT 60 3 "Quantit<69> consegnata al mese da fatturare nel prossimo periodo di fatturazione"
FIELD CONSMESE
END
NUMBER S_FATTANNO 15 5
BEGIN
PROMPT 60 4 "Quantit<69> consegnata all'anno "
FIELD FATTANNO
END
NUMBER S_DOTTMP 6
BEGIN
PROMPT 50 4 "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