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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17150 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill 2008-09-02 10:38:36 +00:00
parent 2d7dcdd28c
commit bf8a3d98e1
8 changed files with 705 additions and 681 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lv/f169.dir
View File

@ -1,3 +1,3 @@
169 169
0 0
$lvrcondv|||312|0|Righe del contratto||| $lvrcondv|0|0|272|0|Righe del contratto|||

14
lv/f169.trr
View File

@ -1,5 +1,5 @@
169 169
38 28
CODCF|3|6|0|Codice cliente CODCF|3|6|0|Codice cliente
CODCONT|3|6|0|Codice contratto CODCONT|3|6|0|Codice contratto
CODART|1|20|0|Codice articolo CODART|1|20|0|Codice articolo
@ -28,17 +28,5 @@ FATTKG|8|1|0|Fatturazione in Kg
ARTBLOC|2|1|0|Articolo bloccato ARTBLOC|2|1|0|Articolo bloccato
CALCCONS|2|1|0|Calcolo consegnato CALCCONS|2|1|0|Calcolo consegnato
TIPONOL|2|1|0|Tipo noleggio TIPONOL|2|1|0|Tipo noleggio
COLORE|1|20|0|Colore
LIVELLO|1|1|0|Livello
TIPOPARTE|1|1|0|Tipo parte
CODLAV1|1|3|0|Codice lavaggio 1
CODLAV2|1|3|0|Codice lavaggio 2
LINDEST1|1|3|0|Linea destinazione 1
LINDEST2|1|3|0|Linea destinazione 2
LAVATRICE|1|3|0|Lavatrice
ARTLAVCONT|1|4|0|Art. Lavacont
MANGDEST|1|3|0|Mangano destinazione
1 1
CODCF+CODCONT+CODART| CODCF+CODCONT+CODART|

42
lv/lv0400.cpp
View File

