root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.0 1098

Browse Source 
Files correlati     : ve1.exe
Commento        :

Corretto il calcolo dell'esposto
This commit is contained in:
Alessandro Bonazzi 2021-11-28 20:43:11 +01:00
parent db711b01c9
commit ea91243d93
2 changed files with 25 additions and 47 deletions

70
src/ve/velib07.cpp

@ -731,18 +731,6 @@ bool TDocument_report::msg_riepilogo_iva(TVariant_stack& stack)
return true;
}
void TDocument_report::set_datafido(const TDate& data)
{
_data_fido = data.ok() ? data : today;
TEsercizi_contabili & esc = esercizi();
if (esc.date2esc(_data_fido) == 0)
_data_fido = esc[esc.last()].fine();
}
bool TDocument_report::msg_fido(TVariant_stack& stack)
{
real value;
@ -886,28 +874,19 @@ static TImporto get_importo(const TISAM_recordset& partite, const char* sezione,
static real calcola_esposto_da_saldaconto (const char tipocf, const long codcf, const TDate& datacalc, const int riskdays)
{
//estrae le righe partita relative a pagamenti successivi alla data di rischio (e con tipopag >2,<7)
// //data considerante i giorni di rischio ammessi dall'utonto
TDate data_sbf = datacalc;
TImporto esposto; //importone somma degli importi delle righe del recordset
//estrae le righe partita relative a pagamenti successivi alla data di rischio (e con tipopag >2,<7)
TString query;
query << "USE PART\nSELECT BETWEEN(DATAPAG,#DATASBF,0)&&BETWEEN(TIPOPAG,2,7)\n";
query << "FROM TIPOC=#TIPOCF GRUPPO=0 CONTO=0 SOTTOCONTO=#CODCF ANNO=#ANNO\n";
query << "TO TIPOC=#TIPOCF GRUPPO=0 CONTO=0 SOTTOCONTO=#CODCF";
query << "USE PART\n";
query << "FROM " << PART_TIPOCF << "=" << "\"" << tipocf << "\"" << PART_GRUPPO << "=0" << PART_CONTO << "=0" << PART_SOTTOCONTO << "=" << codcf << "\n";
query << "TO " << PART_TIPOCF << "=" << "\"" << tipocf << "\"" << PART_GRUPPO << "=0" << PART_CONTO << "=0" << PART_SOTTOCONTO << "=" << codcf << "\n";
TISAM_recordset partite(query);
TString4 str_tipocf = tipocf;
partite.set_var("#TIPOCF", TVariant(str_tipocf));
partite.set_var("#CODCF", codcf);
partite.set_var("#DATACALC", datacalc);
//data considerante i giorni di rischio ammessi dall'utonto
TDate data_sbf = datacalc;
data_sbf -= riskdays;
partite.set_var("#DATASBF", data_sbf); //data salvo buon fine
partite.set_var("#ANNO", TVariant((long)data_sbf.year()));
//importone somma degli importi delle righe del recordset
TImporto importone_esposto;
data_sbf -= riskdays;
for (bool ok = partite.move_first(); ok; ok = partite.move_next())
{
TImporto importo_riga;
@ -915,33 +894,32 @@ static real calcola_esposto_da_saldaconto (const char tipocf, const long codcf,
//fatture,note di credito,pagamenti
TImporto importo_partita = get_importo(partite, PART_SEZ, PART_IMPORTO);
importo_riga += importo_partita;
const tipo_movimento tipo_mov = (tipo_movimento) partite.get_int(PART_TIPOMOV);
const tipo_pagamento tipo_pag = (tipo_pagamento) partite.get_int(PART_TIPOPAG);
const TDate datapag = partite.get_date(PART_DATAPAG);
//pagamenti (tm=3), insoluti (tm=5), pagamenti insoluti(tm=6)
if (partite.get(PART_TIPOMOV).as_int() >= tm_pagamento)
//pagamenti (tm=3), insoluti (tm=5), pagamenti insoluti(tm=6)
if ((tipo_mov >= tm_pagamento) &&
(tipo_pag >= tp_tratta && tipo_pag <= tp_rid) &&
((datapag >= data_sbf) && (datapag <= datacalc)))
{
TImporto importo_abbuono = get_importo(partite, PART_SEZABB, PART_ABBUONI);
importo_riga += importo_abbuono;
//pagamenti in valuta
if (!partite.get(PART_CODVAL).is_empty())
if (!partite.get(PART_CODVAL).is_empty()) // pagamenti in valuta
{
TImporto importo_diff_cambio = get_importo(partite, PART_SEZDIFCAM, PART_DIFFCAM);
importo_riga += importo_diff_cambio;
}
}
//somma importi presenti sulla riga partita (fatture, pagamenti, insoluti, pagamenti insoluti)
importone_esposto += importo_riga;
//somma importi presenti sulla riga partita (fatture, pagamenti, insoluti, pagamenti insoluti)
esposto += importo_riga;
}
}
//la normalizzazione del totale delle partite va fatta in base al fatto che si parli di 'C'liente o 'F'ornitore
const char sezione_finale = (tipocf == 'C') ? 'A' : 'D';
importone_esposto.normalize(sezione_finale);
//valore in output
real esposto;
esposto += importone_esposto.valore();
return esposto;
esposto.normalize(sezione_finale);
return esposto.valore();
}

2
src/ve/velib07.h

@ -127,7 +127,7 @@ protected:
public:
virtual bool set_recordset(const TString& query);
virtual bool set_recordset(TRecordset * set) { return TReport::set_recordset(set);}
void set_datafido(const TDate& data);
void set_datafido(const TDate& data) { _data_fido = data.ok() ? data : today; }
bool load(const char* name);
TDocument_report();
};