root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 190

Browse Source 
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 2008-12-12 08:29:38 +00:00
parent 69ebb9bb77
commit 694542e495
4 changed files with 264 additions and 403 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lv/lv0400.cpp
View File

@ -70,6 +70,12 @@ bool TContratti_msk:: on_field_event(TOperable_field& o,TField_event e,long joll
{ {
switch(o.dlg()) 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: case DLG_PLANNING:
if (e==fe_button && edit_mode()) 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) 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) void TContratti_app::init_insert_mode(TMask& m)
{ {
TSheet_field& ss=m.sfield(F_RIGHE); TSheet_field& ss=m.sfield(F_RIGHE);
ss.insert(); // ss.insert();
} }
int TContratti_app::write(const TMask& m) int TContratti_app::write(const TMask& m)

50
lv/lv0400.h
View File

@ -54,41 +54,29 @@
#define S_CONSANNO 111 #define S_CONSANNO 111
#define S_DOTTMP 112 #define S_DOTTMP 112
#define S_PRZDTTMP 113 #define S_PRZDTTMP 113
#define S_INDTTMP 114 #define S_IMPFISART 114
#define S_FIDTTMP 115 #define S_PREZDAN 115
#define S_IMPFISART 116 #define S_VALCONV 116
#define S_PREZDAN 117 #define S_ARTBLOC 117
#define S_VALCONV 118 #define S_CALCCONS 118
#define S_ARTBLOC 119 #define S_TIPOFORF 119
#define S_CALCCONS 120 #define S_NOLCIC 120
#define S_TIPOFORF 121 #define S_VCARTCLI 121
#define S_NOLCIC 122 #define S_MINCIC 122
#define S_VCARTCLI 123 #define S_FORFPERCL 123
#define S_MINCIC 124 #define S_CAUSLAV 124
#define S_FORFPERCL 125 #define S_TIPONOL 125
#define S_CAUSLAV 126 #define S_RITAUDTTMP 126
#define S_TIPONOL 127 #define S_FATTKG 127
#define S_RITAUDTTMP 128 #define S_ARROT 128
#define S_FATTKG 129 #define S_PPCONF 129
#define S_ARROT 130 #define S_PPCOLLO 130
#define S_GRMERC 131 #define S_PPPALLET 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_CODCF 301 #define S_CODCF 301
#define S_RAGSOC 302 #define S_RAGSOC 302
#define S_CODCONT 303 #define S_CODCONT 303
#define S_CAUSLAVDESC 304
#define T_CODCF 401 #define T_CODCF 401
#define T_RAGSOC 402 #define T_RAGSOC 402
#define T_CODCONT 403 #define T_CODCONT 403

599
lv/lv0400a.uml
View File

@ -24,7 +24,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_CODCF CODCF OUTPUT F_CODCF CODCF
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -118,57 +118,44 @@ END
SPREADSHEET F_RIGHE SPREADSHEET F_RIGHE
BEGIN BEGIN
PROMPT 0 6 "Righe contratto" PROMPT 0 6 "Righe contratto"
ITEM "Articolo@10" ITEM "Articolo@10F"
ITEM "Descrizione@30" ITEM "Descrizione@30"
ITEM "UM@3" ITEM "UM@3"
ITEM "Cong.@4" ITEM "Cong.@4"
ITEM "Prezzo in vigore@8" ITEM "Prezzo@8"
ITEM "Prezzo di Rinnovo@8" ITEM "Prezzo\nRinnovo@8"
ITEM "Sconto %@4" ITEM "Sconto %@4"
ITEM "Dot.Iniziale@5" ITEM "Dot.\nIniz.@5"
ITEM "Dotaz. odierna@5" ITEM "Dot.\nOd.@5"
ITEM "Cons. mese@6" ITEM "Cons.\nmese@6"
ITEM "Cons.anno@6" ITEM "Cons.\nanno@6"
ITEM "Dot.Temporanea@5" ITEM "Dot.\nTemp.@5"
ITEM "Prezzo Dot.Temp." ITEM "Prezzo\nDot.Temp."
ITEM "Inizio Dot.Temp." ITEM "Importo\nfisso"
ITEM "Fine Dot.Temp." ITEM "Prezzo\nDanneggiati@11"
ITEM "Importo fisso" ITEM "Val.\nconvenzionale@13"
ITEM "Prezzo Danneggiati" ITEM "Articolo\nbloccato@9"
ITEM "Val. convenzionale" ITEM "Calcolo\nconsegnato@9"
ITEM "Articolo bloccato" ITEM "Tipo\nForfait@7"
ITEM "Calcolo consegnato" ITEM "Tipo\nnolo/ciclaggio@9"
ITEM "Tipo Forfait" ITEM "Tipo\n% val.conv.@9"
ITEM "Tipo nolo/ciclaggio" ITEM "Minimo\nciclaggio@9"
ITEM "Tipo % val.conv." ITEM "%Forfait\nCliente@7"
ITEM "Minimo cilaggio" ITEM "Causale\ndefault@7"
ITEM "%Forfait Cliente" ITEM "Tipo\nNoleggio@8"
ITEM "Causale default" ITEM "Ritiro\naut.Dot.Temp.@12"
ITEM "Tipo Noleggio" ITEM "Fatturazione\na kg"
ITEM "Ritiro aut.Dot.Temp." ITEM "Arrotond."
ITEM "Fatturazione a kg" ITEM "Pezzi\nper pacco"
ITEM "Arrotondamento" ITEM "Pezzi\nper sacco"
ITEM "Tipologia" ITEM "Pezzi\nper carrello"
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."
END END
ENDPAGE 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 BEGIN
PROMPT 1 1 "@b Fatturazione" PROMPT 1 1 "@b Fatturazione"
END END
@ -199,31 +186,49 @@ END
BOOLEAN F_FATTSOSP BOOLEAN F_FATTSOSP
BEGIN BEGIN
PROMPT 45 5 "Escluso da fatturazione" PROMPT 45 5 "Escluso"
FIELD FATTSOSP FIELD FATTSOSP
END END
BOOLEAN F_RIFBOLFAT BOOLEAN F_RIFBOLFAT
BEGIN BEGIN
PROMPT 2 6 "Riferimenti bolle in fattura" PROMPT 2 6 "Riferimenti bolle"
FIELD RIFBOLFAT FIELD RIFBOLFAT
END END
BOOLEAN F_ADDCAPROT BOOLEAN F_ADDCAPROT
BEGIN BEGIN
PROMPT 45 6 "Addebita capi rotti in fattura" PROMPT 45 6 "Addebita capi rotti"
FIELD ADDCAPROT FIELD ADDCAPROT
END END
BOOLEAN F_ATTFATNODT BOOLEAN F_ATTFATNODT
BEGIN BEGIN
PROMPT 2 7 "Attiva fatturazione indipendentemente dalla data" PROMPT 2 7 "Attiva indipendentemente dalla data"
FIELD ATTFATNODT FIELD ATTFATNODT
END END
RADIOBUTTON F_PERFAT 1 70 BOOLEAN F_CICLAGGIO
BEGIN 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 "0|Giornaliero"
ITEM "1|Settimanale" ITEM "1|Settimanale"
ITEM "2|Quindicinale" ITEM "2|Quindicinale"
@ -232,85 +237,22 @@ BEGIN
FLAGS "Z" FLAGS "Z"
END END
GROUPBOX DLG_NULL 38 10 LISTBOX F_TIPOLIS 1 20
BEGIN 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 END
RADIOBUTTON F_TIPOCAN 1 38 GROUPBOX DLG_NULL 79 11
BEGIN BEGIN
PROMPT 1 12 "" PROMPT 1 11 ""
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
END END
STRING F_CAUSLAV 3 STRING F_CAUSLAV 3
BEGIN BEGIN
PROMPT 2 4 "Causale di default" PROMPT 2 12 "Causale di default"
USE &CAU USE &CAU
INPUT CODTAB F_CAUSLAV INPUT CODTAB F_CAUSLAV
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -323,7 +265,7 @@ END
STRING F_CAUSLAVDESC 50 47 STRING F_CAUSLAVDESC 50 47
BEGIN BEGIN
PROMPT 28 4 "" PROMPT 28 12 ""
USE CAU KEY 2 USE CAU KEY 2
INPUT S0 F_CAUSLAVDESC INPUT S0 F_CAUSLAVDESC
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -332,74 +274,105 @@ BEGIN
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
GROUPBOX DLG_NULL 78 13 LISTBOX F_TIPOIMB 1 8
BEGIN 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 END
BOOLEAN F_SSCONS BOOLEAN F_SSCONS
BEGIN BEGIN
PROMPT 2 7 "Spese di spedizione alla consegna" PROMPT 2 16 "Spese di spedizione alla consegna"
FIELD SSCONS FIELD SSCONS
END END
BOOLEAN F_PROFORME BOOLEAN F_PROFORME
BEGIN BEGIN
PROMPT 2 8 "Proforme(progetti)" PROMPT 45 16 "Proforme(progetti)"
FIELD PROFORME FIELD PROFORME
END END
BOOLEAN F_STRCONS BOOLEAN F_STRCONS
BEGIN BEGIN
PROMPT 2 9 "Stampa di riepilogo consegne" PROMPT 2 17 "Stampa di riepilogo consegne"
FIELD STRCONS FIELD STRCONS
END END
BOOLEAN F_CICLAGGIO
BEGIN
PROMPT 2 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
END
BOOLEAN F_STPRZBOL BOOLEAN F_STPRZBOL
BEGIN BEGIN
PROMPT 2 11 "Visualizza prezzo in bolla" PROMPT 45 17 "Visualizza prezzo in bolla"
FIELD STPRZBOL FIELD STPRZBOL
END END
BOOLEAN F_STETIMATI BOOLEAN F_STETIMATI
BEGIN BEGIN
PROMPT 2 12 "Stampa etichette con MATI" PROMPT 2 18 "Stampa etichette con MATI"
FIELD STETIMATI FIELD STETIMATI
END END
BOOLEAN F_STETITS BOOLEAN F_STETITS
BEGIN BEGIN
PROMPT 2 13 "Stampa etic. con Touch-Screen" PROMPT 45 18 "Stampa etic. con Touch-Screen"
FIELD STETITS FIELD STETITS
END END
BOOLEAN F_STDDTPTS BOOLEAN F_STDDTPTS
BEGIN BEGIN
PROMPT 2 14 "Stampa DDT da pulito con Touch-Screen" PROMPT 2 19 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS FIELD STDDTPTS
END END
BOOLEAN F_STDICITURA BOOLEAN F_STDICITURA
BEGIN BEGIN
PROMPT 2 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'" PROMPT 45 19 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
FIELD STDICITURA FIELD STDICITURA
END END
BOOLEAN F_RITAUDTTMP BOOLEAN F_RITAUDTTMP
BEGIN BEGIN
PROMPT 2 16 "Ritiro automatico dotazione temporanea" PROMPT 2 20 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP FIELD RITAUDTTMP
END END
BOOLEAN F_TIPOSTPRZ BOOLEAN F_TIPOSTPRZ
BEGIN BEGIN
PROMPT 2 17 "Stampa prezzo in bolla" PROMPT 45 20 "Stampa prezzo in bolla"
FIELD TIPOSTPRZ FIELD TIPOSTPRZ
END END
@ -428,9 +401,9 @@ END
ENDPAGE ENDPAGE
PAGE "" -1 -1 80 20 PAGE "Riga Contratto" -1 -1 80 20
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "@b Contratto" PROMPT 1 0 "@b Contratto"
END END
@ -442,7 +415,7 @@ BEGIN
NUM_CALC #-F_CODCF NUM_CALC #-F_CODCF
END END
STRING S_RAGSOC 50 STRING S_RAGSOC 50 28
BEGIN BEGIN
PROMPT 25 1 "" PROMPT 25 1 ""
FLAGS "DG" FLAGS "DG"
@ -451,19 +424,19 @@ END
NUMBER S_CODCONT 6 NUMBER S_CODCONT 6
BEGIN BEGIN
PROMPT 2 2 "Contratto N. " PROMPT 55 1 "Contratto N. "
FLAGS "DG" FLAGS "DG"
NUM_CALC #-F_CODCONT NUM_CALC #-F_CODCONT
END END
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 5
BEGIN BEGIN
PROMPT 1 4 "@b Articolo" PROMPT 1 3 "@b Articolo"
END END
STRING S_CODART 20 STRING S_CODART 20
BEGIN BEGIN
PROMPT 2 5 "" PROMPT 2 4 ""
FLAGS "U" FLAGS "U"
USE LF_ANAMAG USE LF_ANAMAG
INPUT CODART S_CODART INPUT CODART S_CODART
@ -472,14 +445,31 @@ BEGIN
OUTPUT S_CODART CODART OUTPUT S_CODART CODART
OUTPUT S_DESCR DESCR OUTPUT S_DESCR DESCR
OUTPUT S_PREZZOST COSTSTD OUTPUT S_PREZZOST COSTSTD
OUTPUT S_PPCONF PPCONF
OUTPUT S_PPCOLLO PPCOLLO
OUTPUT S_PPPALLET PPPALLET
FIELD CODART FIELD CODART
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
ADD RUN ve2 -3 ADD RUN ve2 -3
END END
STRING S_DESCR 50 STRING S_UM 2
BEGIN 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 USE LF_ANAMAG KEY 2
INPUT DESCR S_DESCR INPUT DESCR S_DESCR
DISPLAY "Descrizone@50" DESCR DISPLAY "Descrizone@50" DESCR
@ -488,14 +478,50 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 78 4 LISTBOX S_ARTBLOC 1 28
BEGIN 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 END
LISTBOX S_TIPOFORF 1 25 LISTBOX S_TIPOFORF 1 25
BEGIN BEGIN
PROMPT 2 8 "Tipo Forfait " PROMPT 2 9 "Tipo "
ITEM "0|Nessuno" ITEM "0|Nessuno"
MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@ MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
ITEM "1|A valore fisso" ITEM "1|A valore fisso"
@ -513,7 +539,7 @@ END
LISTBOX S_NOLCIC 1 20 LISTBOX S_NOLCIC 1 20
BEGIN BEGIN
PROMPT 45 8 "In base a " PROMPT 45 9 "In base a "
ITEM "I|Dot. iniziale" ITEM "I|Dot. iniziale"
ITEM "O|Dot. odierna" ITEM "O|Dot. odierna"
GROUP 1 GROUP 1
@ -521,202 +547,129 @@ END
NUMBER S_FORFPERCL 6 2 NUMBER S_FORFPERCL 6 2
BEGIN BEGIN
PROMPT 2 9 "% Cliente " PROMPT 2 10 "% Cliente "
FIELD FORFPERCL FIELD FORFPERCL
GROUP 3 GROUP 3
END END
LISTBOX S_VCARTCLI 1 20 LISTBOX S_VCARTCLI 1 20
BEGIN BEGIN
PROMPT 45 9 "Per " PROMPT 45 10 "Per "
ITEM "N|Nessuno" ITEM "N|Nessuno"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "A|Articolo" ITEM "A|Articolo"
GROUP 1 GROUP 1
END END
GROUPBOX DLG_NULL 78 5
BEGIN
PROMPT 1 11 "@b Prezzo"
END
CURRENCY S_PREZZOST 15 CURRENCY S_PREZZOST 15
BEGIN BEGIN
PROMPT 2 12 "In vigore " PROMPT 2 11 "In vigore "
FIELD PREZZO FIELD PREZZO
GROUP 2 GROUP 2
END END
CURRENCY S_PREZZORN 15 CURRENCY S_PREZZORN 15
BEGIN BEGIN
PROMPT 30 12 "Di rinnovo " PROMPT 30 11 "Di rinnovo "
FIELD PREZRIN FIELD PREZRIN
GROUP 2 GROUP 2
END END
NUMBER S_SCONTO 6 2 NUMBER S_SCONTO 6 2
BEGIN BEGIN
PROMPT 60 12 "Sconto %" PROMPT 60 11 "Sconto %"
FIELD SCONTPERC FIELD SCONTPERC
END END
CURRENCY S_PREZDAN 15 CURRENCY S_PREZDAN 15
BEGIN BEGIN
PROMPT 2 13 "Danneggiati" PROMPT 2 12 "Danneggiati"
FLAGS "U" FLAGS "U"
FIELD PREZDAN FIELD PREZDAN
END END
BOOLEAN S_FATTKG BOOLEAN S_FATTKG
BEGIN BEGIN
PROMPT 30 13 "Fatturazione a Kg." PROMPT 30 12 "Fatturazione a Kg."
FIELD FATTKG FIELD FATTKG
END END
BOOLEAN S_ARROT BOOLEAN S_ARROT
BEGIN BEGIN
PROMPT 60 13 "Arrotondamento" PROMPT 60 12 "Arrotondamento"
FIELD ARROT FIELD ARROT
END END
CURRENCY S_IMPFISART 15 CURRENCY S_IMPFISART 15
BEGIN BEGIN
PROMPT 2 14 "Impor.fisso" PROMPT 2 13 "Imp.fisso "
FIELD IMPFISART FIELD IMPFISART
END END
CURRENCY S_VALCONV 15 CURRENCY S_VALCONV 15
BEGIN BEGIN
PROMPT 30 14 "Val.Conven." PROMPT 30 13 "Val.Conven."
FLAGS "U" FLAGS "U"
FIELD VALCONV FIELD VALCONV
GROUP 3 GROUP 3
END END
GROUPBOX DLG_NULL 78 3 NUMBER S_MINCIC 4 2
BEGIN 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 END
NUMBER S_DOTIN 9 NUMBER S_DOTIN 9
BEGIN BEGIN
PROMPT 2 17 "Iniziale" PROMPT 2 16 "Iniziale"
FIELD DOTIN FIELD DOTIN
END END
NUMBER S_DOTOD 9 NUMBER S_DOTOD 9
BEGIN BEGIN
PROMPT 30 17 "Odierna" PROMPT 21 16 "Odierna"
FLAGS "D" FLAGS "D"
END END
NUMBER S_DOTTMP 9 NUMBER S_DOTTMP 9
BEGIN BEGIN
PROMPT 56 17 "Temporanea" PROMPT 39 16 "Temporanea"
FIELD DOTTMP FIELD DOTTMP
END 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 NUMBER S_CONG 9
BEGIN BEGIN
PROMPT 25 22 "Conguaglio" PROMPT 59 16 "Conguaglio"
FIELD QTACONG FIELD QTACONG
END END
STRING S_CAUSLAV 3 CURRENCY S_PRZDTTMP 15
BEGIN BEGIN
PROMPT 50 22 "Causale di default" PROMPT 2 17 "Prezzo dotazione temporanea "
USE &CAU FLAGS "U"
INPUT CODTAB S_CAUSLAV FIELD PRZDTTMP
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CAUSLAV CODTAB
FIELD CAUSLAV
CHECKTYPE NORMAL
END END
ENDPAGE BOOLEAN S_RITAUDTTMP
BEGIN
PAGE "" -1 -1 80 20 PROMPT 56 17 "Ritiro automatico dotazione"
FIELD RITAUDTTMP
END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 0 "@b Contratto" PROMPT 1 19 "@b Consegnato"
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"
END END
LISTBOX S_CALCCONS 1 34 LISTBOX S_CALCCONS 1 34
BEGIN BEGIN
PROMPT 2 5 "Calcolo" PROMPT 2 20 "Calcolo"
ITEM "0|Conguaglio alla confezione" ITEM "0|Conguaglio alla confezione"
ITEM "1|Uguale al ritirato" ITEM "1|Uguale al ritirato"
FIELD CALCCONS FIELD CALCCONS
@ -724,128 +677,38 @@ END
NUMBER S_CONSMESE 9 NUMBER S_CONSMESE 9
BEGIN BEGIN
PROMPT 47 5 "Mese" PROMPT 47 20 "Mese"
FLAGS "D" FLAGS "D"
END END
NUMBER S_CONSANNO 9 NUMBER S_CONSANNO 9
BEGIN BEGIN
PROMPT 62 5 "Anno" PROMPT 62 20 "Anno"
FLAGS "D" FLAGS "D"
END END
LISTBOX S_ARTBLOC 1 28 STRING S_CAUSLAV 3
BEGIN BEGIN
PROMPT 2 7 "Articolo bloccato" PROMPT 2 21 "Causale di default"
ITEM "0|Nessuna" USE &CAU
ITEM "1|Articolo in sostituzione" INPUT CODTAB S_CAUSLAV
ITEM "2|Cliente in chiusura" DISPLAY "Codice" CODTAB
ITEM "3|Contratto in rinnovo" DISPLAY "Descrizione@50" S0
FIELD ARTBLOC OUTPUT S_CAUSLAV CODTAB
OUTPUT S_CAUSLAVDESC S0
FIELD CAUSLAV
CHECKTYPE NORMAL
END END
LISTBOX S_TIPONOL 1 10 STRING S_CAUSLAVDESC 50 47
BEGIN BEGIN
PROMPT 51 7 "Tipo Noleggio " PROMPT 28 21 ""
FIELD TIPONOL USE CAU KEY 2
FLAGS "D" INPUT S0 S_CAUSLAVDESC
END DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT S_CAUSLAV
NUMBER S_PPCONF 9 CHECKTYPE NORMAL
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
END END
ENDPAGE ENDPAGE

4
lv/lvtbcau.uml
View File

@ -65,7 +65,7 @@ BEGIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSALE_RITIRO CODTAB OUTPUT F_CAUSALE_RITIRO CODTAB
OUTPUT F_DES_CAUSALE_RITIRO S0 OUTPUT F_DES_CAUSALE_RITIRO S0
VALIDATE REQIF_FUNC TRUE F_RITIRATO CHECKTYPE REQUIRED
WARNING "Causale ritirato obbligatoria" WARNING "Causale ritirato obbligatoria"
GROUP 1 GROUP 1
FLAGS "D" FLAGS "D"
@ -107,7 +107,7 @@ BEGIN
OUTPUT F_CAUSALE_CONSEGNA CODTAB OUTPUT F_CAUSALE_CONSEGNA CODTAB
OUTPUT F_DES_CAUSALE_CONSEGNA S0 OUTPUT F_DES_CAUSALE_CONSEGNA S0
FIELD S2 FIELD S2
VALIDATE REQIF_FUNC TRUE F_CONSEGNATO CHECKTYPE REQUIRED
WARNING "Causale consegnato obbligatoria" WARNING "Causale consegnato obbligatoria"
GROUP 2 GROUP 2
FLAGS "D" FLAGS "D"