Prima versione modulo PA
git-svn-id: svn://10.65.10.50/branches/R_10_00@22955 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
cb17b9335f
commit
ef6e666e69
18
pa/pa0.cpp
Normal file
18
pa/pa0.cpp
Normal file
@ -0,0 +1,18 @@
|
||||
#include <xvt.h>
|
||||
#include "pa0.h"
|
||||
|
||||
int main(int argc, char** argv)
|
||||
{
|
||||
int rt = -1;
|
||||
const int r = (argc > 1) ? atoi( &argv[1][1] ) : 1;
|
||||
|
||||
switch (r)
|
||||
{
|
||||
case 0:
|
||||
default:
|
||||
rt = pa0100(argc, argv);
|
||||
break;
|
||||
}
|
||||
return rt;
|
||||
}
|
||||
|
||||
6
pa/pa0.h
Normal file
6
pa/pa0.h
Normal file
@ -0,0 +1,6 @@
|
||||
#ifndef __PA0_H
|
||||
#define __PA0_H
|
||||
|
||||
int pa0100(int argc, char* argv[]);
|
||||
|
||||
#endif
|
||||
671
pa/pa0100.cpp
Normal file
671
pa/pa0100.cpp
Normal file
@ -0,0 +1,671 @@
|
||||
#include <applicat.h>
|
||||
#include <dongle.h>
|
||||
#include <progind.h>
|
||||
#include <utility.h>
|
||||
|
||||
#include "../ve/velib05.h"
|
||||
|
||||
#include "pa0.h"
|
||||
|
||||
#include "../fe/felib.h"
|
||||
#include <nditte.h>
|
||||
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
// Globals
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
XVT_SQLDB _db = NULL; // PAF sqlite db
|
||||
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
// TPaf_record
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
class TPaf_record : public TObject
|
||||
{
|
||||
TString8 _table;
|
||||
TToken_string _key;
|
||||
TAssoc_array _fields;
|
||||
|
||||
protected:
|
||||
void copy(const TPaf_record& rec) { _table = rec._table; _key = rec._key; _fields = rec._fields; }
|
||||
const TString& var2str(const TVariant& var) const;
|
||||
|
||||
public:
|
||||
void set(const char* fld, const TVariant& var);
|
||||
void set(const char* fld, long var);
|
||||
void set(const char* fld, const char* var);
|
||||
void set(const char* fld, const real& var);
|
||||
void set(const char* fld, const TString& var);
|
||||
void set(const char* fld, const TDate& var);
|
||||
void set(const char* fld, bool var);
|
||||
const TVariant& get(const char* fld) const;
|
||||
|
||||
bool insert();
|
||||
bool remove();
|
||||
bool search();
|
||||
bool search(const char* k1, const char* k2, const char* k3 = NULL);
|
||||
|
||||
virtual TObject* dup() const { return new TPaf_record(*this); }
|
||||
virtual bool ok() const { return _table.not_empty(); }
|
||||
|
||||
TPaf_record& operator=(const TPaf_record& rec) { copy(rec); return *this; }
|
||||
TPaf_record(const TPaf_record& rec) { copy(rec); }
|
||||
TPaf_record(const char* table);
|
||||
};
|
||||
|
||||
void TPaf_record::set(const char* fld, const TVariant& var)
|
||||
{
|
||||
CHECK(fld && *fld, "Null field name");
|
||||
|
||||
if (var.is_null())
|
||||
{
|
||||
_fields.remove(fld);
|
||||
}
|
||||
else
|
||||
{
|
||||
TVariant* obj = (TVariant*)_fields.objptr(fld);
|
||||
if (obj != NULL)
|
||||
*obj = var;
|
||||
else
|
||||
_fields.add(fld, new TVariant(var));
|
||||
}
|
||||
}
|
||||
|
||||
void TPaf_record::set(const char* fld, long val)
|
||||
{
|
||||
const TVariant var(val);
|
||||
set(fld, var);
|
||||
}
|
||||
|
||||
void TPaf_record::set(const char* fld, const char* val)
|
||||
{
|
||||
if (val == NULL)
|
||||
set(fld, NULL_VARIANT);
|
||||
else
|
||||
{
|
||||
const TVariant var(val);
|
||||
set(fld, var);
|
||||
}
|
||||
}
|
||||
|
||||
void TPaf_record::set(const char* fld, const TString& val)
|
||||
{
|
||||
const TVariant var(val);
|
||||
set(fld, var);
|
||||
}
|
||||
|
||||
|
||||
void TPaf_record::set(const char* fld, const real& val)
|
||||
{
|
||||
const char* str = val.string(0, 2);
|
||||
set(fld, str);
|
||||
}
|
||||
|
||||
void TPaf_record::set(const char* fld, const TDate& var)
|
||||
{
|
||||
const char* str = var.string(full, '-', full, full, amg_date);
|
||||
set(fld, str);
|
||||
}
|
||||
|
||||
void TPaf_record::set(const char* fld, bool var)
|
||||
{
|
||||
set(fld, var ? "SI" : "NO");
|
||||
}
|
||||
|
||||
|
||||
const TVariant& TPaf_record::get(const char* fld) const
|
||||
{
|
||||
const TVariant* var = (const TVariant*)_fields.objptr(fld);
|
||||
return var ? *var : NULL_VARIANT;
|
||||
}
|
||||
|
||||
const TString& TPaf_record::var2str(const TVariant& var) const
|
||||
{
|
||||
const TString& str = var.as_string();
|
||||
|
||||
bool apici = var.type() == _alfafld;
|
||||
if (apici && str[0] != '0' && real::is_natural(str))
|
||||
apici = false;
|
||||
|
||||
if (!apici)
|
||||
return str;
|
||||
|
||||
TString& tmp = get_tmp_string();
|
||||
tmp = str;
|
||||
for (int a = str.rfind('\''); a >= 0; a--)
|
||||
{
|
||||
if (tmp[a] == '\'')
|
||||
tmp.insert("'", a);
|
||||
}
|
||||
tmp.insert("'", 0);
|
||||
tmp << '\'';
|
||||
return tmp;
|
||||
}
|
||||
|
||||
bool TPaf_record::remove()
|
||||
{
|
||||
TString256 query;
|
||||
query << "DELETE FROM " << _table << " WHERE ";
|
||||
int nkf = 0;
|
||||
FOR_EACH_TOKEN(_key, fld)
|
||||
{
|
||||
const TVariant& var = get(fld);
|
||||
if (!var.is_null())
|
||||
{
|
||||
if (nkf++ > 0)
|
||||
query << " AND ";
|
||||
query << fld << '=' << var2str(var) ;
|
||||
}
|
||||
}
|
||||
CHECKS(nkf >= 2, "Can't remove partial key on table ", (const char*)_table);
|
||||
query << ';';
|
||||
return xvt_sql_execute(_db, query, NULL, 0L) > 0;
|
||||
}
|
||||
|
||||
|
||||
static int paf_search_record(void* jolly, int cols, char** names, char** values)
|
||||
{
|
||||
TPaf_record& rec = *(TPaf_record*)jolly;
|
||||
for (int i = 0; i < cols; i++)
|
||||
rec.set(names[i], values[i]);
|
||||
return 0;
|
||||
}
|
||||
|
||||
bool TPaf_record::search()
|
||||
{
|
||||
CHECKS(_fields.items() >= _key.items(), "Can't search partial key on table ", _table);
|
||||
TString256 query;
|
||||
query << "SELECT * FROM " << _table << " WHERE ";
|
||||
FOR_EACH_TOKEN(_key, fld)
|
||||
{
|
||||
const TVariant& var = get(fld);
|
||||
if (!var.is_null())
|
||||
query << fld << '=' << var2str(var) << " AND ";
|
||||
}
|
||||
query.rtrim(5);
|
||||
query << ';';
|
||||
return xvt_sql_execute(_db, query, paf_search_record, this) == 1;
|
||||
}
|
||||
|
||||
bool TPaf_record::search(const char* k1, const char* k2, const char* k3)
|
||||
{
|
||||
_fields.destroy();
|
||||
|
||||
set(_key.get(0), k1);
|
||||
set(_key.get(1), k2);
|
||||
if (k3 && *k3)
|
||||
set(_key.get(2), k3);
|
||||
|
||||
return search();
|
||||
}
|
||||
|
||||
bool TPaf_record::insert()
|
||||
{
|
||||
CHECKS(_fields.items() > _key.items(), "Can't insert empty record on table ", _table);
|
||||
|
||||
TString query, values;
|
||||
query << "INSERT INTO " << _table << "\n(";
|
||||
FOR_EACH_ASSOC_OBJECT(_fields, obj, fld, itm)
|
||||
{
|
||||
const TVariant& var = get(fld);
|
||||
if (!var.is_null())
|
||||
{
|
||||
query << fld << ',';
|
||||
values << var2str(var) << ',';
|
||||
}
|
||||
}
|
||||
query.rtrim(1); values.rtrim(1);
|
||||
query << ")\nVALUES (" << values << ");";
|
||||
return xvt_sql_execute(_db, query, NULL, 0L) == 1;
|
||||
}
|
||||
|
||||
TPaf_record::TPaf_record(const char* table) : _table(table), _key(15, ',')
|
||||
{
|
||||
_key = ini_get_string("./paf.ini", table, "INDEX_1");
|
||||
if (_key.empty())
|
||||
{
|
||||
TConfig cfg("paf.ini", table);
|
||||
TAssoc_array& fields = cfg.list_variables();
|
||||
FOR_EACH_ASSOC_STRING(fields, obj, key, str)
|
||||
{
|
||||
if (key[2] == 'K')
|
||||
_key.add(key);
|
||||
}
|
||||
}
|
||||
CHECKS(_key.full(), "Invalid primary key for table ", table);
|
||||
}
|
||||
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
// TDoc2Paf
|
||||
/////////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
class TDoc2Paf : public TSkeleton_application
|
||||
{
|
||||
TAnagrafica _cessionario;
|
||||
|
||||
private:
|
||||
int parse_line(const TString& line, TString& var, TString& val) const;
|
||||
void create_table(TScanner& paf, const TString& table);
|
||||
|
||||
protected:
|
||||
const TString& cessionario();
|
||||
const TString& fattura(const TDocumento& doc);
|
||||
|
||||
void elabora(TDocumentoEsteso& doc);
|
||||
void elabora(const TRectype& rec);
|
||||
void elabora(const TDoc_key& key);
|
||||
void elabora(const TFilename& ini);
|
||||
|
||||
public:
|
||||
virtual bool create();
|
||||
virtual bool destroy();
|
||||
virtual void main_loop();
|
||||
};
|
||||
|
||||
const TString& TDoc2Paf::cessionario()
|
||||
{
|
||||
if (!_cessionario.ok())
|
||||
_cessionario.init(LF_NDITTE, prefix().get_codditta());
|
||||
const TString& piva = _cessionario.partita_IVA();
|
||||
return piva.full() ? piva : _cessionario.codice_fiscale();
|
||||
}
|
||||
|
||||
const TString& TDoc2Paf::fattura(const TDocumento& doc)
|
||||
{
|
||||
TString& key = get_tmp_string();
|
||||
key << doc.get_date(DOC_DATADOC).date2ansi() << '/'
|
||||
<< doc.numerazione() << '/' << doc.numero();
|
||||
return key;
|
||||
}
|
||||
|
||||
void TDoc2Paf::elabora(TDocumentoEsteso& doc)
|
||||
{
|
||||
const TFirm& firm = prefix().firm();
|
||||
TString8 prginv; prginv.format("%05d", ini_get_int("./paf.ini", "Main", "PRGINV") + 1);
|
||||
ini_set_string("./paf.ini", "Main", "PRGINV", prginv);
|
||||
|
||||
// <DatiTrassmissione>
|
||||
TPaf_record paf0100f("PAF0100F");
|
||||
paf0100f.set("P1KHFATT", cessionario());
|
||||
paf0100f.set("P1KBFATT", fattura(doc));
|
||||
paf0100f.remove();
|
||||
|
||||
paf0100f.set("P1PAESE", "IT");
|
||||
paf0100f.set("P1CODICE", _cessionario.partita_IVA());
|
||||
paf0100f.set("P1PRGINV", prginv);
|
||||
paf0100f.set("P1FTRASM", "SDI10");
|
||||
|
||||
TString80 tel; tel << firm.get(NDT_PTEL) << firm.get(NDT_TEL);
|
||||
paf0100f.set("P1TELEF", tel);
|
||||
paf0100f.set("P1MAIL", firm.get(NDT_MAIL));
|
||||
paf0100f.insert();
|
||||
// </DatiTrassmissione>
|
||||
|
||||
// <CedentePrestatore>
|
||||
TPaf_record paf0200f("PAF0200F");
|
||||
paf0200f.set("P2KHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf0200f.set("P2KBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf0200f.remove();
|
||||
paf0200f.set("P2PAESE", paf0100f.get("P1PAESE"));
|
||||
paf0200f.set("P2CODICE", _cessionario.partita_IVA());
|
||||
paf0200f.set("P2FISCA", _cessionario.codice_fiscale());
|
||||
if (_cessionario.fisica())
|
||||
{
|
||||
paf0200f.set("P2NOME", _cessionario.nome());
|
||||
paf0200f.set("P2COGN", _cessionario.cognome());
|
||||
}
|
||||
else
|
||||
{
|
||||
paf0200f.set("P2DENOM", _cessionario.ragione_sociale());
|
||||
}
|
||||
paf0200f.set("P2RFISC", "RF01");
|
||||
|
||||
// DatiSede
|
||||
paf0200f.set("P2SINDI", _cessionario.indirizzo_residenza());
|
||||
paf0200f.set("P2SCOMU", _cessionario.comune_residenza());
|
||||
paf0200f.set("P2SPROV", _cessionario.provincia_residenza());
|
||||
paf0200f.set("P2SNAZI", paf0100f.get("P1PAESE"));
|
||||
|
||||
// DatiStabile
|
||||
paf0200f.set("P2OINDI", _cessionario.indirizzo_residenza());
|
||||
paf0200f.set("P2OCOMU", _cessionario.comune_residenza());
|
||||
paf0200f.set("P2OPROV", _cessionario.provincia_residenza());
|
||||
paf0200f.set("P2ONAZI", paf0100f.get("P1PAESE"));
|
||||
|
||||
paf0200f.insert();
|
||||
// </CedentePrestatore>
|
||||
|
||||
// <CessionarioCommittente>
|
||||
TAnagrafica cliente('C', doc.get_long(DOC_CODCF));
|
||||
|
||||
TPaf_record paf0400f("PAF0400F");
|
||||
paf0400f.set("P4KHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf0400f.set("P4KBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf0400f.remove();
|
||||
paf0400f.set("P4PAESE", paf0100f.get("P1PAESE"));
|
||||
paf0400f.set("P4CODICE", cliente.partita_IVA());
|
||||
paf0400f.set("P4FISCA", cliente.codice_fiscale());
|
||||
if (_cessionario.fisica())
|
||||
{
|
||||
paf0400f.set("P4NOME", cliente.nome());
|
||||
paf0400f.set("P4COGN", cliente.cognome());
|
||||
}
|
||||
else
|
||||
{
|
||||
paf0400f.set("P4DENOM", cliente.ragione_sociale());
|
||||
}
|
||||
paf0400f.set("P4RFISC", "RF01");
|
||||
|
||||
// DatiSede
|
||||
paf0400f.set("P4SINDI", cliente.indirizzo_residenza());
|
||||
paf0400f.set("P4SCOMU", cliente.comune_residenza());
|
||||
paf0400f.set("P4SPROV", cliente.provincia_residenza());
|
||||
paf0400f.set("P4SNAZI", "IT");
|
||||
paf0400f.insert();
|
||||
// </CessionarioCommittente>
|
||||
|
||||
// <DatiGenerali>
|
||||
TPaf_record paf0700f("PAF0700F");
|
||||
paf0700f.set("P7KHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf0700f.set("P7KBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf0700f.set("P7TDOC", doc.tipo().codice());
|
||||
paf0700f.set("P7DIVISA", "EUR"); // Aggiungere codice ISO 4217 a tabella divise (%VAL)
|
||||
paf0700f.set("P7DATA", doc.data());
|
||||
paf0700f.set("P7NUME", doc.numero());
|
||||
paf0700f.insert();
|
||||
|
||||
TPaf_record paf2700f("PAF2700F");
|
||||
paf2700f.set("PQKHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf2700f.set("PQKBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf2700f.set("PQITDOC", doc.totale_doc());
|
||||
paf2700f.set("PQCAUS", doc.tipo().descrizione());
|
||||
paf2700f.set("PQART73", true);
|
||||
paf2700f.insert();
|
||||
// </DatiGenerali>
|
||||
|
||||
// <DatiBeniServizi>
|
||||
TPaf_record paf1800f("PAF1800F");
|
||||
paf1800f.set("PIKHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf1800f.set("PIKBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf1800f.remove(); // Cancella tutte le righe documento
|
||||
|
||||
long pinlin = 1;
|
||||
FOR_EACH_PHYSICAL_RDOC(doc, r, rdoc)
|
||||
{
|
||||
paf1800f.set("PINLIN", pinlin++);
|
||||
paf1800f.set("PIDESC", rdoc->get(RDOC_DESCR));
|
||||
if (rdoc->is_merce())
|
||||
{
|
||||
paf1800f.set("PIQTA", rdoc->quantita());
|
||||
paf1800f.set("PIUNMIS", rdoc->get(RDOC_UMQTA));
|
||||
paf1800f.set("PIPREZ", rdoc->prezzo(true, false));
|
||||
paf1800f.set("PIPRZT", rdoc->importo(true, false));
|
||||
const real aliquota = cache().get("%IVA", rdoc->get(RDOC_CODIVA), "R0");
|
||||
paf1800f.set("PIAIVA", aliquota);
|
||||
}
|
||||
paf1800f.insert();
|
||||
}
|
||||
// </DatiBeniServizi>
|
||||
|
||||
// <DatiRiepilogo>
|
||||
TPaf_record paf2200f("PAF2200F");
|
||||
paf2200f.set("PLKHFATT", paf0100f.get("P1KHFATT"));
|
||||
paf2200f.set("PLKBFATT", paf0100f.get("P1KBFATT"));
|
||||
paf2200f.remove(); // Cancella tutte le righe di riepilogo IVA
|
||||
|
||||
TAssoc_array& tiva = doc.tabella_iva(false);
|
||||
FOR_EACH_ASSOC_OBJECT(tiva, obj, key, itm)
|
||||
{
|
||||
const TRiepilogo_iva& riva = *(const TRiepilogo_iva*)itm;
|
||||
const real aliquota = riva.cod_iva().percentuale();
|
||||
paf2200f.set("PLALIVA", aliquota);
|
||||
paf2200f.set("PLIMPO", riva.imponibile());
|
||||
paf2200f.set("PLIMPS", riva.imposta());
|
||||
const char* eiva = doc.get_bool(DOC_LIQDIFF) || doc.get_bool(DOC_IVAXCASSA) ? "E" : "I";
|
||||
paf2200f.set("PLEIVA", eiva);
|
||||
paf2200f.insert();
|
||||
}
|
||||
// </DatiRiepilogo>
|
||||
}
|
||||
|
||||
void TDoc2Paf::elabora(const TRectype& rec)
|
||||
{
|
||||
TDocumentoEsteso doc(rec);
|
||||
elabora(doc);
|
||||
}
|
||||
|
||||
void TDoc2Paf::elabora(const TDoc_key& key)
|
||||
{
|
||||
TRectype rec(LF_DOC);
|
||||
rec.put(DOC_PROVV, key.provv());
|
||||
rec.put(DOC_ANNO, key.anno());
|
||||
rec.put(DOC_CODNUM, key.codnum());
|
||||
rec.put(DOC_NDOC, key.ndoc());
|
||||
elabora(rec);
|
||||
}
|
||||
|
||||
void TDoc2Paf::elabora(const TFilename& ini)
|
||||
{
|
||||
TConfig cfg(ini, "33");
|
||||
const int anno = cfg.get_int(DOC_ANNO);
|
||||
const long ndoc = cfg.get_long(DOC_NDOC);
|
||||
const TFixed_string codnum(cfg.get(DOC_CODNUM)); // lascio sapientemente per ultima la get di una stringa
|
||||
const TDoc_key key(anno, codnum, ndoc);
|
||||
elabora(key);
|
||||
}
|
||||
|
||||
void TDoc2Paf::main_loop()
|
||||
{
|
||||
bool is_batch = false;
|
||||
for (int a = 1; a < argc(); a++)
|
||||
{
|
||||
TFilename ini = argv(a);
|
||||
if (ini.starts_with("-i", true) || ini.starts_with("/i", true))
|
||||
ini.ltrim(2);
|
||||
if (ini.exist())
|
||||
{
|
||||
is_batch = true;
|
||||
elabora(ini);
|
||||
}
|
||||
else
|
||||
{
|
||||
if (ini.find('*') >= 0 || ini.find('?') >= 0)
|
||||
{
|
||||
TString_array f; list_files(ini, f);
|
||||
FOR_EACH_ARRAY_ROW(f, r, row)
|
||||
{
|
||||
ini = *row;
|
||||
if (ini.exist())
|
||||
{
|
||||
is_batch = true;
|
||||
elabora(ini);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (!is_batch)
|
||||
{
|
||||
const char* title = TR("Fatture Pubblica Amministrazione");
|
||||
TArray_sheet sht(-1, 3, 78, -3,
|
||||
title, HR("@1|Anno|Cod.|Numero|Cliente|Ragione Sociale@50"));
|
||||
|
||||
TISAM_recordset clifo_pa("USE 20 SELECT ALLEG=7\nTO TIPOCF=C");
|
||||
const TRecnotype n = clifo_pa.items();
|
||||
if (n > 0)
|
||||
{
|
||||
TProgress_monitor pi(n, title);
|
||||
for (bool okc = clifo_pa.move_first(); okc; okc = clifo_pa.move_next())
|
||||
{
|
||||
if (!pi.addstatus(1))
|
||||
break;
|
||||
|
||||
TISAM_recordset doc_pa("USE 33 KEY 2\nSELECT BETWEEN(STATO,2,5)\nFROM TIPOCF=C CODCF=#CLIENTE\nTO TIPOCF=C CODCF=#CLIENTE");
|
||||
doc_pa.set_var("#CLIENTE", clifo_pa.get(CLI_CODCF));
|
||||
for (bool okd = doc_pa.move_first(); okd; okd = doc_pa.move_next())
|
||||
{
|
||||
const TTipo_documento& td = cached_tipodoc(doc_pa.get(DOC_TIPODOC).as_string());
|
||||
if (!td.is_fattura())
|
||||
continue;
|
||||
TToken_string* row = new TToken_string;
|
||||
row->add(doc_pa.get(DOC_ANNO).as_int(), 1);
|
||||
row->add(doc_pa.get(DOC_CODNUM).as_string());
|
||||
row->add(doc_pa.get(DOC_NDOC).as_int());
|
||||
const long codcf = doc_pa.get(DOC_CODCF).as_int();
|
||||
row->add(codcf);
|
||||
TString8 key; key.format("C|%ld", codcf);
|
||||
row->add(cache().get(LF_CLIFO, key, CLI_RAGSOC));
|
||||
|
||||
sht.add(row);
|
||||
}
|
||||
}
|
||||
}
|
||||
while (sht.run() == K_ENTER)
|
||||
{
|
||||
FOR_EACH_CHECKED_ROW(sht, r, riga)
|
||||
{
|
||||
const int anno = riga->get_int(1);
|
||||
const long ndoc = riga->get_long(3);
|
||||
const TFixed_string codnum(riga->get(2)); // lascio sapientemente per ultima la get di una stringa
|
||||
const TDoc_key key(anno, codnum, ndoc);
|
||||
elabora(key);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
int TDoc2Paf::parse_line(const TString& line, TString& var, TString& val) const
|
||||
{
|
||||
if (line.blank())
|
||||
return 0;
|
||||
|
||||
if (line[0] == '[')
|
||||
{
|
||||
var = line.mid(1);
|
||||
var.rtrim(1);
|
||||
val.cut(0);
|
||||
return 1;
|
||||
}
|
||||
|
||||
const int equal = line.find('=');
|
||||
if (equal < 6)
|
||||
return 0;
|
||||
var = line.left(equal); var.trim();
|
||||
val = line.mid(equal+1); val.trim();
|
||||
return 2;
|
||||
}
|
||||
|
||||
static SLIST_ELT xvt_slist_find_str(SLIST list, const char* str)
|
||||
{
|
||||
SLIST_ELT e = NULL;
|
||||
for (e = xvt_slist_get_first(list); e; e = xvt_slist_get_next(list, e))
|
||||
{
|
||||
const char* val = xvt_slist_get(list, e, NULL);
|
||||
if (xvt_str_compare_ignoring_case(str, val) == 0)
|
||||
break;
|
||||
}
|
||||
return e;
|
||||
}
|
||||
|
||||
void TDoc2Paf::create_table(TScanner& paf, const TString& table)
|
||||
{
|
||||
TString query, var, val;
|
||||
if (xvt_sql_table_exists(_db, table))
|
||||
{
|
||||
SLIST fields = xvt_sql_list_fields(_db, table);
|
||||
while (!paf.eof())
|
||||
{
|
||||
const TString& line = paf.line();
|
||||
const int n = parse_line(line, var, val);
|
||||
if (n <= 0)
|
||||
break;
|
||||
if (n == 1) // paragraph!
|
||||
{
|
||||
paf.push(line);
|
||||
break;
|
||||
}
|
||||
if (var.starts_with("INDEX_"))
|
||||
continue;
|
||||
if (xvt_slist_find_str(fields, var) == NULL)
|
||||
{
|
||||
query.cut(0) << "ALTER TABLE " << table << " ADD COLUMN " << var << ' ' << val << ';';
|
||||
xvt_sql_execute(_db, query, NULL, NULL); // Create table
|
||||
}
|
||||
}
|
||||
xvt_slist_destroy(fields);
|
||||
}
|
||||
else
|
||||
{
|
||||
query << "CREATE TABLE " << table << " (";
|
||||
while (!paf.eof())
|
||||
{
|
||||
const TString& line = paf.line();
|
||||
const int n = parse_line(line, var, val);
|
||||
if (n <= 0)
|
||||
break;
|
||||
if (n == 1)
|
||||
{
|
||||
paf.push(line);
|
||||
break;
|
||||
}
|
||||
if (var.starts_with("INDEX_"))
|
||||
{
|
||||
query.rtrim(1); // toglie ultima ,
|
||||
query << ");";
|
||||
xvt_sql_execute(_db, query, NULL, NULL); // Create table
|
||||
query.cut(0);
|
||||
query << "CREATE UNIQUE INDEX "
|
||||
<< table << "_1 ON " << table
|
||||
<< " (" << val << ");";
|
||||
xvt_sql_execute(_db, query, NULL, NULL); // Create index
|
||||
break;
|
||||
}
|
||||
else
|
||||
{
|
||||
query << "\n " << var << ' ' << val << ',';
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
bool TDoc2Paf::create()
|
||||
{
|
||||
TFilename n = prefix().get_studio(); // base direcotry
|
||||
n.add("sql"); n.add("paf.db");
|
||||
_db = xvt_sql_open(n, user(), "", n.path());
|
||||
if (_db == NULL)
|
||||
return false;
|
||||
|
||||
n = "paf.ini";
|
||||
if (n.exist())
|
||||
{
|
||||
TScanner paf(n);
|
||||
while (!paf.eof())
|
||||
{
|
||||
const TString& p = paf.line();
|
||||
if (p.starts_with("[PAF"))
|
||||
{
|
||||
const TString8 table = p.mid(1, 8);
|
||||
create_table(paf, table);
|
||||
}
|
||||
}
|
||||
}
|
||||
else
|
||||
return cantread_box(n);
|
||||
|
||||
return TSkeleton_application::create();
|
||||
}
|
||||
|
||||
bool TDoc2Paf::destroy()
|
||||
{
|
||||
xvt_sql_close(_db); _db = NULL;
|
||||
return TSkeleton_application::destroy();
|
||||
}
|
||||
|
||||
int pa0100(int argc, char* argv[])
|
||||
{
|
||||
TDoc2Paf d2p;
|
||||
d2p.run(argc, argv, TR("Fatturazione P.A."));
|
||||
return 0;
|
||||
}
|
||||
123
pa/paf.ini
Normal file
123
pa/paf.ini
Normal file
@ -0,0 +1,123 @@
|
||||
[PAF0100F]
|
||||
P1KHFATT = VARCHAR(20)
|
||||
P1KBFATT = VARCHAR(20)
|
||||
P1PAESE = VARCHAR(2)
|
||||
P1CODICE = VARCHAR(28)
|
||||
P1PRGINV = INTEGER
|
||||
P1FTRASM = VARCHAR(5)
|
||||
P1CDEST = VARCHAR(6)
|
||||
P1TELEF = VARCHAR(12)
|
||||
P1MAIL = VARCHAR(256)
|
||||
P1GESTIONE = VARCHAR(1)
|
||||
P1ERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = P1KHFATT,P1KBFATT
|
||||
|
||||
[PAF0200F]
|
||||
P2KHFATT = VARCHAR(20)
|
||||
P2KBFATT = VARCHAR(20)
|
||||
P2PAESE = VARCHAR(2)
|
||||
P2CODICE = VARCHAR(28)
|
||||
P2FISCA = VARCHAR(16)
|
||||
P2DENOM = VARCHAR(80)
|
||||
P2NOME = VARCHAR(60)
|
||||
P2COGN = VARCHAR(60)
|
||||
P2RFISC = VARCHAR(4)
|
||||
|
||||
P2SINDI = VARCHAR(60)
|
||||
P2SNCIV = VARCHAR(8)
|
||||
P2SCAP = VARCHAR(5)
|
||||
P2SCOMU = VARCHAR(60)
|
||||
P2SPROV = VARCHAR(2)
|
||||
P2SNAZI = VARCHAR(2)
|
||||
|
||||
P2OINDI = VARCHAR(60)
|
||||
P2ONCIV = VARCHAR(8)
|
||||
P2OCAP = VARCHAR(5)
|
||||
P2OCOMU = VARCHAR(60)
|
||||
P2OPROV = VARCHAR(2)
|
||||
P2ONAZI = VARCHAR(2)
|
||||
|
||||
P2GESTIONE = VARCHAR(1)
|
||||
P2ERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = P2KHFATT,P2KBFATT
|
||||
|
||||
[PAF0400F]
|
||||
P4KHFATT = VARCHAR(20)
|
||||
P4KBFATT = VARCHAR(20)
|
||||
P4PAESE = VARCHAR(2)
|
||||
P4CODICE = VARCHAR(28)
|
||||
P4FISCA = VARCHAR(16)
|
||||
P4DENOM = VARCHAR(80)
|
||||
P4NOME = VARCHAR(60)
|
||||
P4COGN = VARCHAR(60)
|
||||
P4RFISC = VARCHAR(4)
|
||||
|
||||
P4SINDI = VARCHAR(60)
|
||||
P4SNCIV = VARCHAR(8)
|
||||
P4SCAP = VARCHAR(5)
|
||||
P4SCOMU = VARCHAR(60)
|
||||
P4SPROV = VARCHAR(2)
|
||||
P4SNAZI = VARCHAR(2)
|
||||
|
||||
P4GESTIONE = VARCHAR(1)
|
||||
P4ERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = P4KHFATT,P4KBFATT
|
||||
|
||||
[PAF0700F]
|
||||
P7KHFATT = VARCHAR(20)
|
||||
P7KBFATT = VARCHAR(20)
|
||||
P7TDOC = VARCHAR(4)
|
||||
P7DIVISA = VARCHAR(3)
|
||||
P7DATA = VARCHAR(10)
|
||||
P7NUME = VARCHAR(20)
|
||||
|
||||
P7GESTIONE = VARCHAR(1)
|
||||
P7ERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = P7KHFATT,P7KBFATT
|
||||
|
||||
[PAF1800F]
|
||||
PIKHFATT = VARCHAR(20)
|
||||
PIKBFATT = VARCHAR(20)
|
||||
PINLIN = INTEGER
|
||||
PITCPRES = VARCHAR(2)
|
||||
PIDESC = VARCHAR(100)
|
||||
PIQTA = NUMERIC
|
||||
PIUNMIS = VARCHAR(10)
|
||||
PIPREZ = NUMERIC
|
||||
PIPRZT = NUMERIC
|
||||
PIAIVA = NUMERIC
|
||||
|
||||
PIGESTIONE = VARCHAR(1)
|
||||
PIERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = PIKHFATT,PIKBFATT,PINLIN
|
||||
|
||||
[PAF2200F]
|
||||
PLKHFATT = VARCHAR(20)
|
||||
PLKBFATT = VARCHAR(20)
|
||||
PLALIVA = NUMERIC
|
||||
PLNATU = VARCHAR(2)
|
||||
PLIMPO = NUMERIC
|
||||
PLIMPS = NUMERIC
|
||||
PLEIVA = VARCHAR(1)
|
||||
|
||||
PLGESTIONE = VARCHAR(1)
|
||||
PLERRORE = VARCHAR(5)
|
||||
|
||||
INDEX_1 = PLKHFATT,PLKBFATT,PLALIVA,PLNATU
|
||||
|
||||
[PAF2700F]
|
||||
PQKHFATT = VARCHAR(20)
|
||||
PQKBFATT = VARCHAR(20)
|
||||
PQITDOC = NUMERIC
|
||||
PQARRO = NUMERIC
|
||||
PQCAUS = VARCHAR(200)
|
||||
PQART73 = VARCHAR(2)
|
||||
|
||||
PQGESTIONE = VARCHAR(1)
|
||||
|
||||
INDEX_1 = PQKHFATT,PQKBFATT
|
||||
Loading…
x
Reference in New Issue
Block a user