From d4c46df06c32904e102b0767d3adc104c96c3975 Mon Sep 17 00:00:00 2001 From: guy Date: Wed, 4 Feb 2015 10:54:10 +0000 Subject: [PATCH] git-svn-id: svn://10.65.10.50/branches/R_10_00@23034 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/f168.dir | 2 +- lv/f168.trr | 3 +- lv/lv0200.cpp | 153 ++- lv/lv0300.cpp | 11 +- lv/lv0300a.h | 271 ++--- lv/lv0300a.uml | 3013 ++++++++++++++++++++++++----------------------- lv/lv0400.cpp | 33 +- lv/lv0400.h | 2 + lv/lv0400a.uml | 34 +- lv/lv0400c.h | 6 +- lv/lv0400c.rep | 113 +- lv/lv0400c.uml | 8 + lv/lv0400f.h | 5 +- lv/lv0400f.rep | 2 +- lv/lv0400f.uml | 7 + lv/lv0400h.rep | 48 + lv/lv0400h.uml | 12 + lv/lv0600a.h | 2 + lv/lv0600a.rep | 5 +- lv/lv0600a.uml | 34 +- lv/lv0700a.rep | 2 +- lv/lv0800a.h | 4 +- lv/lv0800a.rep | 60 +- lv/lv0800a.uml | 23 +- lv/lv0900a.h | 4 +- lv/lv0900a.rep | 62 +- lv/lv0900a.uml | 22 +- lv/lv0a00a.rep | 80 ++ lv/lv0a00b.rep | 80 ++ lv/lv2100.cpp | 33 +- lv/lv2200.cpp | 6 +- lv/lv2200a.h | 2 + lv/lv2200a.uml | 68 +- lv/lv2200z.rep | 13 +- lv/lv2300a.uml | 4 +- lv/lv2400.cpp | 417 +++++-- lv/lv2400a.h | 3 +- lv/lv2400a.uml | 13 +- lv/lv2600.cpp | 11 +- lv/lv2700.cpp | 496 ++++---- lv/lv2700a.h | 4 +- lv/lv2700a.rep | 10 +- lv/lv2700a.uml | 12 +- lv/lv2800.cpp | 127 +- lv/lv2800a.uml | 38 +- lv/lv2900.cpp | 4 +- lv/lv2A00.cpp | 25 +- lv/lv3100.cpp | 1294 +++++++++++++------- lv/lv3100a.uml | 20 +- lv/lv3300.cpp | 142 ++- lv/lv3500.cpp | 74 +- lv/lv3500a.h | 17 +- lv/lv3500a.uml | 39 +- lv/lv3uml.h | 1 + lv/lvbolaca.src | 14 +- lv/lvbolacp.src | 14 +- lv/lvbolacr.src | 34 +- lv/lvbollac.src | 44 +- lv/lvlib.cpp | 227 +++- lv/lvlib.h | 11 +- lv/lvmenu.men | 13 +- lv/verig21.uml | 3 +- lv/verig22.ini | 3 +- lv/verig22.uml | 33 +- lv/verig24.uml | 3 +- 65 files changed, 4336 insertions(+), 3037 deletions(-) create mode 100644 lv/lv0400h.rep create mode 100644 lv/lv0400h.uml create mode 100644 lv/lv0a00a.rep create mode 100644 lv/lv0a00b.rep diff --git a/lv/f168.dir b/lv/f168.dir index e747c590f..3c57b8353 100755 --- a/lv/f168.dir +++ b/lv/f168.dir @@ -1,3 +1,3 @@ 168 0 -$lvcondv|235|243|191|0|Tabella testate di contratto||| +$lvcondv|0|0|193|0|Tabella testate di contratto||| diff --git a/lv/f168.trr b/lv/f168.trr index 013744568..726b02e96 100755 --- a/lv/f168.trr +++ b/lv/f168.trr @@ -1,5 +1,5 @@ 168 -48 +49 CODCONT|3|6|0|Codice Contratto STATUS|1|2|0|Stato del contratto, chiuso, confermato, da confermare PROPOSTA|8|1|0|Proposta di contratto @@ -48,5 +48,6 @@ CODNUM|1|4|0|Codice numerazione Buono di Consegna TPDOC|1|4|0|Tipo documento Buono di Consegna REDDI|1|5|0|Reddività RAGGCGRUP|8|1|0|Raggruppa sul capogruppo +GIOCHI|2|1|0|Giorno di chiusura 1 CODCF+CODCONT| diff --git a/lv/lv0200.cpp b/lv/lv0200.cpp index a40b51be9..810149b65 100755 --- a/lv/lv0200.cpp +++ b/lv/lv0200.cpp @@ -1,57 +1,96 @@ -#include -#include -#include "lvlib.h" - - -class TStampa_tabelle_lv : public TSkeleton_application -{ -protected: - virtual void main_loop(); - virtual void print(); -}; - -void TStampa_tabelle_lv::print() -{ - WINDOW win = cur_win(); // Trova la finestra corrente di XVT - if (win != NULL_WIN && win != TASK_WIN) // E' una finestra valida? - { - TWindow* w = (TWindow*)xvt_vobj_get_data(win); // Risale alla classe originale - if (w != NULL) // E' una TWindow valida? (sarebbe TMask) - w->stop_run(K_ENTER); // Simula la pressione del bottone stampa - } -} - -void TStampa_tabelle_lv::main_loop() -{ - // Costruisce il nome del report in base alla riga di comando - TFilename rep; - if (argc() > 2) - { - rep = argv(2); - rep.strip("-&%$^"); - if (rep.len() == 3) - rep.insert("lvst"); - rep.ext("rep"); - } - - TLV_report r; - bool ok = r.load(rep); // Controlla l'effettiva esistenza del report - if (ok) - { - TReport_book b; - ok = b.add(r); // Richiede parametri di stampa in base alla maschera omonima - if (ok) - if(b.pages() >0) - b.print_or_preview(); // Stampa effettivamente - else - warning_box (TR("Nessun record estratto per i parametri inseriti")); - } -} - -int lv0200(int argc, char* argv[]) -{ - TStampa_tabelle_lv app; - app.run(argc, argv, TR("Stampa tabelle")); - return 0; -} - +#include +#include +#include "lvlib.h" + +#include "lv0201.h" +#include "lv0b00.h" + +class TStampa_tabelle_lv : public TSkeleton_application +{ +protected: + virtual void main_loop(); + virtual void print(); +}; + +void TStampa_tabelle_lv::print() +{ + WINDOW win = cur_win(); // Trova la finestra corrente di XVT + if (win != NULL_WIN && win != TASK_WIN) // E' una finestra valida? + { + TWindow* w = (TWindow*)xvt_vobj_get_data(win); // Risale alla classe originale + if (w != NULL) // E' una TWindow valida? (sarebbe TMask) + w->stop_run(K_ENTER); // Simula la pressione del bottone stampa + } +} + +void TStampa_tabelle_lv::main_loop() +{ + bool repcom = false; + // Costruisce il nome del report in base alla riga di comando + TFilename rep; + if (argc() > 2) + { + rep = argv(2); rep.lower(); + if (rep == "repcom") + { + rep.cut(0); + repcom = true; + } + else + { + rep.strip("-&%$^"); + if (rep.len() == 3) + rep.insert("lvst"); + rep.ext("rep"); + } + } + + TLV_report r; + + bool ok = true; + while (ok) + { + if (repcom) + ok = handle_repcom(r); + else + { + if (rep.starts_with("lv0a00")) + ok = handle_lv0a00(r, rep); + else + { + TFilename mskname(rep); mskname.ext(""); + TMask m(mskname); + if (m.find_by_id(F_REPORT)) + { + ok = m.run() == K_ENTER; + if (ok) + { + TFilename crep = m.get(F_REPORT); + ok = r.load(crep.full() ? crep : rep); + r.mask2report(m); + } + } + else + ok = r.load(rep); + } + } + if (ok) + { + TReport_book b; + ok = b.add(r); // Richiede parametri di stampa in base alla maschera omonima + if (ok) + if (b.pages() > 0) + b.print_or_preview(); // Stampa effettivamente + else + warning_box (TR("Nessun record estratto per i parametri inseriti")); + } + } +} + +int lv0200(int argc, char* argv[]) +{ + TStampa_tabelle_lv app; + app.run(argc, argv, TR("Stampe lavanderie")); + return 0; +} + diff --git a/lv/lv0300.cpp b/lv/lv0300.cpp index 84ae120d7..e673dee86 100755 --- a/lv/lv0300.cpp +++ b/lv/lv0300.cpp @@ -8,7 +8,8 @@ class TConf_lavanderie_mask : public TAlmanac_mask { - TLavanderie_calendar _cal; // array di TBit_array. Ognuno di essi è lungo 366 e rappresenta i flag di presenza documenti per ogni giorno dell'anno. Ogni page della maschera ha bisogno di un bitarray diverso + TLavanderie_calendar _cal; // array di TBit_array. Ognuno di essi è lungo 366 e rappresenta i flag di presenza documenti per ogni giorno dell'anno. + // Ogni page della maschera ha bisogno di un bitarray diverso protected: virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); @@ -17,13 +18,13 @@ public: // ereditato da TAlmanac_mask virtual bool is_date_void(int currpage, const TDate& cdate); virtual void change_year(int newyear); - const TLavanderie_calendar & calendario() const { return _cal; } + const TLavanderie_calendar& calendario() const { return _cal; } // metodi di accesso void update_current_calendar(int year); // apertura del foglio interno di gestione dei documenti - virtual void open_day_mask(const TDate & date); + virtual void open_day_mask(const TDate& date); // Costruttore TConf_lavanderie_mask(const char* name); @@ -91,7 +92,6 @@ protected: public: TConf_Lavanderie() : TConfig_application( CONFIG_DITTA ), _mask(NULL) {} - virtual ~TConf_Lavanderie( ){ } }; TMask* TConf_Lavanderie::create_mask(const TFilename & f) @@ -109,8 +109,7 @@ TMask* TConf_Lavanderie::create_mask(const TFilename & f) bool TConf_Lavanderie::user_create( ) { - TConfig conf(CONFIG_DITTA ); - conf.set( "EdMask", "lv0300a", "lv" ); + ini_set_string(CONFIG_DITTA, "lv", "EdMask", "lv0300a" ); return true; } diff --git a/lv/lv0300a.h b/lv/lv0300a.h index a5965ed23..d388d0141 100755 --- a/lv/lv0300a.h +++ b/lv/lv0300a.h @@ -1,134 +1,137 @@ -#include "../ci/cimsk.h" - -#define GEN 1 -#define FAT 2 -#define ORF 3 -#define ORC 4 -#define RIT 5 -#define ANT 6 -#define CONG 7 -#define DOT 8 - -#define F_CODNUM_GEN 201 -#define F_DESNUM_GEN 202 -#define F_TIPODOC_GEN 203 -#define F_DESTIPODOC_GEN 204 - -#define F_CODNUM_FAT 205 -#define F_DESNUM_FAT 206 -#define F_TIPODOC_FAT 207 -#define F_DESTIPODOC_FAT 208 -#define F_RIFTEST 209 -#define F_FELAB_DIF 210 -#define F_FELAB_PRO 211 - -#define F_CODNUM_ORF 212 -#define F_DESNUM_ORF 213 -#define F_TIPODOC_ORF 214 -#define F_DESTIPODOC_ORF 215 - -#define F_CODNUM_ORC 216 -#define F_DESNUM_ORC 217 -#define F_TIPODOC_ORC 218 -#define F_DESTIPODOC_ORC 219 - -#define F_CODNUM_INV 220 -#define F_DESNUM_INV 221 -#define F_TIPODOC_INV 222 -#define F_DESTIPODOC_INV 223 - -#define F_BUONIRIT 224 -#define F_BUONIANT 225 -#define F_BUONIPREL 226 -#define F_DOCCONG 227 -#define F_DOCDOT 228 - -#define F_CAUSLAV 229 -#define F_CAUSLAVDESC 230 -#define F_CAULVRITDT 231 -#define F_CAULVRITDTDE 232 -#define F_CAUCARMAG 233 -#define F_CAUCARMAGDE 234 -#define F_CAUSCARMAG 235 -#define F_CAUSCARMAGDE 236 - -#define F_CODMAG 237 -#define F_DESMAG 238 -#define F_CODMAGN 239 -#define F_DESMAGN 240 -#define F_CODMAGC 241 -#define F_DESMAGC 242 -#define F_CODMAGP 243 -#define F_DESMAGP 244 -#define F_CODMAGCL 245 -#define F_DESMAGCL 246 - -#define F_UNICONT 247 -#define F_QTAMODI 248 -#define F_AUTGIRI 249 -#define F_ORDGIRI 250 -#define F_DATAFISSA 251 -#define F_AGGCONG 252 -#define F_PERARR 253 -#define F_RIFOR 254 -#define F_ARTCANFIS 255 -#define F_GESTSACA 256 -#define F_ALMANAC 257 -#define F_USEINDSP 258 -#define F_DATABCON 259 -#define F_CONDOM 260 -#define F_CODARTFIX 261 -#define F_DESARTFIX 262 -#define F_CODARTCAFIX 263 -#define F_DESARTCAFIX 264 -#define F_TIPOPR 265 -#define F_UMPESO 266 - -#define F_PATH_CON 267 -#define F_SHEET_NAME 268 -#define F_PATH_MAN 269 -#define F_PATH_LAVA 270 -#define F_PATH_PUL 271 -#define F_FILE_PUL 272 - -#define F_CODARTCOFIX 273 -#define F_DESARTCOFIX 274 - -#define F_AGGHEAD 275 -#define F_DESTHEAD 276 -#define F_ZERONOTE 277 - -#define F_BACKUP 300 - -#define S_CODNUM_RIT 101 -#define S_TIPODOC_RIT 102 -#define S_DESTIPODOC_RIT 103 -#define S_STATO_RIT 104 -#define S_DESNUM_RIT 105 - -#define S_CODNUM_PRE 101 -#define S_TIPODOC_PRE 102 -#define S_DESTIPODOC_PRE 103 -#define S_STATO_PRE 104 -#define S_DESNUM_PRE 105 - -#define S_CODNUM_ANT 101 -#define S_TIPODOC_ANT 102 -#define S_DESTIPODOC_ANT 103 -#define S_STATO_ANT 104 -#define S_DESNUM_ANT 105 - -#define S_CODNUM_CONG 101 -#define S_TIPODOC_CONG 102 -#define S_DESTIPODOC_CONG 103 -#define S_STATO_CONG 104 -#define S_DESNUM_CONG 105 - -#define S_CODNUM_DOT 101 -#define S_TIPODOC_DOT 102 -#define S_DESTIPODOC_DOT 103 -#define S_STATO_DOT 104 -#define S_DESNUM_DOT 105 - -#define S_NAME 101 - +#include "../ci/cimsk.h" + +#define GEN 1 +#define FAT 2 +#define ORF 3 +#define ORC 4 +#define RIT 5 +#define ANT 6 +#define CONG 7 +#define DOT 8 + +#define F_CODNUM_GEN 201 +#define F_DESNUM_GEN 202 +#define F_TIPODOC_GEN 203 +#define F_DESTIPODOC_GEN 204 + +#define F_CODNUM_FAT 205 +#define F_DESNUM_FAT 206 +#define F_TIPODOC_FAT 207 +#define F_DESTIPODOC_FAT 208 +#define F_RIFTEST 209 +#define F_FELAB_DIF 210 +#define F_FELAB_PRO 211 + +#define F_CODNUM_ORF 212 +#define F_DESNUM_ORF 213 +#define F_TIPODOC_ORF 214 +#define F_DESTIPODOC_ORF 215 + +#define F_CODNUM_ORC 216 +#define F_DESNUM_ORC 217 +#define F_TIPODOC_ORC 218 +#define F_DESTIPODOC_ORC 219 + +#define F_CODNUM_INV 220 +#define F_DESNUM_INV 221 +#define F_TIPODOC_INV 222 +#define F_DESTIPODOC_INV 223 + +#define F_BUONIRIT 224 +#define F_BUONIANT 225 +#define F_BUONIPREL 226 +#define F_DOCCONG 227 +#define F_DOCDOT 228 + +#define F_CAUSLAV 229 +#define F_CAUSLAVDESC 230 +#define F_CAULVRITDT 231 +#define F_CAULVRITDTDE 232 +#define F_CAUCARMAG 233 +#define F_CAUCARMAGDE 234 +#define F_CAUSCARMAG 235 +#define F_CAUSCARMAGDE 236 + +#define F_CODMAG 237 +#define F_DESMAG 238 +#define F_CODMAGN 239 +#define F_DESMAGN 240 +#define F_CODMAGC 241 +#define F_DESMAGC 242 +#define F_CODMAGP 243 +#define F_DESMAGP 244 +#define F_CODMAGCL 245 +#define F_DESMAGCL 246 + +#define F_UNICONT 247 +#define F_QTAMODI 248 +#define F_AUTGIRI 249 +#define F_ORDGIRI 250 +#define F_DATAFISSA 251 +#define F_AGGCONG 252 +#define F_PERARR 253 +#define F_RIFOR 254 +#define F_ARTCANFIS 255 +#define F_GESTSACA 256 +#define F_ALMANAC 257 +#define F_USEINDSP 258 +#define F_DATABCON 259 +#define F_CONDOM 260 +#define F_CODARTFIX 261 +#define F_DESARTFIX 262 +#define F_CODARTCAFIX 263 +#define F_DESARTCAFIX 264 +#define F_TIPOPR 265 +#define F_UMPESO 266 + +#define F_PATH_CON 267 +#define F_SHEET_NAME 268 +#define F_PATH_MAN 269 +#define F_PATH_LAVA 270 +#define F_PATH_PUL 271 +#define F_FILE_PUL 272 + +#define F_CODARTCOFIX 273 +#define F_DESARTCOFIX 274 + +#define F_AGGHEAD 275 +#define F_DESTHEAD 276 + +#define F_RIFTESTNUM 277 + +#define F_DOTSTO 278 + +#define F_BACKUP 300 + +#define S_CODNUM_RIT 101 +#define S_TIPODOC_RIT 102 +#define S_DESTIPODOC_RIT 103 +#define S_STATO_RIT 104 +#define S_DESNUM_RIT 105 + +#define S_CODNUM_PRE 101 +#define S_TIPODOC_PRE 102 +#define S_DESTIPODOC_PRE 103 +#define S_STATO_PRE 104 +#define S_DESNUM_PRE 105 + +#define S_CODNUM_ANT 101 +#define S_TIPODOC_ANT 102 +#define S_DESTIPODOC_ANT 103 +#define S_STATO_ANT 104 +#define S_DESNUM_ANT 105 + +#define S_CODNUM_CONG 101 +#define S_TIPODOC_CONG 102 +#define S_DESTIPODOC_CONG 103 +#define S_STATO_CONG 104 +#define S_DESNUM_CONG 105 + +#define S_CODNUM_DOT 101 +#define S_TIPODOC_DOT 102 +#define S_DESTIPODOC_DOT 103 +#define S_STATO_DOT 104 +#define S_DESNUM_DOT 105 + +#define S_NAME 101 + diff --git a/lv/lv0300a.uml b/lv/lv0300a.uml index 3e76290dd..596a16b3c 100755 --- a/lv/lv0300a.uml +++ b/lv/lv0300a.uml @@ -1,1504 +1,1511 @@ -#include "lv0300a.h" - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 10 2 -BEGIN - PROMPT -14 -1 "" -END - -BUTTON DLG_NULL 10 2 -BEGIN - PROMPT -1 -1 "" -END - -BUTTON F_PREVYEAR 10 2 -BEGIN - PROMPT 3 1 "~Anno -" - PICTURE BMP_FIRSTREC -END - -BUTTON F_PREVMONTH 10 2 -BEGIN - PROMPT 4 1 "~Mese -" - PICTURE BMP_PREVREC -END - -BUTTON F_NEXTMONTH 10 2 -BEGIN - PROMPT 5 1 "Mese +" - PICTURE BMP_NEXTREC -END - -BUTTON F_NEXTYEAR 10 2 -BEGIN - PROMPT 6 1 "~Anno +" - PICTURE BMP_LASTREC -END - -BUTTON DLG_NULL 10 2 -BEGIN - PROMPT -1 -1 "" -END - -BUTTON DLG_INFO 10 2 -BEGIN - PROMPT 7 1 "" -END - -BUTTON DLG_HELP 10 2 -BEGIN - PROMPT 8 1 "" -END - -BUTTON DLG_QUIT 10 2 -BEGIN - PROMPT 9 1 "~Fine" - MESSAGE EXIT,K_QUIT -END - -ENDPAGE - -PAGE "Documenti" 0 0 0 0 - -TEXT -1 -BEGIN - PROMPT 1 0 "@bDocumenti da generare" -END - -STRING F_CODNUM_GEN 4 -BEGIN - PROMPT 2 1 "Numerazione " - FIELD NUM_GEN - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM_GEN - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM_GEN CODTAB - OUTPUT F_DESNUM_GEN S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING F_DESNUM_GEN 50 -BEGIN - PROMPT 24 1 "" - HELP "Descrizione Numerazione" - USE %NUM KEY 2 - INPUT S0 F_DESNUM_GEN - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODNUM_GEN -END - -STRING F_TIPODOC_GEN 4 -BEGIN - PROMPT 2 2 "Tipo " - FIELD TIPODOC_GEN - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC_GEN - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC_GEN CODTAB - OUTPUT F_DESTIPODOC_GEN S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING F_DESTIPODOC_GEN 50 -BEGIN - PROMPT 24 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 F_DESTIPODOC_GEN - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_TIPODOC_GEN -END - -TEXT -1 -BEGIN - PROMPT 1 3 "@bFatture" -END - -STRING F_CODNUM_FAT 4 -BEGIN - PROMPT 2 4 "Numerazione " - FIELD NUM_FAT - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM_FAT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM_FAT CODTAB - OUTPUT F_DESNUM_FAT S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING F_DESNUM_FAT 50 -BEGIN - PROMPT 24 4 "" - HELP "Descrizione Numerazione" - USE %NUM KEY 2 - INPUT S0 F_DESNUM_FAT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODNUM_FAT -END - -STRING F_TIPODOC_FAT 4 -BEGIN - PROMPT 2 5 "Tipo " - FIELD TIPODOC_FAT - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC_FAT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC_FAT CODTAB - OUTPUT F_DESTIPODOC_FAT S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING F_DESTIPODOC_FAT 50 -BEGIN - PROMPT 24 5 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 F_DESTIPODOC_FAT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_TIPODOC_FAT -END - -BOOLEAN F_RIFTEST -BEGIN - PROMPT 2 6 "Riportare riferimenti in testata documento" - FIELD RifTest -END - -BOOLEAN F_ZERONOTE -BEGIN - PROMPT 42 6 "Non riportare note da bolle a fatture" - FIELD ZeroNote -END - -STRING F_FELAB_DIF 8 -BEGIN - PROMPT 2 7 "Tipo fatt. definitiva" - FLAG "U" - USE %ELD SELECT I0==2 - INPUT CODTAB F_FELAB_DIF - DISPLAY "Codice@8" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Numerazione" S5 - OUTPUT F_FELAB_DIF CODTAB - CHECKTYPE REQUIRED - FIELD FatDif -END - -STRING F_FELAB_PRO 8 -BEGIN - PROMPT 45 7 "Tipo fatt. di prova " - FLAG "U" - USE %ELD SELECT I0==2 - INPUT CODTAB F_FELAB_PRO - DISPLAY "Codice@8" CODTAB - DISPLAY "Descrizione@50" S0 - DISPLAY "Numerazione" S5 - OUTPUT F_FELAB_PRO CODTAB - CHECKTYPE REQUIRED - FIELD FatPro -END - -TEXT -1 -BEGIN - PROMPT 1 8 "@bOrdini fornitori" -END - -STRING F_CODNUM_ORF 4 -BEGIN - PROMPT 2 9 "Numerazione " - FIELD NUM_ORF - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM_ORF - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM_ORF CODTAB - OUTPUT F_DESNUM_ORF S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING F_DESNUM_ORF 50 -BEGIN - PROMPT 24 9 "" - HELP "Descrizione Numerazione" - USE %NUM KEY 2 - INPUT S0 F_DESNUM_ORF - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODNUM_ORF -END - -STRING F_TIPODOC_ORF 4 -BEGIN - PROMPT 2 10 "Tipo " - FIELD TIPODOC_ORF - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC_ORF - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC_ORF CODTAB - OUTPUT F_DESTIPODOC_ORF S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING F_DESTIPODOC_ORF 50 -BEGIN - PROMPT 24 10 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 F_DESTIPODOC_ORF - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_TIPODOC_ORF -END - -TEXT -1 -BEGIN - PROMPT 1 11 "@bOrdini clienti" -END - -STRING F_CODNUM_ORC 4 -BEGIN - PROMPT 2 12 "Numerazione " - FIELD NUM_ORC - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM_ORC - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM_ORC CODTAB - OUTPUT F_DESNUM_ORC S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING F_DESNUM_ORC 50 -BEGIN - PROMPT 24 12 "" - HELP "Descrizione Numerazione" - USE %NUM KEY 2 - INPUT S0 F_DESNUM_ORC - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODNUM_ORC -END - -STRING F_TIPODOC_ORC 4 -BEGIN - PROMPT 2 13 "Tipo " - FIELD TIPODOC_ORC - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC_ORC - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC_ORC CODTAB - OUTPUT F_DESTIPODOC_ORC S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING F_DESTIPODOC_ORC 50 -BEGIN - PROMPT 24 13 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 F_DESTIPODOC_ORC - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_TIPODOC_ORC -END - -TEXT -1 -BEGIN - PROMPT 1 14 "@bInventari pacchi" -END - -STRING F_CODNUM_INV 4 -BEGIN - PROMPT 2 15 "Numerazione " - FIELD NUM_INV - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB F_CODNUM_INV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CODNUM_INV CODTAB - OUTPUT F_DESNUM_INV S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING F_DESNUM_INV 50 -BEGIN - PROMPT 24 15 "" - HELP "Descrizione Numerazione" - USE %NUM KEY 2 - INPUT S0 F_DESNUM_INV - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CODNUM_INV -END - -STRING F_TIPODOC_INV 4 -BEGIN - PROMPT 2 16 "Tipo " - FIELD TIPODOC_INV - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB F_TIPODOC_INV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_TIPODOC_INV CODTAB - OUTPUT F_DESTIPODOC_INV S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING F_DESTIPODOC_INV 50 -BEGIN - PROMPT 24 16 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 F_DESTIPODOC_INV - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_TIPODOC_ORC -END - - -TEXT -1 -BEGIN - PROMPT 1 17 "@bCausali di default" -END - -STRING F_CAUSLAV 3 -BEGIN - PROMPT 2 18 "Cau. Rit/Con " - USE &CAU - INPUT CODTAB F_CAUSLAV - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CAUSLAV CODTAB - OUTPUT F_CAUSLAVDESC S0 - FIELD CAUSLAV - CHECKTYPE REQUIRED -END - -STRING F_CAUSLAVDESC 48 -BEGIN - PROMPT 26 18 "" - USE &CAU KEY 2 - INPUT S0 F_CAUSLAVDESC - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CAUSLAV - CHECKTYPE REQUIRED -END - -STRING F_CAULVRITDT 3 -BEGIN - PROMPT 2 19 "Cau. Rit. dt. tmp" - USE &CAU - INPUT CODTAB F_CAULVRITDT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CAULVRITDT CODTAB - OUTPUT F_CAULVRITDTDE S0 - FIELD CAULVRITDT - CHECKTYPE REQUIRED -END - -STRING F_CAULVRITDTDE 48 -BEGIN - PROMPT 26 19 "" - USE &CAU KEY 2 - INPUT S0 F_CAUSLAVDESC - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CAULVRITDT - CHECKTYPE REQUIRED -END - -STRING F_CAUCARMAG 5 -BEGIN - PROMPT 2 20 "Cau. Car. Mag. " - USE %CAU KEY 1 - INPUT CODTAB F_CAUCARMAG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CAUCARMAG CODTAB - OUTPUT F_CAUCARMAGDE S0 - FIELD CAUCARMAG - CHECKTYPE REQUIRED -END - -STRING F_CAUCARMAGDE 50 46 -BEGIN - PROMPT 28 20 "" - USE %CAU KEY 2 - INPUT S0 F_CAUCARMAGDE - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CAUCARMAG - CHECKTYPE REQUIRED -END - -STRING F_CAUSCARMAG 5 -BEGIN - PROMPT 2 21 "Cau. Scar. Mag. " - USE %CAU KEY 1 - INPUT CODTAB F_CAUSCARMAG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_CAUSCARMAG CODTAB - OUTPUT F_CAUSCARMAGDE S0 - FIELD CAUSCARMAG - CHECKTYPE REQUIRED -END - -STRING F_CAUSCARMAGDE 50 46 -BEGIN - PROMPT 28 21 "" - USE %CAU KEY 2 - INPUT S0 F_CAUSCARMAGDE - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT F_CAUSCARMAG - CHECKTYPE REQUIRED -END - -ENDPAGE - -PAGE "Buoni" 0 2 0 0 - -TEXT DLG_NULL -BEGIN - PROMPT -11 0 "@bBuoni di ritiro" -END - -SPREADSHEET F_BUONIRIT 0 5 -BEGIN - PROMPT 0 1 "Buoni di ritiro" - ITEM "Numerazione" - ITEM "Tipo documento" - ITEM "Descrizione tipo documento" - ITEM "Stato" - ITEM "Descrizione numerazione" -END - -TEXT DLG_NULL -BEGIN - PROMPT -11 7 "@bBuoni di prelievo" -END - -SPREADSHEET F_BUONIPREL 0 5 -BEGIN - PROMPT 0 8 "Buoni di prelievo" - ITEM "Numerazione" - ITEM "Tipo documento" - ITEM "Descrizione tipo documento" - ITEM "Stato" - ITEM "Descrizione numerazione" -END - -TEXT DLG_NULL -BEGIN - PROMPT -11 14 "@bBuoni di anticipo" -END - -SPREADSHEET F_BUONIANT 0 5 -BEGIN - PROMPT 0 15 "Buoni di anticipo" - ITEM "Numerazione" - ITEM "Tipo documento" - ITEM "Descrizione tipo documento" - ITEM "Stato" - ITEM "Descrizione numerazione" -END - -ENDPAGE - -PAGE "Documenti per conguaglio e dotazione" 0 2 0 0 - -TEXT DLG_NULL -BEGIN - PROMPT -11 0 "@bDocumenti per conguaglio" -END - -SPREADSHEET F_DOCCONG 0 8 -BEGIN - PROMPT 0 1 "Documenti per conguaglio" - ITEM "Numerazione" - ITEM "Tipo documento" - ITEM "Descrizione tipo documento" - ITEM "Stato" - ITEM "Descrizione numerazione" -END - -TEXT DLG_NULL -BEGIN - PROMPT -11 10 "@bDocumenti per dotazione" -END - -SPREADSHEET F_DOCDOT 0 7 -BEGIN - PROMPT 0 11 "Documenti per dotazione" - ITEM "Numerazione" - ITEM "Tipo documento" - ITEM "Descrizione tipo documento" - ITEM "Stato" - ITEM "Descrizione numerazione" -END - -ENDPAGE - -PAGE "Parametri" 0 0 0 0 - -TEXT -1 -BEGIN - PROMPT 0 0 "@bMagazzini" -END - -STRING F_CODMAG 4 -BEGIN - PROMPT 1 1 "Magazzino " - FIELD CODMAG - USE MAG SELECT CODTAB[4,5]=="" - FLAG "U" - INPUT CODTAB F_CODMAG - DISPLAY "Codice " CODTAB[1,3] - DISPLAY "Denominazione mag.@50 " S0 - OUTPUT F_CODMAG CODTAB[1,3] - OUTPUT F_DESMAG S0 - CHECKTYPE REQUIRED - FLAGS "UPA" -END - -STRING F_DESMAG 50 -BEGIN - PROMPT 23 1 "" - FLAGS "D" -END - -STRING F_CODMAGN 3 -BEGIN - PROMPT 1 2 "Dep. nuovo " - HELP "Codice deposito del nuovo" - FIELD CODMAGN - KEY 1 - USE MAG - INPUT CODTAB[1,3] F_CODMAG SELECT - INPUT CODTAB[4,5] F_CODMAGN - DISPLAY "Cod. magazzino" CODTAB[1,3] - DISPLAY "Cod. deposito" CODTAB[4,5] - DISPLAY "Denominazione dep.@50" S0 - OUTPUT F_CODMAG CODTAB[1,3] - OUTPUT F_CODMAGN CODTAB[4,5] - OUTPUT F_DESMAGN S0 - CHECKTYPE REQUIRED - FLAGS "UPA" -END - -STRING F_DESMAGN 50 -BEGIN - PROMPT 23 2 "" - HELP "Descrizione Magazzino" - FLAGS "D" -END - -STRING F_CODMAGC 3 -BEGIN - PROMPT 1 3 "Dep. circ. " - HELP "Codice deposito del circolante" - FIELD CODMAGC - KEY 1 - USE MAG - INPUT CODTAB[1,3] F_CODMAG SELECT - INPUT CODTAB[4,5] F_CODMAGC - DISPLAY "Cod. magazzino" CODTAB[1,3] - DISPLAY "Cod. deposito" CODTAB[4,5] - DISPLAY "Denominazione dep.@50" S0 - OUTPUT F_CODMAG CODTAB[1,3] - OUTPUT F_CODMAGC CODTAB[4,5] - OUTPUT F_DESMAGC S0 - CHECKTYPE REQUIRED - FLAGS "UPA" -END - -STRING F_DESMAGC 50 -BEGIN - PROMPT 23 3 "" - HELP "Descrizione Magazzino" - FLAGS "D" -END - -STRING F_CODMAGP 3 -BEGIN - PROMPT 1 4 "Dep. pulito" - HELP "Codice deposito del pulito" - FIELD CODMAGP - KEY 1 - USE MAG - INPUT CODTAB[1,3] F_CODMAG SELECT - INPUT CODTAB[4,5] F_CODMAGP - DISPLAY "Cod. magazzino" CODTAB[1,3] - DISPLAY "Cod. deposito" CODTAB[4,5] - DISPLAY "Denominazione dep.@50" S0 - OUTPUT F_CODMAG CODTAB[1,3] - OUTPUT F_CODMAGP CODTAB[4,5] - OUTPUT F_DESMAGP S0 - CHECKTYPE REQUIRED - FLAGS "UPA" -END - -STRING F_DESMAGP 50 -BEGIN - PROMPT 23 4 "" - HELP "Descrizione Magazzino" - FLAGS "D" -END - -STRING F_CODMAGCL 3 -BEGIN - PROMPT 1 5 "Dep. cli. " - HELP "Codice deposito presso cliente" - FIELD CODMAGCL - KEY 1 - USE MAG - INPUT CODTAB[1,3] F_CODMAG SELECT - INPUT CODTAB[4,5] F_CODMAGCL - DISPLAY "Cod. magazzino" CODTAB[1,3] - DISPLAY "Cod. deposito" CODTAB[4,5] - DISPLAY "Denominazione dep.@50" S0 - OUTPUT F_CODMAG CODTAB[1,3] - OUTPUT F_CODMAGCL CODTAB[4,5] - OUTPUT F_DESMAGCL S0 - CHECKTYPE REQUIRED - FLAGS "UPA" -END - -STRING F_DESMAGCL 50 -BEGIN - PROMPT 23 5 "" - HELP "Descrizione Magazzino" - FLAGS "D" -END - -TEXT -1 -BEGIN - PROMPT 0 7 "@bOpzioni contratti" -END - -BOOLEAN F_UNICONT -BEGIN - PROMPT 1 8 "Numera contr. per ditta" - FIELD UniCont -END - -BOOLEAN F_QTAMODI -BEGIN - PROMPT 28 8 "Dot. modificabili" - FIELD Qtamodi -END - -BOOLEAN F_USEINDSP -BEGIN - PROMPT 50 8 "Utilizza ind. sped. su contratto" - FIELD Useindsp -END - -BOOLEAN F_DATABCON -BEGIN - PROMPT 1 9 "Data buono di consegna uguale alla data evasione buono di ritiro" - FIELD DataBcon -END - -BOOLEAN F_CONDOM -BEGIN - PROMPT 1 10 "Consegna giorno successivo per i clienti che lavorano a pulito" - FIELD ConDom -END - -TEXT -1 -BEGIN - PROMPT 0 11 "@bOpzioni Giri" -END - -BOOLEAN F_AUTGIRI -BEGIN - PROMPT 1 12 "Generazione automatica giri" - FIELD Autgiri -END - -LISTBOX F_ORDGIRI 1 22 -BEGIN - PROMPT 35 12 "Ordina giri per " - ITEM "0|Ordine di generazione" - ITEM "1|Ordine di fermata" - ITEM "2|Orario di passaggio" - FIELD Ordgir -END - -TEXT -1 -BEGIN - PROMPT 0 14 "@bOpzioni Documenti" -END - -BOOLEAN F_DATAFISSA -BEGIN - PROMPT 1 15 "Data documenti fissa" - FIELD Datafissa -END - -BOOLEAN F_AGGCONG -BEGIN - PROMPT 28 15 "Aggiorna conguaglio su modifiche manuali" - FIELD Aggcong -END - -NUMBER F_PERARR 3 -BEGIN - PROMPT 1 16 "Percentuale per il calcolo dell'arrotondamento " - FIELD Perarr -END - -STRING F_CODARTFIX 8 -BEGIN - PROMPT 1 17 "Art. per canone fisso " - FIELD Codartfix - KEY 1 - FLAG "UG" - USE LF_ANAMAG - INPUT CODART F_CODARTFIX - DISPLAY "Codice@20" CODART - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODARTFIX CODART - OUTPUT F_DESARTFIX DESCR - CHECKTYPE NORMAL -END - -STRING F_DESARTFIX 50 28 -BEGIN - PROMPT 40 17 "" - FLAGS "D" -END - -STRING F_CODARTCAFIX 8 -BEGIN - PROMPT 1 18 "Art. per raggruppamento " - FIELD Codartcafix - KEY 1 - FLAG "UG" - USE LF_ANAMAG - INPUT CODART F_CODARTCAFIX - DISPLAY "Codice@20" CODART - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODARTCAFIX CODART - OUTPUT F_DESARTCAFIX DESCR - CHECKTYPE NORMAL -END - -STRING F_DESARTCAFIX 50 28 -BEGIN - PROMPT 40 18 "" - FLAGS "D" -END - -STRING F_CODARTCOFIX 8 -BEGIN - PROMPT 1 19 "Art. per valore convenz." - FIELD Codartcofix - KEY 1 - FLAG "UG" - USE LF_ANAMAG - INPUT CODART F_CODARTCOFIX - DISPLAY "Codice@20" CODART - DISPLAY "Descrizione@50" DESCR - OUTPUT F_CODARTCOFIX CODART - OUTPUT F_DESARTCOFIX DESCR - CHECKTYPE NORMAL -END - -STRING F_DESARTCOFIX 50 28 -BEGIN - PROMPT 40 19 "" - FLAGS "D" -END - -LISTBOX F_TIPOPR 1 19 -BEGIN - PROMPT 1 20 "Tipo prezzo" - ITEM "0|Prezzo da contratto" MESSAGE "X",F_AGGHEAD|DISABLE,F_AGGHEAD - ITEM "1|Prezzo da bolla" MESSAGE ENABLE,F_AGGHEAD - FIELD Tipopr -END - -BOOLEAN F_AGGHEAD -BEGIN - PROMPT 40 20 "Aggiorna la testata delle bolle" - FIELD AggHead -END - -BOOLEAN F_DESTHEAD -BEGIN - PROMPT 1 21 "Destinazione nella testata" - FIELD DestHead -END - -STRING F_UMPESO 3 -BEGIN - PROMPT 40 21 "U.M. " - USE %UMS - INPUT CODTAB F_UMPESO - DISPLAY "Codice@6" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT F_UMPESO CODTAB - FIELD UmKg - FLAG "U" - CHECKTYPE REQUIRED -END - -TEXT -1 -BEGIN - PROMPT 0 22 "@bOpzioni articoli" -END - -BOOLEAN F_GESTSACA -BEGIN - PROMPT 1 23 "Gestione sacchi/carrello" - FIELD Gestsaca -END - -TEXT -1 -BEGIN - PROMPT 40 22 "@bOpzioni backup" - GROUP 1 -END - -STRING F_BACKUP 128 25 -BEGIN - PROMPT 41 23 "Percorso di backup " - FIELD Backup - GROUP 1 -END - -ENDPAGE - -PAGE "File da elaborare" 0 0 0 0 - -TEXT -1 -BEGIN - PROMPT 0 0 "@bPercorsi file" -END - -STRING F_PATH_CON 256 50 -BEGIN - PROMPT 1 1 "Cartella contapezzi " - DSELECT - CHECKTYPE NORMAL - FIELD PathContapezzi -END - -SPREADSHEET F_SHEET_NAME 78 10 -BEGIN - PROMPT 1 2 "Nomi" - ITEM "Nome file" -END - -STRING F_PATH_MAN 256 50 -BEGIN - PROMPT 1 14 "Cartella mangano " - DSELECT - CHECKTYPE NORMAL - FIELD PathMangano -END - -STRING F_PATH_LAVA 256 50 -BEGIN - PROMPT 1 15 "Cartella lavacontinua " - DSELECT - CHECKTYPE NORMAL - FIELD PathLavacontinua -END - -STRING F_PATH_PUL 256 50 -BEGIN - PROMPT 1 16 "Cartella conta pulito " - DSELECT - CHECKTYPE NORMAL - FIELD PathPulito -END - -STRING F_FILE_PUL 255 63 -BEGIN - PROMPT 1 17 "File pul " - FSELECT "*.dat" - CHECKTYPE NORMAL - FIELD FilePulito -END - - -ENDPAGE - -PAGE "Calendario" 0 2 0 0 - -ALMANAC F_ALMANAC 60 -2 -BEGIN - PROMPT -3 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Buoni di ritiro" -1 -1 80 5 - -STRING S_CODNUM_RIT 4 -BEGIN - PROMPT 1 1 "Numerazione " - FIELD NUM_RIT - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB S_CODNUM_RIT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_CODNUM_RIT CODTAB - OUTPUT S_DESNUM_RIT S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING S_DESNUM_RIT 50 -BEGIN - PROMPT 20 1 "" - HELP "Descrizione numerazione" - USE %NUM KEY 2 - INPUT S0 S_DESNUM_RIT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_CODNUM_RIT -END - -STRING S_TIPODOC_RIT 4 -BEGIN - PROMPT 1 2 "Tipo " - FIELD TIPODOC_RIT - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB S_TIPODOC_RIT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_TIPODOC_RIT CODTAB - OUTPUT S_DESTIPODOC_RIT S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING S_DESTIPODOC_RIT 50 -BEGIN - PROMPT 20 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 S_DESTIPODOC_RIT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_TIPODOC_RIT -END - -STRING S_STATO_RIT 1 -BEGIN - PROMPT 1 3 "Stato " - USE %STD - CHECKTYPE REQUIRED - INPUT CODTAB S_STATO_RIT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_STATO_RIT CODTAB - FIELD STATO_RIT - FLAGS "U" -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "Elimina" - MESSAGE EXIT,K_DEL - PICTURE BMP_DELREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Buoni di prelievo" -1 -1 80 5 - -STRING S_CODNUM_PRE 4 -BEGIN - PROMPT 1 1 "Numerazione " - FIELD NUM_PRE - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB S_CODNUM_PRE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_CODNUM_PRE CODTAB - OUTPUT S_DESNUM_PRE S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING S_DESNUM_PRE 50 -BEGIN - PROMPT 20 1 "" - HELP "Descrizione numerazione" - USE %NUM KEY 2 - INPUT S0 S_DESNUM_PRE - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_CODNUM_PRE -END - -STRING S_TIPODOC_PRE 4 -BEGIN - PROMPT 1 2 "Tipo " - FIELD TIPODOC_PRE - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB S_TIPODOC_PRE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_TIPODOC_PRE CODTAB - OUTPUT S_DESTIPODOC_PRE S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING S_DESTIPODOC_PRE 50 -BEGIN - PROMPT 20 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 S_DESTIPODOC_PRE - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_TIPODOC_PRE -END - -STRING S_STATO_PRE 1 -BEGIN - PROMPT 1 3 "Stato " - USE %STD - CHECKTYPE REQUIRED - INPUT CODTAB S_STATO_PRE - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_STATO_PRE CODTAB - FIELD STATO_PRE - FLAGS "U" -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "Elimina" - MESSAGE EXIT,K_DEL - PICTURE BMP_DELREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Buoni d'anticipo" -1 -1 80 5 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 9 "@bBuoni di Anticipo" -END - -STRING S_CODNUM_ANT 4 -BEGIN - PROMPT 1 1 "Numerazione " - FIELD NUM_ANT - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB S_CODNUM_ANT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_CODNUM_ANT CODTAB - OUTPUT S_DESNUM_ANT S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING S_DESNUM_ANT 50 -BEGIN - PROMPT 20 1 "" - HELP "Descrizione numerazione" - USE %NUM KEY 2 - INPUT S0 S_DESNUM_ANT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_CODNUM_ANT -END - -STRING S_TIPODOC_ANT 4 -BEGIN - PROMPT 1 2 "Tipo " - FIELD TIPODOC_ANT - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB S_TIPODOC_ANT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_TIPODOC_ANT CODTAB - OUTPUT S_DESTIPODOC_ANT S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING S_DESTIPODOC_ANT 50 -BEGIN - PROMPT 20 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 S_DESTIPODOC_ANT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_TIPODOC_ANT -END - -STRING S_STATO_ANT 1 -BEGIN - PROMPT 1 3 "Stato " - USE %STD - CHECKTYPE REQUIRED - INPUT CODTAB S_STATO_ANT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_STATO_ANT CODTAB - FIELD STATO_ANT - FLAGS "U" -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "Elimina" - MESSAGE EXIT,K_DEL - PICTURE BMP_DELREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Documenti conguaglio" -1 -1 80 5 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 9 "@bDocumenti conguaglio" -END - -STRING S_CODNUM_CONG 4 -BEGIN - PROMPT 1 1 "Numerazione " - FIELD NUM_CONG - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB S_CODNUM_CONG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_CODNUM_CONG CODTAB - OUTPUT S_DESNUM_CONG S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING S_DESNUM_CONG 50 -BEGIN - PROMPT 20 1 "" - HELP "Descrizione numerazione" - USE %NUM KEY 2 - INPUT S0 S_DESNUM_CONG - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_CODNUM_CONG -END - -STRING S_TIPODOC_CONG 4 -BEGIN - PROMPT 1 2 "Tipo " - FIELD TIPODOC_CONG - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB S_TIPODOC_CONG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_TIPODOC_CONG CODTAB - OUTPUT S_DESTIPODOC_CONG S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING S_DESTIPODOC_CONG 50 -BEGIN - PROMPT 20 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 S_DESTIPODOC_CONG - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_TIPODOC_CONG -END - -STRING S_STATO_CONG 1 -BEGIN - PROMPT 1 3 "Stato " - USE %STD - CHECKTYPE REQUIRED - INPUT CODTAB S_STATO_CONG - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_STATO_CONG CODTAB - FIELD STATO_CONG - FLAGS "U" -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "Elimina" - MESSAGE EXIT,K_DEL - PICTURE BMP_DELREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Documenti dotazione" -1 -1 80 5 - -GROUPBOX DLG_NULL 78 4 -BEGIN - PROMPT 1 9 "@bDocumenti dotazione" -END - -STRING S_CODNUM_DOT 4 -BEGIN - PROMPT 1 1 "Numerazione " - FIELD NUM_DOT - HELP "Codice numerazione" - USE %NUM - INPUT CODTAB S_CODNUM_DOT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_CODNUM_DOT CODTAB - OUTPUT S_DESNUM_DOT S0 - CHECKTYPE REQUIRED - FLAGS "UPA" - WARNING "Numerazione assente" -END - -STRING S_DESNUM_DOT 50 -BEGIN - PROMPT 20 1 "" - HELP "Descrizione numerazione" - USE %NUM KEY 2 - INPUT S0 S_DESNUM_DOT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_CODNUM_DOT -END - -STRING S_TIPODOC_DOT 4 -BEGIN - PROMPT 1 2 "Tipo " - FIELD TIPODOC_DOT - HELP "Codice tipo documento" - USE %TIP - INPUT CODTAB S_TIPODOC_DOT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_TIPODOC_DOT CODTAB - OUTPUT S_DESTIPODOC_DOT S0 - CHECKTYPE REQUIRED - FLAGS "UP" -END - -STRING S_DESTIPODOC_DOT 50 -BEGIN - PROMPT 20 2 "" - HELP "Descrizione tipo documento" - USE %TIP KEY 2 - INPUT S0 S_DESTIPODOC_DOT - DISPLAY "Descrizione@50" S0 - DISPLAY "Codice" CODTAB - COPY OUTPUT S_TIPODOC_DOT -END - -STRING S_STATO_DOT 1 -BEGIN - PROMPT 1 3 "Stato " - USE %STD - CHECKTYPE REQUIRED - INPUT CODTAB S_STATO_DOT - DISPLAY "Codice" CODTAB - DISPLAY "Descrizione@50" S0 - OUTPUT S_STATO_DOT CODTAB - FIELD STATO_DOT - FLAGS "U" -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "Elimina" - MESSAGE EXIT,K_DEL - PICTURE BMP_DELREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - -ENDMASK - -PAGE "Nomi file" -1 -1 80 3 - -GROUPBOX DLG_NULL 78 3 -BEGIN - PROMPT 1 1 "@bNome file" -END - -STRING S_NAME 255 66 -BEGIN - PROMPT 3 2 "File " - FSELECT "*.dat" - CHECKTYPE NORMAL - FIELD FileName -END - -ENDPAGE - -TOOLBAR "" 0 0 0 2 - -BUTTON DLG_OK 2 2 -BEGIN - PROMPT 1 1 "" -END - -BUTTON DLG_DELREC 2 2 -BEGIN - PROMPT 2 1 "" - PICTURE TOOL_DELREC -END - -BUTTON DLG_USER 2 2 -BEGIN - PROMPT 3 1 "Cerca" - MESSAGE K_F9, S_NAME - PICTURE TOOL_FINDREC -END - -BUTTON DLG_CANCEL 2 2 -BEGIN - PROMPT 4 1 "" -END - -ENDPAGE - +#include "lv0300a.h" + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -14 -1 "" +END + +BUTTON DLG_NULL 10 2 +BEGIN + PROMPT -1 -1 "" +END + +BUTTON F_PREVYEAR 10 2 +BEGIN + PROMPT 3 1 "~Anno -" + PICTURE BMP_FIRSTREC +END + +BUTTON F_PREVMONTH 10 2 +BEGIN + PROMPT 4 1 "~Mese -" + PICTURE BMP_PREVREC +END + +BUTTON F_NEXTMONTH 10 2 +BEGIN + PROMPT 5 1 "Mese +" + PICTURE BMP_NEXTREC +END + +BUTTON F_NEXTYEAR 10 2 +BEGIN + PROMPT 6 1 "~Anno +" + PICTURE BMP_LASTREC +END + +BUTTON DLG_NULL 10 2 +BEGIN + PROMPT -1 -1 "" +END + +BUTTON DLG_INFO 10 2 +BEGIN + PROMPT 7 1 "" +END + +BUTTON DLG_HELP 10 2 +BEGIN + PROMPT 8 1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT 9 1 "~Fine" + MESSAGE EXIT,K_QUIT +END + +ENDPAGE + +PAGE "Documenti" 0 0 0 0 + +TEXT -1 +BEGIN + PROMPT 1 0 "@bDocumenti da generare" +END + +STRING F_CODNUM_GEN 4 +BEGIN + PROMPT 2 1 "Numerazione " + FIELD NUM_GEN + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM_GEN + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_GEN CODTAB + OUTPUT F_DESNUM_GEN S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING F_DESNUM_GEN 50 +BEGIN + PROMPT 24 1 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESNUM_GEN + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODNUM_GEN +END + +STRING F_TIPODOC_GEN 4 +BEGIN + PROMPT 2 2 "Tipo " + FIELD TIPODOC_GEN + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC_GEN + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC_GEN CODTAB + OUTPUT F_DESTIPODOC_GEN S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING F_DESTIPODOC_GEN 50 +BEGIN + PROMPT 24 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC_GEN + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC_GEN +END + +TEXT -1 +BEGIN + PROMPT 1 3 "@bFatture" +END + +STRING F_CODNUM_FAT 4 +BEGIN + PROMPT 2 4 "Numerazione " + FIELD NUM_FAT + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM_FAT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_FAT CODTAB + OUTPUT F_DESNUM_FAT S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING F_DESNUM_FAT 50 +BEGIN + PROMPT 24 4 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESNUM_FAT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODNUM_FAT +END + +STRING F_TIPODOC_FAT 4 +BEGIN + PROMPT 2 5 "Tipo " + FIELD TIPODOC_FAT + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC_FAT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC_FAT CODTAB + OUTPUT F_DESTIPODOC_FAT S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING F_DESTIPODOC_FAT 50 +BEGIN + PROMPT 24 5 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC_FAT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC_FAT +END + +BOOLEAN F_RIFTEST +BEGIN + PROMPT 2 6 "Scrivi riferimenti in testata documento" + FIELD RifTest + MESSAGE FALSE CLEAR,F_RIFTESTNUM + MESSAGE TRUE ENABLE,F_RIFTESTNUM +END + +BOOLEAN F_RIFTESTNUM +BEGIN + PROMPT 50 6 "Solo numeri di bolla" + FIELD RifTestNum +END + +STRING F_FELAB_DIF 8 +BEGIN + PROMPT 2 7 "Tipo fatt. definitiva" + FLAG "U" + USE %ELD SELECT I0==2 + INPUT CODTAB F_FELAB_DIF + DISPLAY "Codice@8" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Numerazione" S5 + OUTPUT F_FELAB_DIF CODTAB + CHECKTYPE REQUIRED + FIELD FatDif +END + +STRING F_FELAB_PRO 8 +BEGIN + PROMPT 45 7 "Tipo fatt. di prova " + FLAG "U" + USE %ELD SELECT I0==2 + INPUT CODTAB F_FELAB_PRO + DISPLAY "Codice@8" CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Numerazione" S5 + OUTPUT F_FELAB_PRO CODTAB + CHECKTYPE REQUIRED + FIELD FatPro +END + +TEXT -1 +BEGIN + PROMPT 1 8 "@bOrdini fornitori" +END + +STRING F_CODNUM_ORF 4 +BEGIN + PROMPT 2 9 "Numerazione " + FIELD NUM_ORF + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM_ORF + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_ORF CODTAB + OUTPUT F_DESNUM_ORF S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING F_DESNUM_ORF 50 +BEGIN + PROMPT 24 9 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESNUM_ORF + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODNUM_ORF +END + +STRING F_TIPODOC_ORF 4 +BEGIN + PROMPT 2 10 "Tipo " + FIELD TIPODOC_ORF + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC_ORF + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC_ORF CODTAB + OUTPUT F_DESTIPODOC_ORF S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING F_DESTIPODOC_ORF 50 +BEGIN + PROMPT 24 10 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC_ORF + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC_ORF +END + +TEXT -1 +BEGIN + PROMPT 1 11 "@bOrdini clienti" +END + +STRING F_CODNUM_ORC 4 +BEGIN + PROMPT 2 12 "Numerazione " + FIELD NUM_ORC + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM_ORC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_ORC CODTAB + OUTPUT F_DESNUM_ORC S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING F_DESNUM_ORC 50 +BEGIN + PROMPT 24 12 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESNUM_ORC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODNUM_ORC +END + +STRING F_TIPODOC_ORC 4 +BEGIN + PROMPT 2 13 "Tipo " + FIELD TIPODOC_ORC + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC_ORC + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC_ORC CODTAB + OUTPUT F_DESTIPODOC_ORC S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING F_DESTIPODOC_ORC 50 +BEGIN + PROMPT 24 13 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC_ORC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC_ORC +END + +TEXT -1 +BEGIN + PROMPT 1 14 "@bInventari pacchi" +END + +STRING F_CODNUM_INV 4 +BEGIN + PROMPT 2 15 "Numerazione " + FIELD NUM_INV + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB F_CODNUM_INV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CODNUM_INV CODTAB + OUTPUT F_DESNUM_INV S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING F_DESNUM_INV 50 +BEGIN + PROMPT 24 15 "" + HELP "Descrizione Numerazione" + USE %NUM KEY 2 + INPUT S0 F_DESNUM_INV + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODNUM_INV +END + +STRING F_TIPODOC_INV 4 +BEGIN + PROMPT 2 16 "Tipo " + FIELD TIPODOC_INV + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB F_TIPODOC_INV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPODOC_INV CODTAB + OUTPUT F_DESTIPODOC_INV S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING F_DESTIPODOC_INV 50 +BEGIN + PROMPT 24 16 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 F_DESTIPODOC_INV + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_TIPODOC_ORC +END + + +TEXT -1 +BEGIN + PROMPT 1 17 "@bCausali di default" +END + +STRING F_CAUSLAV 3 +BEGIN + PROMPT 2 18 "Cau. Rit/Con " + USE &CAU + INPUT CODTAB F_CAUSLAV + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CAUSLAV CODTAB + OUTPUT F_CAUSLAVDESC S0 + FIELD CAUSLAV + CHECKTYPE REQUIRED +END + +STRING F_CAUSLAVDESC 48 +BEGIN + PROMPT 26 18 "" + USE &CAU KEY 2 + INPUT S0 F_CAUSLAVDESC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CAUSLAV + CHECKTYPE REQUIRED +END + +STRING F_CAULVRITDT 3 +BEGIN + PROMPT 2 19 "Cau. Rit. dt. tmp" + USE &CAU + INPUT CODTAB F_CAULVRITDT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CAULVRITDT CODTAB + OUTPUT F_CAULVRITDTDE S0 + FIELD CAULVRITDT + CHECKTYPE REQUIRED +END + +STRING F_CAULVRITDTDE 48 +BEGIN + PROMPT 26 19 "" + USE &CAU KEY 2 + INPUT S0 F_CAUSLAVDESC + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CAULVRITDT + CHECKTYPE REQUIRED +END + +STRING F_CAUCARMAG 5 +BEGIN + PROMPT 2 20 "Cau. Car. Mag. " + USE %CAU KEY 1 + INPUT CODTAB F_CAUCARMAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CAUCARMAG CODTAB + OUTPUT F_CAUCARMAGDE S0 + FIELD CAUCARMAG + CHECKTYPE REQUIRED +END + +STRING F_CAUCARMAGDE 50 46 +BEGIN + PROMPT 28 20 "" + USE %CAU KEY 2 + INPUT S0 F_CAUCARMAGDE + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CAUCARMAG + CHECKTYPE REQUIRED +END + +STRING F_CAUSCARMAG 5 +BEGIN + PROMPT 2 21 "Cau. Scar. Mag. " + USE %CAU KEY 1 + INPUT CODTAB F_CAUSCARMAG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_CAUSCARMAG CODTAB + OUTPUT F_CAUSCARMAGDE S0 + FIELD CAUSCARMAG + CHECKTYPE REQUIRED +END + +STRING F_CAUSCARMAGDE 50 46 +BEGIN + PROMPT 28 21 "" + USE %CAU KEY 2 + INPUT S0 F_CAUSCARMAGDE + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CAUSCARMAG + CHECKTYPE REQUIRED +END + +ENDPAGE + +PAGE "Buoni" 0 2 0 0 + +TEXT DLG_NULL +BEGIN + PROMPT -11 0 "@bBuoni di ritiro" +END + +SPREADSHEET F_BUONIRIT 0 5 +BEGIN + PROMPT 0 1 "Buoni di ritiro" + ITEM "Numerazione" + ITEM "Tipo documento" + ITEM "Descrizione tipo documento" + ITEM "Stato" + ITEM "Descrizione numerazione" +END + +TEXT DLG_NULL +BEGIN + PROMPT -11 7 "@bBuoni di prelievo" +END + +SPREADSHEET F_BUONIPREL 0 5 +BEGIN + PROMPT 0 8 "Buoni di prelievo" + ITEM "Numerazione" + ITEM "Tipo documento" + ITEM "Descrizione tipo documento" + ITEM "Stato" + ITEM "Descrizione numerazione" +END + +TEXT DLG_NULL +BEGIN + PROMPT -11 14 "@bBuoni di anticipo" +END + +SPREADSHEET F_BUONIANT 0 5 +BEGIN + PROMPT 0 15 "Buoni di anticipo" + ITEM "Numerazione" + ITEM "Tipo documento" + ITEM "Descrizione tipo documento" + ITEM "Stato" + ITEM "Descrizione numerazione" +END + +ENDPAGE + +PAGE "Documenti per conguaglio e dotazione" 0 2 0 0 + +TEXT DLG_NULL +BEGIN + PROMPT -11 0 "@bDocumenti per conguaglio" +END + +SPREADSHEET F_DOCCONG 0 8 +BEGIN + PROMPT 0 1 "Documenti per conguaglio" + ITEM "Numerazione" + ITEM "Tipo documento" + ITEM "Descrizione tipo documento" + ITEM "Stato" + ITEM "Descrizione numerazione" +END + +TEXT DLG_NULL +BEGIN + PROMPT -11 10 "@bDocumenti per dotazione" +END + +SPREADSHEET F_DOCDOT 0 7 +BEGIN + PROMPT 0 11 "Documenti per dotazione" + ITEM "Numerazione" + ITEM "Tipo documento" + ITEM "Descrizione tipo documento" + ITEM "Stato" + ITEM "Descrizione numerazione" +END + +ENDPAGE + +PAGE "Parametri" 0 0 0 0 + +TEXT -1 +BEGIN + PROMPT 0 0 "@bMagazzini" +END + +STRING F_CODMAG 4 +BEGIN + PROMPT 1 1 "Magazzino " + FIELD CODMAG + USE MAG SELECT CODTAB[4,5]=="" + FLAG "U" + INPUT CODTAB F_CODMAG + DISPLAY "Codice " CODTAB[1,3] + DISPLAY "Denominazione mag.@50 " S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_DESMAG S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAG 50 +BEGIN + PROMPT 23 1 "" + FLAGS "D" +END + +STRING F_CODMAGN 3 +BEGIN + PROMPT 1 2 "Dep. nuovo " + HELP "Codice deposito del nuovo" + FIELD CODMAGN + KEY 1 + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGN + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGN CODTAB[4,5] + OUTPUT F_DESMAGN S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAGN 50 +BEGIN + PROMPT 23 2 "" + HELP "Descrizione Magazzino" + FLAGS "D" +END + +STRING F_CODMAGC 3 +BEGIN + PROMPT 1 3 "Dep. circ. " + HELP "Codice deposito del circolante" + FIELD CODMAGC + KEY 1 + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGC + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGC CODTAB[4,5] + OUTPUT F_DESMAGC S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAGC 50 +BEGIN + PROMPT 23 3 "" + HELP "Descrizione Magazzino" + FLAGS "D" +END + +STRING F_CODMAGP 3 +BEGIN + PROMPT 1 4 "Dep. pulito" + HELP "Codice deposito del pulito" + FIELD CODMAGP + KEY 1 + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGP + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGP CODTAB[4,5] + OUTPUT F_DESMAGP S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAGP 50 +BEGIN + PROMPT 23 4 "" + HELP "Descrizione Magazzino" + FLAGS "D" +END + +STRING F_CODMAGCL 3 +BEGIN + PROMPT 1 5 "Dep. cli. " + HELP "Codice deposito presso cliente" + FIELD CODMAGCL + KEY 1 + USE MAG + INPUT CODTAB[1,3] F_CODMAG SELECT + INPUT CODTAB[4,5] F_CODMAGCL + DISPLAY "Cod. magazzino" CODTAB[1,3] + DISPLAY "Cod. deposito" CODTAB[4,5] + DISPLAY "Denominazione dep.@50" S0 + OUTPUT F_CODMAG CODTAB[1,3] + OUTPUT F_CODMAGCL CODTAB[4,5] + OUTPUT F_DESMAGCL S0 + CHECKTYPE REQUIRED + FLAGS "UPA" +END + +STRING F_DESMAGCL 50 +BEGIN + PROMPT 23 5 "" + HELP "Descrizione Magazzino" + FLAGS "D" +END + +TEXT -1 +BEGIN + PROMPT 0 7 "@bOpzioni contratti" +END + +BOOLEAN F_UNICONT +BEGIN + PROMPT 1 8 "Numera contr. per ditta" + FIELD UniCont +END + +BOOLEAN F_QTAMODI +BEGIN + PROMPT 28 8 "Dot. modificabili" + FIELD Qtamodi +END + +BOOLEAN F_USEINDSP +BEGIN + PROMPT 50 8 "Utilizza ind. sped. su contratto" + FIELD Useindsp +END + +BOOLEAN F_DATABCON +BEGIN + PROMPT 1 9 "Data buono di consegna uguale alla data evasione buono di ritiro" + FIELD DataBcon +END + +BOOLEAN F_CONDOM +BEGIN + PROMPT 1 10 "Consegna giorno successivo per i clienti che lavorano a pulito" + FIELD ConDom +END + +TEXT -1 +BEGIN + PROMPT 0 11 "@bOpzioni Giri" +END + +BOOLEAN F_AUTGIRI +BEGIN + PROMPT 1 12 "Generazione automatica giri" + FIELD Autgiri +END + +LISTBOX F_ORDGIRI 1 22 +BEGIN + PROMPT 35 12 "Ordina giri per " + ITEM "0|Ordine di generazione" + ITEM "1|Ordine di fermata" + ITEM "2|Orario di passaggio" + FIELD Ordgir +END + +TEXT -1 +BEGIN + PROMPT 0 14 "@bOpzioni Documenti" +END + +BOOLEAN F_DATAFISSA +BEGIN + PROMPT 1 15 "Data documenti fissa" + FIELD Datafissa +END + +BOOLEAN F_AGGCONG +BEGIN + PROMPT 28 15 "Aggiorna conguaglio su modifiche manuali" + FIELD Aggcong +END + +NUMBER F_PERARR 3 +BEGIN + PROMPT 1 16 "Percentuale per il calcolo dell'arrotondamento " + FIELD Perarr +END + +STRING F_CODARTFIX 8 +BEGIN + PROMPT 1 17 "Art. per canone fisso " + FIELD Codartfix + KEY 1 + FLAG "UG" + USE LF_ANAMAG + INPUT CODART F_CODARTFIX + DISPLAY "Codice@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODARTFIX CODART + OUTPUT F_DESARTFIX DESCR + CHECKTYPE NORMAL +END + +STRING F_DESARTFIX 50 28 +BEGIN + PROMPT 40 17 "" + FLAGS "D" +END + +STRING F_CODARTCAFIX 8 +BEGIN + PROMPT 1 18 "Art. per raggruppamento " + FIELD Codartcafix + KEY 1 + FLAG "UG" + USE LF_ANAMAG + INPUT CODART F_CODARTCAFIX + DISPLAY "Codice@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODARTCAFIX CODART + OUTPUT F_DESARTCAFIX DESCR + CHECKTYPE NORMAL +END + +STRING F_DESARTCAFIX 50 28 +BEGIN + PROMPT 40 18 "" + FLAGS "D" +END + +STRING F_CODARTCOFIX 8 +BEGIN + PROMPT 1 19 "Art. per valore convenz." + FIELD Codartcofix + KEY 1 + FLAG "UG" + USE LF_ANAMAG + INPUT CODART F_CODARTCOFIX + DISPLAY "Codice@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODARTCOFIX CODART + OUTPUT F_DESARTCOFIX DESCR + CHECKTYPE NORMAL +END + +STRING F_DESARTCOFIX 50 28 +BEGIN + PROMPT 40 19 "" + FLAGS "D" +END + +LISTBOX F_TIPOPR 1 19 +BEGIN + PROMPT 1 20 "Tipo prezzo" + ITEM "0|Prezzo da contratto" MESSAGE "X",F_AGGHEAD|DISABLE,F_AGGHEAD + ITEM "1|Prezzo da bolla" MESSAGE ENABLE,F_AGGHEAD + FIELD Tipopr +END + +BOOLEAN F_AGGHEAD +BEGIN + PROMPT 40 20 "Aggiorna la testata delle bolle" + FIELD AggHead +END + +BOOLEAN F_DESTHEAD +BEGIN + PROMPT 1 21 "Destinazione in testata" + FIELD DestHead +END + +BOOLEAN F_DOTSTO +BEGIN + PROMPT 30 21 "Visualizza dotazione storica" + FIELD ShowDotSto +END + +STRING F_UMPESO 3 +BEGIN + PROMPT 66 21 "U.M. " + USE %UMS + INPUT CODTAB F_UMPESO + DISPLAY "Codice@6" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_UMPESO CODTAB + FIELD UmKg + FLAG "U" + CHECKTYPE REQUIRED +END + +TEXT -1 +BEGIN + PROMPT 0 22 "@bOpzioni articoli" +END + +BOOLEAN F_GESTSACA +BEGIN + PROMPT 30 22 "Gestione sacchi/carrello" + FIELD Gestsaca +END + +ENDPAGE + +PAGE "File da elaborare" 0 0 0 0 + +TEXT -1 +BEGIN + PROMPT 0 0 "@bPercorsi file" +END + +STRING F_PATH_CON 256 50 +BEGIN + PROMPT 1 1 "Cartella contapezzi " + DSELECT + CHECKTYPE NORMAL + FIELD PathContapezzi +END + +SPREADSHEET F_SHEET_NAME 78 10 +BEGIN + PROMPT 1 2 "Nomi" + ITEM "Nome file" +END + +STRING F_PATH_MAN 256 50 +BEGIN + PROMPT 1 14 "Cartella mangano " + DSELECT + CHECKTYPE NORMAL + FIELD PathMangano +END + +STRING F_PATH_LAVA 256 50 +BEGIN + PROMPT 1 15 "Cartella lavacontinua " + DSELECT + CHECKTYPE NORMAL + FIELD PathLavacontinua +END + +STRING F_PATH_PUL 256 50 +BEGIN + PROMPT 1 16 "Cartella conta pulito " + DSELECT + CHECKTYPE NORMAL + FIELD PathPulito +END + +STRING F_FILE_PUL 255 63 +BEGIN + PROMPT 1 17 "File pul " + FSELECT "*.dat" + CHECKTYPE NORMAL + FIELD FilePulito +END + +TEXT -1 +BEGIN + PROMPT 0 20 "@bOpzioni backup" + GROUP 1 +END + +STRING F_BACKUP 128 25 +BEGIN + PROMPT 1 21 "Percorso di backup " + FIELD Backup + GROUP 1 +END + +ENDPAGE + +PAGE "Calendario" 0 2 0 0 + +ALMANAC F_ALMANAC 60 -2 +BEGIN + PROMPT -3 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Buoni di ritiro" -1 -1 80 5 + +STRING S_CODNUM_RIT 4 +BEGIN + PROMPT 1 1 "Numerazione " + FIELD NUM_RIT + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB S_CODNUM_RIT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_CODNUM_RIT CODTAB + OUTPUT S_DESNUM_RIT S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING S_DESNUM_RIT 50 +BEGIN + PROMPT 20 1 "" + HELP "Descrizione numerazione" + USE %NUM KEY 2 + INPUT S0 S_DESNUM_RIT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_CODNUM_RIT +END + +STRING S_TIPODOC_RIT 4 +BEGIN + PROMPT 1 2 "Tipo " + FIELD TIPODOC_RIT + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB S_TIPODOC_RIT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_TIPODOC_RIT CODTAB + OUTPUT S_DESTIPODOC_RIT S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING S_DESTIPODOC_RIT 50 +BEGIN + PROMPT 20 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 S_DESTIPODOC_RIT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_TIPODOC_RIT +END + +STRING S_STATO_RIT 1 +BEGIN + PROMPT 1 3 "Stato " + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB S_STATO_RIT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_STATO_RIT CODTAB + FIELD STATO_RIT + FLAGS "U" +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "Elimina" + MESSAGE EXIT,K_DEL + PICTURE BMP_DELREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Buoni di prelievo" -1 -1 80 5 + +STRING S_CODNUM_PRE 4 +BEGIN + PROMPT 1 1 "Numerazione " + FIELD NUM_PRE + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB S_CODNUM_PRE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_CODNUM_PRE CODTAB + OUTPUT S_DESNUM_PRE S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING S_DESNUM_PRE 50 +BEGIN + PROMPT 20 1 "" + HELP "Descrizione numerazione" + USE %NUM KEY 2 + INPUT S0 S_DESNUM_PRE + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_CODNUM_PRE +END + +STRING S_TIPODOC_PRE 4 +BEGIN + PROMPT 1 2 "Tipo " + FIELD TIPODOC_PRE + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB S_TIPODOC_PRE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_TIPODOC_PRE CODTAB + OUTPUT S_DESTIPODOC_PRE S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING S_DESTIPODOC_PRE 50 +BEGIN + PROMPT 20 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 S_DESTIPODOC_PRE + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_TIPODOC_PRE +END + +STRING S_STATO_PRE 1 +BEGIN + PROMPT 1 3 "Stato " + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB S_STATO_PRE + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_STATO_PRE CODTAB + FIELD STATO_PRE + FLAGS "U" +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "Elimina" + MESSAGE EXIT,K_DEL + PICTURE BMP_DELREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Buoni d'anticipo" -1 -1 80 5 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 9 "@bBuoni di Anticipo" +END + +STRING S_CODNUM_ANT 4 +BEGIN + PROMPT 1 1 "Numerazione " + FIELD NUM_ANT + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB S_CODNUM_ANT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_CODNUM_ANT CODTAB + OUTPUT S_DESNUM_ANT S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING S_DESNUM_ANT 50 +BEGIN + PROMPT 20 1 "" + HELP "Descrizione numerazione" + USE %NUM KEY 2 + INPUT S0 S_DESNUM_ANT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_CODNUM_ANT +END + +STRING S_TIPODOC_ANT 4 +BEGIN + PROMPT 1 2 "Tipo " + FIELD TIPODOC_ANT + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB S_TIPODOC_ANT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_TIPODOC_ANT CODTAB + OUTPUT S_DESTIPODOC_ANT S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING S_DESTIPODOC_ANT 50 +BEGIN + PROMPT 20 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 S_DESTIPODOC_ANT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_TIPODOC_ANT +END + +STRING S_STATO_ANT 1 +BEGIN + PROMPT 1 3 "Stato " + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB S_STATO_ANT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_STATO_ANT CODTAB + FIELD STATO_ANT + FLAGS "U" +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "Elimina" + MESSAGE EXIT,K_DEL + PICTURE BMP_DELREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Documenti conguaglio" -1 -1 80 5 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 9 "@bDocumenti conguaglio" +END + +STRING S_CODNUM_CONG 4 +BEGIN + PROMPT 1 1 "Numerazione " + FIELD NUM_CONG + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB S_CODNUM_CONG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_CODNUM_CONG CODTAB + OUTPUT S_DESNUM_CONG S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING S_DESNUM_CONG 50 +BEGIN + PROMPT 20 1 "" + HELP "Descrizione numerazione" + USE %NUM KEY 2 + INPUT S0 S_DESNUM_CONG + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_CODNUM_CONG +END + +STRING S_TIPODOC_CONG 4 +BEGIN + PROMPT 1 2 "Tipo " + FIELD TIPODOC_CONG + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB S_TIPODOC_CONG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_TIPODOC_CONG CODTAB + OUTPUT S_DESTIPODOC_CONG S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING S_DESTIPODOC_CONG 50 +BEGIN + PROMPT 20 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 S_DESTIPODOC_CONG + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_TIPODOC_CONG +END + +STRING S_STATO_CONG 1 +BEGIN + PROMPT 1 3 "Stato " + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB S_STATO_CONG + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_STATO_CONG CODTAB + FIELD STATO_CONG + FLAGS "U" +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "Elimina" + MESSAGE EXIT,K_DEL + PICTURE BMP_DELREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Documenti dotazione" -1 -1 80 5 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 9 "@bDocumenti dotazione" +END + +STRING S_CODNUM_DOT 4 +BEGIN + PROMPT 1 1 "Numerazione " + FIELD NUM_DOT + HELP "Codice numerazione" + USE %NUM + INPUT CODTAB S_CODNUM_DOT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_CODNUM_DOT CODTAB + OUTPUT S_DESNUM_DOT S0 + CHECKTYPE REQUIRED + FLAGS "UPA" + WARNING "Numerazione assente" +END + +STRING S_DESNUM_DOT 50 +BEGIN + PROMPT 20 1 "" + HELP "Descrizione numerazione" + USE %NUM KEY 2 + INPUT S0 S_DESNUM_DOT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_CODNUM_DOT +END + +STRING S_TIPODOC_DOT 4 +BEGIN + PROMPT 1 2 "Tipo " + FIELD TIPODOC_DOT + HELP "Codice tipo documento" + USE %TIP + INPUT CODTAB S_TIPODOC_DOT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_TIPODOC_DOT CODTAB + OUTPUT S_DESTIPODOC_DOT S0 + CHECKTYPE REQUIRED + FLAGS "UP" +END + +STRING S_DESTIPODOC_DOT 50 +BEGIN + PROMPT 20 2 "" + HELP "Descrizione tipo documento" + USE %TIP KEY 2 + INPUT S0 S_DESTIPODOC_DOT + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT S_TIPODOC_DOT +END + +STRING S_STATO_DOT 1 +BEGIN + PROMPT 1 3 "Stato " + USE %STD + CHECKTYPE REQUIRED + INPUT CODTAB S_STATO_DOT + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT S_STATO_DOT CODTAB + FIELD STATO_DOT + FLAGS "U" +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "Elimina" + MESSAGE EXIT,K_DEL + PICTURE BMP_DELREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + +ENDMASK + +PAGE "Nomi file" -1 -1 80 3 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "@bNome file" +END + +STRING S_NAME 255 66 +BEGIN + PROMPT 3 2 "File " + FSELECT "*.dat" + CHECKTYPE NORMAL + FIELD FileName +END + +ENDPAGE + +TOOLBAR "" 0 0 0 2 + +BUTTON DLG_OK 2 2 +BEGIN + PROMPT 1 1 "" +END + +BUTTON DLG_DELREC 2 2 +BEGIN + PROMPT 2 1 "" + PICTURE TOOL_DELREC +END + +BUTTON DLG_USER 2 2 +BEGIN + PROMPT 3 1 "Cerca" + MESSAGE K_F9, S_NAME + PICTURE TOOL_FINDREC +END + +BUTTON DLG_CANCEL 2 2 +BEGIN + PROMPT 4 1 "" +END + +ENDPAGE + ENDMASK \ No newline at end of file diff --git a/lv/lv0400.cpp b/lv/lv0400.cpp index e94c51a7d..8b444247b 100755 --- a/lv/lv0400.cpp +++ b/lv/lv0400.cpp @@ -1,5 +1,6 @@ #include #include +#include #include #include #include @@ -407,9 +408,6 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly f.set_dirty(false); } } - if (e == se_enter || e == se_notify_modify || e == se_query_add || e == se_notify_add) - highlight_row(); - //questo pezzo serve per gestire enable e disable dei campi in modo corretto //senza massage in maschera, sia sullo sheet che sul dettaglio TMask& rowmask = ss.sheet_mask(); @@ -429,6 +427,18 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly } _artrig = row.get(0); //salvo nella variabile globale il codart della riga selezionata + } + if (e == se_enter || e == se_notify_modify || e == se_query_add || e == se_notify_add) + highlight_row(); + if (e == se_notify_add) + { + TSheet_field& ss = (TSheet_field&)o; + TMask& rowmask = ss.sheet_mask(); + TToken_string& row = ss.row(jolly); + const TString & val = get(F_RITAUDTTMP); + rowmask.set(S_CALCCONS, val); + row.add(val, ss.cid2index(S_RITAUDTTMP)); + set(F_RITAUDTTMPRIG, val); } //se ho cancellato una riga dello sheet, chiedo conferma che sia effettivamente quello che si vuole fare if (e == se_query_del) @@ -694,6 +704,8 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly } } + + //se ho scritto un articolo diverso da quello che esisteva prima //e se si desidera veramente modificarlo, allora permetto la modifica //e forzo l'updatre della riga, altrimenti riscrivo l'articolo che c'era prima @@ -768,6 +780,15 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly row.add(prezzo.string(), ss.cid2index(S_PREZZOST)); row.add(_artrig, ss.cid2index(S_CODART)); + + const real valconv(cache().get("&LV047", codart, "R0")); + + row.add(valconv.string(), ss.cid2index(S_VALCONV)); + + TDate oggi(TODAY); + + row.add(oggi.string(), ss.cid2index(S_DATAINS)); + ss.force_update(ss.selected()); } //se all'articolo è associata un'unità di misura, la propongo @@ -784,11 +805,12 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly case S_DOTIN: case S_DOTOD: case S_DOTTMP: + { if (e == fe_modify) { TString str; - str << "ATTENZIONE: Una quantità risulta modificata a mano!\nDopo questa operazione i totali dei movimenti" - << "di magazzino\npotrebbero non corrispondere ai numeri qui salvati."; + str << "ATTENZIONE: Una quantità risulta modificata a mano; dopo questa operazione i totali dei movimenti" + << "di magazzino potrebbero non corrispondere ai numeri qui salvati"; warning_box(str); TSheet_field& ss = sfield(F_RIGHE); @@ -803,6 +825,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly row.add(qta, ss.cid2index(o.dlg())); //ss.force_update(rigasel); } + } break; case DLG_PLANNING: //se viene premuto il bottone "Giri", lancia lv0500 (generatore automatico dei giri) diff --git a/lv/lv0400.h b/lv/lv0400.h index d3eb72c01..27fd60a2f 100755 --- a/lv/lv0400.h +++ b/lv/lv0400.h @@ -54,6 +54,8 @@ #define F_REDDI 247 #define F_RAGGCGRUP 252 +#define F_COMMENTI 253 +#define F_GIOCHI 254 // Campi del dettalio sotto lo spreadsheet diff --git a/lv/lv0400a.uml b/lv/lv0400a.uml index ec97547e0..6d738f7d0 100755 --- a/lv/lv0400a.uml +++ b/lv/lv0400a.uml @@ -134,7 +134,7 @@ BEGIN ITEM "Dot.\nOd.@5" ITEM "Cons.\nmese@5" ITEM "Cons.\nanno@5" - ITEM "Tipo\nForfait@22" + ITEM "Tipo\nForfait@25" ITEM "Prezzo\nRinnovo@8" ITEM "Sconto %@5" ITEM "Dot.\nTemp.@5" @@ -196,7 +196,7 @@ BEGIN ITEM "1|Conguaglio alla confezione" END -LISTBOX F_TIPOFORF 1 20 +LISTBOX F_TIPOFORF 1 25 BEGIN PROMPT 1 -7 "Forfait " ITEM "0|Nessuno" @@ -209,7 +209,7 @@ BEGIN MESSAGE SHOW,F_NOLCIC|SHOW,F_IMPFISART|DISABLE,F_IMPFISART|DISABLE,3@|SHOW,F_MINCIC|HIDE,F_PREZNOL ITEM "4|% sul val. convenz." MESSAGE SHOW,F_NOLCIC|SHOW,F_IMPFISART|DISABLE,F_IMPFISART|ENABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL - ITEM "5|Fisso su dot. iniz." + ITEM "5|Fisso su dot. iniziale" MESSAGE HIDE,1@|SHOW,F_IMPFISART|ENABLE,F_IMPFISART|DISABLE,3@|HIDE,F_MINCIC|HIDE,F_PREZNOL END @@ -635,6 +635,30 @@ END ENDPAGE +PAGE "Dati Testata - Commenti" 0 2 0 0 + +MEMO F_COMMENTI 50 16 +BEGIN + PROMPT 2 1 "Commenti" + FIELD COMMENTI +END + +LISTBOX F_GIOCHI 1 9 +BEGIN + PROMPT 2 18 "Giorno di chiusura " + ITEM "0|Nessuno" + ITEM "1|Lunedì" + ITEM "2|Martedì" + ITEM "3|Mercoledì" + ITEM "4|Giovedì" + ITEM "5|Venerdì" + ITEM "6|Sabato" + ITEM "7|Domenica" + FIELD GIOCHI +END + +ENDPAGE + ENDMASK TOOLBAR "" 0 0 0 2 @@ -746,7 +770,7 @@ BEGIN PROMPT 1 6 "@bForfait/Prezzi" END -LISTBOX S_TIPOFORF 1 20 +LISTBOX S_TIPOFORF 1 25 BEGIN PROMPT 2 7 "Tipo " ITEM "0|Nessuno" @@ -759,7 +783,7 @@ BEGIN MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@|DISABLE,S_PREZNOL ITEM "4|% sul val. convenz." MESSAGE ENABLE,S_NOLCIC|ENABLE,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@|DISABLE,S_PREZNOL - ITEM "5|Fisso su dot. iniz." + ITEM "5|Fisso su dot. iniziale" MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@|DISABLE,S_PREZNOL FIELD TIPOFORF END diff --git a/lv/lv0400c.h b/lv/lv0400c.h index 358a2a547..a32403973 100755 --- a/lv/lv0400c.h +++ b/lv/lv0400c.h @@ -1,7 +1,9 @@ //Definizione campi per maschera lv0400c -//Stampa Contratti per Cliente +/Stampa Contratti per Cliente #define F_CODCF 201 #define F_RAGSOC 202 #define F_CODCONT_DA 203 #define F_CODCONT_A 204 -#define F_ANNOES 205 \ No newline at end of file +#define F_ANNOES 205 + +#include "lv0100c.h" diff --git a/lv/lv0400c.rep b/lv/lv0400c.rep index b5fce7299..8cff3b305 100755 --- a/lv/lv0400c.rep +++ b/lv/lv0400c.rep @@ -1,60 +1,82 @@ - + Stampa Contratto per Cliente
-
+
CODCONT + - - + - + 168.CODCONT - + - + CLIFO.CODCF - + CLIFO.RAGSOC - + - + 168.DATAIN - + CLIFO.INDCF - + CLIFO.CIVCF + + + CLIFO.PTEL + + + CLIFO.TEL + - + 168.DATASC - + CLIFO.CAPCF - + CLIFO.LOCALITACF - - + + + CLIFO.PFAX + + + CLIFO.FAX + + + CLIFO.COFI + + + CLIFO.PIVA + + + + CLIFO.DOCMAIL + " " + CLIFO.MAIL + @@ -166,38 +188,34 @@ 305@.S0 - + - - - - - - - + 168.COMMENTI - +
- + - - - - - - + + + + + + + +
USE 169 @@ -208,22 +226,26 @@ TO CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT - + 600@.DESCR - - + + 169.PREZZO - - + + 169.UM - - + + #DOTOD + + + 169.SCONTPERC + 169.CODART @@ -231,10 +253,11 @@ TO CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT
- - - - + + + + + @@ -342,13 +365,13 @@ TO CODCF=#PARENT.CODCF CODCONT=#PARENT.CODCONT
USE LVCONDV JOIN CLIFO INTO TIPOCF=="C" CODCF==CODCF -JOIN 16 TO 168 ALIAS 200 INTO TIPOCF=="C" CODCF==CODCF CODIND==CODINDSP JOIN %CPG TO 20 ALIAS 201 INTO CODTAB==CODPAG JOIN %BAN TO 20 ALIAS 204 INTO CODTAB==CODABI+CODCAB JOIN %VAL TO 20 ALIAS 207 INTO CODTAB==CODVAL JOIN %CAU TO 168 ALIAS 208 INTO CODTAB==CAUSLAV JOIN 17 TO 168 ALIAS 300 INTO TIPOCF=="C" CODCF==CODCF JOIN 16 TO 17 ALIAS 301 INTO TIPOCF=="C" CODCF==CODCF CODIND==CODINDDOC +JOIN 16 TO 17 ALIAS 200 INTO TIPOCF=="C" CODCF==CODCF CODIND==CODINDSP JOIN %POR TO 17 ALIAS 302 INTO CODTAB==CODPORTO JOIN %MSP TO 17 ALIAS 303 INTO CODTAB==CODSPMEZZO JOIN 122 TO 17 ALIAS 304 INTO CODAGE==CODAG diff --git a/lv/lv0400c.uml b/lv/lv0400c.uml index c5e49bc82..baa941ef7 100755 --- a/lv/lv0400c.uml +++ b/lv/lv0400c.uml @@ -58,6 +58,7 @@ BEGIN OUTPUT F_CODCF CODCF OUTPUT F_CODCONT_DA CODCONT FLAGS "U" + MESSAGE COPY,F_CODCONT_A FIELD #F_CODCONT_FROM CHECKTYPE SEARCH END @@ -90,6 +91,13 @@ BEGIN FLAGS "H" END +STRING F_REPORT 20 +BEGIN + PROMPT 2 -2 "Tipo di stampa " + RSELECT "lv0400c" + CHECKTYPE NORMAL +END + ENDPAGE ENDMASK diff --git a/lv/lv0400f.h b/lv/lv0400f.h index 2b3072f57..5592f6ab4 100755 --- a/lv/lv0400f.h +++ b/lv/lv0400f.h @@ -4,4 +4,7 @@ #define F_DARAGSOC 202 #define F_ACODCF 203 #define F_ARAGSOC 204 -#define F_ANNOES 207 \ No newline at end of file +#define F_ANNOES 207 + +#include "lv0100c.h" + diff --git a/lv/lv0400f.rep b/lv/lv0400f.rep index dd4fd7772..8dc19772d 100755 --- a/lv/lv0400f.rep +++ b/lv/lv0400f.rep @@ -1,5 +1,5 @@ - + Stampa Contratto per Cliente
diff --git a/lv/lv0400f.uml b/lv/lv0400f.uml index a0c87a573..b7a7ac926 100755 --- a/lv/lv0400f.uml +++ b/lv/lv0400f.uml @@ -81,6 +81,13 @@ BEGIN FLAGS "H" END +STRING F_REPORT 20 +BEGIN + PROMPT 2 -2 "Tipo di stampa " + RSELECT "lv0400f" + CHECKTYPE NORMAL +END + ENDPAGE ENDMASK diff --git a/lv/lv0400h.rep b/lv/lv0400h.rep new file mode 100644 index 000000000..3f4a666ac --- /dev/null +++ b/lv/lv0400h.rep @@ -0,0 +1,48 @@ + + + Stampa conguagli diversi da zero + +
+
+
+ CODCF + + + + + 169.CODCF + + + 20.RAGSOC + + + + + + + + + + 169.QTACONG + + +
+
+
+ + 169.CODART + + + 47.DESCR + + + 169.QTACONG + +
+
+
+
+ USE 169 SELECT QTACONG!=0 +JOIN 20 INTO TIPOCF=='C' CODCF==CODCF +JOIN 47 INTO CODART==CODART + \ No newline at end of file diff --git a/lv/lv0400h.uml b/lv/lv0400h.uml new file mode 100644 index 000000000..5f4de79ac --- /dev/null +++ b/lv/lv0400h.uml @@ -0,0 +1,12 @@ +// #include "lv0400h.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "printbar.h" +ENDPAGE + +PAGE "Stampa Articoli con conguaglio" -1 -1 40 5 + +ENDPAGE +ENDMASK + + diff --git a/lv/lv0600a.h b/lv/lv0600a.h index a96001215..6f8b7b260 100755 --- a/lv/lv0600a.h +++ b/lv/lv0600a.h @@ -13,3 +13,5 @@ #define F_DESCAUS_DA 212 #define F_CODCAUS_A 213 #define F_DESCAUS_A 214 +#define F_ANNO_DA 215 +#define F_ANNO_A 216 \ No newline at end of file diff --git a/lv/lv0600a.rep b/lv/lv0600a.rep index ae62fbb06..b57d79918 100755 --- a/lv/lv0600a.rep +++ b/lv/lv0600a.rep @@ -92,10 +92,11 @@
USE 34 -SELECT ((BETWEEN(33.DATADOC,#F_DATA_FROM,#F_DATA_TO))(BETWEEN(33.CODCF,#F_CODCF_FROM,#F_CODCF_TO))(BETWEEN(CODART,#F_CODARTI_FROM,#F_CODARTI_TO))(BETWEEN(CODAGG1,#F_CODCAUSA_FROM,#F_CODCAUSA_TO))) +SELECT BETWEEN(33.DATADOC,#F_DATA_FROM,#F_DATA_TO)STR(BETWEEN(33.CODCF,#F_CODCF_FROM,#F_CODCF_TO))BETWEEN(CODART,#F_CODARTI_FROM,#F_CODARTI_TO)BETWEEN(CODAGG1,#F_CODCAUSA_FROM,#F_CODCAUSA_TO) BY 33.CODCF 34.CODART 33.DATADOC JOIN 33 TO 34 ALIAS 1000 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 20 TO 33 ALIAS 2000 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 47 TO 34 ALIAS 3000 INTO CODART==CODART -FROM CODNUM=="B05" +FROM CODNUM="B05" ANNO=#ANNO_FROM +TO CODNUM="B05" ANNO=#ANNO_TO \ No newline at end of file diff --git a/lv/lv0600a.uml b/lv/lv0600a.uml index e54f6999f..47cf2e1d5 100755 --- a/lv/lv0600a.uml +++ b/lv/lv0600a.uml @@ -24,7 +24,7 @@ BEGIN DISPLAY "Partita IVA@11" PAIV OUTPUT F_CODCF_DA CODCF OUTPUT F_RAGSOC_DA RAGSOC - CHECKTYPE SEARCH + CHECKTYPE NORMAL FIELD #F_CODCF_FROM MESSAGE COPY,F_CODCF_A|CHECK,F_CODCF_A END @@ -40,6 +40,7 @@ BEGIN DISPLAY "Partita IVA@11" PAIV DISPLAY "Codice" CODCF COPY OUTPUT F_CODCF_DA + CHECKTYPE SEARCH END NUMBER F_CODCF_A 6 @@ -54,7 +55,7 @@ BEGIN DISPLAY "Partita IVA@11" PAIV OUTPUT F_CODCF_A CODCF OUTPUT F_RAGSOC_A RAGSOC - CHECKTYPE SEARCH + CHECKTYPE NORMAL FIELD #F_CODCF_TO END @@ -64,16 +65,15 @@ BEGIN USE LF_CLIFO KEY 2 INPUT TIPOCF "C" INPUT RAGSOC F_RAGSOC_A - DISPLAY "Ragione Sociale@50" RAGSOC - DISPLAY "Partita IVA@11" PAIV - DISPLAY "Codice" CODCF + COPY DISPLAY F_RAGSOC_DA OUTPUT F_CODCF_A CODCF OUTPUT F_RAGSOC_A RAGSOC + CHECKTYPE SEARCH END GROUPBOX DLG_NULL 80 3 BEGIN - PROMPT 1 5 "@b Parametri Data" + PROMPT 1 5 "@bParametri Data" END DATE F_DATA_DA @@ -84,6 +84,15 @@ DATE F_DATA_DA GROUP 1 END +NUMBER F_ANNO_DA 4 +BEGIN + PROMPT 30 6 "" + FIELD ANNO_FROM + DRIVENBY F_DATA_DA + STR_CALC MID(#F_DATA_DA,7,10) + FLAGS "DH" +END + DATE F_DATA_A BEGIN PROMPT 40 6 "A Data " @@ -94,9 +103,18 @@ DATE F_DATA_A GROUP 1 END +STRING F_ANNO_A 4 +BEGIN + PROMPT 60 6 "" + FIELD ANNO_TO + DRIVENBY F_DATA_A + STR_CALC MID(#F_DATA_A,7,10) + FLAGS "DH" +END + GROUPBOX DLG_NULL 80 4 BEGIN - PROMPT 1 8 "@b Parametri Articolo" + PROMPT 1 8 "@bParametri Articolo" END STRING F_CODART_DA 20 @@ -154,7 +172,7 @@ END GROUPBOX DLG_NULL 80 4 BEGIN - PROMPT 1 12 "@b Parametri Causale" + PROMPT 1 12 "@bParametri Causale" END STRING F_CODCAUS_DA 3 diff --git a/lv/lv0700a.rep b/lv/lv0700a.rep index 1aa176739..38f626311 100755 --- a/lv/lv0700a.rep +++ b/lv/lv0700a.rep @@ -221,7 +221,7 @@ MESSAGE RESET,F3.2000
USE 34 KEY 2 SELECT (BETWEEN(33.TIPODOC,#F_TIPODOC,#F_TIPODOC)(BETWEEN(33.CODCF,#F_CODCF,#F_CODCF))(BETWEEN(33.DATADOC,#F_DATADOC_DA,#F_DATADOC_A))(BETWEEN(34.CODAGG1,#F_CODAGG1,#F_CODAGG1))) -BY 33,DATADOC +BY 33.CODCF 34.CODART 33.DATADOC JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF JOIN 47 TO 34 INTO CODART==CODART diff --git a/lv/lv0800a.h b/lv/lv0800a.h index b76203ca2..07ed15141 100755 --- a/lv/lv0800a.h +++ b/lv/lv0800a.h @@ -5,4 +5,6 @@ #define F_CODNUM_1 203 #define F_DESCODNUM_1 204 #define F_TIPODOC_1 205 -#define F_DESTIPODOC_1 206 \ No newline at end of file +#define F_DESTIPODOC_1 206 +#define F_DA_ANNO_1 207 +#define F_A_ANNO_1 208 diff --git a/lv/lv0800a.rep b/lv/lv0800a.rep index 53838ae26..3eea61a04 100755 --- a/lv/lv0800a.rep +++ b/lv/lv0800a.rep @@ -1,8 +1,8 @@ - Statistica per Mangano + Stampa Statistica per Mangano -
+
MESSAGE _TODAY @@ -11,10 +11,10 @@ MESSAGE _PAGENO - + - + @@ -49,9 +49,9 @@ - +
-
+
MESSAGE RESET,F2.100 MESSAGE RESET,F2.101 MESSAGE RESET,F2.102 @@ -59,7 +59,7 @@ MESSAGE RESET,F1.100 MESSAGE RESET,F1.101 MESSAGE RESET,F1.102
-
+
47.MANGDEST MESSAGE RESET,F2.100 MESSAGE RESET,F2.101 @@ -70,8 +70,8 @@ MESSAGE RESET,F2.102 47.MANGDEST
-
- 47.CODART +
+ 47.MANGDEST+CODART MESSAGE RESET,F3.100 MESSAGE RESET,F3.101 MESSAGE RESET,F3.102 @@ -79,9 +79,8 @@ MESSAGE RESET,F3.1 MESSAGE RESET,F3.2
-
-