diff --git a/lv/f169.dir b/lv/f169.dir index c1183491f..9732e9760 100755 --- a/lv/f169.dir +++ b/lv/f169.dir @@ -1,3 +1,3 @@ 169 0 -$lvrcondv|||312|0|Righe del contratto||| +$lvrcondv|0|0|272|0|Righe del contratto||| diff --git a/lv/f169.trr b/lv/f169.trr index 8d46991d7..72a329de7 100755 --- a/lv/f169.trr +++ b/lv/f169.trr @@ -1,5 +1,5 @@ 169 -38 +28 CODCF|3|6|0|Codice cliente CODCONT|3|6|0|Codice contratto CODART|1|20|0|Codice articolo @@ -28,17 +28,5 @@ FATTKG|8|1|0|Fatturazione in Kg ARTBLOC|2|1|0|Articolo bloccato CALCCONS|2|1|0|Calcolo consegnato 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 -CODCF+CODCONT+CODART| - - +CODCF+CODCONT+CODART| diff --git a/lv/lv0400.cpp b/lv/lv0400.cpp index feacf5da6..6089ca3de 100755 --- a/lv/lv0400.cpp +++ b/lv/lv0400.cpp @@ -1,13 +1,13 @@ #include #include +#include #include #include "lv0400.h" class TContratti_app: public TRelation_application { - TMask* _amsk; - TMask* _bmsk; + TMask* _msk; TRelation* _rel; bool _unicont; @@ -17,8 +17,7 @@ private: int find_art(TSheet_field& s,const TString& art) const; protected: - virtual bool changing_mask (int mode) { return true;} - virtual TMask* get_mask (int mode) {return mode==MODE_QUERY?_amsk:_bmsk; } + virtual TMask* get_mask (int mode) {return _msk; } virtual TRelation* get_relation() const {return _rel;} virtual bool user_create(); @@ -29,21 +28,22 @@ protected: virtual int write(const TMask& m); virtual int rewrite(const TMask& m); virtual bool remove(); + static bool notify(TSheet_field& ss, int r, KEY key); }; bool TContratti_app:: user_create() { _rel=new TRelation (LF_LVCONDV); - _amsk= new TMask ("lv0400a"); - _bmsk= new TMask ("lv0400b"); + _msk= new TMask ("lv0400a"); + TSheet_field& sheet = _msk->sfield(F_RIGHE); + sheet.set_notify(notify ); return true; } bool TContratti_app:: user_destroy() { - delete _bmsk; - delete _amsk; + delete _msk; delete _rel; return true; } @@ -56,7 +56,7 @@ void TContratti_app:: on_config_change() 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; key.add(F_CODCF); key.add(cliente); @@ -91,6 +91,28 @@ bool TContratti_app:: get_next_key(TToken_string& key) 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 { query=""; @@ -194,7 +216,7 @@ bool TContratti_app::remove() if(ok) { TString query; - build_query(*_bmsk,query); + build_query(*_msk,query); TISAM_recordset righeset(query); TLocalisamfile& file=righeset.cursor()->file(); for (bool ok=righeset.move_first(); ok; ok=righeset.move_next()) diff --git a/lv/lv0400.h b/lv/lv0400.h index 6802295f1..f7e293345 100755 --- a/lv/lv0400.h +++ b/lv/lv0400.h @@ -6,39 +6,48 @@ #define F_RIGHE 206 #define F_TIPOLOGIA 207 #define F_COLORE 208 -#define F_PPCONF 209 -#define F_PPCOLLO 210 -#define F_PPPALLET 211 -#define F_PERFAT 212 -#define F_TIPOCAN 213 -#define F_INPERFAT 214 -#define F_DTLASTFAT 215 -#define F_ATTFATNODT 216 -#define F_FORFNOCONS 217 -#define F_TIPOSTPRZ 218 -#define F_TIPOLIS 219 -#define F_TIPOIMB 220 -#define F_CAUSMAG 221 -#define F_CAUSMAGDESC 222 -#define F_CONTSPOR 223 -#define F_SSCONS 224 -#define F_RIFBOLFAT 225 -#define F_ADDCAPROT 226 -#define F_PROFORME 227 -#define F_STRCONS 228 -#define F_FATTSOSP 229 -#define F_STDICITURA 230 -#define F_CICLAGGIO 231 -#define F_STPRZBOL 232 -#define F_STETIMATI 233 -#define F_STETITS 234 -#define F_STDDTPTS 235 -#define F_IMPMINFAT 236 -#define F_PERCNOCONT 237 -#define F_PERCTOLPES 238 -#define F_NUMUT 239 -#define F_NUMETI 240 -#define F_RITAUDTTMP 241 +#define F_LIVELLO 209 +#define F_PPCONF 210 +#define F_PPCOLLO 211 +#define F_PPPALLET 212 +#define F_TIPOPARTE 213 +#define F_CODLAV1 214 +#define F_CODLAV2 215 +#define F_LINDEST1 216 +#define F_LINDEST2 217 +#define F_LAVATRICE 218 +#define F_ARTLAVONCT 219 +#define F_MANGDEST 220 +#define F_PERFAT 221 +#define F_TIPOCAN 222 +#define F_INPERFAT 223 +#define F_DTLASTFAT 224 +#define F_ATTFATNODT 225 +#define F_FORFNOCONS 226 +#define F_TIPOSTPRZ 227 +#define F_TIPOLIS 228 +#define F_TIPOIMB 229 +#define F_CAUSMAG 230 +#define F_CAUSMAGDESC 231 +#define F_CONTSPOR 232 +#define F_SSCONS 233 +#define F_RIFBOLFAT 234 +#define F_ADDCAPROT 235 +#define F_PROFORME 236 +#define F_STRCONS 237 +#define F_FATTSOSP 238 +#define F_STDICITURA 239 +#define F_CICLAGGIO 240 +#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_DESCR 102 #define S_UM 103 diff --git a/lv/lv0400a.uml b/lv/lv0400a.uml index bfe802dc6..9a9a55293 100755 --- a/lv/lv0400a.uml +++ b/lv/lv0400a.uml @@ -4,16 +4,16 @@ TOOLBAR "" 0 0 0 2 #include ENDPAGE -PAGE "Contratti" 0 2 0 0 +PAGE "Contratto" 0 2 0 0 -GROUPBOX DLG_NULL 78 6 +GROUPBOX DLG_NULL 78 4 BEGIN - PROMPT 0 4 "@bContratti" + PROMPT 1 1 "@bContratti" END NUMBER F_CODCF 6 BEGIN - PROMPT 2 5 "Cliente " + PROMPT 2 2 "Cliente " FIELD CODCF FLAGS "U" KEY 1 @@ -24,12 +24,13 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT F_CODCF CODCF OUTPUT F_RAGSOC RAGSOC - CHECKTYPE REQUIRED + CHECKTYPE REQUIRED END STRING F_RAGSOC 50 BEGIN - PROMPT 25 5 "" + PROMPT 26 2 "" + KEY 2 USE LF_CLIFO KEY 2 INPUT TIPOCF "C" INPUT RAGSOC F_RAGSOC @@ -41,7 +42,7 @@ END NUMBER F_CODCONT 6 BEGIN - PROMPT 2 6 "Contratto N." + PROMPT 2 3 "Contratto N." USE LF_LVCONDV JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF INPUT CODCF F_CODCF @@ -56,10 +57,613 @@ BEGIN OUTPUT F_CODCONT CODCONT FLAGS "U" FIELD CODCONT - KEY 1 + KEY 1 2 CHECKTYPE REQUIRED END -ENDPAGE +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 + +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 + -ENDMASK \ No newline at end of file diff --git a/lv/lv0400b.uml b/lv/lv0400b.uml deleted file mode 100755 index 5d3d17bd2..000000000 --- a/lv/lv0400b.uml +++ /dev/null @@ -1,609 +0,0 @@ -#include "lv0400.h" - -TOOLBAR "" 0 0 0 2 -#include -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 - diff --git a/ve/f47.dir b/ve/f47.dir index e9af722e9..bde86bad8 100755 --- a/ve/f47.dir +++ b/ve/f47.dir @@ -1,3 +1,3 @@ 47 0 -$anamag|0|0|833|0|Anagrafica di magazzino|NART|| +$anamag|0|0|878|0|Anagrafica di magazzino|NART|| diff --git a/ve/f47.trr b/ve/f47.trr index 5ae1be913..53b710129 100755 --- a/ve/f47.trr +++ b/ve/f47.trr @@ -1,5 +1,5 @@ 47 -75 +85 CODART|1|20|0|Codice Articolo DESCR|1|50|0|Descrizione DESCRAGG|11|10|0|Descrizione aggiuntiva @@ -62,9 +62,19 @@ COLLTYPE|1|1|0|Tipo collegamento DB CODMAG|1|5|0|Codice magazzino VALDIST|2|2|0|Tipo di Valorizzazione per 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 -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 USER2|1|20|0|Campo libero 2 USER3|1|20|0|Campo libero 3