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

Spostato all'inizio il codice Altro per la lista del Tipo IVA.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@38 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-19 10:41:33 +00:00
parent df89a58856
commit 5e5176d3c8
5 changed files with 291 additions and 290 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ba/ba1.h
View File

@ -1,15 +1,8 @@
#ifndef __BA1_H #ifndef __BA1_H
#define __BA1_H #define __BA1_H
#ifdef MAIN int ba1100(int argc, char** argv);
#define extern int ba1200(int argc, char** argv);
#endif
#ifdef MAIN
#undef extern
#endif
#endif // __BA1_H #endif // __BA1_H
int ba1100(int argc, char* argv[]);
int ba1200(int argc, char* argv[]);

390
ba/ba1100.cpp
View File

@ -16,23 +16,23 @@
class BA1100_application : public TApplication class BA1100_application : public TApplication
{ {
TDir_sheet * _browse; TDir_sheet * _browse;
TMask * _mask; TMask * _mask;
long _firm; long _firm;
TRec_sheet* _rec; TRec_sheet* _rec;
protected: protected:
virtual bool menu (MENU_TAG); virtual bool menu (MENU_TAG);
virtual bool create () ; virtual bool create () ;
virtual bool destroy(); virtual bool destroy();
void insert_riga(long, TToken_string&); void insert_riga(long, TToken_string&);
void edit_riga(long, TToken_string&); void edit_riga(long, TToken_string&);
void delete_riga(); void delete_riga();
virtual bool extended_firm() const { return TRUE; } virtual bool extended_firm() const { return TRUE; }
void update(); void update();
void update_dir(); void update_dir();
void convert_dir(); void convert_dir();
virtual void print(); virtual void print();
public: public:
BA1100_application() : _browse(NULL), _rec(NULL) {} BA1100_application() : _browse(NULL), _rec(NULL) {}
@ -44,9 +44,9 @@ void BA1100_application::print()
{ {
if (_rec == NULL) return; if (_rec == NULL) return;
const char* table[] = {"", "Alfanumerico", "Intero", "Intero Lungo", const char* table[] = {"", "Alfanumerico", "Intero", "Intero Lungo",
"Reale", "Data", "Intero", "Carattere", "Reale", "Data", "Intero", "Carattere",
"Booleano", "Intero Zerofilled", "Booleano", "Intero Zerofilled",
"Intero Lungo Zerofilled"}; "Intero Lungo Zerofilled"};
TPrinter& p = printer(); TPrinter& p = printer();
TPrintrow row; TPrintrow row;
TToken_string s; TToken_string s;
@ -56,7 +56,7 @@ void BA1100_application::print()
p.footerlen(4); p.footerlen(4);
row.reset(); row.reset();
row.put(format("Lista tracciato %s (%s)", _rec->dir()->des(), row.put(format("Lista tracciato %s (%s)", _rec->dir()->des(),
_rec->dir()->name()), 2); _rec->dir()->name()), 2);
row.put("Pag. @#", 66); row.put("Pag. @#", 66);
p.setheaderline(2, row); p.setheaderline(2, row);
row.reset(); row.reset();
@ -100,28 +100,28 @@ void BA1100_application::print()
bool BA1100_application::create() // initvar e arrmask bool BA1100_application::create() // initvar e arrmask
{ {
_firm = get_firm(); _firm = get_firm();
_mask = new TMask ("ba1100a"); _mask = new TMask ("ba1100a");
set_firm(); set_firm();
set_printer(new TPrinter()); set_printer(new TPrinter());
_browse = new TDir_sheet ("Manutenzione file di sistema") ; _browse = new TDir_sheet ("Manutenzione file di sistema") ;
_browse->add_button(DLG_INSFILE, "Inserisce", K_F4); _browse->add_button(DLG_INSFILE, "Inserisce", K_F4);
_browse->add_button(DLG_CONVERT, "Converte", K_F7); _browse->add_button(DLG_CONVERT, "Converte", K_F7);
_browse->add_button(DLG_ADDFILE, "Aggiunge", K_F8); _browse->add_button(DLG_ADDFILE, "Aggiunge", K_F8);
dispatch_e_menu(BAR_ITEM(1)); dispatch_e_menu(BAR_ITEM(1));
return TRUE ; return TRUE ;
} }
bool BA1100_application::destroy() // releasev e arrmask bool BA1100_application::destroy() // releasev e arrmask
{ {
TPrinter* p = &printer(); TPrinter* p = &printer();
delete p; delete p;
if (_firm) set_firm(_firm); if (_firm) set_firm(_firm);
if (_browse != NULL) delete _browse; if (_browse != NULL) delete _browse;
delete _mask; delete _mask;
return TRUE ; return TRUE ;
} }
@ -140,7 +140,7 @@ void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
if (_mask->run() == K_ENTER) if (_mask->run() == K_ENTER)
{ {
/* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */ /* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */
for (int i=num_files; i>=logicnum; i--) for (int i=num_files; i>=logicnum; i--)
{ {
_browse->dir()->get (i, _nolock, _nordir, _sysdirop); _browse->dir()->get (i, _nolock, _nordir, _sysdirop);
@ -149,8 +149,8 @@ void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
_browse->rec()->put (i + 1); _browse->rec()->put (i + 1);
} }
_browse->dir()->set(_mask->get(FLD_NOME), _mask->get_long(FLD_EOD), _browse->dir()->set(_mask->get(FLD_NOME), _mask->get_long(FLD_EOD),
_mask->get_long(FLD_FLAG), _mask->get (FLD_DESC), _mask->get_long(FLD_FLAG), _mask->get (FLD_DESC),
_mask->get (FLD_FORMULA)); _mask->get (FLD_FORMULA));
_browse->dir()->put(logicnum, _nordir, _sysdirop); _browse->dir()->put(logicnum, _nordir, _sysdirop);
_browse->rec()->zero(); _browse->rec()->zero();
_browse->rec()->put(logicnum); _browse->rec()->put(logicnum);
@ -164,53 +164,53 @@ void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
void BA1100_application::edit_riga (long riga_sel, TToken_string& riga) void BA1100_application::edit_riga (long riga_sel, TToken_string& riga)
{ {
KEY tasto; KEY tasto;
FileDes dep; FileDes dep;
TDir d; TDir d;
const int logicnum = int(riga_sel) + 1; const int logicnum = int(riga_sel) + 1;
_mask->enable(DLG_PACK); _mask->enable(DLG_PACK);
_mask->enable(DLG_RECORD); _mask->enable(DLG_RECORD);
_mask->enable(DLG_LOAD); _mask->enable(DLG_LOAD);
_mask->enable(DLG_DUMP); _mask->enable(DLG_DUMP);
_mask->set (FLD_NUM, riga.get(0)); _mask->set (FLD_NUM, riga.get(0));
_mask->set (FLD_NOME, riga.get()); _mask->set (FLD_NOME, riga.get());
_mask->set (FLD_EOD, riga.get()); _mask->set (FLD_EOD, riga.get());
_mask->set (FLD_EOX, riga.get()); _mask->set (FLD_EOX, riga.get());
_mask->set (F_LEN, riga.get()); _mask->set (F_LEN, riga.get());
_mask->set (FLD_DESC, riga.get()); _mask->set (FLD_DESC, riga.get());
_mask->set (FLD_FORMULA, riga.get()); _mask->set (FLD_FORMULA, riga.get());
_mask->set (FLD_FLAG, riga.get()); _mask->set (FLD_FLAG, riga.get());
_mask->reset (FLD_EXTEND); _mask->reset (FLD_EXTEND);
const TRecnotype oldeox = atol(_mask->get(FLD_EOX)); const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name(); const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name();
const char* name = _mask->get(FLD_NOME); const char* name = _mask->get(FLD_NOME);
const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0); const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0);
_mask->show(FLD_EXTEND, enable_extend); _mask->show(FLD_EXTEND, enable_extend);
_mask->show(FLD_EOX, enable_extend); _mask->show(FLD_EOX, enable_extend);
tasto = _mask->run(); tasto = _mask->run();
switch (tasto) switch (tasto)
{
case K_F4:
{
const TFilename filename(_mask->get(FLD_NOME));
if (logicnum > 1)
{ {
case K_F4:
{
const TFilename filename(_mask->get(FLD_NOME));
if (logicnum > 1)
{
TEdit_file ef; TEdit_file ef;
ef.browse(logicnum, filename); ef.browse(logicnum, filename);
}
} }
} break;
break;
case K_F5: case K_F5:
case K_F6: case K_F6:
case K_F7: case K_F7:
case K_F8: case K_F8:
case K_ENTER: case K_ENTER:
{ {
strcpy (dep.SysName,_mask->get (FLD_NOME)); strcpy (dep.SysName,_mask->get (FLD_NOME));
dep.EOD = atol(_mask->get (FLD_EOD)); dep.EOD = atol(_mask->get (FLD_EOD));
dep.Flags = atol(_mask->get (FLD_FLAG)); dep.Flags = atol(_mask->get (FLD_FLAG));
@ -220,25 +220,25 @@ switch (tasto)
_browse->dir()->get(logicnum, _lock, _nordir, _sysdirop); _browse->dir()->get(logicnum, _lock, _nordir, _sysdirop);
_browse->dir()->set(dep.SysName, dep.EOD, dep.Flags, _browse->dir()->set(dep.SysName, dep.EOD, dep.Flags,
dep.Des, dep.FCalc); dep.Des, dep.FCalc);
_browse->dir()->put(logicnum, _nordir, _sysdirop); _browse->dir()->put(logicnum, _nordir, _sysdirop);
{ {
TSystemisamfile f(logicnum); TSystemisamfile f(logicnum);
if (eox != oldeox) if (eox != oldeox)
{ {
d.get(logicnum); d.get(logicnum);
if (!fexist(d.name())) f.build(eox); if (!fexist(d.name())) f.build(eox);
else f.extend(eox); else f.extend(eox);
_browse->dir()->get(logicnum, _nolock, _nordir, _sysdirop); _browse->dir()->get(logicnum, _nolock, _nordir, _sysdirop);
} }
if (tasto == K_F5) if (tasto == K_F5)
{ {
f.packfile(); f.packfile();
f.packindex(); f.packindex();
} }
else else
if (tasto == K_F6) if (tasto == K_F6)
{ {
enable_menu_item(M_FILE_PRINT); enable_menu_item(M_FILE_PRINT);
@ -249,64 +249,64 @@ switch (tasto)
disable_menu_item(M_FILE_PRINT); disable_menu_item(M_FILE_PRINT);
} }
else else
if (tasto == K_F7) if (tasto == K_F7)
{
TMask m("ba1100b");
TFilename nout(dep.SysName);
nout.strip("$%");
nout.ext("txt");
m.set(FLD_OUTFILE, nout);
if (m.run() == K_ENTER)
{ {
const char fs = *esc(m.get(FLD_FS)); TMask m("ba1100b");
const char fd = *esc(m.get(FLD_FD)); TFilename nout(dep.SysName);
const char rs = *esc(m.get(FLD_RS));
const bool withdel = m.get(FLD_WITHDEL).not_empty();
f.dump(m.get(FLD_OUTFILE), atoi(m.get(FLD_KEYNO)), fs, fd, rs, withdel); nout.strip("$%");
nout.ext("txt");
m.set(FLD_OUTFILE, nout);
if (m.run() == K_ENTER)
{
const char fs = *esc(m.get(FLD_FS));
const char fd = *esc(m.get(FLD_FD));
const char rs = *esc(m.get(FLD_RS));
const bool withdel = m.get(FLD_WITHDEL).not_empty();
f.dump(m.get(FLD_OUTFILE), atoi(m.get(FLD_KEYNO)), fs, fd, rs, withdel);
}
} }
} else
else if (tasto == K_F8)
if (tasto == K_F8) {
{ TMask m("ba1100c");
TMask m("ba1100c"); TFilename ninp(dep.SysName);
TFilename ninp(dep.SysName);
ninp.strip("$%"); ninp.strip("$%");
ninp.ext("txt"); ninp.ext("txt");
m.set(FLD_INFILE, ninp); m.set(FLD_INFILE, ninp);
if (m.run() == K_ENTER) if (m.run() == K_ENTER)
{ {
char fs = *esc(m.get(FLD_FS)); char fs = *esc(m.get(FLD_FS));
char fd = *esc(m.get(FLD_FD)); char fd = *esc(m.get(FLD_FD));
char rs = *esc(m.get(FLD_RS)); char rs = *esc(m.get(FLD_RS));
f.load(m.get(FLD_INFILE), fs, fd, rs); f.load(m.get(FLD_INFILE), fs, fd, rs);
} }
} }
} }
} }
break; break;
default: default:
break; break;
} }
} }
void BA1100_application::delete_riga () void BA1100_application::delete_riga ()
{ {
_browse->dir()->get(LF_DIR); _browse->dir()->get(LF_DIR);
if (_browse->dir()->eod() == 0) return; if (_browse->dir()->eod() == 0) return;
int logicnum = (int)_browse->items(); int logicnum = (int)_browse->items();
_browse->dir()->get(logicnum); _browse->dir()->get(logicnum);
if (yesnocancel_box("Vuoi davvero eliminare l' archivio %s", _browse->dir()->name()) != K_YES) return; if (yesnocancel_box("Vuoi davvero eliminare l' archivio %s", _browse->dir()->name()) != K_YES) return;
_browse->dir()->get(LF_DIR); _browse->dir()->get(LF_DIR);
_browse->dir()->eod()--; _browse->dir()->eod()--;
_browse->set_items(_browse->dir()->eod()); _browse->set_items(_browse->dir()->eod());
_browse->dir()->put(LF_DIR); _browse->dir()->put(LF_DIR);
} }
@ -329,38 +329,38 @@ void BA1100_application::update_dir()
for (int i = 2; i <= items; i++) for (int i = 2; i <= items; i++)
{ {
prefhndl->set(""); prefhndl->set("");
d.get(i, _nolock, _nordir, _sysdirop); d.get(i, _nolock, _nordir, _sysdirop);
if (d.flags() == -1) if (d.flags() == -1)
{ {
TString s(d.name()); TString s(d.name());
word len = d.len(); word len = d.len();
prefhndl->set(pref); prefhndl->set(pref);
d.get(i, _nolock, _nordir, _sysdirop); d.get(i, _nolock, _nordir, _sysdirop);
if (len != d.len() && s != d.name()) if (len != d.len() && s != d.name())
{ {
d.set(s, d.eox(), 0L, d.des(), d.expr()); d.set(s, d.eox(), 0L, d.des(), d.expr());
d.put(i, _nordir, _sysdirop); d.put(i, _nordir, _sysdirop);
} }
} }
} }
prefhndl->set(pref); prefhndl->set(pref);
if (items >= orig_items) return; if (items >= orig_items) return;
for (i = items + 1; i <= orig_items; i++) for (i = items + 1; i <= orig_items; i++)
{ {
prefhndl->set(""); prefhndl->set("");
d.get(i, _nolock, _nordir, _sysdirop); d.get(i, _nolock, _nordir, _sysdirop);
prefhndl->set(pref); prefhndl->set(pref);
d.set_len(0); d.set_len(0);
d.flags() = 0L; d.flags() = 0L;
d.put(i, _nordir, _sysdirop); d.put(i, _nordir, _sysdirop);
} }
prefhndl->set(pref); prefhndl->set(pref);
d.get(LF_DIR, _nolock, _nordir, _sysdirop); d.get(LF_DIR, _nolock, _nordir, _sysdirop);
d.eod() = orig_items; d.eod() = orig_items;
d.put(LF_DIR, _nordir, _sysdirop); d.put(LF_DIR, _nordir, _sysdirop);
} }
void BA1100_application::convert_dir() void BA1100_application::convert_dir()
@ -405,13 +405,13 @@ void BA1100_application::update()
for (ditte.first(); !ditte.eof(); ditte.next()) for (ditte.first(); !ditte.eof(); ditte.next())
{ {
set_firm(ditte.get_long("CODDITTA")); set_firm(ditte.get_long("CODDITTA"));
const TRecnotype rec = ditte.recno(); const TRecnotype rec = ditte.recno();
ditte.close(); ditte.close();
update_dir(); update_dir();
convert_dir(); convert_dir();
ditte.open(); ditte.open();
ditte.readat(rec); ditte.readat(rec);
} }
if (firm > 0) set_firm(firm); if (firm > 0) set_firm(firm);
else prefhndl->set(pref); else prefhndl->set(pref);
@ -420,57 +420,57 @@ void BA1100_application::update()
bool BA1100_application::menu(MENU_TAG m) bool BA1100_application::menu(MENU_TAG m)
{ {
TToken_string riga; TToken_string riga;
long riga_selezionata; long riga_selezionata;
bool done = FALSE; bool done = FALSE;
_browse->rebuild(); _browse->rebuild();
while (!done) while (!done)
{ {
disable_menu_item(M_FILE_NEW); disable_menu_item(M_FILE_NEW);
switch (_browse->run()) switch (_browse->run())
{ {
case K_INS: case K_INS:
riga_selezionata = _browse->selected(); riga_selezionata = _browse->selected();
riga = _browse->row(); riga = _browse->row();
insert_riga (riga_selezionata, riga); insert_riga (riga_selezionata, riga);
break; break;
case K_ENTER: case K_ENTER:
riga_selezionata = _browse->selected(); riga_selezionata = _browse->selected();
riga = _browse->row(); riga = _browse->row();
edit_riga (riga_selezionata, riga); edit_riga (riga_selezionata, riga);
break; break;
case K_DEL: delete_riga(); break; case K_DEL: delete_riga(); break;
case K_ESC: done = TRUE; break; case K_ESC: done = TRUE; break;
case K_F7: update(); break; case K_F7: update(); break;
case K_F8: case K_F8:
_browse->add(); _browse->add();
riga_selezionata = _browse->items() - 1; riga_selezionata = _browse->items() - 1;
riga = _browse->row(riga_selezionata); riga = _browse->row(riga_selezionata);
edit_riga (riga_selezionata, riga); edit_riga (riga_selezionata, riga);
break; break;
default: break; default: break;
}
enable_menu_item(M_FILE_NEW);
} }
return TRUE;
enable_menu_item(M_FILE_NEW);
}
return TRUE;
} }
int ba1100(int argc, char* argv[]) int ba1100(int argc, char** argv)
{ {
BA1100_application a; BA1100_application a;
a.run(argc, argv, "Gestione files"); a.run(argc, argv, "Gestione files");
return 0; return 0;
} }

102
ba/ba1101.cpp
View File

@ -24,7 +24,7 @@ void TDir_sheet::add ()
{ {
_dir->get(LF_DIR, _lock, _nordir, _sysdirop); _dir->get(LF_DIR, _lock, _nordir, _sysdirop);
const int nitems = _dir->eod() + 1; const int nitems = (int)_dir->eod() + 1;
_dir->eod() = nitems; _dir->eod() = nitems;
_dir->put(LF_DIR); _dir->put(LF_DIR);
@ -32,11 +32,11 @@ void TDir_sheet::add ()
_dir->put(nitems); _dir->put(nitems);
_items = nitems; _items = nitems;
// select(nitems - 1); // select(nitems - 1);
} }
TDir_sheet::TDir_sheet(const char* title) TDir_sheet::TDir_sheet(const char* title)
: TSheet(-1,-1, 0, 0, title,"N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43|Formula@33|Flags@7", 0xC) : TSheet(-1,-1, 0, 0, title,"N.@5|Nome@20|EOD@7|EOX@7|Lung. |Descrizione@43|Formula@33|Flags@7", 0xC)
{ {
_dir = new TDir; _dir = new TDir;
_rec = new TTrec; _rec = new TTrec;
@ -115,15 +115,15 @@ HIDDEN bool len_handler(TMask_field& f, KEY key)
switch (typef) switch (typef)
{ {
case _alfafld: return len <= 254; case _alfafld: return len <= 254;
case _intfld: return len <= 5; case _intfld: return len <= 5;
case _longfld: return len <= 10; case _longfld: return len <= 10;
case _realfld: return len <= 18; case _realfld: return len <= 18;
case _wordfld: return len <= 5; case _wordfld: return len <= 5;
case _intzerofld: return len <= 5; case _intzerofld: return len <= 5;
case _longzerofld: return len <= 10; case _longzerofld: return len <= 10;
default: return TRUE; default: return TRUE;
} }
return TRUE; return TRUE;
} }
@ -189,36 +189,36 @@ void TRec_sheet::edit()
{ {
switch (_mask->run()) switch (_mask->run())
{ {
case K_SAVE: case K_SAVE:
{
nfields = f1.items();
_rec->set_fields(nfields);
for (i = 0; i < nfields; i++)
{ {
nfields = f1.items(); TToken_string& s = f1.row(i);
_rec->set_fields(nfields); _rec->update_fielddef(i, s);
for (i = 0; i < nfields; i++)
{
TToken_string& s = f1.row(i);
_rec->update_fielddef(i, s);
}
_rec->rehash();
nkeys = f2.items();
_rec->set_keys(nkeys);
for (i = 0; i < nkeys; i++)
{
TToken_string& s = f2.row(i);
_rec->update_keydef(i, s);
}
save();
} }
case K_ESC: _rec->rehash();
return; nkeys = f2.items();
case K_F5: _rec->set_keys(nkeys);
MainApp()->dispatch_e_menu(M_FILE_PRINT); for (i = 0; i < nkeys; i++)
break; {
case K_F6: TToken_string& s = f2.row(i);
{ _rec->update_keydef(i, s);
}
save();
}
case K_ESC:
return;
case K_F5:
MainApp()->dispatch_e_menu(M_FILE_PRINT);
break;
case K_F6:
{
TMask m("ba1100f"); TMask m("ba1100f");
TFilename nout(_dir->name()); TFilename nout(_dir->name());
nout.strip("$%"); nout.strip("$%");
nout.ext("trr"); nout.ext("trr");
m.set(F_NOMEF, nout); m.set(F_NOMEF, nout);
if (m.run() == K_ENTER) if (m.run() == K_ENTER)
@ -231,15 +231,15 @@ void TRec_sheet::edit()
out << *_rec; out << *_rec;
} }
} }
} }
break; break;
case K_F7: case K_F7:
{ {
TMask m("ba1100f"); TMask m("ba1100f");
TFilename nout(_dir->name()); TFilename nout(_dir->name());
nout.strip("$%"); nout.strip("$%");
nout.ext("trr"); nout.ext("trr");
m.set(F_NOMEF, nout); m.set(F_NOMEF, nout);
if (m.run() == K_ENTER) if (m.run() == K_ENTER)
@ -252,17 +252,17 @@ void TRec_sheet::edit()
in >> *_rec; in >> *_rec;
nfields = _rec->fields(); nfields = _rec->fields();
f1.reset(); f1.reset();
for (i = 0; i < nfields; i++) f1.row(i) = _rec->fielddef(i); for (i = 0; i < nfields; i++) f1.row(i) = _rec->fielddef(i);
nkeys = _rec->keys(); nkeys = _rec->keys();
f2.reset(); f2.reset();
for (i = 0; i < nkeys; i++) f2.row(i) = _rec->keydef(i); for (i = 0; i < nkeys; i++) f2.row(i) = _rec->keydef(i);
} }
} }
} }
break; break;
default: break; default: break;
} }
} }
} }