@ -1,13 +1,13 @@
#include <msksheet.h> #include <msksheet.h>
#include <relapp.h> #include <relapp.h>
#include <recarray.h>
#include <recset.h> #include <recset.h>
#include "lv0400.h" #include "lv0400.h"
class TContratti_app: public TRelation_application class TContratti_app: public TRelation_application
{ {
TMask* _amsk; TMask* _msk;
TMask* _bmsk;
TRelation* _rel; TRelation* _rel;
bool _unicont; bool _unicont;
@ -17,8 +17,7 @@ private:
int find_art(TSheet_field& s,const TString& art) const; int find_art(TSheet_field& s,const TString& art) const;
protected: protected:
virtual bool changing_mask (int mode) { return true;} virtual TMask* get_mask (int mode) {return _msk; }
virtual TMask* get_mask (int mode) {return mode==MODE_QUERY?_amsk:_bmsk; }
virtual TRelation* get_relation() const {return _rel;} virtual TRelation* get_relation() const {return _rel;}
virtual bool user_create(); virtual bool user_create();
@ -29,21 +28,22 @@ protected:
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual bool remove(); virtual bool remove();
static bool notify(TSheet_field& ss, int r, KEY key);
}; };
bool TContratti_app:: user_create() bool TContratti_app:: user_create()
{ {
_rel=new TRelation (LF_LVCONDV); _rel=new TRelation (LF_LVCONDV);
_amsk= new TMask ("lv0400a"); _msk= new TMask ("lv0400a");
_bmsk= new TMask ("lv0400b"); TSheet_field& sheet = _msk->sfield(F_RIGHE);
sheet.set_notify(notify );
return true; return true;
} }
bool TContratti_app:: user_destroy() bool TContratti_app:: user_destroy()
{ {
delete _bmsk; delete _msk;
delete _amsk;
delete _rel; delete _rel;
return true; return true;
} }
@ -56,7 +56,7 @@ void TContratti_app:: on_config_change()
bool TContratti_app:: get_next_key(TToken_string& key) bool TContratti_app:: get_next_key(TToken_string& key)
{ {
const long cliente=_amsk->get_long(F_CODCF); const long cliente=_msk->get_long(F_CODCF);
if (cliente<=0) return false; if (cliente<=0) return false;
key.add(F_CODCF); key.add(F_CODCF);
key.add(cliente); key.add(cliente);
@ -91,6 +91,28 @@ bool TContratti_app:: get_next_key(TToken_string& key)
return true; return true;
} }
bool TContratti_app::notify( TSheet_field& ss, int r, KEY key )
{
TMask& m = ss.mask();
switch (key)
{
case K_TAB: // modifica
{
TToken_string & row = ss.row(ss.selected());
const TString80 codart(row.get(ss.cid2index(S_CODART)));
const TRectype & artrec = cache().get(LF_ANAMAG, codart);
}
break;
default:
break;
}
return true;
}
void TContratti_app:: build_query(const TMask& m,TString& query) const void TContratti_app:: build_query(const TMask& m,TString& query) const
{ {
query=""; query="";
@ -194,7 +216,7 @@ bool TContratti_app::remove()
if(ok) if(ok)
{ {
TString query; TString query;
build_query(*_bmsk,query); build_query(*_msk,query);
TISAM_recordset righeset(query); TISAM_recordset righeset(query);
TLocalisamfile& file=righeset.cursor()->file(); TLocalisamfile& file=righeset.cursor()->file();
for (bool ok=righeset.move_first(); ok; ok=righeset.move_next()) for (bool ok=righeset.move_first(); ok; ok=righeset.move_next())

75
lv/lv0400.h
View File

@ -6,39 +6,48 @@
#define F_RIGHE 206 #define F_RIGHE 206
#define F_TIPOLOGIA 207 #define F_TIPOLOGIA 207
#define F_COLORE 208 #define F_COLORE 208
#define F_PPCONF 209 #define F_LIVELLO 209
#define F_PPCOLLO 210 #define F_PPCONF 210
#define F_PPPALLET 211 #define F_PPCOLLO 211
#define F_PERFAT 212 #define F_PPPALLET 212
#define F_TIPOCAN 213 #define F_TIPOPARTE 213
#define F_INPERFAT 214 #define F_CODLAV1 214
#define F_DTLASTFAT 215 #define F_CODLAV2 215
#define F_ATTFATNODT 216 #define F_LINDEST1 216
#define F_FORFNOCONS 217 #define F_LINDEST2 217
#define F_TIPOSTPRZ 218 #define F_LAVATRICE 218
#define F_TIPOLIS 219 #define F_ARTLAVONCT 219
#define F_TIPOIMB 220 #define F_MANGDEST 220
#define F_CAUSMAG 221 #define F_PERFAT 221
#define F_CAUSMAGDESC 222 #define F_TIPOCAN 222
#define F_CONTSPOR 223 #define F_INPERFAT 223
#define F_SSCONS 224 #define F_DTLASTFAT 224
#define F_RIFBOLFAT 225 #define F_ATTFATNODT 225
#define F_ADDCAPROT 226 #define F_FORFNOCONS 226
#define F_PROFORME 227 #define F_TIPOSTPRZ 227
#define F_STRCONS 228 #define F_TIPOLIS 228
#define F_FATTSOSP 229 #define F_TIPOIMB 229
#define F_STDICITURA 230 #define F_CAUSMAG 230
#define F_CICLAGGIO 231 #define F_CAUSMAGDESC 231
#define F_STPRZBOL 232 #define F_CONTSPOR 232
#define F_STETIMATI 233 #define F_SSCONS 233
#define F_STETITS 234 #define F_RIFBOLFAT 234
#define F_STDDTPTS 235 #define F_ADDCAPROT 235
#define F_IMPMINFAT 236 #define F_PROFORME 236
#define F_PERCNOCONT 237 #define F_STRCONS 237
#define F_PERCTOLPES 238 #define F_FATTSOSP 238
#define F_NUMUT 239 #define F_STDICITURA 239
#define F_NUMETI 240 #define F_CICLAGGIO 240
#define F_RITAUDTTMP 241 #define F_STPRZBOL 241
#define F_STETIMATI 242
#define F_STETITS 243
#define F_STDDTPTS 244
#define F_IMPMINFAT 245
#define F_PERCNOCONT 246
#define F_PERCTOLPES 247
#define F_NUMUT 248
#define F_NUMETI 249
#define F_RITAUDTTMP 250
#define S_CODART 101 #define S_CODART 101
#define S_DESCR 102 #define S_DESCR 102
#define S_UM 103 #define S_UM 103

618
lv/lv0400a.uml
View File

@ -4,16 +4,16 @@ TOOLBAR "" 0 0 0 2
#include <relapbar.h> #include <relapbar.h>
ENDPAGE ENDPAGE
PAGE "Contratti" 0 2 0 0 PAGE "Contratto" 0 2 0 0
GROUPBOX DLG_NULL 78 6 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 0 4 "@bContratti" PROMPT 1 1 "@bContratti"
END END
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 2 5 "Cliente " PROMPT 2 2 "Cliente "
FIELD CODCF FIELD CODCF
FLAGS "U" FLAGS "U"
KEY 1 KEY 1
@ -29,7 +29,8 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 25 5 "" PROMPT 26 2 ""
KEY 2
USE LF_CLIFO KEY 2 USE LF_CLIFO KEY 2
INPUT TIPOCF "C" INPUT TIPOCF "C"
INPUT RAGSOC F_RAGSOC INPUT RAGSOC F_RAGSOC
@ -41,7 +42,7 @@ END
NUMBER F_CODCONT 6 NUMBER F_CODCONT 6
BEGIN BEGIN
PROMPT 2 6 "Contratto N." PROMPT 2 3 "Contratto N."
USE LF_LVCONDV USE LF_LVCONDV
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
INPUT CODCF F_CODCF INPUT CODCF F_CODCF
@ -56,10 +57,613 @@ BEGIN
OUTPUT F_CODCONT CODCONT OUTPUT F_CODCONT CODCONT
FLAGS "U" FLAGS "U"
FIELD CODCONT FIELD CODCONT
KEY 1 KEY 1 2
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
DATE F_DATAIN
BEGIN
PROMPT 24 3 "Data di inizio"
FIELD DATAIN
CHECKTYPE REQUIRED
END
DATE F_DATASC
BEGIN
PROMPT 51 3 "Data di scadenza"
FIELD DATASC
CHECKTYPE REQUIRED
END
SPREADSHEET F_RIGHE 0 -6
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 "Importo fisso"
ITEM "Sconto %"
ITEM "Dot.Iniziale"
ITEM "Dot.Odierna"
ITEM "Consegnato Mese*"
ITEM "Consegnato anno"
ITEM "Dot.Temporanea"
ITEM "Prezzo Dot.Temp."
ITEM "Inizio Dot.Temp."
ITEM "Fine Dot.Temp."
ITEM "Prezzo Danneggiati"
ITEM "Val. convenzionale"
ITEM "Articolo bloccato"
ITEM "Calcolo consegnato"
ITEM "Tipo Forfait"
ITEM "%Forfait Cliente"
ITEM "Causale default"
ITEM "Tipo Noleggio"
ITEM "Ritiro aut.Dot.Temp."
ITEM "Fatturazione a kg"
ITEM "Arrotondamento"
END
LISTBOX F_TIPOLOGIA 12
BEGIN
PROMPT 1 -5 "Tipologia:"
ITEM "0|Nessuno"
ITEM "1|Sala bianca"
ITEM "2|Sala colore"
ITEM "3|Camera"
ITEM "4|Bagno cotone"
ITEM "5|Bagno spugna"
ITEM "6|Di proprietà"
ITEM "7|Sala bianca"
END
STRING F_COLORE 20
BEGIN
PROMPT 28 -5 "Colore"
END
STRING F_LIVELLO 1
BEGIN
PROMPT 57 -5 "Livello"
END
NUMBER F_PPCONF 9
BEGIN
PROMPT 1 -4 "Pezzi per Pacco:"
END
NUMBER F_PPCOLLO 9
BEGIN
PROMPT 28 -4 "Per Sacco:"
END
NUMBER F_PPPALLET 9
BEGIN
PROMPT 50 -4 "Per Carrello:"
END
STRING F_TIPOPARTE 1
BEGIN
PROMPT 1 -3 "Tipo Parte"
END
STRING F_CODLAV1 3
BEGIN
PROMPT 25 -3 "Cod. Lavaggio 1"
END
STRING F_CODLAV2 3
BEGIN
PROMPT 50 -3 "Cod. Lavaggio 2"
END
STRING F_LINDEST1 3
BEGIN
PROMPT 1 -2 "Linea destinazione 1"
END
STRING F_LINDEST2 3
BEGIN
PROMPT 25 -2 "Linea destinazione 2"
END
STRING F_LAVATRICE 3
BEGIN
PROMPT 50 -2 "Lavatrice"
END
STRING F_ARTLAVONCT 4
BEGIN
PROMPT 1 -1 "Art. Lavacont"
END
STRING F_MANGDEST 3
BEGIN
PROMPT 50 -1 "Mangano Destinazione"
END
ENDPAGE
PAGE "Opzioni" 0 2 0 0
GROUPBOX DLG_NULL 30 6
BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione"
END
RADIOBUTTON F_PERFAT 1 30
BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione"
ITEM "0|Giornaliero"
ITEM "1|Settimanale"
ITEM "2|Quindicinale"
ITEM "3|Mensile"
FIELD PERFAT
END
GROUPBOX DLG_NULL 50 6
BEGIN
PROMPT 31 1 ""
END
DATE F_INPERFAT
BEGIN
PROMPT 32 2 "Inizio primo periodo di fatturazione"
FIELD INPERFAT
END
DATE F_DTLASTFAT
BEGIN
PROMPT 32 3 "Data ultima fattura "
FIELD DTLASTFAT
END
CURRENCY F_IMPMINFAT 15
BEGIN
PROMPT 32 4 "Importo minimo fatturabile "
FIELD IMPMINFAT
END
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 32 5 "Escluso da fatturazione"
FIELD FATTSOSP
END
GROUPBOX DLG_NULL 38 9
BEGIN
PROMPT 1 7 "@bTipo canone"
END
RADIOBUTTON F_TIPOCAN 1 38
BEGIN
PROMPT 1 7 ""
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 7 "@bTipo Listino:"
ITEM "0|Prezzo nel contratto"
ITEM "1|Listino in anag.Articoli"
FIELD TIPOLIS
END
RADIOBUTTON F_TIPOIMB 1 14
BEGIN
PROMPT 66 7 "@bTipo imballo:"
ITEM "0|Sacco"
ITEM "1|Carrello"
FIELD TIPOIMB
END
RADIOBUTTON F_TIPOSTPRZ 1 40
BEGIN
PROMPT 40 11 "@bTipo 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
NUMBER F_PERCNOCONT 6 2
BEGIN
PROMPT 1 16 "Percentuale aumento per mancato conteggio "
FIELD PERCNOCONT
END
NUMBER F_PERCTOLPES 6 2
BEGIN
PROMPT 1 17 "Percentuale tolleranza peso teorico/effettivo"
FIELD PERCTOLPES
END
NUMBER F_NUMUT 5
BEGIN
PROMPT 60 16 "Num. utente "
FIELD NUMUT
END
NUMBER F_NUMETI 5
BEGIN
PROMPT 60 17 "Num. etichette"
FIELD NUMETI
END
STRING F_CAUSMAG 4
BEGIN
PROMPT 1 18 "Causale di default:"
USE CAU
INPUT CODTAB F_CAUSMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSMAG CODTAB
OUTPUT F_CAUSMAGDESC S0
FIELD CAUSMAG
CHECKTYPE NORMAL
END
STRING F_CAUSMAGDESC 50
BEGIN
PROMPT 1 19 "Descrizione "
USE CAU KEY 2
INPUT S0 F_CAUSMAGDESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAUSMAG
CHECKTYPE NORMAL
END
RADIOBUTTON F_CONTSPOR 1 80
BEGIN
PROMPT 1 20 "@bConta dello sporco"
ITEM "0|Nessuno"
ITEM "1|Sporco"
ITEM "2|Solo pulito"
ITEM "3|Touch-Screen"
FIELD CONTSPOR
FLAG "Z"
END
ENDPAGE
PAGE "Opzioni 2" 0 2 0 0
GROUPBOX DLG_NULL 58 16
BEGIN
PROMPT 15 2 ""
END
BOOLEAN F_ATTFATNODT
BEGIN
PROMPT 16 3 "Attiva fatturazione indipendentemente dalla data"
FIELD ATTFATNODT
END
BOOLEAN F_FORFNOCONS
BEGIN
PROMPT 16 4 "Non fatturare forfait se senza consegne"
FIELD FORFNOCONS
END
BOOLEAN F_SSCONS
BEGIN
PROMPT 16 5 "Spese di spedizione alla consegna"
FIELD SSCONS
END
BOOLEAN F_RIFBOLFAT
BEGIN
PROMPT 16 6 "Riferimenti bolle in fattura"
FIELD RIFBOLFAT
END
BOOLEAN F_ADDCAPROT
BEGIN
PROMPT 16 7 "Addebita capi rotti in fattura"
FIELD ADDCAPROT
END
BOOLEAN F_PROFORME
BEGIN
PROMPT 16 8 "Proforme(progetti)"
FIELD PROFORME
END
BOOLEAN F_STRCONS
BEGIN
PROMPT 16 9 "Stampa di riepilogo consegne"
FIELD STRCONS
END
BOOLEAN F_CICLAGGIO
BEGIN
PROMPT 16 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
END
BOOLEAN F_STPRZBOL
BEGIN
PROMPT 16 11 "Visualizza prezzo in bolla"
FIELD STPRZBOL
END
BOOLEAN F_STETIMATI
BEGIN
PROMPT 16 12 "Stampa etichette con MATI"
FIELD STETIMATI
END
BOOLEAN F_STETITS
BEGIN
PROMPT 16 13 "Stampa etic. con Touch-Screen"
FIELD STETITS
END
BOOLEAN F_STDDTPTS
BEGIN
PROMPT 16 14 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS
END
BOOLEAN F_STDICITURA
BEGIN
PROMPT 16 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
FIELD STDICITURA
END
BOOLEAN F_RITAUDTTMP
BEGIN
PROMPT 16 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "" -1 -1 80 20
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "@bArt"
END
STRING S_CODART 20
BEGIN
PROMPT 1 2 ""
FLAGS "U"
USE LF_ANAMAG
INPUT CODART S_CODART
DISPLAY "Articolo" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT S_CODART CODART
OUTPUT S_DESCR DESCR
OUTPUT S_PREZZOST COSTSTD
FIELD CODART
CHECKTYPE REQUIRED
END
STRING S_DESCR 50
BEGIN
PROMPT 26 2 ""
USE LF_ANAMAG KEY 2
INPUT DESCR S_DESCR
DISPLAY "Descrizone@50" DESCR
DISPLAY "Articolo" CODART
COPY OUTPUT S_CODART
CHECKTYPE REQUIRED
END
CURRENCY S_PREZZOST 15
BEGIN
PROMPT 1 4 "Prezzo in vigore "
FIELD PREZZO
END
CURRENCY S_PREZZORN 15
BEGIN
PROMPT 45 4 "Prezzo di rinnovo "
FIELD PREZRIN
END
CURRENCY S_IMPFISART 15
BEGIN
PROMPT 1 5 "Importo fisso "
FIELD IMPFISART
END
NUMBER S_SCONTO 6 2
BEGIN
PROMPT 45 5 "Sconto % "
FIELD SCONTPERC
END
NUMBER S_CONG 9
BEGIN
PROMPT 1 6 "Conguaglio "
FIELD QTACONG
END
CURRENCY S_VALCONV 15
BEGIN
PROMPT 45 6 "Val. convenzionale"
FLAGS "U"
FIELD VALCONV
END
LISTBOX S_ARTBLOC 25
BEGIN
PROMPT 1 7 "Articolo bloccato "
ITEM "0|Nessuna"
ITEM "1|Articolo in sostituzione"
ITEM "2|Cliente in chiusura"
ITEM "3|Contratto in rinnovo"
FIELD ARTBLOC
END
STRING S_UM 2
BEGIN
PROMPT 59 7 "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
LISTBOX S_TIPOFORF 34
BEGIN
PROMPT 1 8 "Tipo Forfait"
ITEM "0|Nessuno"
ITEM "1|A valore fisso"
ITEM "2|Nolo in base a dot. iniziale"
ITEM "3|Nolo in base a dot. odierna"
ITEM "4|Ciclaggio in base a dot. odierna"
ITEM "5|Ciclaggio in base a dot. iniziale"
ITEM "6|% sul val. convenz. per articolo"
ITEM "7|% sul val. convenz. per cliente"
ITEM "8|Fisso in base alla dot. iniziale"
FIELD TIPOFORF
END
NUMBER S_FORFPERCL 6 2
BEGIN
PROMPT 55 8 "% Forfait cliente"
FIELD FORFPERCL
END
CURRENCY S_PREZDAN 15
BEGIN
PROMPT 1 9 "Prezzo danneggiati "
FLAGS "U"
FIELD PREZDAN
END
STRING S_CAUSMAG 4
BEGIN
PROMPT 52 9 "Causale di default: "
USE CAU
INPUT CODTAB S_CAUSMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CAUSMAG CODTAB
FIELD CAUSMAG
CHECKTYPE NORMAL
END
LISTBOX S_CALCCONS 26
BEGIN
PROMPT 14 10 "Calcolo del consegnato "
ITEM "0|Conguaglio alla confezione"
ITEM "1|Uguale al ritirato"
FIELD CALCCONS
END
NUMBER S_CONSMESE 9
BEGIN
PROMPT 14 11 "Qtà. consegnata nel mese "
FIELD CONSMESE
END
NUMBER S_CONSANNO 9
BEGIN
PROMPT 14 12 "Qtà. consegnata nell'anno "
FIELD CONSANNO
END
NUMBER S_DOTIN 9
BEGIN
PROMPT 1 13 "Dotazione iniziale "
FIELD DOTIN
END
NUMBER S_DOTOD 9
BEGIN
PROMPT 40 13 "Dotazione odierna "
FIELD DOTOD
END
NUMBER S_DOTTMP 9
BEGIN
PROMPT 1 14 "Dotazione temporanea "
FIELD DOTTMP
END
CURRENCY S_PRZDTTMP 15
BEGIN
PROMPT 40 14 "Prezzo dot. temporanea"
FLAGS "U"
FIELD PRZDTTMP
END
DATE S_INDTTMP
BEGIN
PROMPT 1 15 "Inizio dot. temporanea "
FIELD INDTTMP
END
DATE S_FIDTTMP
BEGIN
PROMPT 40 15 "Fine dot. temporanea "
FIELD FIDTTMP
END
LISTBOX S_TIPONOL 15
BEGIN
PROMPT 1 16 "Tipo Noleggio"
FIELD TIPONOL
FLAGS "D"
END
BOOLEAN S_RITAUDTTMP
BEGIN
PROMPT 40 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
END
BOOLEAN S_FATTKG
BEGIN
PROMPT 1 17 "Fatturazione a Kg."
FIELD FATTKG
END
BOOLEAN S_ARROT
BEGIN
PROMPT 40 17 "Arrotondamento"
FIELD ARROT
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK

609
lv/lv0400b.uml
View File

@ -1,609 +0,0 @@
#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 "UD"
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 RAGSOC
CHECKTYPE REQUIRED
END
STRING F_RAGSOC 50
BEGIN
PROMPT 27 2 ""
FLAGS "D"
END
NUMBER F_CODCONT 6
BEGIN
PROMPT 2 3 "Contratto N."
FLAGS "UD"
FIELD CODCONT
KEY 1
CHECKTYPE REQUIRED
END
DATE F_DATAIN
BEGIN
PROMPT 23 3 "Data di inizio"
FIELD DATAIN
CHECKTYPE REQUIRED
END
DATE F_DATASC
BEGIN
PROMPT 51 3 "Data di scadenza"
FIELD DATASC
CHECKTYPE REQUIRED
END
SPREADSHEET F_RIGHE 0 -6
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 "Importo fisso"
ITEM "Sconto %"
ITEM "Dot.Iniziale"
ITEM "Dot.Odierna"
ITEM "Consegnato Mese*"
ITEM "Consegnato anno"
ITEM "Dot.Temporanea"
ITEM "Prezzo Dot.Temp."
ITEM "Inizio Dot.Temp."
ITEM "Fine Dot.Temp."
ITEM "Prezzo Danneggiati"
ITEM "Val. convenzionale"
ITEM "Articolo bloccato"
ITEM "Calcolo consegnato"
ITEM "Tipo Forfait"
ITEM "%Forfait Cliente"
ITEM "Causale default"
ITEM "Tipo Noleggio"
ITEM "Ritiro aut.Dot.Temp."
ITEM "Fatturazione a kg"
ITEM "Arrotondamento"
END
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 17 "@bDettaglio Articolo selezionato"
END
LISTBOX F_TIPOLOGIA 12
BEGIN
PROMPT 1 -4 "Tipologia: "
ITEM "0|Nessuno"
ITEM "1|Sala bianca"
ITEM "2|Sala colore"
ITEM "3|Camera"
ITEM "4|Bagno cotone"
ITEM "5|Bagno spugna"
ITEM "6|Di proprietà"
ITEM "7|Sala bianca"
END
STRING F_COLORE 20
BEGIN
PROMPT 35 -4 "Colore "
END
NUMBER F_PPCONF 9
BEGIN
PROMPT 1 -3 "Pezzi per Pacco:"
END
NUMBER F_PPCOLLO 9
BEGIN
PROMPT 35 -3 "Per Sacco:"
END
NUMBER F_PPPALLET 9
BEGIN
PROMPT 1 -2 "Per Carrello: "
END
ENDPAGE
PAGE "Opzioni" 0 2 0 0
GROUPBOX DLG_NULL 30 6
BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione"
END
RADIOBUTTON F_PERFAT 1 30
BEGIN
PROMPT 1 1 "@bPeriodicità di fatturazione"
ITEM "0|Giornaliero"
ITEM "1|Settimanale"
ITEM "2|Quindicinale"
ITEM "3|Mensile"
FIELD PERFAT
END
GROUPBOX DLG_NULL 50 6
BEGIN
PROMPT 31 1 ""
END
DATE F_INPERFAT
BEGIN
PROMPT 32 2 "Inizio primo periodo di fatturazione"
FIELD INPERFAT
END
DATE F_DTLASTFAT
BEGIN
PROMPT 32 3 "Data ultima fattura "
FIELD DTLASTFAT
END
CURRENCY F_IMPMINFAT 15
BEGIN
PROMPT 32 4 "Importo minimo fatturabile "
FIELD IMPMINFAT
END
BOOLEAN F_FATTSOSP
BEGIN
PROMPT 32 5 "Escluso da fatturazione"
FIELD FATTSOSP
END
GROUPBOX DLG_NULL 38 9
BEGIN
PROMPT 1 7 "@bTipo canone"
END
RADIOBUTTON F_TIPOCAN 1 38
BEGIN
PROMPT 1 7 ""
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 7 "@bTipo Listino:"
ITEM "0|Prezzo nel contratto"
ITEM "1|Listino in anag.Articoli"
FIELD TIPOLIS
END
RADIOBUTTON F_TIPOIMB 1 14
BEGIN
PROMPT 66 7 "@bTipo imballo:"
ITEM "0|Sacco"
ITEM "1|Carrello"
FIELD TIPOIMB
END
RADIOBUTTON F_TIPOSTPRZ 1 40
BEGIN
PROMPT 40 11 "@bTipo 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
NUMBER F_PERCNOCONT 6 2
BEGIN
PROMPT 1 16 "Percentuale aumento per mancato conteggio "
FIELD PERCNOCONT
END
NUMBER F_PERCTOLPES 6 2
BEGIN
PROMPT 1 17 "Percentuale tolleranza peso teorico/effettivo"
FIELD PERCTOLPES
END
NUMBER F_NUMUT 5
BEGIN
PROMPT 60 16 "Num. utente "
FIELD NUMUT
END
NUMBER F_NUMETI 5
BEGIN
PROMPT 60 17 "Num. etichette"
FIELD NUMETI
END
STRING F_CAUSMAG 4
BEGIN
PROMPT 1 18 "Causale di default:"
USE CAU
INPUT CODTAB F_CAUSMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CAUSMAG CODTAB
OUTPUT F_CAUSMAGDESC S0
FIELD CAUSMAG
CHECKTYPE NORMAL
END
STRING F_CAUSMAGDESC 50
BEGIN
PROMPT 1 19 "Descrizione "
USE CAU KEY 2
INPUT S0 F_CAUSMAGDESC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CAUSMAG
CHECKTYPE NORMAL
END
RADIOBUTTON F_CONTSPOR 1 80
BEGIN
PROMPT 1 20 "@bConta dello sporco"
ITEM "0|Nessuno"
ITEM "1|Sporco"
ITEM "2|Solo pulito"
ITEM "3|Touch-Screen"
FIELD CONTSPOR
FLAG "Z"
END
ENDPAGE
PAGE "Opzioni 2" 0 2 0 0
GROUPBOX DLG_NULL 58 16
BEGIN
PROMPT 15 2 ""
END
BOOLEAN F_ATTFATNODT
BEGIN
PROMPT 16 3 "Attiva fatturazione indipendentemente dalla data"
FIELD ATTFATNODT
END
BOOLEAN F_FORFNOCONS
BEGIN
PROMPT 16 4 "Non fatturare forfait se senza consegne"
FIELD FORFNOCONS
END
BOOLEAN F_SSCONS
BEGIN
PROMPT 16 5 "Spese di spedizione alla consegna"
FIELD SSCONS
END
BOOLEAN F_RIFBOLFAT
BEGIN
PROMPT 16 6 "Riferimenti bolle in fattura"
FIELD RIFBOLFAT
END
BOOLEAN F_ADDCAPROT
BEGIN
PROMPT 16 7 "Addebita capi rotti in fattura"
FIELD ADDCAPROT
END
BOOLEAN F_PROFORME
BEGIN
PROMPT 16 8 "Proforme(progetti)"
FIELD PROFORME
END
BOOLEAN F_STRCONS
BEGIN
PROMPT 16 9 "Stampa di riepilogo consegne"
FIELD STRCONS
END
BOOLEAN F_CICLAGGIO
BEGIN
PROMPT 16 10 "Ciclaggio su 2 righe"
FIELD CICLAGGIO
END
BOOLEAN F_STPRZBOL
BEGIN
PROMPT 16 11 "Visualizza prezzo in bolla"
FIELD STPRZBOL
END
BOOLEAN F_STETIMATI
BEGIN
PROMPT 16 12 "Stampa etichette con MATI"
FIELD STETIMATI
END
BOOLEAN F_STETITS
BEGIN
PROMPT 16 13 "Stampa etic. con Touch-Screen"
FIELD STETITS
END
BOOLEAN F_STDDTPTS
BEGIN
PROMPT 16 14 "Stampa DDT da pulito con Touch-Screen"
FIELD STDDTPTS
END
BOOLEAN F_STDICITURA
BEGIN
PROMPT 16 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
FIELD STDICITURA
END
BOOLEAN F_RITAUDTTMP
BEGIN
PROMPT 16 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
END
ENDPAGE
ENDMASK
PAGE "" -1 -1 80 20
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "@bArt"
END
STRING S_CODART 20
BEGIN
PROMPT 1 2 ""
FLAGS "U"
USE LF_ANAMAG
INPUT CODART S_CODART
DISPLAY "Articolo" CODART
DISPLAY "Descrizione@50" DESCR
OUTPUT S_CODART CODART
OUTPUT S_DESCR DESCR
OUTPUT S_PREZZOST COSTSTD
FIELD CODART
CHECKTYPE REQUIRED
END
STRING S_DESCR 50
BEGIN
PROMPT 26 2 ""
USE LF_ANAMAG KEY 2
INPUT DESCR S_DESCR
DISPLAY "Descrizone@50" DESCR
DISPLAY "Articolo" CODART
COPY OUTPUT S_CODART
CHECKTYPE REQUIRED
END
CURRENCY S_PREZZOST 15
BEGIN
PROMPT 1 4 "Prezzo in vigore "
FIELD PREZZO
END
CURRENCY S_PREZZORN 15
BEGIN
PROMPT 45 4 "Prezzo di rinnovo "
FIELD PREZRIN
END
CURRENCY S_IMPFISART 15
BEGIN
PROMPT 1 5 "Importo fisso "
FIELD IMPFISART
END
NUMBER S_SCONTO 6 2
BEGIN
PROMPT 45 5 "Sconto % "
FIELD SCONTPERC
END
NUMBER S_CONG 9
BEGIN
PROMPT 1 6 "Conguaglio "
FIELD QTACONG
END
CURRENCY S_VALCONV 15
BEGIN
PROMPT 45 6 "Val. convenzionale"
FLAGS "U"
FIELD VALCONV
END
LISTBOX S_ARTBLOC 25
BEGIN
PROMPT 1 7 "Articolo bloccato "
ITEM "0|Nessuna"
ITEM "1|Articolo in sostituzione"
ITEM "2|Cliente in chiusura"
ITEM "3|Contratto in rinnovo"
FIELD ARTBLOC
END
STRING S_UM 2
BEGIN
PROMPT 59 7 "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
LISTBOX S_TIPOFORF 34
BEGIN
PROMPT 1 8 "Tipo Forfait"
ITEM "0|Nessuno"
ITEM "1|A valore fisso"
ITEM "2|Nolo in base a dot. iniziale"
ITEM "3|Nolo in base a dot. odierna"
ITEM "4|Ciclaggio in base a dot. odierna"
ITEM "5|Ciclaggio in base a dot. iniziale"
ITEM "6|% sul val. convenz. per articolo"
ITEM "7|% sul val. convenz. per cliente"
ITEM "8|Fisso in base alla dot. iniziale"
FIELD TIPOFORF
END
NUMBER S_FORFPERCL 6 2
BEGIN
PROMPT 55 8 "% Forfait cliente"
FIELD FORFPERCL
END
CURRENCY S_PREZDAN 15
BEGIN
PROMPT 1 9 "Prezzo danneggiati "
FLAGS "U"
FIELD PREZDAN
END
STRING S_CAUSMAG 4
BEGIN
PROMPT 52 9 "Causale di default: "
USE CAU
INPUT CODTAB S_CAUSMAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT S_CAUSMAG CODTAB
FIELD CAUSMAG
CHECKTYPE NORMAL
END
LISTBOX S_CALCCONS 26
BEGIN
PROMPT 14 10 "Calcolo del consegnato "
ITEM "0|Conguaglio alla confezione"
ITEM "1|Uguale al ritirato"
FIELD CALCCONS
END
NUMBER S_CONSMESE 9
BEGIN
PROMPT 14 11 "Qtà. consegnata nel mese "
FIELD CONSMESE
END
NUMBER S_CONSANNO 9
BEGIN
PROMPT 14 12 "Qtà. consegnata nell'anno "
FIELD CONSANNO
END
NUMBER S_DOTIN 9
BEGIN
PROMPT 1 13 "Dotazione iniziale "
FIELD DOTIN
END
NUMBER S_DOTOD 9
BEGIN
PROMPT 40 13 "Dotazione odierna "
FIELD DOTOD
END
NUMBER S_DOTTMP 9
BEGIN
PROMPT 1 14 "Dotazione temporanea "
FIELD DOTTMP
END
CURRENCY S_PRZDTTMP 15
BEGIN
PROMPT 40 14 "Prezzo dot. temporanea"
FLAGS "U"
FIELD PRZDTTMP
END
DATE S_INDTTMP
BEGIN
PROMPT 1 15 "Inizio dot. temporanea "
FIELD INDTTMP
END
DATE S_FIDTTMP
BEGIN
PROMPT 40 15 "Fine dot. temporanea "
FIELD FIDTTMP
END
LISTBOX S_TIPONOL 15
BEGIN
PROMPT 1 16 "Tipo Noleggio"
FIELD TIPONOL
FLAGS "D"
END
BOOLEAN S_RITAUDTTMP
BEGIN
PROMPT 40 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP
END
BOOLEAN S_FATTKG
BEGIN
PROMPT 1 17 "Fatturazione a Kg."
FIELD FATTKG
END
BOOLEAN S_ARROT
BEGIN
PROMPT 40 17 "Arrotondamento"
FIELD ARROT
END
BUTTON DLG_OK 10 2
BEGIN
PROMPT -13 -1 ""
END
BUTTON DLG_DELREC 10 2
BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -33 -1 ""
END
ENDPAGE
ENDMASK

2
ve/f47.dir
View File

@ -1,3 +1,3 @@
47 47
0 0
$anamag|0|0|833|0|Anagrafica di magazzino|NART|| $anamag|0|0|878|0|Anagrafica di magazzino|NART||

16
ve/f47.trr
View File

@ -1,5 +1,5 @@
47 47
75 85
CODART|1|20|0|Codice Articolo CODART|1|20|0|Codice Articolo
DESCR|1|50|0|Descrizione DESCR|1|50|0|Descrizione
DESCRAGG|11|10|0|Descrizione aggiuntiva DESCRAGG|11|10|0|Descrizione aggiuntiva
@ -62,9 +62,19 @@ COLLTYPE|1|1|0|Tipo collegamento DB
CODMAG|1|5|0|Codice magazzino CODMAG|1|5|0|Codice magazzino
VALDIST|2|2|0|Tipo di Valorizzazione per Distinta Base VALDIST|2|2|0|Tipo di Valorizzazione per Distinta Base
DATAVDIST|5|8|0|Data di inizio Valorizzazione Distinta Base DATAVDIST|5|8|0|Data di inizio Valorizzazione Distinta Base
SOSPESO|8|1|0|Codice sospeso (obsoleto) SOSPESO|8|1|0|Codice sospeso
REPARTO|1|3|0|Codice reparto REPARTO|1|3|0|Codice reparto
STAGIONE|1|4|0|Codcie Stagione STAGIONE|1|4|0|Codice Stagione
COLORE|1|20|0|Colore (Lavanderie)
LIVELLO|1|1|0|Livello (Lavanderie)
TIPOPARTE|1|1|0|Tipo Parte (Lavanderie)
CODLAV1|1|3|0|Cod. Lavaggio 1 (Lavanderie)
CODLAV2|1|3|0|Cod. Lavaggio 2 (Lavanderie)
LINDEST1|1|3|0|Linea destinazione 1 (Lavanderie)
LINDEST2|1|3|0|Linea destinzaione 2 (Lavanderie)
LAVATRICE|1|3|0|Lavatrice (Lavanderie)
ARTLAVCONT|1|4|0|Art. Lavacont (Lavanderie)
MANGDEST|1|3|0|Mangano destinazione (Lavanderie)
USER1|1|40|0|Campo libero 1 USER1|1|40|0|Campo libero 1
USER2|1|20|0|Campo libero 2 USER2|1|20|0|Campo libero 2
USER3|1|20|0|Campo libero 3 USER3|1|20|0|Campo libero 3