Patch level : 10.0 190
Files correlati : lv0.exe Ricompilazione Demo : [ ] Commento : Rivisitata la maschera dei contratti git-svn-id: svn://10.65.10.50/trunk@17873 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex
parent
69ebb9bb77
commit
694542e495
@ -70,6 +70,12 @@ bool TContratti_msk:: on_field_event(TOperable_field& o,TField_event e,long joll
|
||||
{
|
||||
switch(o.dlg())
|
||||
{
|
||||
case F_CODCF:
|
||||
if (e == fe_close)
|
||||
{
|
||||
if (query_mode() && o.get().blank())
|
||||
return error_box("Codice Cliente Obbligatorio");
|
||||
}
|
||||
case DLG_PLANNING:
|
||||
if (e==fe_button && edit_mode())
|
||||
{
|
||||
@ -297,13 +303,17 @@ void TContratti_app::save_rows(const TMask& m)
|
||||
|
||||
void TContratti_app::init_query_mode(TMask& m)
|
||||
{
|
||||
m.field(F_RAGSOC).enable(m.field(F_CODCF).enabled());
|
||||
if (m.field(F_CODCF).enabled())
|
||||
m.field(F_RAGSOC).enable();
|
||||
else
|
||||
m.field(F_RAGSOC).disable();
|
||||
}
|
||||
|
||||
void TContratti_app::init_insert_mode(TMask& m)
|
||||
{
|
||||
TSheet_field& ss=m.sfield(F_RIGHE);
|
||||
ss.insert();
|
||||
// ss.insert();
|
||||
|
||||
}
|
||||
|
||||
int TContratti_app::write(const TMask& m)
|
||||
|
||||
50
lv/lv0400.h
50
lv/lv0400.h
@ -54,41 +54,29 @@
|
||||
#define S_CONSANNO 111
|
||||
#define S_DOTTMP 112
|
||||
#define S_PRZDTTMP 113
|
||||
#define S_INDTTMP 114
|
||||
#define S_FIDTTMP 115
|
||||
#define S_IMPFISART 116
|
||||
#define S_PREZDAN 117
|
||||
#define S_VALCONV 118
|
||||
#define S_ARTBLOC 119
|
||||
#define S_CALCCONS 120
|
||||
#define S_TIPOFORF 121
|
||||
#define S_NOLCIC 122
|
||||
#define S_VCARTCLI 123
|
||||
#define S_MINCIC 124
|
||||
#define S_FORFPERCL 125
|
||||
#define S_CAUSLAV 126
|
||||
#define S_TIPONOL 127
|
||||
#define S_RITAUDTTMP 128
|
||||
#define S_FATTKG 129
|
||||
#define S_ARROT 130
|
||||
#define S_GRMERC 131
|
||||
#define S_COLORE 132
|
||||
#define S_LIVELLO 133
|
||||
#define S_PPCONF 134
|
||||
#define S_PPCOLLO 135
|
||||
#define S_PPPALLET 136
|
||||
#define S_TIPOPARTE 137
|
||||
#define S_CODLAV1 138
|
||||
#define S_CODLAV2 139
|
||||
#define S_LINDEST1 140
|
||||
#define S_LINDEST2 141
|
||||
#define S_LAVATRICE 142
|
||||
#define S_ARTLAVCONT 143
|
||||
#define S_MANGDEST 144
|
||||
#define S_IMPFISART 114
|
||||
#define S_PREZDAN 115
|
||||
#define S_VALCONV 116
|
||||
#define S_ARTBLOC 117
|
||||
#define S_CALCCONS 118
|
||||
#define S_TIPOFORF 119
|
||||
#define S_NOLCIC 120
|
||||
#define S_VCARTCLI 121
|
||||
#define S_MINCIC 122
|
||||
#define S_FORFPERCL 123
|
||||
#define S_CAUSLAV 124
|
||||
#define S_TIPONOL 125
|
||||
#define S_RITAUDTTMP 126
|
||||
#define S_FATTKG 127
|
||||
#define S_ARROT 128
|
||||
#define S_PPCONF 129
|
||||
#define S_PPCOLLO 130
|
||||
#define S_PPPALLET 131
|
||||
|
||||
#define S_CODCF 301
|
||||
#define S_RAGSOC 302
|
||||
#define S_CODCONT 303
|
||||
#define S_CAUSLAVDESC 304
|
||||
#define T_CODCF 401
|
||||
#define T_RAGSOC 402
|
||||
#define T_CODCONT 403
|
||||
|
||||
599
lv/lv0400a.uml
599
lv/lv0400a.uml
@ -24,7 +24,7 @@ BEGIN
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN cg0 -1
|
||||
END
|
||||
|
||||
@ -118,57 +118,44 @@ END
|
||||
SPREADSHEET F_RIGHE
|
||||
BEGIN
|
||||
PROMPT 0 6 "Righe contratto"
|
||||
ITEM "Articolo@10"
|
||||
ITEM "Articolo@10F"
|
||||
ITEM "Descrizione@30"
|
||||
ITEM "UM@3"
|
||||
ITEM "Cong.@4"
|
||||
ITEM "Prezzo in vigore@8"
|
||||
ITEM "Prezzo di Rinnovo@8"
|
||||
ITEM "Prezzo@8"
|
||||
ITEM "Prezzo\nRinnovo@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."
|
||||
ITEM "Dot.\nIniz.@5"
|
||||
ITEM "Dot.\nOd.@5"
|
||||
ITEM "Cons.\nmese@6"
|
||||
ITEM "Cons.\nanno@6"
|
||||
ITEM "Dot.\nTemp.@5"
|
||||
ITEM "Prezzo\nDot.Temp."
|
||||
ITEM "Importo\nfisso"
|
||||
ITEM "Prezzo\nDanneggiati@11"
|
||||
ITEM "Val.\nconvenzionale@13"
|
||||
ITEM "Articolo\nbloccato@9"
|
||||
ITEM "Calcolo\nconsegnato@9"
|
||||
ITEM "Tipo\nForfait@7"
|
||||
ITEM "Tipo\nnolo/ciclaggio@9"
|
||||
ITEM "Tipo\n% val.conv.@9"
|
||||
ITEM "Minimo\nciclaggio@9"
|
||||
ITEM "%Forfait\nCliente@7"
|
||||
ITEM "Causale\ndefault@7"
|
||||
ITEM "Tipo\nNoleggio@8"
|
||||
ITEM "Ritiro\naut.Dot.Temp.@12"
|
||||
ITEM "Fatturazione\na kg"
|
||||
ITEM "Arrotond."
|
||||
ITEM "Pezzi\nper pacco"
|
||||
ITEM "Pezzi\nper sacco"
|
||||
ITEM "Pezzi\nper carrello"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni" 0 2 0 0
|
||||
PAGE "Dati Testata" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 79 11
|
||||
GROUPBOX DLG_NULL 79 10
|
||||
BEGIN
|
||||
PROMPT 1 1 "@b Fatturazione"
|
||||
END
|
||||
@ -199,31 +186,49 @@ END
|
||||
|
||||
BOOLEAN F_FATTSOSP
|
||||
BEGIN
|
||||
PROMPT 45 5 "Escluso da fatturazione"
|
||||
PROMPT 45 5 "Escluso"
|
||||
FIELD FATTSOSP
|
||||
END
|
||||
|
||||
BOOLEAN F_RIFBOLFAT
|
||||
BEGIN
|
||||
PROMPT 2 6 "Riferimenti bolle in fattura"
|
||||
PROMPT 2 6 "Riferimenti bolle"
|
||||
FIELD RIFBOLFAT
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDCAPROT
|
||||
BEGIN
|
||||
PROMPT 45 6 "Addebita capi rotti in fattura"
|
||||
PROMPT 45 6 "Addebita capi rotti"
|
||||
FIELD ADDCAPROT
|
||||
END
|
||||
|
||||
BOOLEAN F_ATTFATNODT
|
||||
BEGIN
|
||||
PROMPT 2 7 "Attiva fatturazione indipendentemente dalla data"
|
||||
PROMPT 2 7 "Attiva indipendentemente dalla data"
|
||||
FIELD ATTFATNODT
|
||||
END
|
||||
|
||||
RADIOBUTTON F_PERFAT 1 70
|
||||
BOOLEAN F_CICLAGGIO
|
||||
BEGIN
|
||||
PROMPT 5 8 "@b Periodicità di fatturazione "
|
||||
PROMPT 45 7 "Ciclaggio su 2 righe"
|
||||
FIELD CICLAGGIO
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOCAN 1 36
|
||||
BEGIN
|
||||
PROMPT 2 8 "Tipo canone "
|
||||
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
|
||||
|
||||
LISTBOX F_PERFAT 1 12
|
||||
BEGIN
|
||||
PROMPT 2 9 "Periodicità "
|
||||
ITEM "0|Giornaliero"
|
||||
ITEM "1|Settimanale"
|
||||
ITEM "2|Quindicinale"
|
||||
@ -232,85 +237,22 @@ BEGIN
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 10
|
||||
LISTBOX F_TIPOLIS 1 20
|
||||
BEGIN
|
||||
PROMPT 1 12 "@b Tipo canone"
|
||||
PROMPT 45 9 "Tipo Listino"
|
||||
ITEM "0|Prezzo nel contratto"
|
||||
ITEM "1|Prezzo su articoli"
|
||||
FIELD TIPOLIS
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOCAN 1 38
|
||||
GROUPBOX DLG_NULL 79 11
|
||||
BEGIN
|
||||
PROMPT 1 12 ""
|
||||
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 12 "@b Tipo Listino"
|
||||
ITEM "0|Prezzo nel contratto"
|
||||
ITEM "1|Listino in anag.Articoli"
|
||||
FIELD TIPOLIS
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOIMB 1 14
|
||||
BEGIN
|
||||
PROMPT 66 12 "@b Tipo imballo"
|
||||
ITEM "0|Sacco"
|
||||
ITEM "1|Carrello"
|
||||
FIELD TIPOIMB
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CONTSPOR 1 40
|
||||
BEGIN
|
||||
PROMPT 40 16 "@b Conta dello sporco"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Sporco"
|
||||
ITEM "2|Solo pulito"
|
||||
ITEM "3|Touch-Screen"
|
||||
FIELD CONTSPOR
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 ""
|
||||
END
|
||||
|
||||
NUMBER F_PERCNOCONT 6 2
|
||||
BEGIN
|
||||
PROMPT 2 2 "Percentuale aumento per mancato conteggio "
|
||||
FIELD PERCNOCONT
|
||||
END
|
||||
|
||||
NUMBER F_NUMUT 5
|
||||
BEGIN
|
||||
PROMPT 58 2 "Num. utente "
|
||||
FIELD NUMUT
|
||||
END
|
||||
|
||||
NUMBER F_PERCTOLPES 6 2
|
||||
BEGIN
|
||||
PROMPT 2 3 "Percentuale tolleranza peso teorico/effettivo"
|
||||
FIELD PERCTOLPES
|
||||
END
|
||||
|
||||
NUMBER F_NUMETI 5
|
||||
BEGIN
|
||||
PROMPT 58 3 "Num. etichette"
|
||||
FIELD NUMETI
|
||||
PROMPT 1 11 ""
|
||||
END
|
||||
|
||||
STRING F_CAUSLAV 3
|
||||
BEGIN
|
||||
PROMPT 2 4 "Causale di default"
|
||||
PROMPT 2 12 "Causale di default"
|
||||
USE &CAU
|
||||
INPUT CODTAB F_CAUSLAV
|
||||
DISPLAY "Codice" CODTAB
|
||||
@ -323,7 +265,7 @@ END
|
||||
|
||||
STRING F_CAUSLAVDESC 50 47
|
||||
BEGIN
|
||||
PROMPT 28 4 ""
|
||||
PROMPT 28 12 ""
|
||||
USE CAU KEY 2
|
||||
INPUT S0 F_CAUSLAVDESC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
@ -332,74 +274,105 @@ BEGIN
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 13
|
||||
LISTBOX F_TIPOIMB 1 8
|
||||
BEGIN
|
||||
PROMPT 1 6 ""
|
||||
PROMPT 2 13 "Tipo imballo "
|
||||
ITEM "0|Sacco"
|
||||
ITEM "1|Carrello"
|
||||
FIELD TIPOIMB
|
||||
END
|
||||
|
||||
LISTBOX F_CONTSPOR 1 12
|
||||
BEGIN
|
||||
PROMPT 45 13 "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 14 "Percentuale aumento per mancato conteggio "
|
||||
FIELD PERCNOCONT
|
||||
END
|
||||
|
||||
NUMBER F_NUMUT 5
|
||||
BEGIN
|
||||
PROMPT 58 14 "Num. utente "
|
||||
FIELD NUMUT
|
||||
END
|
||||
|
||||
NUMBER F_PERCTOLPES 6 2
|
||||
BEGIN
|
||||
PROMPT 2 15 "Percentuale tolleranza peso teorico/effett. "
|
||||
FIELD PERCTOLPES
|
||||
END
|
||||
|
||||
NUMBER F_NUMETI 5
|
||||
BEGIN
|
||||
PROMPT 58 15 "Num. etichette"
|
||||
FIELD NUMETI
|
||||
END
|
||||
|
||||
BOOLEAN F_SSCONS
|
||||
BEGIN
|
||||
PROMPT 2 7 "Spese di spedizione alla consegna"
|
||||
PROMPT 2 16 "Spese di spedizione alla consegna"
|
||||
FIELD SSCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_PROFORME
|
||||
BEGIN
|
||||
PROMPT 2 8 "Proforme(progetti)"
|
||||
PROMPT 45 16 "Proforme(progetti)"
|
||||
FIELD PROFORME
|
||||
END
|
||||
|
||||
BOOLEAN F_STRCONS
|
||||
BEGIN
|
||||
PROMPT 2 9 "Stampa di riepilogo consegne"
|
||||
PROMPT 2 17 "Stampa di riepilogo consegne"
|
||||
FIELD STRCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_CICLAGGIO
|
||||
BEGIN
|
||||
PROMPT 2 10 "Ciclaggio su 2 righe"
|
||||
FIELD CICLAGGIO
|
||||
END
|
||||
|
||||
BOOLEAN F_STPRZBOL
|
||||
BEGIN
|
||||
PROMPT 2 11 "Visualizza prezzo in bolla"
|
||||
PROMPT 45 17 "Visualizza prezzo in bolla"
|
||||
FIELD STPRZBOL
|
||||
END
|
||||
|
||||
BOOLEAN F_STETIMATI
|
||||
BEGIN
|
||||
PROMPT 2 12 "Stampa etichette con MATI"
|
||||
PROMPT 2 18 "Stampa etichette con MATI"
|
||||
FIELD STETIMATI
|
||||
END
|
||||
|
||||
BOOLEAN F_STETITS
|
||||
BEGIN
|
||||
PROMPT 2 13 "Stampa etic. con Touch-Screen"
|
||||
PROMPT 45 18 "Stampa etic. con Touch-Screen"
|
||||
FIELD STETITS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDDTPTS
|
||||
BEGIN
|
||||
PROMPT 2 14 "Stampa DDT da pulito con Touch-Screen"
|
||||
PROMPT 2 19 "Stampa DDT da pulito con Touch-Screen"
|
||||
FIELD STDDTPTS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDICITURA
|
||||
BEGIN
|
||||
PROMPT 2 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
|
||||
PROMPT 45 19 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
|
||||
FIELD STDICITURA
|
||||
END
|
||||
|
||||
BOOLEAN F_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 2 16 "Ritiro automatico dotazione temporanea"
|
||||
PROMPT 2 20 "Ritiro automatico dotazione temporanea"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
BOOLEAN F_TIPOSTPRZ
|
||||
BEGIN
|
||||
PROMPT 2 17 "Stampa prezzo in bolla"
|
||||
PROMPT 45 20 "Stampa prezzo in bolla"
|
||||
FIELD TIPOSTPRZ
|
||||
END
|
||||
|
||||
@ -428,9 +401,9 @@ END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 80 20
|
||||
PAGE "Riga Contratto" -1 -1 80 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 0 "@b Contratto"
|
||||
END
|
||||
@ -442,7 +415,7 @@ BEGIN
|
||||
NUM_CALC #-F_CODCF
|
||||
END
|
||||
|
||||
STRING S_RAGSOC 50
|
||||
STRING S_RAGSOC 50 28
|
||||
BEGIN
|
||||
PROMPT 25 1 ""
|
||||
FLAGS "DG"
|
||||
@ -451,19 +424,19 @@ END
|
||||
|
||||
NUMBER S_CODCONT 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Contratto N. "
|
||||
PROMPT 55 1 "Contratto N. "
|
||||
FLAGS "DG"
|
||||
NUM_CALC #-F_CODCONT
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 4 "@b Articolo"
|
||||
PROMPT 1 3 "@b Articolo"
|
||||
END
|
||||
|
||||
STRING S_CODART 20
|
||||
BEGIN
|
||||
PROMPT 2 5 ""
|
||||
PROMPT 2 4 ""
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART S_CODART
|
||||
@ -472,14 +445,31 @@ BEGIN
|
||||
OUTPUT S_CODART CODART
|
||||
OUTPUT S_DESCR DESCR
|
||||
OUTPUT S_PREZZOST COSTSTD
|
||||
OUTPUT S_PPCONF PPCONF
|
||||
OUTPUT S_PPCOLLO PPCOLLO
|
||||
OUTPUT S_PPPALLET PPPALLET
|
||||
FIELD CODART
|
||||
CHECKTYPE REQUIRED
|
||||
ADD RUN ve2 -3
|
||||
END
|
||||
|
||||
STRING S_DESCR 50
|
||||
STRING S_UM 2
|
||||
BEGIN
|
||||
PROMPT 25 5 ""
|
||||
PROMPT 25 4 "U.M."
|
||||
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_DESCR 50 40
|
||||
BEGIN
|
||||
PROMPT 35 4 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR S_DESCR
|
||||
DISPLAY "Descrizone@50" DESCR
|
||||
@ -488,14 +478,50 @@ BEGIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
LISTBOX S_ARTBLOC 1 28
|
||||
BEGIN
|
||||
PROMPT 1 7 "@b Forfait"
|
||||
PROMPT 2 5 "Bloccato "
|
||||
ITEM "0|"
|
||||
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 51 5 "Tipo Noleggio "
|
||||
FIELD TIPONOL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER S_PPCONF 9
|
||||
BEGIN
|
||||
PROMPT 2 6 "Pezzi Pacco"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_PPCOLLO 9
|
||||
BEGIN
|
||||
PROMPT 29 6 "Pezzi Sacco"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_PPPALLET 9
|
||||
BEGIN
|
||||
PROMPT 53 6 "Pezzi Carrello"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 7
|
||||
BEGIN
|
||||
PROMPT 1 8 "@b Forfait/Prezzi"
|
||||
END
|
||||
|
||||
LISTBOX S_TIPOFORF 1 25
|
||||
BEGIN
|
||||
PROMPT 2 8 "Tipo Forfait "
|
||||
PROMPT 2 9 "Tipo "
|
||||
ITEM "0|Nessuno"
|
||||
MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
|
||||
ITEM "1|A valore fisso"
|
||||
@ -513,7 +539,7 @@ END
|
||||
|
||||
LISTBOX S_NOLCIC 1 20
|
||||
BEGIN
|
||||
PROMPT 45 8 "In base a "
|
||||
PROMPT 45 9 "In base a "
|
||||
ITEM "I|Dot. iniziale"
|
||||
ITEM "O|Dot. odierna"
|
||||
GROUP 1
|
||||
@ -521,202 +547,129 @@ END
|
||||
|
||||
NUMBER S_FORFPERCL 6 2
|
||||
BEGIN
|
||||
PROMPT 2 9 "% Cliente "
|
||||
PROMPT 2 10 "% Cliente "
|
||||
FIELD FORFPERCL
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
LISTBOX S_VCARTCLI 1 20
|
||||
BEGIN
|
||||
PROMPT 45 9 "Per "
|
||||
PROMPT 45 10 "Per "
|
||||
ITEM "N|Nessuno"
|
||||
ITEM "C|Cliente"
|
||||
ITEM "A|Articolo"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 11 "@b Prezzo"
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZOST 15
|
||||
BEGIN
|
||||
PROMPT 2 12 "In vigore "
|
||||
PROMPT 2 11 "In vigore "
|
||||
FIELD PREZZO
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZORN 15
|
||||
BEGIN
|
||||
PROMPT 30 12 "Di rinnovo "
|
||||
PROMPT 30 11 "Di rinnovo "
|
||||
FIELD PREZRIN
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER S_SCONTO 6 2
|
||||
BEGIN
|
||||
PROMPT 60 12 "Sconto %"
|
||||
PROMPT 60 11 "Sconto %"
|
||||
FIELD SCONTPERC
|
||||
END
|
||||
|
||||
CURRENCY S_PREZDAN 15
|
||||
BEGIN
|
||||
PROMPT 2 13 "Danneggiati"
|
||||
PROMPT 2 12 "Danneggiati"
|
||||
FLAGS "U"
|
||||
FIELD PREZDAN
|
||||
END
|
||||
|
||||
BOOLEAN S_FATTKG
|
||||
BEGIN
|
||||
PROMPT 30 13 "Fatturazione a Kg."
|
||||
PROMPT 30 12 "Fatturazione a Kg."
|
||||
FIELD FATTKG
|
||||
END
|
||||
|
||||
BOOLEAN S_ARROT
|
||||
BEGIN
|
||||
PROMPT 60 13 "Arrotondamento"
|
||||
PROMPT 60 12 "Arrotondamento"
|
||||
FIELD ARROT
|
||||
END
|
||||
|
||||
CURRENCY S_IMPFISART 15
|
||||
BEGIN
|
||||
PROMPT 2 14 "Impor.fisso"
|
||||
PROMPT 2 13 "Imp.fisso "
|
||||
FIELD IMPFISART
|
||||
END
|
||||
|
||||
CURRENCY S_VALCONV 15
|
||||
BEGIN
|
||||
PROMPT 30 14 "Val.Conven."
|
||||
PROMPT 30 13 "Val.Conven."
|
||||
FLAGS "U"
|
||||
FIELD VALCONV
|
||||
GROUP 3
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
NUMBER S_MINCIC 4 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "@b Dotazione"
|
||||
PROMPT 58 13 "Min.ciclaggio"
|
||||
FIELD MINCIC
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 15 "@b Dotazione"
|
||||
END
|
||||
|
||||
NUMBER S_DOTIN 9
|
||||
BEGIN
|
||||
PROMPT 2 17 "Iniziale"
|
||||
PROMPT 2 16 "Iniziale"
|
||||
FIELD DOTIN
|
||||
END
|
||||
|
||||
NUMBER S_DOTOD 9
|
||||
BEGIN
|
||||
PROMPT 30 17 "Odierna"
|
||||
PROMPT 21 16 "Odierna"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_DOTTMP 9
|
||||
BEGIN
|
||||
PROMPT 56 17 "Temporanea"
|
||||
PROMPT 39 16 "Temporanea"
|
||||
FIELD DOTTMP
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 19 "@b Dotazione Temporanea"
|
||||
END
|
||||
|
||||
CURRENCY S_PRZDTTMP 15
|
||||
BEGIN
|
||||
PROMPT 2 20 "Prezzo"
|
||||
FLAGS "U"
|
||||
FIELD PRZDTTMP
|
||||
END
|
||||
|
||||
DATE S_INDTTMP
|
||||
BEGIN
|
||||
PROMPT 25 20 "Dal "
|
||||
FIELD INDTTMP
|
||||
END
|
||||
|
||||
DATE S_FIDTTMP
|
||||
BEGIN
|
||||
PROMPT 41 20 "Al "
|
||||
FIELD FIDTTMP
|
||||
END
|
||||
|
||||
BOOLEAN S_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 57 20 "Ritiro automatico"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
|
||||
STRING S_UM 2
|
||||
BEGIN
|
||||
PROMPT 2 22 "Unità 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 25 22 "Conguaglio"
|
||||
PROMPT 59 16 "Conguaglio"
|
||||
FIELD QTACONG
|
||||
END
|
||||
|
||||
STRING S_CAUSLAV 3
|
||||
CURRENCY S_PRZDTTMP 15
|
||||
BEGIN
|
||||
PROMPT 50 22 "Causale di default"
|
||||
USE &CAU
|
||||
INPUT CODTAB S_CAUSLAV
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CAUSLAV CODTAB
|
||||
FIELD CAUSLAV
|
||||
CHECKTYPE NORMAL
|
||||
PROMPT 2 17 "Prezzo dotazione temporanea "
|
||||
FLAGS "U"
|
||||
FIELD PRZDTTMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "" -1 -1 80 20
|
||||
BOOLEAN S_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 56 17 "Ritiro automatico dotazione"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 0 "@b Contratto"
|
||||
END
|
||||
|
||||
NUMBER T_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 1 "Cliente "
|
||||
FLAGS "DG"
|
||||
NUM_CALC #-F_CODCF
|
||||
END
|
||||
|
||||
STRING T_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 25 1 ""
|
||||
FLAGS "DG"
|
||||
STR_CALC #-F_RAGSOC
|
||||
END
|
||||
|
||||
NUMBER T_CODCONT 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Contratto N. "
|
||||
FLAGS "DG"
|
||||
NUM_CALC #-F_CODCONT
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 4 "@b Consegnato"
|
||||
PROMPT 1 19 "@b Consegnato"
|
||||
END
|
||||
|
||||
LISTBOX S_CALCCONS 1 34
|
||||
BEGIN
|
||||
PROMPT 2 5 "Calcolo"
|
||||
PROMPT 2 20 "Calcolo"
|
||||
ITEM "0|Conguaglio alla confezione"
|
||||
ITEM "1|Uguale al ritirato"
|
||||
FIELD CALCCONS
|
||||
@ -724,128 +677,38 @@ END
|
||||
|
||||
NUMBER S_CONSMESE 9
|
||||
BEGIN
|
||||
PROMPT 47 5 "Mese"
|
||||
PROMPT 47 20 "Mese"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_CONSANNO 9
|
||||
BEGIN
|
||||
PROMPT 62 5 "Anno"
|
||||
PROMPT 62 20 "Anno"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
LISTBOX S_ARTBLOC 1 28
|
||||
STRING S_CAUSLAV 3
|
||||
BEGIN
|
||||
PROMPT 2 7 "Articolo bloccato"
|
||||
ITEM "0|Nessuna"
|
||||
ITEM "1|Articolo in sostituzione"
|
||||
ITEM "2|Cliente in chiusura"
|
||||
ITEM "3|Contratto in rinnovo"
|
||||
FIELD ARTBLOC
|
||||
PROMPT 2 21 "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
|
||||
|
||||
LISTBOX S_TIPONOL 1 10
|
||||
STRING S_CAUSLAVDESC 50 47
|
||||
BEGIN
|
||||
PROMPT 51 7 "Tipo Noleggio "
|
||||
FIELD TIPONOL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
|
||||
NUMBER S_PPCONF 9
|
||||
BEGIN
|
||||
PROMPT 2 9 "Pz. per Pacco "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_PPCOLLO 9
|
||||
BEGIN
|
||||
PROMPT 30 9 "Per Sacco "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_PPPALLET 9
|
||||
BEGIN
|
||||
PROMPT 55 9 "Per Carrello "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_MANGDEST 3
|
||||
BEGIN
|
||||
PROMPT 2 10 "Mangano Dest. "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_ARTLAVCONT 4
|
||||
BEGIN
|
||||
PROMPT 30 10 "Art.Lav.cont."
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_LAVATRICE 4
|
||||
BEGIN
|
||||
PROMPT 55 10 "Lavatrice "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_CODLAV1 3
|
||||
BEGIN
|
||||
PROMPT 2 11 "Cod. Lavag. 1 "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_CODLAV2 3
|
||||
BEGIN
|
||||
PROMPT 30 11 "Cod. Lavag. 2"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_TIPOPARTE 1
|
||||
BEGIN
|
||||
PROMPT 55 11 "Tipo Parte "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_LINDEST1 3
|
||||
BEGIN
|
||||
PROMPT 2 12 "Linea dest. 1 "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_LINDEST2 3
|
||||
BEGIN
|
||||
PROMPT 30 12 "Linea dest. 2"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_LIVELLO 1
|
||||
BEGIN
|
||||
PROMPT 55 12 "Livello "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER S_MINCIC 4 2
|
||||
BEGIN
|
||||
PROMPT 2 13 "Min. cilcaggio "
|
||||
FIELD MINCIC
|
||||
END
|
||||
|
||||
STRING S_COLORE 20 10
|
||||
BEGIN
|
||||
PROMPT 30 13 "Colore "
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING S_GRMERC 3
|
||||
BEGIN
|
||||
PROMPT 55 13 "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
|
||||
PROMPT 28 21 ""
|
||||
USE CAU KEY 2
|
||||
INPUT S0 S_CAUSLAVDESC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT S_CAUSLAV
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -65,7 +65,7 @@ BEGIN
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CAUSALE_RITIRO CODTAB
|
||||
OUTPUT F_DES_CAUSALE_RITIRO S0
|
||||
VALIDATE REQIF_FUNC TRUE F_RITIRATO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Causale ritirato obbligatoria"
|
||||
GROUP 1
|
||||
FLAGS "D"
|
||||
@ -107,7 +107,7 @@ BEGIN
|
||||
OUTPUT F_CAUSALE_CONSEGNA CODTAB
|
||||
OUTPUT F_DES_CAUSALE_CONSEGNA S0
|
||||
FIELD S2
|
||||
VALIDATE REQIF_FUNC TRUE F_CONSEGNATO
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Causale consegnato obbligatoria"
|
||||
GROUP 2
|
||||
FLAGS "D"
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user