Patch level : 12.0 1130
Files correlati : ba1.exe Commento: Aggiunta una funzione "Recupero" per recuperare files che danno errori sulla lunghezza del record. Interno E' protetta da password [ADMIN e (giorno+mese)]
This commit is contained in:
parent
e8c708d56e
commit
06f27089fb
@ -1,11 +1,11 @@
|
||||
#ifdef WIN32
|
||||
#define _CRT_NONSTDC_NO_DEPRECATE 1
|
||||
#define _CRT_SECURE_NO_WARNINGS 1
|
||||
#include <io.h>
|
||||
#include <share.h>
|
||||
#define _CRT_NONSTDC_NO_DEPRECATE 1
|
||||
#define _CRT_SECURE_NO_WARNINGS 1
|
||||
#include <io.h>
|
||||
#include <share.h>
|
||||
#else
|
||||
#include <unistd.h>
|
||||
#include <sys/types.h>
|
||||
#include <unistd.h>
|
||||
#include <sys/types.h>
|
||||
#endif
|
||||
#include <sys/stat.h>
|
||||
|
||||
@ -18,7 +18,9 @@
|
||||
#include <printer.h>
|
||||
#include <progind.h>
|
||||
#include <reputils.h>
|
||||
#include <stdtypes.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include <user.h>
|
||||
|
||||
#ifdef WIN32
|
||||
@ -35,59 +37,6 @@
|
||||
#define Dir_file "dir.gen"
|
||||
#define Trc_file "trc.gen"
|
||||
|
||||
class TManutenzione_app : public TSkeleton_application
|
||||
{
|
||||
TDir_sheet* _browse;
|
||||
TArray _dirs;
|
||||
TArray _recs;
|
||||
TMask* _mask;
|
||||
long _firm;
|
||||
long _level;
|
||||
long _history_firm;
|
||||
TRec_sheet* _rec;
|
||||
TLog_report* _log;
|
||||
bool _print_log;
|
||||
|
||||
bool _superprassi;
|
||||
|
||||
protected:
|
||||
virtual void main_loop();
|
||||
virtual bool create () ;
|
||||
virtual bool destroy();
|
||||
void insert_riga(long, TToken_string&);
|
||||
void edit_riga(long, TToken_string&);
|
||||
void edit_riga(const TString&);
|
||||
void delete_riga(long);
|
||||
virtual bool extended_firm() const { return true; }
|
||||
|
||||
bool set_converting();
|
||||
bool reset_converting();
|
||||
|
||||
bool try_to_recover(TSystemisamfile& f, int err);
|
||||
void update();
|
||||
void update_dir();
|
||||
void convert_dir();
|
||||
virtual void print();
|
||||
virtual void do_print(TPrinter & p, TRec_sheet & r);
|
||||
const char* dumpfilename(const FileDes& dep) const;
|
||||
void load_des();
|
||||
void open_history();
|
||||
void put_history(const char* firm);
|
||||
void close_history();
|
||||
void dump_trc(const char * dir, const bool des_too, const long modules);
|
||||
void repair_file(int i);
|
||||
void save_file(const char * file);
|
||||
|
||||
void open_log();
|
||||
void write_log(const char* line, const int severity = 0);
|
||||
void close_log();
|
||||
|
||||
bool moveable_file(int file) const;
|
||||
public:
|
||||
|
||||
TManutenzione_app();
|
||||
};
|
||||
|
||||
HIDDEN bool browse_file_handler(TMask_field& f, KEY k)
|
||||
{
|
||||
if (k == K_F9)
|
||||
@ -105,7 +54,6 @@ HIDDEN bool browse_file_handler(TMask_field& f, KEY k)
|
||||
}
|
||||
f.set_focus();
|
||||
}
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
@ -117,51 +65,51 @@ TManutenzione_app::TManutenzione_app() : _browse(NULL), _mask(NULL), _firm(0), _
|
||||
strncpy_s(fd.SysName, "$dir.gen", sizeof(fd.SysName));
|
||||
strncpy_s(fd.Des, "Directory", sizeof(fd.Des));
|
||||
strncpy_s(fd.FCalc, "0", sizeof(fd.FCalc));
|
||||
strncpy_s(fd.GenPrompt,"", sizeof(fd.GenPrompt));
|
||||
fd.LenR =160;
|
||||
strncpy_s(fd.GenPrompt, "", sizeof(fd.GenPrompt));
|
||||
fd.LenR = 160;
|
||||
fd.EOD = fd.EOX = 1L;
|
||||
fd.Flags = 0;
|
||||
|
||||
#ifdef WIN32
|
||||
int handle = sopen(Dir_file, O_RDWR|O_BINARY|O_CREAT,SH_DENYNO,S_IREAD|S_IWRITE);
|
||||
int handle = sopen(Dir_file, O_RDWR | O_BINARY | O_CREAT, SH_DENYNO, S_IREAD | S_IWRITE);
|
||||
#else
|
||||
int handle = open(Dir_file, O_RDWR|O_CREAT, S_IRWXU|S_IRWXG|S_IRWXO);
|
||||
int handle = open(Dir_file, O_RDWR | O_CREAT, S_IRWXU | S_IRWXG | S_IRWXO);
|
||||
#endif
|
||||
if (handle != -1)
|
||||
{
|
||||
if (write( handle, &fd, sizeof(FileDes)) == -1)
|
||||
fatal_box("Impossibile scrivere il file dir.gen per dati standard: errore %d",errno);
|
||||
if (write(handle, &fd, sizeof(FileDes)) == -1)
|
||||
fatal_box("Impossibile scrivere il file dir.gen per dati standard: errore %d", errno);
|
||||
close(handle);
|
||||
}
|
||||
else
|
||||
fatal_box("Impossibile creare il file dir.gen per dati standard: errore %d",errno);
|
||||
fatal_box("Impossibile creare il file dir.gen per dati standard: errore %d", errno);
|
||||
}
|
||||
if (!fexist(Trc_file))
|
||||
{
|
||||
TTrec r;
|
||||
RecDes& rd = r.rec();
|
||||
#ifdef WIN32
|
||||
int handle = sopen(Trc_file, O_RDWR|O_BINARY|O_CREAT,SH_DENYNO,S_IREAD|S_IWRITE);
|
||||
int handle = sopen(Trc_file, O_RDWR | O_BINARY | O_CREAT, SH_DENYNO, S_IREAD | S_IWRITE);
|
||||
#else
|
||||
int handle = open(Trc_file, O_RDWR|O_CREAT, S_IRWXU|S_IRWXG|S_IRWXO);
|
||||
int handle = open(Trc_file, O_RDWR | O_CREAT, S_IRWXU | S_IRWXG | S_IRWXO);
|
||||
#endif
|
||||
if (handle != -1)
|
||||
{
|
||||
if (write( handle, (void*)&rd, sizeof(RecDes)) == -1)
|
||||
fatal_box("Impossibile scrivere il file trc.gen per dati standard: errore %d",errno);
|
||||
if (write(handle, (void*)&rd, sizeof(RecDes)) == -1)
|
||||
fatal_box("Impossibile scrivere il file trc.gen per dati standard: errore %d", errno);
|
||||
close(handle);
|
||||
}
|
||||
else
|
||||
fatal_box("Impossibile creare il file trc.gen per dati standard: errore %d",errno);
|
||||
fatal_box("Impossibile creare il file trc.gen per dati standard: errore %d", errno);
|
||||
}
|
||||
}
|
||||
|
||||
void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
|
||||
|
||||
{
|
||||
const char* table[] = {"", TR("Alfanumerico"), TR("Intero"), TR("Intero Lungo"),
|
||||
const char* table[] = { "", TR("Alfanumerico"), TR("Intero"), TR("Intero Lungo"),
|
||||
TR("Reale"), TR("Data"), TR("Intero"), TR("Carattere"),
|
||||
TR("Booleano"), TR("Intero Zerofilled"), TR("Intero Lungo Zerofilled"),TR("Memo")};
|
||||
TR("Booleano"), TR("Intero Zerofilled"), TR("Intero Lungo Zerofilled"),TR("Memo") };
|
||||
TPrintrow row;
|
||||
TToken_string s;
|
||||
TParagraph_string d("", 25);
|
||||
@ -180,7 +128,7 @@ void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
|
||||
|
||||
row.reset();
|
||||
if (istab)
|
||||
row.put(format(FR("Lista tabella %s "), (const char *) tab), 2);
|
||||
row.put(format(FR("Lista tabella %s "), (const char *)tab), 2);
|
||||
else
|
||||
row.put(format(FR("Lista tracciato %s (%s)"), dir.des(), dir.name()), 2);
|
||||
row.put(TR("Pag. @#"), 69);
|
||||
@ -202,7 +150,7 @@ void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
|
||||
|
||||
int i;
|
||||
|
||||
for (i = 0; i < rec.fields(); i ++)
|
||||
for (i = 0; i < rec.fields(); i++)
|
||||
{
|
||||
row.reset();
|
||||
s = rec.fielddef(i);
|
||||
@ -228,7 +176,7 @@ void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
|
||||
}
|
||||
p.print(row);
|
||||
wd = d.get();
|
||||
while(wd != NULL)
|
||||
while (wd != NULL)
|
||||
{
|
||||
row.reset();
|
||||
row.put(wd, 53);
|
||||
@ -254,7 +202,7 @@ void TManutenzione_app::do_print(TPrinter & p, TRec_sheet & r)
|
||||
p.print(row);
|
||||
}
|
||||
|
||||
for (i = 0; i < rec.keys(); i ++)
|
||||
for (i = 0; i < rec.keys(); i++)
|
||||
{
|
||||
row.reset();
|
||||
s = rec.keydef(i);
|
||||
@ -318,11 +266,10 @@ void TManutenzione_app::print()
|
||||
|
||||
bool TManutenzione_app::create() // initvar e arrmask
|
||||
{
|
||||
_firm = get_firm();
|
||||
|
||||
TString sw(argc()>2 ? argv(2) : "");
|
||||
TString sw(argc() > 2 ? argv(2) : "");
|
||||
// Posso fare le operazione avanzate solo se sono ammistratore
|
||||
// e NON mi trovo su di una installazione di tipo client
|
||||
|
||||
xvt_vobj_show(TASK_WIN);
|
||||
_superprassi = user() == ::dongle().administrator() && !::dongle().demo();
|
||||
if (_superprassi)
|
||||
@ -356,12 +303,13 @@ bool TManutenzione_app::create() // initvar e arrmask
|
||||
modules = atol(argv(5));
|
||||
prefix().set("");
|
||||
load_des();
|
||||
dump_trc(dir,des_too,modules);
|
||||
dump_trc(dir, des_too, modules);
|
||||
return false;
|
||||
}
|
||||
else
|
||||
if (!::dongle().demo() && !set_firm())
|
||||
return false;
|
||||
_firm = atol(prefix().name());
|
||||
load_des();
|
||||
|
||||
_mask = new TMask("ba1100a");
|
||||
@ -434,13 +382,13 @@ void TManutenzione_app::save_file(const char * file)
|
||||
FOR_EACH_ARRAY_ROW_BACK(files_to_copy, row, fname)
|
||||
{
|
||||
TFilename source_file(*fname);
|
||||
TFilename dest_file(dest_path); dest_file << '/' << (const char *) source_file.name();
|
||||
fcopy((const char *) source_file, dest_file);
|
||||
TFilename dest_file(dest_path); dest_file << '/' << (const char *)source_file.name();
|
||||
fcopy((const char *)source_file, dest_file);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void TManutenzione_app::insert_riga (long riga_sel, TToken_string& riga)
|
||||
void TManutenzione_app::insert_riga(long riga_sel, TToken_string& riga)
|
||||
{
|
||||
const int logicnum = int(riga_sel) + 1;
|
||||
const int num_files = (int)_browse->items();
|
||||
@ -449,30 +397,30 @@ void TManutenzione_app::insert_riga (long riga_sel, TToken_string& riga)
|
||||
_mask->disable(DLG_RECORD);
|
||||
_mask->disable(DLG_LOAD);
|
||||
_mask->disable(DLG_DUMP);
|
||||
_mask->show(F_TAB, (logicnum >= LF_TABGEN && logicnum <= LF_TAB)||(logicnum == LF_TABMOD));
|
||||
_mask->show(F_TAB, (logicnum >= LF_TABGEN && logicnum <= LF_TAB) || (logicnum == LF_TABMOD));
|
||||
_mask->hide(FLD_EXTEND);
|
||||
_mask->hide(FLD_EOX);
|
||||
_mask->set (FLD_NUM, riga.get(0));
|
||||
_mask->reset (F_TAB);
|
||||
_mask->set(FLD_NUM, riga.get(0));
|
||||
_mask->reset(F_TAB);
|
||||
|
||||
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--)
|
||||
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().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));
|
||||
_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().set_eod(_browse->dir().eod()+1);
|
||||
_browse->dir().set_eod(_browse->dir().eod() + 1);
|
||||
_browse->set_items(_browse->dir().eod());
|
||||
_browse->dir().put(LF_DIR);
|
||||
}
|
||||
@ -480,32 +428,32 @@ void TManutenzione_app::insert_riga (long riga_sel, TToken_string& riga)
|
||||
|
||||
void TManutenzione_app::open_history()
|
||||
{
|
||||
FILE *fp = fopen(History_file,"r");
|
||||
FILE *fp = fopen(History_file, "r");
|
||||
if (fp != NULL)
|
||||
{
|
||||
char line[16];
|
||||
fgets(line,16,fp);
|
||||
fgets(line, 16, fp);
|
||||
int l = strlen(line);
|
||||
|
||||
line[l > 0 ? l -1 : 0 ] = '\0';
|
||||
if (l==0)
|
||||
line[l > 0 ? l - 1 : 0] = '\0';
|
||||
if (l == 0)
|
||||
_history_firm = -1;
|
||||
else
|
||||
_history_firm = atol(line);
|
||||
}
|
||||
else
|
||||
{
|
||||
fp = fopen(History_file,"w");
|
||||
fp = fopen(History_file, "w");
|
||||
_history_firm = -1;
|
||||
}
|
||||
fclose (fp);
|
||||
fclose(fp);
|
||||
}
|
||||
|
||||
void TManutenzione_app::put_history(const char* firm)
|
||||
{
|
||||
FILE * fp = fopen(History_file,"w");
|
||||
fprintf(fp,"%s\n",firm);
|
||||
fclose (fp);
|
||||
FILE * fp = fopen(History_file, "w");
|
||||
fprintf(fp, "%s\n", firm);
|
||||
fclose(fp);
|
||||
}
|
||||
|
||||
void TManutenzione_app::close_history()
|
||||
@ -518,7 +466,7 @@ void TManutenzione_app::dump_trc(const char * dir, const bool des_too, const lon
|
||||
{
|
||||
TDir d;
|
||||
d.get(LF_DIR);
|
||||
const int items = (int) d.eod();
|
||||
const int items = (int)d.eod();
|
||||
const long flags = d.flags(); // livello archivi
|
||||
TFilename fn(dir);
|
||||
fn << "/level.dir";
|
||||
@ -531,7 +479,7 @@ void TManutenzione_app::dump_trc(const char * dir, const bool des_too, const lon
|
||||
s << dir;
|
||||
TProgind p(items ? items : 1, s, false, true);
|
||||
p.setstatus(1);
|
||||
for (int i=2;i<=items;i++) //Salta il primo (dir.gen)
|
||||
for (int i = 2; i <= items; i++) //Salta il primo (dir.gen)
|
||||
{
|
||||
p.addstatus(1);
|
||||
TTrec& rc = (TTrec&)_recs[i];
|
||||
@ -546,11 +494,11 @@ void TManutenzione_app::dump_trc(const char * dir, const bool des_too, const lon
|
||||
if (fd != NULL)
|
||||
fclose(fd);
|
||||
}
|
||||
TConfig conf_des(descfname,DESCPAR);
|
||||
TConfig conf_des(descfname, DESCPAR);
|
||||
|
||||
if (des_too) rc.set_des(&conf_des);
|
||||
fn = dir;
|
||||
fn << "/f";fn << i;
|
||||
fn << "/f"; fn << i;
|
||||
fn.ext("trr");
|
||||
ofstream out(fn);
|
||||
out << rc;
|
||||
@ -573,21 +521,21 @@ const char* TManutenzione_app::dumpfilename(const FileDes& dep) const
|
||||
return tmp;
|
||||
}
|
||||
|
||||
void TManutenzione_app::edit_riga (const TString& name)
|
||||
void TManutenzione_app::edit_riga(const TString& name)
|
||||
{
|
||||
const TFilename n(name);
|
||||
TExternisamfile* f = new TExternisamfile(n);
|
||||
|
||||
_mask->set (FLD_NUM, "");
|
||||
_mask->set (FLD_NOME, n);
|
||||
_mask->set (FLD_EOD, f->items());
|
||||
_mask->set (FLD_EOX, f->items());
|
||||
_mask->set (F_LEN, f->curr().len());
|
||||
_mask->set (FLD_DESC, f->description());
|
||||
_mask->set (FLD_FORMULA, "");
|
||||
_mask->set (FLD_FLAG, "");
|
||||
_mask->reset (FLD_EXTEND);
|
||||
_mask->reset (F_TAB);
|
||||
_mask->set(FLD_NUM, "");
|
||||
_mask->set(FLD_NOME, n);
|
||||
_mask->set(FLD_EOD, f->items());
|
||||
_mask->set(FLD_EOX, f->items());
|
||||
_mask->set(F_LEN, f->curr().len());
|
||||
_mask->set(FLD_DESC, f->description());
|
||||
_mask->set(FLD_FORMULA, "");
|
||||
_mask->set(FLD_FLAG, "");
|
||||
_mask->reset(FLD_EXTEND);
|
||||
_mask->reset(F_TAB);
|
||||
_mask->disable(-1);
|
||||
_mask->enable(DLG_RECORD, _superprassi);
|
||||
|
||||
@ -612,7 +560,7 @@ void TManutenzione_app::edit_riga (const TString& name)
|
||||
}
|
||||
}
|
||||
|
||||
void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
|
||||
void TManutenzione_app::edit_riga(long riga_sel, TToken_string& riga)
|
||||
{
|
||||
const int logicnum = int(riga_sel) + 1;
|
||||
|
||||
@ -622,16 +570,16 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
|
||||
_mask->enable(DLG_DUMP);
|
||||
|
||||
_mask->show(F_TAB, logicnum >= LF_TABGEN && logicnum <= LF_TAB);
|
||||
_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);
|
||||
_mask->reset (F_TAB);
|
||||
_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);
|
||||
_mask->reset(F_TAB);
|
||||
|
||||
const TRecnotype oldeox = _mask->get_long(FLD_EOX);
|
||||
const bool com = prefix().is_com() || !*prefix().name();
|
||||
@ -668,11 +616,11 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
|
||||
case K_ENTER:
|
||||
{
|
||||
FileDes dep;
|
||||
strncpy (dep.SysName,_mask->get(FLD_NOME), sizeof(dep.SysName));
|
||||
dep.EOD = atol(_mask->get (FLD_EOD));
|
||||
dep.Flags = atol(_mask->get (FLD_FLAG));
|
||||
strncpy (dep.Des,_mask->get (FLD_DESC), sizeof(dep.Des));
|
||||
strncpy (dep.FCalc,_mask->get (FLD_FORMULA), sizeof(dep.FCalc));
|
||||
strncpy(dep.SysName, _mask->get(FLD_NOME), sizeof(dep.SysName));
|
||||
dep.EOD = atol(_mask->get(FLD_EOD));
|
||||
dep.Flags = atol(_mask->get(FLD_FLAG));
|
||||
strncpy(dep.Des, _mask->get(FLD_DESC), sizeof(dep.Des));
|
||||
strncpy(dep.FCalc, _mask->get(FLD_FORMULA), sizeof(dep.FCalc));
|
||||
const TRecnotype eox = _mask->get_bool(FLD_EXTEND) ? _mask->get_long(FLD_EOX) : oldeox;
|
||||
|
||||
TDir& dir = _browse->dir();
|
||||
@ -698,7 +646,7 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
|
||||
{
|
||||
f.packfile(true);
|
||||
f.packindex(true);
|
||||
// le 4 righe seguenti servono per allineare i valori di EOD ed EOX dopo una compattazione forzata
|
||||
// le 4 righe seguenti servono per allineare i valori di EOD ed EOX dopo una compattazione forzata
|
||||
dir.get(logicnum, _nolock, _nordir, _sysdirop);
|
||||
dir.set(dep.SysName, dep.EOD, dep.Flags, dep.Des, dep.FCalc);
|
||||
dir.set_eox(_browse->dir().eod());
|
||||
@ -770,19 +718,19 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
|
||||
}
|
||||
}
|
||||
|
||||
void TManutenzione_app::delete_riga (long riga_sel)
|
||||
void TManutenzione_app::delete_riga(long riga_sel)
|
||||
{
|
||||
const int num_files = (int)_browse->items();
|
||||
const int logicnum = int(riga_sel) + 1;
|
||||
if (riga_sel == num_files-1 && yesno_box(FR("Si conferma l'eliminazione del file %d"), logicnum))
|
||||
if (riga_sel == num_files - 1 && yesno_box(FR("Si conferma l'eliminazione del file %d"), logicnum))
|
||||
{
|
||||
/* shift di uno in avanti degli elementi del direttorio partendo dall'ultimo */
|
||||
for (int i = logicnum + 1; i <= num_files; 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().get(i, _nolock, _nordir, _sysdirop);
|
||||
_browse->dir().put(i - 1, _nordir, _sysdirop);
|
||||
_browse->rec().get(i);
|
||||
_browse->rec().put(i - 1);
|
||||
}
|
||||
|
||||
_browse->dir().get(LF_DIR);
|
||||
@ -790,7 +738,7 @@ void TManutenzione_app::delete_riga (long riga_sel)
|
||||
TTrec r;
|
||||
r.zero();
|
||||
r.put(_browse->dir().eod());
|
||||
_browse->dir().set_eod(_browse->dir().eod()-1);
|
||||
_browse->dir().set_eod(_browse->dir().eod() - 1);
|
||||
_browse->set_items(_browse->dir().eod());
|
||||
_browse->dir().put(LF_DIR);
|
||||
_browse->force_update();
|
||||
@ -883,18 +831,17 @@ void TManutenzione_app::update_dir()
|
||||
if (!p.setstatus(i))
|
||||
break;
|
||||
|
||||
const TDir & ds = (const TDir &) _dirs[i];
|
||||
TDir & ds = (TDir &)_dirs[i];
|
||||
TTrec & rs = (TTrec &)_recs[i];
|
||||
const bool is_firm = ds.is_firm();
|
||||
const bool to_create = (is_com ? ds.is_com() : ds.is_firm());
|
||||
|
||||
TFilename fd(ds.filename());
|
||||
|
||||
bool towrite = false;
|
||||
|
||||
const long flags = ds.flags();
|
||||
d.get(i, _nolock, _nordir, _sysdirop);
|
||||
const bool old_is_firm = d.is_firm();
|
||||
|
||||
d.get(i, _nolock, _nordir, _sysdirop);
|
||||
|
||||
const bool old_is_firm = d.is_firm();
|
||||
TFilename fs = d.filename();
|
||||
|
||||
//modifica 03/06/09 Se un file si chiama fnnn (es. f106) nel vecchio set di tracciati, mentre esiste con nome..
|
||||
@ -935,11 +882,11 @@ void TManutenzione_app::update_dir()
|
||||
if (i > LF_USER && is_firm == old_is_firm)
|
||||
{
|
||||
const long size = fsize(fs);
|
||||
TSystemisamfile b(i);
|
||||
|
||||
if (flags < 10000L && size > 0L && d.len() > 0)
|
||||
{
|
||||
TSystemisamfile b(i);
|
||||
int err = b.is_valid(true);
|
||||
// Aggiunto err==-60 per errore conversione sui file 98,99,125 in Pharmatex e dintorni
|
||||
if ((err == _istrcerr || err == _ispatherr || err == -60) && (d.eod() == 0) && (size < 4096))
|
||||
{
|
||||
bool kill = true;
|
||||
@ -962,6 +909,7 @@ void TManutenzione_app::update_dir()
|
||||
}
|
||||
} //if((err==_istrcerr...
|
||||
|
||||
|
||||
if (err != NOERR && flags < 10000L)
|
||||
{
|
||||
TString msg(_MAX_PATH);
|
||||
@ -1025,7 +973,7 @@ void TManutenzione_app::update_dir()
|
||||
if (!valid_file)
|
||||
d.set(ds.name(), d.eox(), d.eod(), ds.des(), d.expr());
|
||||
else
|
||||
strcpy((char *) d.des(), ds.des());
|
||||
strcpy((char *)d.des(), ds.des());
|
||||
}
|
||||
}
|
||||
if (is_com && valid_file && d.name()[0] == '$')
|
||||
@ -1061,6 +1009,84 @@ void TManutenzione_app::update_dir()
|
||||
d.put(LF_DIR, _nordir, _sysdirop);
|
||||
}
|
||||
|
||||
void TManutenzione_app::recover()
|
||||
{
|
||||
open_history();
|
||||
long firm = get_firm();
|
||||
TString pref;
|
||||
if (firm == 0)
|
||||
pref = prefix().name();
|
||||
prefix().set_codditta(0L); // COM
|
||||
|
||||
safely_close_closeable_isamfiles(); // Serve a premettere la chiamata ad fsize() in sicurezza
|
||||
|
||||
TDir d(LF_DIR); // equivale a d.get(LF_DIR, _nolock, _nordir, _sysdirop);
|
||||
const int last = (int)d.eod(); //quale è il numero dell'ultimo file attualmente presente
|
||||
|
||||
{
|
||||
TString prompt(128);
|
||||
|
||||
prompt << TR("Recupero dati comuni");
|
||||
prompt << ".\n";
|
||||
|
||||
TProgind p(last, prompt, false, true);
|
||||
|
||||
load_des();
|
||||
for (int i = LF_USER; p.setstatus(i) && i <= last; i++)
|
||||
{
|
||||
|
||||
TDir & ds = (TDir &)_dirs[i];
|
||||
TTrec & rs = (TTrec &)_recs[i];
|
||||
TSystemisamfile f(i);
|
||||
|
||||
if (ds.is_com())
|
||||
f.recover(ds, rs);
|
||||
} //for(i=LF_USER; i<=update_items; i++)
|
||||
}
|
||||
|
||||
TPointer_array ditte; // Evita di aprire LF_NDITTE
|
||||
const int nditte = prefix().firms(ditte);
|
||||
|
||||
for (int i = 0; i < nditte; i++)
|
||||
{
|
||||
const long codditta = ditte.get_long(i);
|
||||
if (prefix().exist(codditta) && set_firm(codditta))
|
||||
{
|
||||
const TString pref(prefix().name());
|
||||
TString prompt(128);
|
||||
|
||||
safely_close_closeable_isamfiles(); // Serve a premettere la chiamata ad fsize() in sicurezza
|
||||
prompt << TR("Recupero ditta") << ' ' << atol(pref);
|
||||
prompt << ".\n";
|
||||
|
||||
TProgind p(last, prompt, false, true);
|
||||
|
||||
load_des();
|
||||
for (int i = LF_USER; p.setstatus(i) && i <= last; i++)
|
||||
{
|
||||
|
||||
TDir & ds = (TDir &)_dirs[i];
|
||||
TTrec & rs = (TTrec &)_recs[i];
|
||||
TSystemisamfile f(i);
|
||||
|
||||
if (ds.is_firm())
|
||||
f.recover(ds, rs);
|
||||
} //for(i=LF_USER; i<=update_items; i++)
|
||||
}
|
||||
}
|
||||
|
||||
//chiude il log di conversione
|
||||
close_log();
|
||||
|
||||
if (firm > 0) set_firm(firm);
|
||||
else prefix().set(pref);
|
||||
load_des();
|
||||
|
||||
close_history();
|
||||
|
||||
send_campo_xml(); // Spedisce situazione via ftp
|
||||
}
|
||||
|
||||
void TManutenzione_app::convert_dir()
|
||||
{
|
||||
if (prefix().get_codditta() <= _history_firm)
|
||||
@ -1080,7 +1106,7 @@ void TManutenzione_app::convert_dir()
|
||||
if (is_com)
|
||||
s << TR("comuni");
|
||||
else
|
||||
s << TR("ditta ") << atol (pref);
|
||||
s << TR("ditta ") << atol(pref);
|
||||
s << ".\n";
|
||||
|
||||
TProgress_monitor p(update_items, s, is_power_station());
|
||||
@ -1089,22 +1115,30 @@ void TManutenzione_app::convert_dir()
|
||||
if (!p.add_status())
|
||||
break;
|
||||
|
||||
const TTrec& rs = (const TTrec&)_recs[i]; // Nuovo tracciato record
|
||||
const TDir& ds = (const TDir&)_dirs[i];
|
||||
TTrec& rs = (TTrec&)_recs[i]; // Nuovo tracciato record
|
||||
TDir& ds = (TDir&)_dirs[i];
|
||||
const long flags = ds.flags();
|
||||
|
||||
if (ds.len() > 0)
|
||||
{
|
||||
if (flags >= 0L && flags < 10000L)
|
||||
{
|
||||
int err = NOERR;
|
||||
|
||||
d.get(i, _nolock, _nordir, _sysdirop);
|
||||
|
||||
TString msg = s; msg << d.filename();
|
||||
|
||||
p.set_text(msg);
|
||||
|
||||
const int module = abs((int)ds.flags());
|
||||
const bool to_convert = (is_com ? d.is_com() : d.is_firm());
|
||||
|
||||
TSystemisamfile f(i);
|
||||
int err = f.is_valid(true);
|
||||
|
||||
if (err == NOERR)
|
||||
{
|
||||
err = f.is_valid(true);
|
||||
switch (err)
|
||||
{
|
||||
case -64:
|
||||
@ -1114,6 +1148,7 @@ void TManutenzione_app::convert_dir()
|
||||
default:
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if (i > LF_USER && err != NOERR && ((is_com && d.is_com()) || (!is_com && d.is_firm())))
|
||||
{
|
||||
@ -1222,10 +1257,10 @@ void TManutenzione_app::load_des()
|
||||
// Cerca in RECDESC i files f[nnn].dir
|
||||
TString ws;
|
||||
TFilename fn;
|
||||
TDir td,new_dir;
|
||||
TDir td, new_dir;
|
||||
TTrec tr;
|
||||
|
||||
int ln = items,last_newln = items;
|
||||
int ln = items, last_newln = items;
|
||||
tr.zero();
|
||||
fn << DESCDIR << "/level.dir";
|
||||
|
||||
@ -1241,7 +1276,7 @@ void TManutenzione_app::load_des()
|
||||
// eventuali "buchi" oltre al numero attuale di items vengono rimpiazzati
|
||||
// con tracciati vuoti.
|
||||
|
||||
fn.format("%s/f*.dir",DESCDIR);
|
||||
fn.format("%s/f*.dir", DESCDIR);
|
||||
|
||||
TString_array list;
|
||||
const int totfiles = list_files(fn, list);
|
||||
@ -1258,16 +1293,16 @@ void TManutenzione_app::load_des()
|
||||
const bool is_new = ln > last_newln; // memorizza l'ultimo record scritto come nuovo
|
||||
if (is_new) // aggiunge i files che mancano
|
||||
{
|
||||
for (int i = last_newln+1; i<ln; i++)
|
||||
for (int i = last_newln + 1; i < ln; i++)
|
||||
{
|
||||
ws.format("$f%d",i);
|
||||
new_dir.set(ws,0L,-1L, TR("File non presente"),"");
|
||||
new_dir.put(i,_nordir,_sysdirop);
|
||||
ws.format("$f%d", i);
|
||||
new_dir.set(ws, 0L, -1L, TR("File non presente"), "");
|
||||
new_dir.put(i, _nordir, _sysdirop);
|
||||
tr.put(i);
|
||||
}
|
||||
last_newln = ln;
|
||||
}
|
||||
td.put(ln,_nordir,_sysdirop);
|
||||
td.put(ln, _nordir, _sysdirop);
|
||||
if (is_new)
|
||||
tr.put(ln);
|
||||
}
|
||||
@ -1276,10 +1311,10 @@ void TManutenzione_app::load_des()
|
||||
d.set_eox(last_newln);
|
||||
d.set_flags(_level = flags);
|
||||
prefix().set_stdlevel(flags);
|
||||
d.put(LF_DIR,_nordir,_sysdirop);
|
||||
d.put(LF_DIR, _nordir, _sysdirop);
|
||||
}
|
||||
|
||||
items = (int) d.eod();
|
||||
items = (int)d.eod();
|
||||
|
||||
TString80 s = TR("Caricamento descrizioni archivi ");
|
||||
if (standard)
|
||||
@ -1287,7 +1322,7 @@ void TManutenzione_app::load_des()
|
||||
else
|
||||
{
|
||||
if (prefix().is_com()) s << TR("comuni");
|
||||
else s << TR("ditta ") << atol (pref);
|
||||
else s << TR("ditta ") << atol(pref);
|
||||
}
|
||||
|
||||
TProgress_monitor p(items ? items : 1, s, false);
|
||||
@ -1489,12 +1524,12 @@ void TManutenzione_app::main_loop()
|
||||
case K_F6:
|
||||
riga_selezionata = _browse->selected();
|
||||
riga = _browse->row();
|
||||
insert_riga (riga_selezionata, riga);
|
||||
insert_riga(riga_selezionata, riga);
|
||||
break;
|
||||
case K_ENTER:
|
||||
riga_selezionata = _browse->selected();
|
||||
riga = _browse->row();
|
||||
edit_riga (riga_selezionata, riga);
|
||||
edit_riga(riga_selezionata, riga);
|
||||
break;
|
||||
case K_DEL:
|
||||
riga_selezionata = _browse->selected();
|
||||
@ -1511,7 +1546,7 @@ void TManutenzione_app::main_loop()
|
||||
_browse->add();
|
||||
riga_selezionata = _browse->items() - 1;
|
||||
riga = _browse->row(riga_selezionata);
|
||||
edit_riga (riga_selezionata, riga);
|
||||
edit_riga(riga_selezionata, riga);
|
||||
break;
|
||||
case K_F5: // Other file
|
||||
{
|
||||
@ -1521,6 +1556,18 @@ void TManutenzione_app::main_loop()
|
||||
edit_riga(other.get(101));
|
||||
}
|
||||
break;
|
||||
case K_SHIFT + K_F12: // recover
|
||||
{
|
||||
TMask pwdmask(TR("Richesta accesso"),1 , 40, 12);
|
||||
TString pwd("ADMIN");
|
||||
|
||||
pwd << today.day() + today.month();
|
||||
pwdmask.add_string(101, 0, TR("Password"), 2, 1, 20, "*");
|
||||
pwdmask.add_button(DLG_OK, 0, "", -12, -2, 10 ,2);
|
||||
pwdmask.add_button(DLG_CANCEL, 0, "", -22, -2, 10, 2);
|
||||
if (pwdmask.run() == K_ENTER && pwdmask.get(101) == pwd)
|
||||
recover();
|
||||
}
|
||||
default:
|
||||
break;
|
||||
}
|
||||
@ -1534,4 +1581,3 @@ int ba1100(int argc, char** argv)
|
||||
a.run(argc, argv, TR("Gestione files"));
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
@ -1,6 +1,10 @@
|
||||
#ifndef __BA1100_H
|
||||
#define __BA1100_H
|
||||
|
||||
#ifndef __APPLICAT_H
|
||||
#include <applicat.h>
|
||||
#endif
|
||||
|
||||
#ifndef __CONFIG_H
|
||||
#include <config.h>
|
||||
#endif
|
||||
@ -17,6 +21,14 @@
|
||||
class TMask_field;
|
||||
#endif
|
||||
|
||||
#ifndef __PRINTER_H
|
||||
#include <printer.h>
|
||||
#endif
|
||||
|
||||
#ifndef __REPUTILS_H
|
||||
#include <reputils.h>
|
||||
#endif
|
||||
|
||||
#include "ba1100a.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -38,10 +50,10 @@ public:
|
||||
const TDir& dir() const { return _dir; }
|
||||
TDir& dir() { return _dir; }
|
||||
const TTrec& rec() const { return _rec; }
|
||||
TTrec& rec(){ return _rec; }
|
||||
TTrec& rec() { return _rec; }
|
||||
void set_items(long items) { _items = items; }
|
||||
void add();
|
||||
void rebuild() { _items = _dir.items();}
|
||||
void rebuild() { _items = _dir.items(); }
|
||||
|
||||
TDir_sheet(const char* title, bool superprassi);
|
||||
};
|
||||
@ -70,7 +82,7 @@ protected:
|
||||
public:
|
||||
const TDir& dir() const { return _dir; }
|
||||
const TTrec& rec() const { return _rec; }
|
||||
const char* descfname() const { return _descfname;}
|
||||
const char* descfname() const { return _descfname; }
|
||||
const char* tab() const { return _tab; }
|
||||
void edit();
|
||||
|
||||
@ -92,4 +104,61 @@ public:
|
||||
virtual ~TEdit_file() {}
|
||||
};
|
||||
|
||||
class TManutenzione_app : public TSkeleton_application
|
||||
{
|
||||
TDir_sheet* _browse;
|
||||
TArray _dirs;
|
||||
TArray _recs;
|
||||
TMask* _mask;
|
||||
long _firm;
|
||||
long _level;
|
||||
long _history_firm;
|
||||
TRec_sheet* _rec;
|
||||
TLog_report* _log;
|
||||
bool _print_log;
|
||||
|
||||
bool _superprassi;
|
||||
|
||||
protected:
|
||||
virtual void main_loop();
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
void insert_riga(long, TToken_string&);
|
||||
void edit_riga(long, TToken_string&);
|
||||
void edit_riga(const TString&);
|
||||
void delete_riga(long);
|
||||
virtual bool extended_firm() const { return true; }
|
||||
|
||||
bool set_converting();
|
||||
bool reset_converting();
|
||||
|
||||
bool try_to_recover(TSystemisamfile& f, int err);
|
||||
void update();
|
||||
void update_dir();
|
||||
void recover();
|
||||
void convert_dir();
|
||||
virtual void print();
|
||||
virtual void do_print(TPrinter & p, TRec_sheet & r);
|
||||
const char* dumpfilename(const FileDes& dep) const;
|
||||
void load_des();
|
||||
void open_history();
|
||||
void put_history(const char* firm);
|
||||
void close_history();
|
||||
void dump_trc(const char * dir, const bool des_too, const long modules);
|
||||
void repair_file(int i);
|
||||
void save_file(const char * file);
|
||||
|
||||
void open_log();
|
||||
void write_log(const char* line, const int severity = 0);
|
||||
void close_log();
|
||||
|
||||
bool moveable_file(int file) const;
|
||||
public:
|
||||
long get_firm() const { return _firm; }
|
||||
|
||||
TManutenzione_app();
|
||||
};
|
||||
|
||||
inline TManutenzione_app & app() { return (TManutenzione_app &)main_app(); }
|
||||
|
||||
#endif
|
||||
|
||||
@ -49,5 +49,6 @@
|
||||
#define DLG_ADDFILE 609
|
||||
#define DLG_INSFILE 610
|
||||
#define DLG_OTHERFILE 611
|
||||
#define DLG_RECOVER 612
|
||||
|
||||
#endif
|
||||
|
||||
@ -37,6 +37,7 @@ TDir_sheet::TDir_sheet(const char* title, bool superprassi)
|
||||
{
|
||||
add_button(DLG_OTHERFILE, TR("File Esterni"), K_F5, 113);
|
||||
add_button(DLG_CONVERT, TR("Conversione"), K_F7, 156);
|
||||
add_button(DLG_RECOVER, TR("Recupero"), K_SHIFT + K_F12, 131);
|
||||
if (is_power_station())
|
||||
add_button(DLG_ADDFILE, TR("Nuovo file"), K_F8, TOOL_NEWREC);
|
||||
add_button(DLG_NULL, "", 0); // Separatore
|
||||
@ -275,9 +276,17 @@ void TRec_sheet::edit()
|
||||
}
|
||||
f2.set_notify(key_notify);
|
||||
f2.set_append(FALSE);
|
||||
|
||||
int nkeys = _rec.keys();
|
||||
for (i = 0; i < nkeys; i++) f2.row(i) = _rec.keydef(i);
|
||||
|
||||
for (i = 0; i < nkeys; i++)
|
||||
f2.row(i) = _rec.keydef(i);
|
||||
f2.disable_cell(0, 1);
|
||||
|
||||
const bool enable_save = (_dir.is_com() && app().get_firm() == 0) ||
|
||||
(_dir.is_firm() && app().get_firm() > 0);
|
||||
|
||||
_mask->enable(DLG_SAVEREC, enable_save);
|
||||
while (true)
|
||||
{
|
||||
f1.force_update(0); // Non togliere, serve per fare l'update della descrizione quando si fa l'import!!
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user