342 lines
8.2 KiB
C++
342 lines
8.2 KiB
C++
|
#include <applicat.h>
|
||
|
|
#include <automask.h>
|
||
|
|
#include <tsdb.h>
|
||
|
|
#include <progind.h>
|
||
|
|
#include <relation.h>
|
||
|
|
|
||
|
|
#include "ps6215.h"
|
||
|
|
#include "ps6215100a.h"
|
||
|
|
#include "utility.h"
|
||
|
|
#include "clifo.h"
|
||
|
|
#include "comuni.h"
|
||
|
|
#include "cfven.h"
|
||
|
|
|
||
|
|
#define CLIFO_RECLEN 730
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Utilities
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
void copy_wzero(char* dest, const int size, const char* source)
|
||
|
|
{
|
||
|
|
for(int i = 0; i < size; ++i)
|
||
|
|
{
|
||
|
|
const char c = source[i];
|
||
|
|
if (c == '\0')
|
||
|
|
break;
|
||
|
|
dest[i] = c;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
TString& trim_n(TString& str, const int max)
|
||
|
|
{
|
||
|
|
if(str.len() > max)
|
||
|
|
str.rtrim(str.len() - max);
|
||
|
|
return str;
|
||
|
|
}
|
||
|
|
|
||
|
|
TString to_escape(const TString& val)
|
||
|
|
{
|
||
|
|
TString& app = get_tmp_string();
|
||
|
|
for (int k = 0; k < val.len(); k++)
|
||
|
|
{
|
||
|
|
switch (val[k])
|
||
|
|
{
|
||
|
|
case '\'':
|
||
|
|
app << "''";
|
||
|
|
break;
|
||
|
|
default:
|
||
|
|
app << val[k];
|
||
|
|
break;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return app;
|
||
|
|
}
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Main Mask
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
class TComariExport_mask final : public TAutomask
|
||
|
|
{
|
||
|
|
protected:
|
||
|
|
bool on_field_event(TOperable_field& o, TField_event e, long jolly) override;
|
||
|
|
void load_all();
|
||
|
|
public:
|
||
|
|
void save_all() const;
|
||
|
|
TComariExport_mask();
|
||
|
|
~TComariExport_mask() { save_all(); }
|
||
|
|
};
|
||
|
|
|
||
|
|
bool TComariExport_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||
|
|
{
|
||
|
|
return true;
|
||
|
|
}
|
||
|
|
|
||
|
|
TComariExport_mask::TComariExport_mask() : TAutomask("ps6215100a")
|
||
|
|
{
|
||
|
|
load_all();
|
||
|
|
}
|
||
|
|
|
||
|
|
void TComariExport_mask::save_all() const
|
||
|
|
{
|
||
|
|
ini_set_string(CONFIG_DITTA, "ps6215", "flddest", get(F_FLDDEST));
|
||
|
|
ini_set_string(CONFIG_DITTA, "ps6215", "clifor_bool", get(F_CLIFOR));
|
||
|
|
}
|
||
|
|
|
||
|
|
void TComariExport_mask::load_all()
|
||
|
|
{
|
||
|
|
TFilename temp;
|
||
|
|
temp.tempdir();
|
||
|
|
set(F_FLDDEST, ini_get_string(CONFIG_DITTA, "ps6215", "flddest", temp));
|
||
|
|
set(F_CLIFOR, ini_get_string(CONFIG_DITTA, "ps6215", "clifor_bool", "X"));
|
||
|
|
}
|
||
|
|
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
// Main Program
|
||
|
|
///////////////////////////////////////////////////////////
|
||
|
|
|
||
|
|
class TComariExport_app : public TSkeleton_application
|
||
|
|
{
|
||
|
|
TString _fld_dest;
|
||
|
|
|
||
|
|
bool export_all() const;
|
||
|
|
static void add_to_record(char* record, TString& str, int len, int& index);
|
||
|
|
static void export_clifo(ofstream& fout);
|
||
|
|
bool export_table(short id) const;
|
||
|
|
public:
|
||
|
|
bool create() override;
|
||
|
|
void main_loop() override;
|
||
|
|
TComariExport_app() = default;
|
||
|
|
};
|
||
|
|
|
||
|
|
bool TComariExport_app::export_all() const
|
||
|
|
{
|
||
|
|
return
|
||
|
|
export_table(F_CLIFOR) &&
|
||
|
|
export_table(F_PIANOCONTI) &&
|
||
|
|
export_table(F_MASTRI);
|
||
|
|
}
|
||
|
|
|
||
|
|
void TComariExport_app::add_to_record(char* record, TString& str, int len, int& index)
|
||
|
|
{
|
||
|
|
trim_n(str, len);
|
||
|
|
copy_wzero(record + index, CLIFO_RECLEN - index, str);
|
||
|
|
index += len;
|
||
|
|
}
|
||
|
|
|
||
|
|
void TComariExport_app::export_clifo(ofstream& fout)
|
||
|
|
{
|
||
|
|
int index = 0;
|
||
|
|
TLocalisamfile clifo(LF_CLIFO);
|
||
|
|
bool ok = clifo.read(_isfirst) == NOERR;
|
||
|
|
int items = clifo.items();
|
||
|
|
TProgress_monitor bar(items, "Esportazione Tabella Clienti Fornitori");
|
||
|
|
for(; ok; ok = clifo.next() == NOERR)
|
||
|
|
{
|
||
|
|
if (!bar.add_status())
|
||
|
|
break;
|
||
|
|
|
||
|
|
char record[CLIFO_RECLEN]; memset(record, ' ', CLIFO_RECLEN);
|
||
|
|
index = 0;
|
||
|
|
TLocalisamfile comuni(LF_COMUNI), cfven(LF_CFVEN);
|
||
|
|
comuni.put(COM_STATO, clifo.get(CLI_STATOCF));
|
||
|
|
comuni.put(COM_COM, clifo.get(CLI_COMCF));
|
||
|
|
comuni.read();
|
||
|
|
cfven.put(CFV_CODCF, clifo.get(CLI_CODCF));
|
||
|
|
cfven.put(CFV_TIPOCF, clifo.get(CLI_TIPOCF));
|
||
|
|
cfven.read();
|
||
|
|
|
||
|
|
// Tipo:
|
||
|
|
TString a = clifo.get(CLI_TIPOCF);
|
||
|
|
if(a[0] != 'C' && a != 'F')
|
||
|
|
a[0] = 'C';
|
||
|
|
add_to_record(record, a, 1, index);
|
||
|
|
// Codcf:
|
||
|
|
a = clifo.get(CLI_CODCF);
|
||
|
|
add_to_record(record, a, 15, index);
|
||
|
|
// Descrizione:
|
||
|
|
a = clifo.get(CLI_RAGSOC);
|
||
|
|
a.rpad(50);
|
||
|
|
TString b = a.sleft(30);
|
||
|
|
add_to_record(record, b, 40, index);
|
||
|
|
// Descrizione2:
|
||
|
|
b = a.sright(20);
|
||
|
|
add_to_record(record, b, 40, index);
|
||
|
|
// Indirizzo:
|
||
|
|
a = clifo.get(CLI_INDCF);
|
||
|
|
a << ", " << clifo.get(CLI_CIVCF);
|
||
|
|
add_to_record(record, a, 35, index);
|
||
|
|
// Indirizzo2:
|
||
|
|
a = "";
|
||
|
|
add_to_record(record, a, 35, index);
|
||
|
|
// CAP:
|
||
|
|
a = clifo.get(CLI_CAPCF);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Localita':
|
||
|
|
a = clifo.get(CLI_LOCCF);
|
||
|
|
add_to_record(record, a, 30, index);
|
||
|
|
// Provincia:
|
||
|
|
a = comuni.get(COM_PROVCOM);
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Telefono:
|
||
|
|
a = clifo.get(CLI_PTEL);
|
||
|
|
a << clifo.get(CLI_TEL);
|
||
|
|
add_to_record(record, a, 18, index);
|
||
|
|
// Cellulare:
|
||
|
|
a = clifo.get(CLI_PTEL2);
|
||
|
|
a << clifo.get(CLI_TEL2);
|
||
|
|
add_to_record(record, a, 18, index);
|
||
|
|
// Fax:
|
||
|
|
a = clifo.get(CLI_PFAX);
|
||
|
|
a << clifo.get(CLI_FAX);
|
||
|
|
add_to_record(record, a, 18, index);
|
||
|
|
// Persona fisica:
|
||
|
|
a = clifo.get(CLI_TIPOPERS)[0] == 'F' ? "S" : "N";
|
||
|
|
add_to_record(record, a, 1, index);
|
||
|
|
// Sesso:
|
||
|
|
a = clifo.get(CLI_SESSO);
|
||
|
|
add_to_record(record, a, 1, index);
|
||
|
|
// Nascita:
|
||
|
|
a = clifo.get_date(CLI_DATANASC).date2ansi();
|
||
|
|
add_to_record(record, a, 8, index);
|
||
|
|
// Luogo di nascita:
|
||
|
|
comuni.zero();
|
||
|
|
comuni.put(COM_STATO, clifo.get(CLI_STATONASC));
|
||
|
|
comuni.put(COM_COM, clifo.get(CLI_COMNASC));
|
||
|
|
comuni.read();
|
||
|
|
a = comuni.get(COM_DENCOM);
|
||
|
|
add_to_record(record, a, 30, index);
|
||
|
|
// Provincia Nascita:
|
||
|
|
a = comuni.get(COM_PROVCOM);
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Codice fiscale:
|
||
|
|
a = clifo.get(CLI_COFI);
|
||
|
|
add_to_record(record, a, 16, index);
|
||
|
|
// Partita IVA:
|
||
|
|
a = clifo.get(CLI_PAIV);
|
||
|
|
add_to_record(record, a, 12, index);
|
||
|
|
// Mastro:
|
||
|
|
a = clifo.get(CLI_GRUPPO);
|
||
|
|
a << clifo.get(CLI_CONTO);
|
||
|
|
add_to_record(record, a, 20, index);
|
||
|
|
// Partite:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 1, index);
|
||
|
|
// Codice pagamento:
|
||
|
|
a = clifo.get(CLI_CODPAG);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Codice zona:
|
||
|
|
a = cfven.get(CFV_CODZONA);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Codice agente1:
|
||
|
|
a = cfven.get(CFV_CODAG1);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Codice Iva:
|
||
|
|
a = cfven.get(CFV_ASSFIS);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Codice Valuta:
|
||
|
|
a = clifo.get(CLI_CODVAL);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Codice Banca:
|
||
|
|
a = clifo.get(CLI_CODABI);
|
||
|
|
a << clifo.get(CLI_CODCAB);
|
||
|
|
add_to_record(record, a, 10, index);
|
||
|
|
// Primo mese:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Secondo mese:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Primo gg scadenze:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Secondo gg:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 2, index);
|
||
|
|
// Codice Lingua:
|
||
|
|
a = clifo.get(CLI_CODLIN);
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Conto corrente:
|
||
|
|
a = clifo.get(CLI_NUMCC);
|
||
|
|
add_to_record(record, a, 15, index);
|
||
|
|
// Indirizzo e-mail:
|
||
|
|
a = clifo.get(CLI_DOCMAIL);
|
||
|
|
add_to_record(record, a, 50, index);
|
||
|
|
// Ritenute:
|
||
|
|
a = "N";
|
||
|
|
add_to_record(record, a, 1, index);
|
||
|
|
// Codice tributo:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 4, index);
|
||
|
|
// Codice tributo:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 4, index);
|
||
|
|
// Categoria contabile :
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 5, index);
|
||
|
|
// Annotazioni:
|
||
|
|
a = " ";
|
||
|
|
add_to_record(record, a, 255, index);
|
||
|
|
|
||
|
|
fout << record << '\n';
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TComariExport_app::export_table(const short id) const
|
||
|
|
{
|
||
|
|
bool ok = false;
|
||
|
|
ofstream fout;
|
||
|
|
TString path = _fld_dest;
|
||
|
|
|
||
|
|
if (id == F_CLIFOR)
|
||
|
|
{
|
||
|
|
path << "\\clifo.txt";
|
||
|
|
fout.open(path, ios_base::out);
|
||
|
|
if ((ok = fout.is_open()))
|
||
|
|
{
|
||
|
|
export_clifo(fout);
|
||
|
|
fout.close();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return ok;
|
||
|
|
}
|
||
|
|
|
||
|
|
bool TComariExport_app::create()
|
||
|
|
{
|
||
|
|
open_files(LF_CLIFO, LF_CFVEN, LF_COMUNI, 0);
|
||
|
|
return TSkeleton_application::create();
|
||
|
|
}
|
||
|
|
|
||
|
|
void TComariExport_app::main_loop()
|
||
|
|
{
|
||
|
|
const TFixed_string arg = argv(2);
|
||
|
|
if(arg.starts_with("-a") || arg.starts_with("-A"))
|
||
|
|
{
|
||
|
|
const WINDOW task = TASK_WIN;
|
||
|
|
xvt_vobj_set_visible(task, FALSE);
|
||
|
|
export_all();
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
TComariExport_mask msk;
|
||
|
|
while (msk.run() == K_ENTER)
|
||
|
|
{
|
||
|
|
_fld_dest = msk.get(F_FLDDEST);
|
||
|
|
|
||
|
|
for (short i = F_CLIFOR; i <= F_MASTRI; ++i)
|
||
|
|
{
|
||
|
|
if (msk.get_bool(i))
|
||
|
|
export_table(i);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
int ps6215100(const int argc, char* argv[])
|
||
|
|
{
|
||
|
|
TComariExport_app pe;
|
||
|
|
pe.run(argc, argv, TR("Configurazione Esportazione CO.MA.RI."));
|
||
|
|
return 0;
|
||
|
|
}
|