root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ba/ba1100.cpp
alex cb6165f09b Corretti errori sulle anagrafiche da MI : 
2475 2521 2493 2494 2559 2558 2556 2495 2487 2491 2470 2461 2568 2492 2587
2457 2458 2459 2460 2574 2582 2525 2526 2524 2523 2522 2531 2530 2529 2528
2527 2534 2533 2536 2537 2538 2510 2515 2585 2539 2570 2555 2584 2503 2500
2499 2543 2547 2569 2472 ????


git-svn-id: svn://10.65.10.50/trunk@702 c028cbd2-c16b-5b4b-a496-9718f37d4682
1994-11-29 17:49:19 +00:00

546 lines
13 KiB
C++
Executable File
Raw Blame History

#include <stdlib.h>
#include <applicat.h>
#include <utility.h>
#include <prefix.h>
#include <isam.h>
#include <mask.h>
#include <progind.h>
#include <urldefid.h>
#include <validate.h>
#include <xvtility.h>
#include "ba1.h"
#include "ba1100.h"
class BA1100_application : public TApplication
{
TDir_sheet * _browse;
TMask * _mask;
long _firm;
TRec_sheet* _rec;
protected:
virtual bool menu (MENU_TAG);
virtual bool create () ;
virtual bool destroy();
void insert_riga(long, TToken_string&);
void edit_riga(long, TToken_string&);
void delete_riga();
virtual bool extended_firm() const { return TRUE; }
void update();
void update_dir();
void convert_dir();
virtual void print();
const char* dumpfilename(const FileDes& dep) const;
public:
BA1100_application() : _browse(NULL), _rec(NULL), _mask(NULL) {}
};
void BA1100_application::print()
{
if (_rec == NULL) return;
const char* table[] = {"", "Alfanumerico", "Intero", "Intero Lungo",
"Reale", "Data", "Intero", "Carattere",
"Booleano", "Intero Zerofilled",
"Intero Lungo Zerofilled"};
TPrinter& p = printer();
TPrintrow row;
TToken_string s;
p.open();
p.headerlen(6);
p.footerlen(4);
row.reset();
row.put(format("Lista tracciato %s (%s)", _rec->dir()->des(),
_rec->dir()->name()), 2);
row.put("Pag. @#", 66);
p.setheaderline(2, row);
row.reset();
row.put("Nome", 7);
row.put("Tipo", 18);
row.put("Lunghezza", 45);
row.put(" Decimali", 55);
row.put("Posizione", 65);
p.setheaderline(4, row);
p.setbackground("l[1,6,75,6]");
for (int i = 0; i < _rec->rec()->fields(); i ++)
{
row.reset();
s = _rec->rec()->fielddef(i);
row.put(format("%3d", i + 1), 2);
row.put(s.get(), 7);
row.put(table[s.get_int()], 18);
row.put(format(" %4d", s.get_int()), 45);
row.put(format(" %4d", s.get_int()), 55);
row.put(format(" %4d", _rec->rec()->rec()->Fd[i].RecOff), 65);
p.print(row);
}
p.formfeed();
row.reset();
row.put("Espressione chiave", 7);
row.put("Duplicabile", 68);
p.setheaderline(4, row);
for (i = 0; i < _rec->rec()->keys(); i ++)
{
row.reset();
s = _rec->rec()->keydef(i);
row.put(format("%3d", i + 1), 2);
row.put(s.get(), 7);
row.put(*s.get() == 'X' ? "Si" : "No", 68);
p.print(row);
}
p.formfeed();
p.close();
}
bool BA1100_application::create() // initvar e arrmask
{
_firm = get_firm();
if (argc() > 2)
{
update();
return FALSE;
}
else
{
_mask = new TMask ("ba1100a");
set_firm();
_browse = new TDir_sheet ("Manutenzione file di sistema") ;
_browse->add_button(DLG_INSFILE, "Inserisce", K_F6);
_browse->add_button(DLG_CONVERT, "Converte", K_F7);
_browse->add_button(DLG_ADDFILE, "Aggiunge", K_F8);
dispatch_e_menu(BAR_ITEM(1));
}
return TRUE ;
}
bool BA1100_application::destroy() // releasev e arrmask
{
if (_firm) set_firm(_firm);
if (_browse != NULL) delete _browse;
if (_mask != NULL) delete _mask;
return TRUE ;
}
void BA1100_application::insert_riga (long riga_sel, TToken_string& riga)
{
const int logicnum = int(riga_sel) + 1;
const int num_files = (int)_browse->items();
_mask->disable(DLG_PACK);
_mask->disable(DLG_RECORD);
_mask->disable(DLG_LOAD);
_mask->disable(DLG_DUMP);
_mask->hide(FLD_EXTEND);
_mask->hide(FLD_EOX);
_mask->set (FLD_NUM, riga.get(0));
if (_mask->run() == K_ENTER)
{
/* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */
for (int i=num_files; i>=logicnum; i--)
{
_browse->dir()->get (i, _nolock, _nordir, _sysdirop);
_browse->dir()->put (i + 1, _nordir, _sysdirop);
_browse->rec()->get (i);
_browse->rec()->put (i + 1);
}
_browse->dir()->set(_mask->get(FLD_NOME), _mask->get_long(FLD_EOD),
_mask->get_long(FLD_FLAG), _mask->get (FLD_DESC),
_mask->get (FLD_FORMULA));
_browse->dir()->put(logicnum, _nordir, _sysdirop);
_browse->rec()->zero();
_browse->rec()->put(logicnum);
_browse->dir()->get(LF_DIR);
_browse->dir()->eod()++;
_browse->set_items(_browse->dir()->eod());
_browse->dir()->put(LF_DIR);
}
}
const char* BA1100_application::dumpfilename(const FileDes& dep) const
{
TFilename n; n.tempdir();
#if XVT_OS == XVT_OS_SCOUNIX
n << '/';
#else
n << '\\';
#endif
n << dep.SysName;
n.strip("$%");
n.ext("txt");
n.lower();
strcpy(__tmp_string, n);
return __tmp_string;
}
void BA1100_application::edit_riga (long riga_sel, TToken_string& riga)
{
KEY tasto;
FileDes dep;
TDir d;
const int logicnum = int(riga_sel) + 1;
_mask->enable(DLG_PACK);
_mask->enable(DLG_RECORD);
_mask->enable(DLG_LOAD);
_mask->enable(DLG_DUMP);
_mask->set (FLD_NUM, riga.get(0));
_mask->set (FLD_NOME, riga.get());
_mask->set (FLD_EOD, riga.get());
_mask->set (FLD_EOX, riga.get());
_mask->set (F_LEN, riga.get());
_mask->set (FLD_DESC, riga.get());
_mask->set (FLD_FORMULA, riga.get());
_mask->set (FLD_FLAG, riga.get());
_mask->reset (FLD_EXTEND);
const TRecnotype oldeox = atol(_mask->get(FLD_EOX));
const bool com = strcmp(prefhndl->name(), "com") == 0 || !*prefhndl->name();
const char* name = _mask->get(FLD_NOME);
const bool enable_extend = (com ? *name == '%' : *name != '%') && (riga_sel > 0);
_mask->show(FLD_EXTEND, enable_extend);
_mask->show(FLD_EOX, enable_extend);
tasto = _mask->run();
switch (tasto)
{
case K_F4:
{
const TFilename filename(_mask->get(FLD_NOME));
if (logicnum > 1)
{
TEdit_file ef;
ef.browse(logicnum, filename);
}
}
break;
case K_F5:
case K_F6:
case K_F7:
case K_F8:
case K_ENTER:
{
strcpy (dep.SysName,_mask->get (FLD_NOME));
dep.EOD = atol(_mask->get (FLD_EOD));
dep.Flags = atol(_mask->get (FLD_FLAG));
strcpy (dep.Des,_mask->get (FLD_DESC));
strcpy (dep.FCalc,_mask->get (FLD_FORMULA));
const TRecnotype eox = atol(_mask->get(FLD_EOX));
_browse->dir()->get(logicnum, _lock, _nordir, _sysdirop);
_browse->dir()->set(dep.SysName, dep.EOD, dep.Flags,
dep.Des, dep.FCalc);
_browse->dir()->put(logicnum, _nordir, _sysdirop);
{
TSystemisamfile f(logicnum);
if (eox != oldeox)
{
d.get(logicnum);
if (!fexist(d.name())) f.build(eox);
else f.extend(eox);
_browse->dir()->get(logicnum, _nolock, _nordir, _sysdirop);
}
if (tasto == K_F5)
{
f.packfile();
f.packindex();
}
else
if (tasto == K_F6)
{
enable_menu_item(M_FILE_PRINT);
_rec = new TRec_sheet(logicnum);
_rec->edit();
delete _rec;
_rec = NULL;
disable_menu_item(M_FILE_PRINT);
}
else
if (tasto == K_F7)
{
TMask m("ba1100b");
TFilename nout(dumpfilename(dep));
m.set(FLD_OUTFILE, nout);
if (m.run() == K_ENTER)
{
nout = m.get(FLD_OUTFILE);
if (nout.not_empty())
{
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_bool(FLD_WITHDEL);
const int keyno = m.get_int(FLD_KEYNO);
f.dump(nout, keyno, fs, fd, rs, withdel);
}
}
}
else
if (tasto == K_F8)
{
TMask m("ba1100c");
TFilename ninp(dumpfilename(dep));
m.set(FLD_INFILE, ninp);
if (m.run() == K_ENTER)
{
char fs = *esc(m.get(FLD_FS));
char fd = *esc(m.get(FLD_FD));
char rs = *esc(m.get(FLD_RS));
ninp = m.get(FLD_INFILE);
f.load(ninp, fs, fd, rs);
}
}
}
}
break;
default:
break;
}
}
void BA1100_application::delete_riga ()
{
_browse->dir()->get(LF_DIR);
if (_browse->dir()->eod() == 0) return;
int logicnum = (int)_browse->items();
_browse->dir()->get(logicnum);
if (yesnocancel_box("Confermare l'eliminzione dell'archivio %s", _browse->dir()->name()) != K_YES) return;
_browse->dir()->get(LF_DIR);
_browse->dir()->eod()--;
_browse->set_items(_browse->dir()->eod());
_browse->dir()->put(LF_DIR);
}
void BA1100_application::update_dir()
{
const TString pref(prefhndl->name());
prefhndl->set("");
TDir d;
const bool update_com = ( pref == "com");
d.get(LF_DIR);
const int orig_items = (int)d.eod();
prefhndl->set(pref);
d.get(LF_DIR);
const int items = (int)d.eod();
TString80 s("Aggiornamento direttorio ");
if (pref == "com") s << "comune";
else s << " della ditta " <<atol (pref);
TProgind p(items ? items : 1, s, TRUE, TRUE, 70);
p.setstatus(1);
for (int i = 2; i <= items; i++)
{
p.addstatus(1);
prefhndl->set("");
d.get(i, _nolock, _nordir, _sysdirop);
TString desc(d.des());
TString s(d.name());
bool towrite = FALSE;
long flags = d.flags();
word len = d.len();
prefhndl->set(pref);
d.get(i, _nolock, _nordir, _sysdirop);
bool to_create = (update_com ? *d.name() == '%' : *d.name() == '$');
if (flags == -1 && len != d.len() && s != d.name())
{
d.set(s, d.eox(), 0L, desc, d.expr());
towrite = TRUE;
}
else
{
towrite = (desc != d.des());
if (towrite)
strcpy((char *) d.des(), desc);
}
if (towrite)
d.put(i, _nordir, _sysdirop);
d.get(i);
TFilename datafile(d.name());
if (to_create && !fexist(datafile))
{
TSystemisamfile f(i);
f.build(10L);
}
}
prefhndl->set(pref);
if (items >= orig_items) return;
for (i = items + 1; i <= orig_items; i++)
{
prefhndl->set("");
d.get(i, _nolock, _nordir, _sysdirop);
prefhndl->set(pref);
d.set_len(0);
d.flags() = 0L;
d.put(i, _nordir, _sysdirop);
}
prefhndl->set(pref);
d.get(LF_DIR, _nolock, _nordir, _sysdirop);
d.eod() = orig_items;
d.put(LF_DIR, _nordir, _sysdirop);
}
void BA1100_application::convert_dir()
{
const TString pref(prefhndl->name());
TDir d;
TTrec r;
d.get(LF_DIR);
const int items = (int)d.eod();
TString80 s("Aggiornamento archivi ");
if (pref == "com") s << "comune";
else s << " della ditta " << atol (pref);
TProgind p(items ? items : 1, s, TRUE, TRUE, 70);
p.setstatus(1);
for (int i = 2; i <= items; i++)
{
p.addstatus(1);
prefhndl->set("");
r.get(i);
prefhndl->set(pref);
TSystemisamfile f(i);
f.update(r);
}
prefhndl->set("");
const long level = prefhndl->filelevel();
prefhndl->set(pref);
d.get(LF_DIR, _nolock, _nordir, _sysdirop);
d.flags() = level;
d.put(LF_DIR, _nordir, _sysdirop);
}
void BA1100_application::update()
{
long firm = get_firm();
TString pref;
if (firm == 0) pref = prefhndl->name();
do_events();
CURSOR old_cur = get_cursor(TASK_WIN);
set_cursor(TASK_WIN, CURSOR_WAIT);
prefhndl->set("com");
update_dir();
convert_dir();
TIsamfile ditte(LF_NDITTE);
ditte.open();
for (ditte.first(); !ditte.eof(); ditte.next())
{
const long codditta = ditte.get_long("CODDITTA");
const TRecnotype rec = ditte.recno();
if (prefhndl->exist(codditta))
{
set_firm(codditta);
ditte.close();
update_dir();
convert_dir();
ditte.open();
}
ditte.readat(rec);
}
if (firm > 0) set_firm(firm);
else prefhndl->set(pref);
set_cursor(TASK_WIN, old_cur);
}
bool BA1100_application::menu(MENU_TAG m)
{
TToken_string riga;
long riga_selezionata;
bool done = FALSE;
_browse->rebuild();
while (!done)
{
disable_menu_item(M_FILE_NEW);
switch (_browse->run())
{
case K_F6:
riga_selezionata = _browse->selected();
riga = _browse->row();
insert_riga (riga_selezionata, riga);
break;
case K_ENTER:
riga_selezionata = _browse->selected();
riga = _browse->row();
edit_riga (riga_selezionata, riga);
break;
case K_DEL: delete_riga(); break;
case K_ESC: done = TRUE; break;
case K_F7: update(); break;
case K_F8:
_browse->add();
riga_selezionata = _browse->items() - 1;
riga = _browse->row(riga_selezionata);
edit_riga (riga_selezionata, riga);
break;
default: break;
}
enable_menu_item(M_FILE_NEW);
}
return xvt_test_menu_tag(BAR_ITEM(2));
}
int ba1100(int argc, char** argv)
{
BA1100_application a;
a.run(argc, argv, "Gestione files");
return 0;
}
Reference in New Issue View Git Blame Copy Permalink