Patch level : 10 hardy conversione
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21400 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
c15c0b931a
commit
e7afacec30
@ -517,13 +517,14 @@ bool THardy_pcon::trasferisci_sottoconti()
|
||||
{
|
||||
// costruisco la chiave gr.co.sc
|
||||
const TString16 key = get_str("IdConto");
|
||||
const int gr = atoi(key.mid(1,2));
|
||||
const int co = atoi(key.mid(3,2));
|
||||
const int so = atoi(key.mid(5,3));
|
||||
|
||||
int gr, co;
|
||||
long so;
|
||||
gr = 0;
|
||||
co = 0;
|
||||
so = 0;
|
||||
hd_key2conto(key, gr, co,so);
|
||||
rec_pcon.zero();
|
||||
rec_pcon.put(PCN_GRUPPO, gr);
|
||||
|
||||
if ((gr != 0) && (co != 0) && (so!= 0))
|
||||
{
|
||||
if (esclusi.find(key.mid(1,2))>=0)
|
||||
@ -817,9 +818,12 @@ bool THardy_fornitori::trasferisci()
|
||||
|
||||
// contropartita
|
||||
const TString16 key = get_str("IdContropartita");
|
||||
const int gr = atoi(key.mid(1,2));
|
||||
const int co = atoi(key.mid(3,2));
|
||||
const int so = atoi(key.mid(5,3));
|
||||
int gr, co;
|
||||
long so;
|
||||
gr = 0;
|
||||
co = 0;
|
||||
so = 0;
|
||||
hd_key2conto(key, gr, co, so);
|
||||
rec.put(CLI_GRUPPORIC, gr);
|
||||
rec.put(CLI_CONTORIC, co);
|
||||
rec.put(CLI_SOTTOCRIC, so);
|
||||
|
||||
@ -366,6 +366,8 @@ DATAPRZSTO =
|
||||
// conversione valute per listini
|
||||
[IdDivisa]
|
||||
006=EUR
|
||||
001=
|
||||
002=
|
||||
|
||||
// contratti
|
||||
[CONTRATTI]
|
||||
@ -489,7 +491,7 @@ ANNOIVA =
|
||||
REG =
|
||||
PROTIVA =
|
||||
UPROTIVA =
|
||||
CODVAL = IdDivisa
|
||||
CODVAL = _TRADUCI,IdDivisa
|
||||
DATACAM = DataCambio
|
||||
CAMBIO = Cambio
|
||||
REGST =
|
||||
@ -548,8 +550,8 @@ ANNOES = Anno
|
||||
NUMREG =
|
||||
NUMRIG =
|
||||
CODIVA = IdIva
|
||||
IMPONIBILE=
|
||||
IMPOSTA =
|
||||
IMPONIBILE=Imponibile
|
||||
IMPOSTA =Imposta
|
||||
TIPODET =
|
||||
TIPOCR =
|
||||
INTRA =
|
||||
@ -569,6 +571,7 @@ CLI_GRUPPO = 4
|
||||
CLI_CONTO = 101
|
||||
FOR_GRUPPO = 5
|
||||
FOR_CONTO = 600
|
||||
GRUPPI_MOV = 7|8
|
||||
|
||||
// parametri generali della maschera (dns user password)
|
||||
[Main]
|
||||
|
||||
269
ha/hacnv200.cpp
269
ha/hacnv200.cpp
@ -28,70 +28,32 @@ class THardy_movimenti : public THardy_transfer
|
||||
TDate _dadata, _adata;
|
||||
TConfig* _conf;
|
||||
long _kmovcont;
|
||||
TArray* _righeiva;
|
||||
TArray* _righecont;
|
||||
|
||||
protected:
|
||||
bool trasferisci_righe();
|
||||
bool trasferisci_righeiva();
|
||||
bool scrivi_righe();
|
||||
bool scrivi_righecont();
|
||||
bool test_movcont();
|
||||
bool conto_is_costoricavo(const int gr);
|
||||
bool test_moviva();
|
||||
void conto2campo(const TString& hd_tipoc, const TString& hd_key, TString4& tipoc, int& gr, int& co, long& so);
|
||||
|
||||
public:
|
||||
virtual bool trasferisci();
|
||||
THardy_movimenti(const int anno, const TDate dadata, const TDate adata);
|
||||
};
|
||||
|
||||
bool THardy_movimenti::trasferisci_righeiva()
|
||||
void THardy_movimenti::conto2campo(const TString& hd_tipoc, const TString& hd_key, TString4& tipoc, int& gr, int& co, long& so)
|
||||
{
|
||||
TString_array lista_campi_righeiva;
|
||||
TConfig& ini = config();
|
||||
ini.list_variables(lista_campi_righeiva, true, "RMOVIVA", true);
|
||||
TString query;
|
||||
query << query_header();
|
||||
query << "SELECT * "
|
||||
"FROM dbo.MovIvaT "
|
||||
"WHERE KMovconT=";
|
||||
query << _kmovcont;
|
||||
TODBC_recordset recset(query);
|
||||
bool is_iva = (recset.items() > 0);
|
||||
if (is_iva)
|
||||
{
|
||||
bool ok=recset.move_first();
|
||||
if (ok)
|
||||
{
|
||||
// aggiorna_testata movimento già scritta su ini con i nuovi dati di testata
|
||||
}
|
||||
// aggiungo le righe iva
|
||||
long kregivat = recset.get("KRegivaT").as_int();
|
||||
TString query_righe;
|
||||
query_righe << query_header();
|
||||
query_righe << "SELECT * "
|
||||
"FROM dbo.MovIva "
|
||||
"WHERE KRegivaT=";
|
||||
query_righe << kregivat;
|
||||
TODBC_recordset recset_righe(query_righe);
|
||||
TString paragraph;
|
||||
int nrigac = 1;
|
||||
for (bool ok=recset_righe.move_first();ok;ok=recset_righe.move_next())
|
||||
{
|
||||
paragraph.format("%d,%d",LF_RMOVIVA,nrigac++);
|
||||
_conf->set_paragraph(paragraph);
|
||||
aggiorna_ini(*_conf, lista_campi_righeiva);
|
||||
|
||||
// calcolo dei campi non importabili direttamente
|
||||
TString4 sezione = "D";
|
||||
TImporto imponibile(sezione[0], recset_righe.get("Imponibile").as_real());
|
||||
TImporto imposta(sezione[0], recset_righe.get("Imposta").as_real());
|
||||
_conf->set(RMI_IMPONIBILE, imponibile.valore().string(0,2)) ;
|
||||
_conf->set(RMI_IMPOSTA, imposta.valore().string(0,2));
|
||||
const TString& key = recset_righe.get("IdConto").as_string();
|
||||
TString4 tipoc = recset_righe.get("IdContoTp").as_string();
|
||||
const char tipocc = tipoc[0];
|
||||
int gr, co;
|
||||
long so;
|
||||
char tipocc = hd_tipoc[0];
|
||||
switch (tipocc)
|
||||
{
|
||||
case 'S':
|
||||
{
|
||||
tipoc = " ";
|
||||
gr = atoi(key.mid(1,2));
|
||||
co = atoi(key.mid(3,2));
|
||||
so = atoi(key.mid(5,3));
|
||||
hd_key2conto(hd_key, gr, co, so);
|
||||
}
|
||||
break;
|
||||
case 'C':
|
||||
@ -99,7 +61,7 @@ bool THardy_movimenti::trasferisci_righeiva()
|
||||
tipoc = "C";
|
||||
gr = ini.get_int("CLI_GRUPPO", "Mastri");
|
||||
co = ini.get_int("CLI_CONTO", "Mastri");
|
||||
so = hd_key2cli(key);
|
||||
so = hd_key2cli(hd_key);
|
||||
}
|
||||
break;
|
||||
case 'F':
|
||||
@ -107,23 +69,92 @@ bool THardy_movimenti::trasferisci_righeiva()
|
||||
tipoc = "F";
|
||||
gr = ini.get_int("FOR_GRUPPO", "Mastri");
|
||||
co = ini.get_int("FOR_CONTO", "Mastri");
|
||||
so = hd_key2forn(key);
|
||||
so = hd_key2forn(hd_key);
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
_conf->set(RMI_TIPOC, tipoc);
|
||||
_conf->set(RMI_GRUPPO, gr);
|
||||
_conf->set(RMI_CONTO, co);
|
||||
_conf->set(RMI_SOTTOCONTO, so);
|
||||
}
|
||||
}
|
||||
return is_iva;
|
||||
}
|
||||
|
||||
bool THardy_movimenti::conto_is_costoricavo(const int gr)
|
||||
{
|
||||
TConfig& ini = config();
|
||||
const int costi = ini.get_int("COSTI_GRUPPO", "Mastri");
|
||||
const int ricavi = ini.get_int("RICAVI_GRUPPO", "Mastri");
|
||||
return ((gr == costi) || (gr == ricavi));
|
||||
}
|
||||
|
||||
bool THardy_movimenti::trasferisci_righe()
|
||||
bool THardy_movimenti::test_moviva()
|
||||
{
|
||||
// verifico se è un movimento iva: esiste un record in MovIvaT
|
||||
TString query;
|
||||
query << query_header();
|
||||
query << "SELECT * "
|
||||
"FROM dbo.MovIvaT "
|
||||
"WHERE KMovconT=";
|
||||
query << _kmovcont;
|
||||
TODBC_recordset recset(query);
|
||||
long kregivat = -1;
|
||||
if (recset.items() > 0)
|
||||
{
|
||||
bool ok=recset.move_first();
|
||||
if (ok)
|
||||
{
|
||||
kregivat = recset.get("KRegivaT").as_int();
|
||||
// aggiorna_testata movimento già scritta su ini con i nuovi dati di testata
|
||||
const TString& key = recset.get("IdConto").as_string();
|
||||
TString4 hdtipoc = recset.get("IdContoTp").as_string();
|
||||
TString4 tipoc = " ";
|
||||
int gr, co;
|
||||
long so;
|
||||
gr = 0;
|
||||
co = 0;
|
||||
so = 0;
|
||||
conto2campo(hdtipoc, key, tipoc, gr, co, so);
|
||||
_conf->set(MOV_TIPO, tipoc);
|
||||
_conf->set(MOV_CODCF, so);
|
||||
real totdoc = recset.get("TotDocumento").as_real();
|
||||
_conf->set(MOV_TOTDOC, totdoc.string(0,2));
|
||||
}
|
||||
}
|
||||
// leggo le righe iva e costrisco array corrispondente
|
||||
TString_array lista_campi_righeiva;
|
||||
TConfig& ini = config();
|
||||
ini.list_variables(lista_campi_righeiva, true, "RMOVIVA", true);
|
||||
TString query_righe;
|
||||
query_righe << query_header();
|
||||
query_righe << "SELECT * "
|
||||
"FROM dbo.MovIva "
|
||||
"WHERE KRegivaT=";
|
||||
query_righe << kregivat;
|
||||
TODBC_recordset recset_righe(query_righe);
|
||||
_righeiva->destroy();
|
||||
TLocalisamfile rmoviva(LF_RMOVIVA);
|
||||
TRectype& rec_rmoviva = rmoviva.curr();
|
||||
for (bool ok=recset_righe.move_first();ok;ok=recset_righe.move_next())
|
||||
{
|
||||
aggiorna_record(rec_rmoviva, lista_campi_righeiva);
|
||||
const TString& key = recset_righe.get("IdConto").as_string();
|
||||
TString4 hdtipoc = recset_righe.get("IdContoTp").as_string();
|
||||
TString4 tipoc;
|
||||
tipoc = " ";
|
||||
int gr, co;
|
||||
long so;
|
||||
gr = 0;
|
||||
co = 0;
|
||||
so = 0;
|
||||
conto2campo(hdtipoc, key, tipoc, gr, co, so);
|
||||
rec_rmoviva.put(RMI_TIPOC, tipoc);
|
||||
rec_rmoviva.put(RMI_GRUPPO, gr);
|
||||
rec_rmoviva.put(RMI_CONTO, co);
|
||||
rec_rmoviva.put(RMI_SOTTOCONTO, so);
|
||||
_righeiva->add(new TObject(rec_rmoviva));
|
||||
}
|
||||
return (kregivat > 0);
|
||||
}
|
||||
|
||||
bool THardy_movimenti::test_movcont()
|
||||
{
|
||||
TString_array lista_campi_righe;
|
||||
TConfig& ini = config();
|
||||
@ -135,61 +166,68 @@ bool THardy_movimenti::trasferisci_righe()
|
||||
"WHERE KMovconT=";
|
||||
query_righe << _kmovcont;
|
||||
TODBC_recordset recset_righe(query_righe);
|
||||
TString paragraph;
|
||||
int nrigac = 1;
|
||||
_righecont->destroy();
|
||||
TLocalisamfile rmov(LF_RMOV);
|
||||
TRectype& rec_rmov = rmov.curr();
|
||||
for (bool ok=recset_righe.move_first();ok;ok=recset_righe.move_next())
|
||||
{
|
||||
paragraph.format("%d,%d",LF_RMOV,nrigac++);
|
||||
_conf->set_paragraph(paragraph);
|
||||
aggiorna_ini(*_conf, lista_campi_righe);
|
||||
|
||||
// calcolo dei campi non importabili direttamente
|
||||
TString4 sezione = "D";
|
||||
TImporto imp_dare(sezione[0], recset_righe.get("Dare").as_real());
|
||||
TImporto imp_avere(sezione[0], recset_righe.get("Avere").as_real());
|
||||
if (imp_dare.is_zero())
|
||||
sezione = "A";
|
||||
_conf->set(RMV_SEZIONE, sezione);
|
||||
_conf->set(RMV_IMPORTO, (imp_avere.is_zero() ? imp_dare.valore().string(0,2) : imp_avere.valore().string(0,2)));
|
||||
aggiorna_record(rec_rmov, lista_campi_righe);
|
||||
const TString& key = recset_righe.get("IdConto").as_string();
|
||||
TString4 tipoc = recset_righe.get("IdContoTp").as_string();
|
||||
const char tipocc = tipoc[0];
|
||||
TString4 hdtipoc = recset_righe.get("IdContoTp").as_string();
|
||||
TString4 tipoc;
|
||||
tipoc = " ";
|
||||
int gr, co;
|
||||
long so;
|
||||
switch (tipocc)
|
||||
gr = 0;
|
||||
co = 0;
|
||||
so = 0;
|
||||
conto2campo(hdtipoc, key, tipoc, gr, co, so);
|
||||
TString4 sezione = "D";
|
||||
real imp_dare = recset_righe.get("Dare").as_real();
|
||||
real imp_avere = recset_righe.get("Avere").as_real();
|
||||
if (imp_dare.is_zero())
|
||||
sezione = "A";
|
||||
rec_rmov.put(RMV_SEZIONE, sezione);
|
||||
rec_rmov.put(RMV_IMPORTO, (imp_avere.is_zero() ? imp_dare : imp_avere));
|
||||
rec_rmov.put(RMV_TIPOC, tipoc);
|
||||
rec_rmov.put(RMV_GRUPPO, gr);
|
||||
rec_rmov.put(RMV_CONTO, co);
|
||||
rec_rmov.put(RMV_SOTTOCONTO, so);
|
||||
_righecont->add(new TObject(rec_rmov));
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
bool THardy_movimenti::scrivi_righecont()
|
||||
{
|
||||
return true;
|
||||
}
|
||||
bool THardy_movimenti::scrivi_righe()
|
||||
{
|
||||
TConfig& ini = config();
|
||||
TToken_string gruppi_mov = ini.get("GRUPPI_MOV", "Mastri");
|
||||
// se è un movimento iva metto in atto il meccanismo di ricerca per assegnare le aliquote ai conti
|
||||
if (_righeiva->items()>0)
|
||||
{
|
||||
case 'S':
|
||||
// primo passo: scartare le righe contabili con gruppi non presenti nella lista GRUPPI_MOV
|
||||
for (int i=0;i<_righecont->items();i++)
|
||||
{
|
||||
tipoc = " ";
|
||||
gr = atoi(key.mid(1,2));
|
||||
co = atoi(key.mid(3,2));
|
||||
so = atoi(key.mid(5,3));
|
||||
TRectype* rec_rmov = (TRectype*)_righecont->objptr(i);
|
||||
const char* gruppo = rec_rmov->get(RMV_GRUPPO);
|
||||
if (!gruppi_mov.find(gruppo))
|
||||
_righecont->remove(i);
|
||||
}
|
||||
break;
|
||||
case 'C':
|
||||
// secondo passo: per ogni riga iva cerco importo uguale in righe contabili,
|
||||
// se lo trovo assegno quel codice iva il conto contabile trovato e cancello la riga iva
|
||||
for (int i=0;i<_righeiva->items();i++)
|
||||
{
|
||||
tipoc = "C";
|
||||
gr = ini.get_int("CLI_GRUPPO", "Mastri");
|
||||
co = ini.get_int("CLI_CONTO", "Mastri");
|
||||
so = hd_key2cli(key);
|
||||
TRectype* rec_rmoviva = (TRectype*)_righeiva->objptr(i);
|
||||
real imponibile = rec_rmoviva->get(RMI_IMPONIBILE);
|
||||
}
|
||||
break;
|
||||
case 'F':
|
||||
{
|
||||
tipoc = "F";
|
||||
gr = ini.get_int("FOR_GRUPPO", "Mastri");
|
||||
co = ini.get_int("FOR_CONTO", "Mastri");
|
||||
so = hd_key2forn(key);
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
_conf->set(RMV_TIPOC, tipoc);
|
||||
_conf->set(RMV_GRUPPO, gr);
|
||||
_conf->set(RMV_CONTO, co);
|
||||
_conf->set(RMV_SOTTOCONTO, so);
|
||||
|
||||
}
|
||||
// scrivo su ini le righe contabili rimaste (tutte se il mov non è iva)
|
||||
scrivi_righecont();
|
||||
return true;
|
||||
}
|
||||
|
||||
@ -232,7 +270,7 @@ bool THardy_movimenti::trasferisci()
|
||||
THardy_iterator hi(this);
|
||||
while (++hi)
|
||||
{
|
||||
_kmovcont = recset.get("KMovconT").as_int();
|
||||
_kmovcont = recset.get("KMovconT").as_int(); // numero movimento testata
|
||||
if (_conf != NULL)
|
||||
delete _conf;
|
||||
_conf = NULL;
|
||||
@ -248,11 +286,22 @@ bool THardy_movimenti::trasferisci()
|
||||
paragraph.format("%d",LF_MOV);
|
||||
_conf->set_paragraph(paragraph); // testata movimento
|
||||
aggiorna_ini(*_conf, lista_campi);
|
||||
// righe movimento
|
||||
trasferisci_righe();
|
||||
bool iva = trasferisci_righeiva();
|
||||
// verifica se è un mov. iva e nel caso aggiorna testata e array righe iva
|
||||
bool iva = test_moviva();
|
||||
// legge righe contabili e aggiorna array righe cont.
|
||||
test_movcont();
|
||||
// scrive RMOV e /o RMOVIVA a partire da array righe letti da db hardy
|
||||
bool ok = scrivi_righe();
|
||||
TString msg;
|
||||
msg << (iva ? TR("Movimento contabile "): TR("Movimento iva ")) << _kmovcont << " generato nel file " << temp;
|
||||
if (ok)
|
||||
msg << (iva ? TR("Movimento iva "): TR("Movimento contabile ")) << _kmovcont << " generato nel file " << temp;
|
||||
else
|
||||
{
|
||||
ntran--;
|
||||
if (temp.exist())
|
||||
temp.fremove();
|
||||
msg << (iva ? TR("Il movimento iva "): TR("Il movimento contabile ")) << _kmovcont << " ha generato un errore, non è stato convertito ";
|
||||
}
|
||||
log(msg);
|
||||
}
|
||||
if (_conf != NULL)
|
||||
|
||||
@ -450,3 +450,11 @@ long hd_key2forn(const TString& key)
|
||||
const long codcf = atol(key.mid(3,6));
|
||||
return codcf;
|
||||
}
|
||||
|
||||
// determina tipoc, gruppo, conto e sottoconto a partire da tipoconto e idconto hardy
|
||||
void hd_key2conto(const TString& key, int& gr, int& co, long& so)
|
||||
{
|
||||
gr = atoi(key.mid(1,2));
|
||||
co = atoi(key.mid(3,2));
|
||||
so = atoi(key.mid(5,3));
|
||||
}
|
||||
|
||||
@ -220,3 +220,4 @@ const TString& hd_format_date8(const TDate& data);
|
||||
const TString& hd_format_date6(const TDate& data);
|
||||
long hd_key2cli(const TString& key);
|
||||
long hd_key2forn(const TString& key);
|
||||
void hd_key2conto(const TString& key, int& gr, int& co, long& so);
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user