34
ba/ba1200.cpp
View File

@ -11,33 +11,41 @@ class TTest_application : public TApplication
{ {
protected: protected:
bool create() { dispatch_e_menu(BAR_ITEM(1)); return TRUE; } bool create() { dispatch_e_menu(BAR_ITEM(1)); return TRUE; }
bool destroy() { return TRUE; } bool destroy() { return TRUE; }
bool menu(MENU_TAG); bool menu(MENU_TAG);
public: public:
TTest_application() {} TTest_application() {}
}; };
bool TTest_application::menu(MENU_TAG) bool TTest_application::menu(MENU_TAG)
{ {
TLocalisamfile tab(LF_TABCOM); TLocalisamfile tab(LF_TABCOM);
const TRecnotype n = tab.items(); const TRecnotype n = tab.items();
TProgind p(n, "Lettura file tabelle comuni", TRUE, TRUE, 32);
const time_t start = time(NULL); time_t start;
TRecnotype r = 1; TRecnotype r = 1;
TString80 msg; TString80 msg;
{
TProgind p(n, "Lettura file tabelle comuni", TRUE, TRUE, 32);
start = time(NULL);
for (tab.first(); tab.good(); tab.next(), r++) for (tab.first(); tab.good(); tab.next(), r++)
{ {
msg.format("%ld rec : %ld sec", r, time(NULL) - start); if ((r % 50) == 0)
p.addstatus(1); {
p.set_text(msg); msg.format("%ld records %ld sec", r, time(NULL) - start);
p.setstatus(r);
p.set_text(msg);
}
if (p.iscancelled()) break; if (p.iscancelled()) break;
} }
}
const time_t t = time(NULL) - start;
msg.format("%ld records in %ld sec\n%lg records per sec", r, t, (double)r/t);
message_box(msg);
return TRUE; return TRUE;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -45,8 +53,8 @@ bool TTest_application::menu(MENU_TAG)
int ba1200(int argc, char** argv) int ba1200(int argc, char** argv)
{ {
TTest_application a; TTest_application a;
a.run(argc, argv, "Test File"); a.run(argc, argv, "Test File");
return 0; return 0;
} }

2
ba/batb%tpd.uml
View File

@ -42,10 +42,10 @@ BEGIN
PROMPT 4 6 "Natura documento " PROMPT 4 6 "Natura documento "
FIELD LF_TABCOM->I0 FIELD LF_TABCOM->I0
HELP "Indicare la natura del documento" HELP "Indicare la natura del documento"
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP ITEM "1|Vendite" MESSAGE ENABLE,F_CORRISP
ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP ITEM "2|Acquisti" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP ITEM "9|IVA in genere" MESSAGE ENABLE,F_CORRISP
ITEM " |Altro" MESSAGE DISABLE,F_CORRISP|RESET,F_CORRISP
GROUP GR_RECORD_PROTECTED GROUP GR_RECORD_PROTECTED
END END