1060 lines
18 KiB
Plaintext
Executable File
1060 lines
18 KiB
Plaintext
Executable File
#include "lv0400.h"
|
||
|
||
TOOLBAR "" 0 0 0 2
|
||
#include <filebar.h>
|
||
|
||
BUTTON DLG_NULL 2 2
|
||
BEGIN
|
||
PROMPT -1 1 ""
|
||
PICTURE 0
|
||
END
|
||
|
||
BUTTON DLG_PLANNING 8 2
|
||
BEGIN
|
||
PROMPT 66 2 "~Giri"
|
||
PICTURE 156
|
||
END
|
||
|
||
BUTTON DLG_NULL 2 2
|
||
BEGIN
|
||
PROMPT -1 1 ""
|
||
PICTURE 0
|
||
END
|
||
|
||
BUTTON DLG_RESET 2 2
|
||
BEGIN
|
||
PROMPT 1 1 "Cong."
|
||
PICTURE TOOL_RESET
|
||
END
|
||
|
||
#include <cancelbar.h>
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Articoli" 0 2 0 0
|
||
|
||
// GROUPBOX DLG_NULL 80 3
|
||
// BEGIN
|
||
// PROMPT 1 0 "@b Dati Dettaglio"
|
||
// END
|
||
|
||
NUMBER F_CODCF 6
|
||
BEGIN
|
||
PROMPT 1 0 "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
|
||
DISPLAY "Partita IVA@11" PAIV
|
||
OUTPUT F_CODCF CODCF
|
||
OUTPUT F_RAGSOC RAGSOC
|
||
OUTPUT F_RICALT RICALT
|
||
CHECKTYPE REQUIRED
|
||
ADD RUN cg0 -1
|
||
END
|
||
|
||
STRING F_RICALT 30 15
|
||
BEGIN
|
||
PROMPT 20 0 "Ricerca Alt."
|
||
USE LF_CLIFO KEY 6
|
||
INPUT TIPOCF "C"
|
||
INPUT RICALT F_RICALT
|
||
DISPLAY "Ricerca alternativa@30" RICALT
|
||
DISPLAY "Sospeso" SOSPESO
|
||
DISPLAY "Ragione sociale@50" RAGSOC
|
||
COPY OUTPUT F_CODCF
|
||
HELP "Chiave di ricerca alternativa"
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_CODCONT 6
|
||
BEGIN
|
||
PROMPT 53 0 "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@10" DATAIN
|
||
DISPLAY "alla data@10" 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
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
NUMBER F_INDSPED 3
|
||
BEGIN
|
||
PROMPT 65 0 "Ind. 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
|
||
FIELD CODINDSP
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING F_RAGSOC 50 41
|
||
BEGIN
|
||
PROMPT 1 1 "Ragione sociale "
|
||
KEY 1
|
||
USE LF_CLIFO KEY 2
|
||
INPUT TIPOCF "C"
|
||
INPUT RAGSOC F_RAGSOC
|
||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||
DISPLAY "Partita IVA@11" PAIV
|
||
DISPLAY "Codice" CODCF
|
||
COPY OUTPUT F_CODCF
|
||
CHECKTYPE REQUIRED
|
||
ADD RUN cg0 -1
|
||
END
|
||
|
||
SPREADSHEET F_RIGHE -1 -10
|
||
BEGIN
|
||
PROMPT 0 2 "Righe contratto"
|
||
ITEM "Articolo@8F"
|
||
ITEM "Descrizione@25"
|
||
ITEM "Cong.@3"
|
||
ITEM "Prezzo@7"
|
||
ITEM "Dot.\nIniz.@5"
|
||
ITEM "Dot.\nOd.@5"
|
||
ITEM "Cons.\nmese@5"
|
||
ITEM "Cons.\nanno@5"
|
||
ITEM "Tipo\nForfait@25"
|
||
ITEM "Prezzo\nRinnovo@8"
|
||
ITEM "Sconto %@5"
|
||
ITEM "Dot.\nTemp.@5"
|
||
ITEM "Prezzo\nDot.Temp."
|
||
ITEM "Inizio\nDot.Temp."
|
||
ITEM "Fine\nDot.Temp."
|
||
ITEM "Importo\nfisso"
|
||
ITEM "Prezzo\nDanneggiati@11"
|
||
ITEM "Prezzo\nNolo@11"
|
||
ITEM "Val.\nconvenzionale@13"
|
||
ITEM "Articolo\nbloccato@25"
|
||
ITEM "Calcolo\nconsegnato@28"
|
||
ITEM "Tipo\nnolo/ciclaggio@9"
|
||
ITEM "Tipo\n% val.conv.@9"
|
||
ITEM "Minimo\nciclaggio@9"
|
||
ITEM "%Forfait\nCliente@7"
|
||
ITEM "Causale\ndefault@7"
|
||
ITEM "Ritiro\naut.Dot.Temp.@12"
|
||
ITEM "Fatturazione\na kg"
|
||
ITEM "UM@3"
|
||
ITEM "Pezzi per\nPacco"
|
||
ITEM "Precedenza"
|
||
ITEM "Separatore"
|
||
ITEM "Qta. max.\nXS"
|
||
ITEM "Qta. max.\nM"
|
||
ITEM "Qta. max.\nXL"
|
||
ITEM "Qta. norm.\nXS"
|
||
ITEM "Qta. norm.\nM"
|
||
ITEM "Qta. norm.\nXL"
|
||
ITEM "Data\nIns."
|
||
ITEM "Conta\npul."
|
||
END
|
||
|
||
STRING F_CODART 20
|
||
BEGIN
|
||
PROMPT 1 -9 "Articolo "
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_DESART 40
|
||
BEGIN
|
||
PROMPT 39 -9 ""
|
||
FLAGS "D"
|
||
END
|
||
|
||
LISTBOX F_ARTBLOC 1 25
|
||
BEGIN
|
||
PROMPT 1 -8 "Bloccato "
|
||
ITEM "0|"
|
||
ITEM "1|Articolo in sostituzione"
|
||
ITEM "2|Cliente in chiusura"
|
||
ITEM "3|Contratto in rinnovo"
|
||
END
|
||
|
||
LISTBOX F_CALCCONS 1 29
|
||
BEGIN
|
||
PROMPT 39 -8 "Consegnato"
|
||
ITEM "0|Uguale al ritirato"
|
||
ITEM "1|Conguaglio alla confezione"
|
||
END
|
||
|
||
LISTBOX F_TIPOFORF 1 25
|
||
BEGIN
|
||
PROMPT 1 -7 "Forfait "
|
||
ITEM "0|Nessuno"
|
||
MESSAGE HIDE,1@|SHOW,F_IMPFISART|DISABLE, F_IMPFISART|DISABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL
|
||
ITEM "1|A valore fisso"
|
||
MESSAGE HIDE,1@|SHOW,F_IMPFISART|ENABLE,F_IMPFISART|DISABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL
|
||
ITEM "2|Nolo"
|
||
MESSAGE SHOW,F_NOLCIC|DISABLE,F_IMPFISART|HIDE,F_IMPFISART|DISABLE,3@|HIDE,F_MINCIC|SHOW,F_PREZNOL
|
||
ITEM "3|Ciclaggio"
|
||
MESSAGE SHOW,F_NOLCIC|SHOW,F_IMPFISART|DISABLE,F_IMPFISART|DISABLE,3@|SHOW,F_MINCIC|HIDE,F_PREZNOL
|
||
ITEM "4|% sul val. convenz."
|
||
MESSAGE SHOW,F_NOLCIC|SHOW,F_IMPFISART|DISABLE,F_IMPFISART|ENABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL
|
||
ITEM "5|Fisso su dot. iniziale"
|
||
MESSAGE HIDE,1@|SHOW,F_IMPFISART|ENABLE,F_IMPFISART|DISABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL
|
||
END
|
||
|
||
LISTBOX F_NOLCIC 1 20
|
||
BEGIN
|
||
PROMPT 39 -7 "In base a "
|
||
ITEM "I|Dot. iniziale"
|
||
ITEM "O|Dot. odierna"
|
||
GROUP 1
|
||
END
|
||
|
||
LISTBOX F_VCARTCLI 1 15
|
||
BEGIN
|
||
PROMPT 60 -6 "Per"
|
||
ITEM "A|Articolo"
|
||
ITEM "C|Cliente"
|
||
GROUP 1
|
||
FLAGS "G"
|
||
END
|
||
|
||
CURRENCY F_IMPFISART 15
|
||
BEGIN
|
||
PROMPT 1 -6 "Imp.fisso"
|
||
CHECTYPE REQUIRED
|
||
END
|
||
|
||
CURRENCY F_PREZNOL 15
|
||
BEGIN
|
||
PROMPT 1 -6 "Prz. Nolo"
|
||
FLAGS "U"
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
CURRENCY F_VALCONV 15
|
||
BEGIN
|
||
PROMPT 29 -6 "Val.Conv. "
|
||
FLAGS "U"
|
||
END
|
||
|
||
NUMBER F_MINCIC 4 2
|
||
BEGIN
|
||
PROMPT 60 -6 "Min. ciclaggio "
|
||
END
|
||
|
||
CURRENCY F_PREZDAN 15
|
||
BEGIN
|
||
PROMPT 1 -5 "Dannegg. "
|
||
FLAGS "U"
|
||
END
|
||
|
||
STRING F_CAUSLAVRIG 3
|
||
BEGIN
|
||
PROMPT 29 -5 "Cau. Def. "
|
||
USE &CAU
|
||
INPUT CODTAB F_CAUSLAVRIG
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_CAUSLAVRIG CODTAB
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
NUMBER F_FORFPERCL 5 2
|
||
BEGIN
|
||
PROMPT 60 -5 "Perc. Cliente "
|
||
GROUP 3
|
||
END
|
||
|
||
NUMBER F_DOTTMP 9
|
||
BEGIN
|
||
PROMPT 1 -4 "Dot.temp."
|
||
END
|
||
|
||
CURRENCY F_PRZDTTMP 15
|
||
BEGIN
|
||
PROMPT 23 -4 "Prezzo "
|
||
FLAGS "U"
|
||
END
|
||
|
||
DATE F_INDTTEMP
|
||
BEGIN
|
||
PROMPT 47 -4 "Inizio"
|
||
END
|
||
|
||
DATE F_FIDTTEMP
|
||
BEGIN
|
||
PROMPT 65 -4 "Fine"
|
||
VALIDATE DATE_CMP_FUNC >= F_INDTTEMP
|
||
WARNING "La data di fine dotazione temporanea deve essere superiore a quella di inizio"
|
||
END
|
||
|
||
NUMBER F_PPCONF 15 4
|
||
BEGIN
|
||
PROMPT 1 -3 "Pz X pac."
|
||
FLAGS "DG"
|
||
END
|
||
|
||
STRING F_BARCODE 20
|
||
BEGIN
|
||
PROMPT 39 -3 "BarCode "
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_TIPOLOGIA 20
|
||
BEGIN
|
||
PROMPT 1 -2 "Tipologia"
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING F_COLORE 18
|
||
BEGIN
|
||
PROMPT 39 -2 "Colore "
|
||
FLAGS "D"
|
||
END
|
||
|
||
BOOLEAN F_RITAUDTTMPRIG
|
||
BEGIN
|
||
PROMPT 1 -1 "Ritiro automatico dot. temp."
|
||
END
|
||
|
||
BOOLEAN F_FATTKG
|
||
BEGIN
|
||
PROMPT 39 -1 "Fatturazione a Kg."
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Dati Testata" 0 2 0 0
|
||
|
||
GROUPBOX DLG_NULL 80 12
|
||
BEGIN
|
||
PROMPT 1 0 "@b Fatturazione"
|
||
END
|
||
|
||
DATE F_INPERFAT
|
||
BEGIN
|
||
PROMPT 2 1 "Inizio 1<> periodo di fatturazione "
|
||
FIELD INPERFAT
|
||
END
|
||
|
||
DATE F_DTLASTFAT
|
||
BEGIN
|
||
PROMPT 49 1 "Data ultima fattura "
|
||
FIELD DTLASTFAT
|
||
END
|
||
|
||
CURRENCY F_IMPMINFAT 10
|
||
BEGIN
|
||
PROMPT 2 2 "Importo minimo fatturabile "
|
||
FIELD IMPMINFAT
|
||
END
|
||
|
||
CURRENCY F_IMPFIX 10
|
||
BEGIN
|
||
PROMPT 49 2 "Importo fisso "
|
||
FIELD IMPFIX
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
BOOLEAN F_FORFNOCONS
|
||
BEGIN
|
||
PROMPT 2 3 "Non fatturare forfait se senza consegne "
|
||
FIELD FORFNOCONS
|
||
END
|
||
|
||
BOOLEAN F_FATTSOSP
|
||
BEGIN
|
||
PROMPT 49 3 "Escluso "
|
||
FIELD FATTSOSP
|
||
END
|
||
|
||
BOOLEAN F_ELCONS
|
||
BEGIN
|
||
PROMPT 2 4 "Stampa '..COME DA ELENCO CONSEGNE'"
|
||
MESSAGE FALSE ENABLE,F_RIFBOL
|
||
MESSAGE TRUE CLEAR,F_RIFBOL
|
||
FIELD ELCONS
|
||
END
|
||
|
||
BOOLEAN F_RIFBOL
|
||
BEGIN
|
||
PROMPT 49 4 "Riferimenti bolle "
|
||
MESSAGE FALSE ENABLE,F_ELCONS
|
||
MESSAGE TRUE CLEAR,F_ELCONS
|
||
FIELD RIFBOL
|
||
END
|
||
|
||
BOOLEAN F_RIPCONS
|
||
BEGIN
|
||
PROMPT 2 5 "Stampa di riepilogo consegne "
|
||
FIELD RIPCONS
|
||
END
|
||
|
||
BOOLEAN F_ADDCAPROT
|
||
BEGIN
|
||
PROMPT 49 5 "Addebita capi rotti "
|
||
FIELD ADDCAPROT
|
||
END
|
||
|
||
BOOLEAN F_ATTFATNODT
|
||
BEGIN
|
||
PROMPT 2 6 "Attiva indipendentemente dalla data "
|
||
FIELD ATTFATNODT
|
||
END
|
||
|
||
BOOLEAN F_CICLAGGIO
|
||
BEGIN
|
||
PROMPT 49 6 "Ciclaggio su 2 righe "
|
||
FIELD CICLAGGIO
|
||
END
|
||
|
||
LISTBOX F_TIPOCAN 1 29
|
||
BEGIN
|
||
PROMPT 2 7 "Tipo canone "
|
||
ITEM "0|Nessuno"
|
||
MESSAGE ENABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|HIDE,F_NOLCICTE
|
||
ITEM "1|Importo fisso"
|
||
MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|SHOW,F_CANFIX|HIDE,F_NOLCICTE
|
||
ITEM "2|% sul val. conv. per cli."
|
||
MESSAGE DISABLE,F_RAGART|DISABLE,F_IMPFIX|HIDE,F_CANFIX|SHOW,F_NOLCICTE
|
||
ITEM "3|Importo minimo"
|
||
MESSAGE DISABLE,F_RAGART|ENABLE,F_IMPFIX|SHOW,F_CANFIX|HIDE,F_NOLCICTE
|
||
FIELD TIPOCAN
|
||
END
|
||
|
||
LISTBOX F_NOLCICTE 1 20
|
||
BEGIN
|
||
PROMPT 48 7 "In base a "
|
||
ITEM "I|Dot. iniziale"
|
||
ITEM "O|Dot. odierna"
|
||
FIELD NOLCICTE
|
||
GROUP 1
|
||
END
|
||
|
||
LISTBOX F_CANFIX 1 22
|
||
BEGIN
|
||
PROMPT 49 7 "Con "
|
||
ITEM "0|Nessun elenco"
|
||
ITEM "1|Elenco art. con qt<71>."
|
||
ITEM "2|Elenco art. senza qt<71>."
|
||
FIELD CANFIX
|
||
END
|
||
|
||
BOOLEAN F_RAGART
|
||
BEGIN
|
||
PROMPT 2 8 "Raggruppa su unico articolo "
|
||
FIELD RAGART
|
||
END
|
||
|
||
LISTBOX F_PERFAT 1 12
|
||
BEGIN
|
||
PROMPT 2 9 "Periodicit<69> "
|
||
ITEM "3|Mensile"
|
||
ITEM "0|Giornaliero"
|
||
ITEM "1|Settimanale"
|
||
ITEM "2|Quindicinale"
|
||
FIELD PERFAT
|
||
FLAGS "Z"
|
||
END
|
||
|
||
LISTBOX F_TIPOLIS 1 20
|
||
BEGIN
|
||
PROMPT 49 9 "Tp. Lis."
|
||
ITEM "0|Prezzo nel contratto"
|
||
ITEM "1|Prezzo su articoli"
|
||
FIELD TIPOLIS
|
||
END
|
||
|
||
STRING F_REDDI 5
|
||
BEGIN
|
||
PROMPT 2 10 "Redditivit<69> "
|
||
FIELD REDDI
|
||
END
|
||
|
||
BOOLEAN F_RAGGCGRUP
|
||
BEGIN
|
||
PROMPT 49 10 "Raggruppa sul capogruppo"
|
||
FIELD RAGGCGRUP
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 79 11
|
||
BEGIN
|
||
PROMPT 1 12 ""
|
||
END
|
||
|
||
LISTBOX F_PROPOSTA 9
|
||
BEGIN
|
||
PROMPT 2 13 "Tipo "
|
||
FIELD PROPOSTA
|
||
ITEM "|Contratto" MESSAGE REQUIRED,F_DATAIN
|
||
ITEM "X|Proposta" MESSAGE NORMAL,F_DATAIN
|
||
END
|
||
|
||
DATE F_DATAIN
|
||
BEGIN
|
||
PROMPT 30 13 "Inizio "
|
||
FIELD DATAIN
|
||
FLAGS "A"
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
DATE F_DATASC
|
||
BEGIN
|
||
PROMPT 59 13 "Scadenza "
|
||
FIELD DATASC
|
||
VALIDATE DATE_CMP_FUNC >= F_DATAIN
|
||
WARNING "Inserire una data finale maggiore della data di inizio"
|
||
END
|
||
|
||
STRING F_CODNUM 4
|
||
BEGIN
|
||
PROMPT 2 14 "Buono di Consegna "
|
||
USE %NUM
|
||
INPUT CODTAB F_CODNUM
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_CODNUM CODTAB
|
||
FIELD CODNUM
|
||
FLAG "UPA"
|
||
END
|
||
|
||
STRING F_TPDOC 4
|
||
BEGIN
|
||
PROMPT 28 14 ""
|
||
USE %TIP
|
||
INPUT CODTAB F_TPDOC
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT F_TPDOC CODTAB
|
||
OUTPUT F_DESCR S0
|
||
FIELD TPDOC
|
||
FLAG "UP"
|
||
END
|
||
|
||
STRING F_DESCR 50 40
|
||
BEGIN
|
||
PROMPT 37 14 ""
|
||
USE %TIP
|
||
INPUT CODTAB F_TPDOC
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
COPY OUTPUT F_TPDOC
|
||
END
|
||
|
||
LISTBOX F_TIPOIMB 1 8
|
||
BEGIN
|
||
PROMPT 2 15 "Tipo imballo "
|
||
ITEM "0|Sacco"
|
||
ITEM "1|Carrello"
|
||
ITEM "2|Misto"
|
||
FIELD TIPOIMB
|
||
END
|
||
|
||
LISTBOX F_CONTSPOR 1 12
|
||
BEGIN
|
||
PROMPT 45 15 "Conta 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 2 16 "Percentuale aumento per mancato conteggio "
|
||
FIELD PERCNOCONT
|
||
END
|
||
|
||
NUMBER F_PERCTOLPES 6 2
|
||
BEGIN
|
||
PROMPT 2 17 "Percentuale tolleranza peso teorico/effett."
|
||
FIELD PERCTOLPES
|
||
END
|
||
|
||
BOOLEAN F_SSCONS
|
||
BEGIN
|
||
PROMPT 2 18 "Spese di spedizione alla consegna"
|
||
FIELD SSCONS
|
||
END
|
||
|
||
BOOLEAN F_PROFORME
|
||
BEGIN
|
||
PROMPT 45 18 "Proforme(progetti)"
|
||
FIELD PROFORME
|
||
END
|
||
|
||
BOOLEAN F_STETIMATI
|
||
BEGIN
|
||
PROMPT 2 19 "Stampa etichette con MATI"
|
||
FIELD STETIMATI
|
||
END
|
||
|
||
|
||
BOOLEAN F_STPRZBOL
|
||
BEGIN
|
||
PROMPT 45 19 "Visualizza prezzo in bolla"
|
||
FIELD STPRZBOL
|
||
END
|
||
|
||
BOOLEAN F_STDDTPTS
|
||
BEGIN
|
||
PROMPT 2 20 "Stampa DDT da pulito con Touch-Screen"
|
||
FIELD STDDTPTS
|
||
END
|
||
|
||
BOOLEAN F_STETITS
|
||
BEGIN
|
||
PROMPT 45 20 "Stampa etic. con Touch-Screen"
|
||
FIELD STETITS
|
||
END
|
||
|
||
BOOLEAN F_RITAUDTTMP
|
||
BEGIN
|
||
PROMPT 2 21 "Ritiro automatico dotazione temporanea"
|
||
FIELD RITAUDTTMP
|
||
END
|
||
|
||
BOOLEAN F_TIPOSTPRZ
|
||
BEGIN
|
||
PROMPT 45 21 "Stampa prezzo in bolla"
|
||
FIELD TIPOSTPRZ
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Dati Testata - Commenti" 0 2 0 0
|
||
|
||
MEMO F_COMMENTI 50 16
|
||
BEGIN
|
||
PROMPT 2 1 "Commenti"
|
||
FIELD COMMENTI
|
||
END
|
||
|
||
LISTBOX F_GIOCHI 1 9
|
||
BEGIN
|
||
PROMPT 2 18 "Giorno di chiusura "
|
||
ITEM "0|Nessuno"
|
||
ITEM "1|Luned<65>"
|
||
ITEM "2|Marted<65>"
|
||
ITEM "3|Mercoled<65>"
|
||
ITEM "4|Gioved<65>"
|
||
ITEM "5|Venerd<72>"
|
||
ITEM "6|Sabato"
|
||
ITEM "7|Domenica"
|
||
FIELD GIOCHI
|
||
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 "Riga Contratto" -1 -1 80 20
|
||
|
||
// GROUPBOX DLG_NULL 78 3
|
||
// BEGIN
|
||
// PROMPT 1 0 "@b Contratto"
|
||
// END
|
||
|
||
NUMBER S_CODCF 6
|
||
BEGIN
|
||
PROMPT 1 1 "Cliente "
|
||
FLAGS "DG"
|
||
NUM_CALC #-F_CODCF
|
||
END
|
||
|
||
STRING S_RAGSOC 50
|
||
BEGIN
|
||
PROMPT 16 1 ""
|
||
FLAGS "DG"
|
||
STR_CALC #-F_RAGSOC
|
||
END
|
||
|
||
NUMBER S_CODCONT 6
|
||
BEGIN
|
||
PROMPT 68 1 "Cont. "
|
||
FLAGS "DG"
|
||
NUM_CALC #-F_CODCONT
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 80 4
|
||
BEGIN
|
||
PROMPT 1 2 "@bArticolo"
|
||
END
|
||
|
||
STRING S_CODART 20
|
||
BEGIN
|
||
PROMPT 2 3 ""
|
||
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_VALCONV COSTSTD
|
||
OUTPUT S_PPCONF PPCONF
|
||
FIELD CODART
|
||
CHECKTYPE REQUIRED
|
||
ADD RUN ve2 -3
|
||
END
|
||
|
||
STRING S_DESCR 52
|
||
BEGIN
|
||
PROMPT 25 3 ""
|
||
USE LF_ANAMAG KEY 2
|
||
INPUT DESCR S_DESCR
|
||
DISPLAY "Descrizone@50" DESCR
|
||
DISPLAY "Articolo@20" CODART
|
||
COPY OUTPUT S_CODART
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
STRING S_UM 2
|
||
BEGIN
|
||
PROMPT 2 4 "U.M."
|
||
FLAGS "D"
|
||
END
|
||
|
||
LISTBOX S_ARTBLOC 1 25
|
||
BEGIN
|
||
PROMPT 15 4 "Bloccato "
|
||
ITEM "0|No"
|
||
ITEM "1|Articolo in sostituzione"
|
||
ITEM "2|Cliente in chiusura"
|
||
ITEM "3|Contratto in rinnovo"
|
||
FIELD ARTBLOC
|
||
END
|
||
|
||
NUMBER S_CONG 9
|
||
BEGIN
|
||
PROMPT 58 4 "Conguaglio "
|
||
FIELD QTACONG
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 80 7
|
||
BEGIN
|
||
PROMPT 1 6 "@bForfait/Prezzi"
|
||
END
|
||
|
||
LISTBOX S_TIPOFORF 1 25
|
||
BEGIN
|
||
PROMPT 2 7 "Tipo "
|
||
ITEM "0|Nessuno"
|
||
MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@|DISABLE,S_PREZNOL
|
||
ITEM "1|A valore fisso"
|
||
MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@|DISABLE,S_PREZNOL
|
||
ITEM "2|Nolo"
|
||
MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@|ENABLE,S_PREZNOL
|
||
ITEM "3|Ciclaggio"
|
||
MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@|DISABLE,S_PREZNOL
|
||
ITEM "4|% sul val. convenz."
|
||
MESSAGE ENABLE,S_NOLCIC|ENABLE,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@|DISABLE,S_PREZNOL
|
||
ITEM "5|Fisso su dot. iniziale"
|
||
MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@|DISABLE,S_PREZNOL
|
||
FIELD TIPOFORF
|
||
END
|
||
|
||
LISTBOX S_NOLCIC 1 20
|
||
BEGIN
|
||
PROMPT 47 7 "In base a "
|
||
ITEM "I|Dot. iniziale"
|
||
ITEM "O|Dot. odierna"
|
||
FIELD NOLCIC
|
||
GROUP 1
|
||
END
|
||
|
||
NUMBER S_FORFPERCL 6 2
|
||
BEGIN
|
||
PROMPT 2 8 "% Cliente "
|
||
FIELD FORFPERCL
|
||
GROUP 3
|
||
END
|
||
|
||
LISTBOX S_VCARTCLI 1 20
|
||
BEGIN
|
||
PROMPT 47 8 "Per "
|
||
ITEM "A|Articolo"
|
||
ITEM "C|Cliente"
|
||
FIELD VCARTCLI
|
||
FLAGS "D"
|
||
GROUP 1
|
||
END
|
||
|
||
CURRENCY S_PREZZOST 15
|
||
BEGIN
|
||
PROMPT 2 9 "In vigore "
|
||
FIELD PREZZO
|
||
FLAGS "U"
|
||
END
|
||
|
||
CURRENCY S_PREZZORN 15
|
||
BEGIN
|
||
PROMPT 32 9 "Di rinnovo "
|
||
FIELD PREZRIN
|
||
FLAGS "U"
|
||
GROUP 2
|
||
END
|
||
|
||
STRING S_SCONTO 6
|
||
BEGIN
|
||
PROMPT 63 9 "Sconto % "
|
||
FIELD SCONTPERC
|
||
END
|
||
|
||
CURRENCY S_PREZDAN 15
|
||
BEGIN
|
||
PROMPT 2 10 "Danneggiati"
|
||
FLAGS "U"
|
||
FIELD PREZDAN
|
||
END
|
||
|
||
CURRENCY S_PREZNOL 15
|
||
BEGIN
|
||
PROMPT 32 10 "Prezzo nolo "
|
||
FLAGS "U"
|
||
FIELD PREZNOL
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
BOOLEAN S_FATTKG
|
||
BEGIN
|
||
PROMPT 63 10 "Fatturaz. a Kg."
|
||
FIELD FATTKG
|
||
END
|
||
|
||
CURRENCY S_IMPFISART 15
|
||
BEGIN
|
||
PROMPT 2 11 "Imp. fisso "
|
||
FIELD IMPFISART
|
||
CHECKTYPE REQUIRED
|
||
END
|
||
|
||
CURRENCY S_VALCONV 15
|
||
BEGIN
|
||
PROMPT 32 11 "Val. Conven."
|
||
FLAGS "U"
|
||
FIELD VALCONV
|
||
END
|
||
|
||
NUMBER S_MINCIC 4 2
|
||
BEGIN
|
||
PROMPT 61 11 "Min.ciclaggio"
|
||
FIELD MINCIC
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 78 5
|
||
BEGIN
|
||
PROMPT 1 13 "@b Dotazione"
|
||
END
|
||
|
||
NUMBER S_DOTIN 9
|
||
BEGIN
|
||
PROMPT 2 14 "Iniziale"
|
||
END
|
||
|
||
NUMBER S_DOTOD 9
|
||
BEGIN
|
||
PROMPT 21 14 "Odierna"
|
||
END
|
||
|
||
NUMBER S_DOTTMP 9
|
||
BEGIN
|
||
PROMPT 39 14 "Temporanea"
|
||
END
|
||
|
||
CURRENCY S_PRZDTTMP 15
|
||
BEGIN
|
||
PROMPT 2 15 "Prezzo dotazione temporanea "
|
||
FLAGS "U"
|
||
FIELD PRZDTTMP
|
||
END
|
||
|
||
BOOLEAN S_RITAUDTTMP
|
||
BEGIN
|
||
PROMPT 48 15 "Ritiro automatico dotazione "
|
||
FIELD RITAUDTTMP
|
||
END
|
||
|
||
DATE S_INDTTEMP
|
||
BEGIN
|
||
PROMPT 2 16 "Inizio dot.temp. "
|
||
FIELD INDTTMP
|
||
END
|
||
|
||
DATE S_FIDTTEMP
|
||
BEGIN
|
||
PROMPT 50 16 "Fine dot.temp. "
|
||
FIELD FIDTTMP
|
||
VALIDATE DATE_CMP_FUNC >= S_INDTTEMP
|
||
WARNING "La data di fine dotazione temporanea deve essere superiore a quella di inizio"
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 78 4
|
||
BEGIN
|
||
PROMPT 1 18 "@b Consegnato"
|
||
END
|
||
|
||
LISTBOX S_CALCCONS 1 34
|
||
BEGIN
|
||
PROMPT 2 19 "Calcolo"
|
||
ITEM "0|Uguale al ritirato"
|
||
MESSAGE CLEAR,S_CONG
|
||
ITEM "1|Conguaglio alla confezione"
|
||
MESSAGE ENABLE,S_CONG
|
||
FIELD CALCCONS
|
||
END
|
||
|
||
NUMBER S_CONSMESE 9
|
||
BEGIN
|
||
PROMPT 47 19 "Mese"
|
||
FLAGS "D"
|
||
END
|
||
|
||
NUMBER S_CONSANNO 9
|
||
BEGIN
|
||
PROMPT 62 19 "Anno"
|
||
FLAGS "D"
|
||
END
|
||
|
||
STRING S_CAUSLAV 3
|
||
BEGIN
|
||
PROMPT 2 20 "Causale di default"
|
||
USE &CAU
|
||
INPUT CODTAB S_CAUSLAV
|
||
DISPLAY "Codice" CODTAB
|
||
DISPLAY "Descrizione@50" S0
|
||
OUTPUT S_CAUSLAV CODTAB
|
||
OUTPUT S_CAUSLAVDESC S0
|
||
FIELD CAUSLAV
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
STRING S_CAUSLAVDESC 50 47
|
||
BEGIN
|
||
PROMPT 28 20 ""
|
||
USE CAU KEY 2
|
||
INPUT S0 S_CAUSLAVDESC
|
||
DISPLAY "Descrizione@50" S0
|
||
DISPLAY "Codice" CODTAB
|
||
COPY OUTPUT S_CAUSLAV
|
||
CHECKTYPE NORMAL
|
||
END
|
||
|
||
GROUPBOX DLG_NULL 78 3
|
||
BEGIN
|
||
PROMPT 1 22 "@bParametri"
|
||
END
|
||
|
||
DATE S_DATAINS
|
||
BEGIN
|
||
PROMPT 2 23 "Data inserimento "
|
||
FIELD DATAINS
|
||
END
|
||
|
||
BOOLEAN S_CONTPUL
|
||
BEGIN
|
||
PROMPT 35 23 "Conta Pulito"
|
||
FIELD CONTPUL
|
||
END
|
||
|
||
ENDPAGE
|
||
|
||
PAGE "Dati carrello" -1 -1 80 20
|
||
|
||
GROUPBOX DLG_NULL 79 5
|
||
BEGIN
|
||
PROMPT 1 0 ""
|
||
END
|
||
|
||
NUMBER S_PPCONF 15 5
|
||
BEGIN
|
||
PROMPT 2 1 "Pz. per pacco "
|
||
FLAGS "DG"
|
||
END
|
||
|
||
NUMBER S_PREC 2
|
||
BEGIN
|
||
PROMPT 35 1 "Precedenza "
|
||
FIELD PRECEDENZA
|
||
END
|
||
|
||
NUMBER S_SEPAR 2
|
||
BEGIN
|
||
PROMPT 50 1 "Separatore "
|
||
FIELD SEPARATORE
|
||
END
|
||
|
||
NUMBER S_QTAMAXXS 6
|
||
BEGIN
|
||
PROMPT 2 2 "Qta. max.XS "
|
||
FIELD QTAMAXXS
|
||
END
|
||
|
||
NUMBER S_QTAMAXM 6
|
||
BEGIN
|
||
PROMPT 30 2 "Qta. max.M "
|
||
FIELD QTAMAXM
|
||
END
|
||
|
||
NUMBER S_QTAMAXXL 6
|
||
BEGIN
|
||
PROMPT 55 2 "Qta. max.XL "
|
||
FIELD QTAMAXXL
|
||
END
|
||
|
||
NUMBER S_QTANORMXS 6
|
||
BEGIN
|
||
PROMPT 2 3 "Qta. norm.XS "
|
||
FIELD QTANORMXS
|
||
END
|
||
|
||
NUMBER S_QTANORMM 6
|
||
BEGIN
|
||
PROMPT 30 3 "Qta. norm.M "
|
||
FIELD QTANORMM
|
||
END
|
||
|
||
NUMBER S_QTANORMXL 6
|
||
BEGIN
|
||
PROMPT 55 3 "Qta. norm.XL "
|
||
FIELD QTANORMXL
|
||
END
|
||
|
||
ENDMASK
|
||
|
||
|