741 lines
20 KiB
C++
741 lines
20 KiB
C++
|
#include "tc0.h"
|
||
|
|
#include "tc0900a.h"
|
||
|
|
|
||
|
|
#include <applicat.h>
|
||
|
|
#include <automask.h>
|
||
|
|
#include <config.h>
|
||
|
|
#include <lffiles.h>
|
||
|
|
#include <progind.h>
|
||
|
|
#include <relation.h>
|
||
|
|
#include <reprint.h>
|
||
|
|
#include <reputils.h>
|
||
|
|
#include <tabutil.h>
|
||
|
|
#include <utility.h>
|
||
|
|
|
||
|
|
#include <clifo.h>
|
||
|
|
#include <causali.h>
|
||
|
|
#include <pconti.h>
|
||
|
|
#include "tc0701.h"
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// TConvert_mask
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
class TConvert_mask : public TAutomask
|
||
|
|
{
|
||
|
|
private:
|
||
|
|
void serialize(bool bSave);
|
||
|
|
protected:
|
||
|
|
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||
|
|
public:
|
||
|
|
TConvert_mask();
|
||
|
|
virtual ~TConvert_mask();
|
||
|
|
};
|
||
|
|
|
||
|
|
enum TConv_funcs { _conti, _tabella, _clifor, _contanal } ;
|
||
|
|
|
||
|
|
class TField_info : public TObject
|
||
|
|
{
|
||
|
|
TToken_string _fieldname;
|
||
|
|
TConv_funcs _func;
|
||
|
|
TString8 _table;
|
||
|
|
TString8 _TStable;
|
||
|
|
|
||
|
|
public:
|
||
|
|
TToken_string & fieldname() { return _fieldname;}
|
||
|
|
TConv_funcs func() const { return _func;}
|
||
|
|
const TString & table() const { return _table;}
|
||
|
|
const TString & TStable() const { return _TStable;}
|
||
|
|
TField_info(const char * fieldname, TConv_funcs func = _conti, const char * table = "", const char * TStable = "") :
|
||
|
|
_fieldname(fieldname), _func(func), _table(table), _TStable(TStable) {}
|
||
|
|
virtual ~TField_info() {}
|
||
|
|
};
|
||
|
|
|
||
|
|
class TConvert_archives : public TSkeleton_application
|
||
|
|
{
|
||
|
|
TTSRiclassifica_cache* _tabelle;
|
||
|
|
TLog_report _log;
|
||
|
|
long _offsetcli;
|
||
|
|
long _offsetfor;
|
||
|
|
|
||
|
|
virtual bool create();
|
||
|
|
virtual bool destroy();
|
||
|
|
void convert(bool comtables);
|
||
|
|
const TString & scod2ricl(const char* tab, const TString& cod);
|
||
|
|
const long bill2ricl(char t, int gr, int co, long so) { return TSbill2ricl(t, gr, co, so); }
|
||
|
|
bool convert_clifo(char t, long & codcf);
|
||
|
|
bool convert_field(TRectype & rec, TField_info & finfo);
|
||
|
|
void convert_file(int logicnum, TArray & fieldlist);
|
||
|
|
void convert_table(const char * tablename, TArray & fieldlist);
|
||
|
|
|
||
|
|
protected:
|
||
|
|
virtual void main_loop();
|
||
|
|
|
||
|
|
public:
|
||
|
|
TConvert_archives() : _log("Conversione Archivi CAMPO"), _offsetcli(0L), _offsetfor(0L) {}
|
||
|
|
};
|
||
|
|
|
||
|
|
TConvert_archives& app() { return (TConvert_archives&)main_app(); }
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// TConvert_mask
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
TConvert_mask::TConvert_mask() : TAutomask("tc0900a")
|
||
|
|
{
|
||
|
|
serialize(false);
|
||
|
|
}
|
||
|
|
|
||
|
|
TConvert_mask::~TConvert_mask()
|
||
|
|
{
|
||
|
|
serialize(true);
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TConvert_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
void TConvert_mask::serialize(bool bSave)
|
||
|
|
{
|
||
|
|
const char* defpar = "tc";
|
||
|
|
TConfig ini(CONFIG_DITTA, defpar);
|
||
|
|
for (int i = fields()-1; i >= 0; i--)
|
||
|
|
{
|
||
|
|
TMask_field& f = fld(i);
|
||
|
|
const TFieldref* fr = f.field();
|
||
|
|
if (fr != NULL)
|
||
|
|
{
|
||
|
|
if (bSave)
|
||
|
|
fr->write(ini, defpar, f.get());
|
||
|
|
else
|
||
|
|
f.set(fr->read(ini, defpar));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// TConvert_archives
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
bool TConvert_archives::create()
|
||
|
|
{
|
||
|
|
TLocalisamfile clifo(LF_CLIFO);
|
||
|
|
|
||
|
|
_tabelle = new TTSRiclassifica_cache ;
|
||
|
|
clifo.put(CLI_TIPOCF, "C");
|
||
|
|
clifo.put(CLI_CODCF, 1000000L);
|
||
|
|
if (clifo.read() == NOERR)
|
||
|
|
{
|
||
|
|
_offsetcli = clifo.get_long(CLI_CODCF);
|
||
|
|
clifo.prev();
|
||
|
|
long firstcli = clifo.get_long(CLI_CODCF) + 1;
|
||
|
|
if (firstcli > _offsetcli)
|
||
|
|
firstcli = 1;
|
||
|
|
_offsetcli -= firstcli;
|
||
|
|
}
|
||
|
|
clifo.put(CLI_TIPOCF, "F");
|
||
|
|
clifo.put(CLI_CODCF, 1000000L);
|
||
|
|
if (clifo.read() == NOERR)
|
||
|
|
{
|
||
|
|
_offsetfor = clifo.get_long(CLI_CODCF);
|
||
|
|
clifo.prev();
|
||
|
|
long firstfor = clifo.get_long(CLI_CODCF) + 1;
|
||
|
|
if (firstfor > _offsetcli)
|
||
|
|
firstfor = 1;
|
||
|
|
_offsetcli -= firstfor;
|
||
|
|
}
|
||
|
|
return TSkeleton_application::create();
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TConvert_archives::destroy()
|
||
|
|
{
|
||
|
|
delete _tabelle;
|
||
|
|
return TSkeleton_application::destroy();
|
||
|
|
}
|
||
|
|
|
||
|
|
const TString & TConvert_archives::scod2ricl(const char* tab, const TString& cod)
|
||
|
|
{
|
||
|
|
TString & codricl = get_tmp_string();
|
||
|
|
if (cod.full())
|
||
|
|
codricl = _tabelle->sdecode(tab, cod);
|
||
|
|
return codricl;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TConvert_archives::convert_clifo(char t, long & codcf)
|
||
|
|
{
|
||
|
|
bool converted = false;
|
||
|
|
|
||
|
|
if (codcf >= 1000000L)
|
||
|
|
codcf -= t == 'C' ? _offsetcli : _offsetfor;
|
||
|
|
return converted;
|
||
|
|
}
|
||
|
|
bool TConvert_archives::convert_field(TRectype & rec, TField_info & finfo)
|
||
|
|
{
|
||
|
|
bool converted = false;
|
||
|
|
if (finfo.fieldname().full())
|
||
|
|
{
|
||
|
|
TToken_string & fname = finfo.fieldname();
|
||
|
|
switch (finfo.func())
|
||
|
|
{
|
||
|
|
case _conti :
|
||
|
|
{
|
||
|
|
const char * ftipo = fname.get(0);
|
||
|
|
char t = 'X';
|
||
|
|
|
||
|
|
if (ftipo && *ftipo)
|
||
|
|
t = rec.get(ftipo)[0];
|
||
|
|
int gr = rec.get_int(fname.get());
|
||
|
|
int co = rec.get_int(fname.get());
|
||
|
|
if (t == 'X')
|
||
|
|
{
|
||
|
|
TToken_string key;
|
||
|
|
|
||
|
|
key.add(gr);
|
||
|
|
key.add(co);
|
||
|
|
t = cache().get(LF_PCON, key, PCN_TMCF)[0];
|
||
|
|
}
|
||
|
|
const char * fso = fname.get();
|
||
|
|
long so = 0L;
|
||
|
|
if (fso && *fso)
|
||
|
|
rec.get_long(fso);
|
||
|
|
long ricl = bill2ricl(t, gr, co, so);
|
||
|
|
|
||
|
|
if (ricl > 0)
|
||
|
|
{
|
||
|
|
so = ricl % 1000;
|
||
|
|
if (fso && *fso)
|
||
|
|
{
|
||
|
|
if (t <= ' ' || convert_clifo(t, so))
|
||
|
|
rec.put(fso, so);
|
||
|
|
}
|
||
|
|
if (rec.num() == LF_PCON)
|
||
|
|
{
|
||
|
|
const TRectype & tab = cache().get("&TCO", format("&07ld", ricl));
|
||
|
|
if (!tab.empty())
|
||
|
|
rec.put(PCN_DESCR, tab.get("S0"));
|
||
|
|
}
|
||
|
|
ricl /= 1000;
|
||
|
|
co = ricl % 100;
|
||
|
|
gr = ricl / 100;
|
||
|
|
rec.put(fname.get(1), gr);
|
||
|
|
rec.put(fname.get(), co);
|
||
|
|
converted = true;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
TString msg; msg.format(FR("Campi %s - %s - %s : valore %d - &d - &ld decodifica assente"),
|
||
|
|
(const char *) fname.get(1),
|
||
|
|
(const char *) fname.get(2),
|
||
|
|
(const char *) fname.get(3),
|
||
|
|
gr, co, so);
|
||
|
|
_log.log(2, msg);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case _tabella :
|
||
|
|
{
|
||
|
|
const bool s3 = fname == "S3[1,4]";
|
||
|
|
const bool reg = finfo.table() == "REG";
|
||
|
|
const bool rpg = finfo.table() == "%RPG";
|
||
|
|
|
||
|
|
TString val = rec.get(s3 ? "S3" : fname);
|
||
|
|
|
||
|
|
if (s3 || rpg)
|
||
|
|
{
|
||
|
|
TString4 v = val.left(4);
|
||
|
|
|
||
|
|
scod2ricl(finfo.table(), v);
|
||
|
|
if (v.full())
|
||
|
|
val.overwrite(v, 0, 4);
|
||
|
|
else
|
||
|
|
val.cut(0);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
if (reg)
|
||
|
|
{
|
||
|
|
TString4 v = val.mid(4);
|
||
|
|
|
||
|
|
scod2ricl(finfo.table(), v);
|
||
|
|
if (v.full())
|
||
|
|
{
|
||
|
|
val = val.left(4);
|
||
|
|
val << v;
|
||
|
|
}
|
||
|
|
else
|
||
|
|
val.cut(0);
|
||
|
|
}
|
||
|
|
else
|
||
|
|
scod2ricl(finfo.table(), val);
|
||
|
|
|
||
|
|
if (val.full())
|
||
|
|
{
|
||
|
|
rec.put(fname, val);
|
||
|
|
converted = true;
|
||
|
|
}
|
||
|
|
if (finfo.TStable().full())
|
||
|
|
{
|
||
|
|
const TRectype & tab = cache().get(finfo.TStable(), val);
|
||
|
|
|
||
|
|
if (!tab.empty())
|
||
|
|
{
|
||
|
|
if (rec.num() == LF_CAUSALI)
|
||
|
|
rec.put(CAU_DESCR, tab.get("S0"));
|
||
|
|
else
|
||
|
|
rec.put("S0", tab.get("S0"));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
TString msg; msg.format(FR("Campo %s : valore %s decodifica assente"), (const char *) fname, (const char *) val);
|
||
|
|
_log.log(2, msg);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case _clifor :
|
||
|
|
{
|
||
|
|
char t = ' ';
|
||
|
|
const TString& ftipo = fname.get(0);
|
||
|
|
if (ftipo.starts_with("\""))
|
||
|
|
t = ftipo[1];
|
||
|
|
else
|
||
|
|
t = rec.get(ftipo)[0];
|
||
|
|
const TString & fcod = fname.get(1);
|
||
|
|
long codcf = rec.get_long(fcod);
|
||
|
|
const long oldcf = codcf;
|
||
|
|
converted = convert_clifo(t, codcf);
|
||
|
|
|
||
|
|
if (converted)
|
||
|
|
{
|
||
|
|
rec.put(fcod, codcf);
|
||
|
|
if (rec.num() == LF_CLIFO)
|
||
|
|
{
|
||
|
|
TString msg; msg.format(FR("Convertito il cliente %ld in %ld"), oldcf, codcf);
|
||
|
|
_log.log(0, msg);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
case _contanal :
|
||
|
|
{
|
||
|
|
TString val = rec.get(fname);
|
||
|
|
int gr = atoi(val.left(3));
|
||
|
|
int co = atoi(val.mid(3,3));
|
||
|
|
long so = atol(val.mid(6,6));
|
||
|
|
char t = ' ';
|
||
|
|
long ricl = bill2ricl(t, gr, co, so);
|
||
|
|
|
||
|
|
if (ricl > 0)
|
||
|
|
{
|
||
|
|
so = ricl % 1000;
|
||
|
|
ricl /= 1000;
|
||
|
|
co = ricl % 100;
|
||
|
|
gr = ricl / 100;
|
||
|
|
val.format("%03d%03d%06ld", gr, co ,so);
|
||
|
|
rec.put(fname, val);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
break;
|
||
|
|
default :
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return converted;
|
||
|
|
}
|
||
|
|
|
||
|
|
void TConvert_archives::convert_file(int logicnum, TArray & fieldlist)
|
||
|
|
{
|
||
|
|
TLocalisamfile f(logicnum);
|
||
|
|
TRectype rec(f.curr());
|
||
|
|
TRectype old(rec);
|
||
|
|
TString key;
|
||
|
|
TString msg;
|
||
|
|
|
||
|
|
msg.format(FR("Conversione file %d - %s"), logicnum, f.description());
|
||
|
|
_log.log(0, msg);
|
||
|
|
TProgind p(f.items(), msg);
|
||
|
|
for (int err = f.first(); !p.iscancelled() && err == NOERR; err = f.next())
|
||
|
|
{
|
||
|
|
p.addstatus(1L);
|
||
|
|
bool converted = false;
|
||
|
|
|
||
|
|
rec = f.curr();
|
||
|
|
key = rec.key();
|
||
|
|
msg.format(FR("Record %ld - Chiave %s"), f.recno(), (const char *) key);
|
||
|
|
_log.log(0, msg);
|
||
|
|
FOR_EACH_ARRAY_ITEM(fieldlist, r, obj)
|
||
|
|
{
|
||
|
|
TField_info & finfo = (TField_info &) *obj;
|
||
|
|
converted |= convert_field(rec, finfo);
|
||
|
|
}
|
||
|
|
if (converted)
|
||
|
|
{
|
||
|
|
if (key != f.curr().key())
|
||
|
|
{
|
||
|
|
old = f.curr();
|
||
|
|
f.curr() = rec;
|
||
|
|
f.write();
|
||
|
|
f.curr() = old;
|
||
|
|
f.remove();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
f.curr() = rec;
|
||
|
|
f.rewrite();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void TConvert_archives::convert_table(const char * tablename, TArray & fieldlist)
|
||
|
|
{
|
||
|
|
TTable t(tablename);
|
||
|
|
TRectype rec(t.curr());
|
||
|
|
TRectype old(rec);
|
||
|
|
TString key;
|
||
|
|
TString msg;
|
||
|
|
|
||
|
|
msg.format(FR("Conversione Tabella %d - %s"), tablename, t.description());
|
||
|
|
_log.log(0, msg);
|
||
|
|
TProgind p(t.items(), msg);
|
||
|
|
for (int err = t.first(); !p.iscancelled() && err == NOERR; err = t.next())
|
||
|
|
{
|
||
|
|
p.addstatus(1L);
|
||
|
|
bool converted = false;
|
||
|
|
|
||
|
|
rec = t.curr();
|
||
|
|
key = rec.key();
|
||
|
|
msg.format(FR("Record %ld - Chiave %s"), t.recno(), (const char *) key);
|
||
|
|
_log.log(0, msg);
|
||
|
|
FOR_EACH_ARRAY_ITEM(fieldlist, r, obj)
|
||
|
|
{
|
||
|
|
TField_info & finfo = (TField_info &) *obj;
|
||
|
|
converted |= convert_field(rec, finfo);
|
||
|
|
}
|
||
|
|
if (converted)
|
||
|
|
{
|
||
|
|
if (key != t.curr().key())
|
||
|
|
{
|
||
|
|
old = t.curr();
|
||
|
|
t.curr() = rec;
|
||
|
|
t.write();
|
||
|
|
t.curr() = old;
|
||
|
|
t.remove();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
t.curr() = rec;
|
||
|
|
t.rewrite();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void TConvert_archives::convert(bool comtables)
|
||
|
|
{
|
||
|
|
TArray field_infos;
|
||
|
|
TConfig d(CONFIG_DITTA, "ca");
|
||
|
|
const bool usepdcc = d.get_bool("UsePdcc");
|
||
|
|
|
||
|
|
field_infos.add(new TField_info("VALUTA", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_NDITTE, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
convert_file(LF_INDSP, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("ASSFIS", _tabella, "TSIVA"));
|
||
|
|
convert_file(LF_CFVEN, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_PCON, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO"));
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCFASS", _clifor));
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCFFATT", _clifor));
|
||
|
|
field_infos.add(new TField_info("|GRUPPORIC|CONTORIC|SOTTOCRIC"));
|
||
|
|
field_infos.add(new TField_info("STATO", _tabella, "TSNAZ"));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
field_infos.add(new TField_info("CODPAG", _tabella, "TSCDP"));
|
||
|
|
convert_file(LF_CLIFO, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOCONTO")); // ???
|
||
|
|
convert_file(LF_SALDI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
convert_file(LF_ALLEG, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCAUS", _tabella, "TSCAU"));
|
||
|
|
field_infos.add(new TField_info("REG", _tabella, "TSREG"));
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODPAG", _tabella, "TSCDP"));
|
||
|
|
convert_file(LF_MOV, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
field_infos.add(new TField_info("TIPOCC|GRUPPOC|CONTOC|SOTTOCONTOC"));
|
||
|
|
convert_file(LF_RMOV, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODIVA", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_RMOVIVA, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCAUS", _tabella, "TSCAU", "&TCA"));
|
||
|
|
field_infos.add(new TField_info("REG", _tabella, "TSREG"));
|
||
|
|
convert_file(LF_CAUSALI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCAUS", _tabella, "TSCAU"));
|
||
|
|
field_infos.add(new TField_info("REG", _tabella, "TSREG"));
|
||
|
|
field_infos.add(new TField_info("TIPOCF|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
field_infos.add(new TField_info("CODIVA", _tabella, "TSIVA"));
|
||
|
|
convert_file(LF_RCAUSALI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("REG", _tabella, "TSREG"));
|
||
|
|
field_infos.add(new TField_info("CODCAUS", _tabella, "TSCAU"));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPOCL|CONTOCL"));
|
||
|
|
convert_file(LF_PARTITE, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODPAG", _tabella, "TSCDP"));
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_SCADENZE, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOC|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_PAGSCA, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_EFFETTI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("STATO", _tabella, "TSNAZ"));
|
||
|
|
field_infos.add(new TField_info("CODPAG", _tabella, "TSCDP"));
|
||
|
|
convert_file(LF_CESS, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
field_infos.add(new TField_info("CODPAG", _tabella, "TSCDP"));
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCFFATT", _clifor));
|
||
|
|
convert_file(LF_DOC, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODIVA", _tabella, "TSIVA"));
|
||
|
|
convert_file(LF_RIGHEDOC, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPOA|CONTOA|SOTTOCA"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOV|CONTOV|SOTTOCV"));
|
||
|
|
field_infos.add(new TField_info("CODIVA", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("\"F\"|CODFORN", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODIVAR", _tabella, "TSIVA"));
|
||
|
|
convert_file(LF_ANAMAG, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_CONDV, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODIVA", _tabella, "TSIVA"));
|
||
|
|
convert_file(LF_RCONDV, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODREG", _tabella, "TSREG"));
|
||
|
|
convert_file(LF_TABREG, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCAUS", _tabella, "TSCAU"));
|
||
|
|
convert_file(LF_MOVANA, field_infos);
|
||
|
|
|
||
|
|
if (usepdcc)
|
||
|
|
{
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCONTO", _contanal));
|
||
|
|
field_infos.add(new TField_info("CODCCORI", _contanal));
|
||
|
|
convert_file(LF_RMOVANA, field_infos);
|
||
|
|
}
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODFORN", _clifor));
|
||
|
|
convert_file(LF_MOVMAG, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("\"F\"|CODCF", _clifor));
|
||
|
|
convert_file(LF_AGENTI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("\"C\"|CODCLI", _clifor));
|
||
|
|
convert_file(LF_PROVV, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_INTRA, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODVAL", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_RIEPRETT, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODVALUTA", _tabella, "TSVAL"));
|
||
|
|
convert_file(LF_CESPI, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOC"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQNO|CONTOQNO|SOTTOCQNO"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQAN|CONTOQAN|SOTTOCQAN"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQAC|CONTOQAC|SOTTOCQAC"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQFN|CONTOQFN|SOTTOCQFN"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQFA|CONTOQFA|SOTTOCQFA"));
|
||
|
|
field_infos.add(new TField_info("|GRUPPOQACC|CONTOQACC|SOTTOCQACC"));
|
||
|
|
convert_file(LF_COLLCES, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_RIP, field_infos);
|
||
|
|
|
||
|
|
if (usepdcc)
|
||
|
|
{
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODCONTO", _contanal));
|
||
|
|
convert_file(LF_RRIP, field_infos);
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CONTO", _contanal));
|
||
|
|
convert_file(LF_SALDANA, field_infos);
|
||
|
|
}
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("\"C\"|CODCLI", _clifor));
|
||
|
|
convert_file(LF_LETINT, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_PANAPDC, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|GRUPPO|CONTO|SOTTOCONTO"));
|
||
|
|
convert_file(LF_RICLPDC, field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("TIPOCF|CODCF", _clifor));
|
||
|
|
convert_file(LF_CLIFOGIAC, field_infos);
|
||
|
|
|
||
|
|
// Tabelle
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("S3[1,4]", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("S4", _tabella, "TSVAL"));
|
||
|
|
convert_table("SPP", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("S3[1,4]", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("S4", _tabella, "TSVAL"));
|
||
|
|
convert_table("PRS", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("S3[1,4]", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("S4", _tabella, "TSVAL"));
|
||
|
|
convert_table("ATR", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("S3[1,4]", _tabella, "TSIVA"));
|
||
|
|
field_infos.add(new TField_info("S4", _tabella, "TSVAL"));
|
||
|
|
convert_table("RSS", field_infos);
|
||
|
|
field_infos.destroy();
|
||
|
|
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("S7", _tabella, "TSIVA"));
|
||
|
|
convert_table("GMC", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
convert_table("RFA", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
convert_table("CFA", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
convert_table("CRA", field_infos); // ???
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("|I0|I1|I2"));
|
||
|
|
field_infos.add(new TField_info("|I3|I4|I5"));
|
||
|
|
field_infos.add(new TField_info("|I6|I7|I8"));
|
||
|
|
field_infos.add(new TField_info("|I9|I10|I11"));
|
||
|
|
convert_table("BNP", field_infos);
|
||
|
|
|
||
|
|
if (comtables)
|
||
|
|
{
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSIVA", "&TIV"));
|
||
|
|
convert_table("%IVA", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSNAZ", "&TNA"));
|
||
|
|
convert_table("%STA", field_infos);
|
||
|
|
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSCDP", "&TPG"));
|
||
|
|
convert_table("%CPG", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSCDP"));
|
||
|
|
convert_table("%RPG", field_infos);
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSVAL", "&TVA"));
|
||
|
|
convert_table("%VAL", field_infos);
|
||
|
|
}
|
||
|
|
|
||
|
|
field_infos.destroy();
|
||
|
|
field_infos.add(new TField_info("CODTAB", _tabella, "TSREG", "&TRE"));
|
||
|
|
convert_table("REG", field_infos);
|
||
|
|
|
||
|
|
TReport_book b;
|
||
|
|
|
||
|
|
b.add(_log);
|
||
|
|
b.print_or_preview();
|
||
|
|
}
|
||
|
|
|
||
|
|
void TConvert_archives::main_loop()
|
||
|
|
{
|
||
|
|
TConvert_mask m;
|
||
|
|
if (m.run() == K_ENTER)
|
||
|
|
convert(m.get_bool(F_CONVCOM));
|
||
|
|
}
|
||
|
|
|
||
|
|
int tc0900(int argc, char* argv[])
|
||
|
|
{
|
||
|
|
TConvert_archives app;
|
||
|
|
app.run(argc, argv, "Conversione archivi CAMPO");
|
||
|
|
return 0;
|
||
|
|
}
|