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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Pharmatex - PD6292 previsione incassi e pagamenti

Calcolo pagamenti e note di credito non assegnate


git-svn-id: svn://10.65.10.50/trunk@20564 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2010-06-09 17:35:30 +00:00
parent 549c365808
commit 60cc31fd8c
1 changed files with 112 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
ps/pd6292100.cpp
View File

@ -101,6 +101,7 @@ class TProspettoScadenze : public TPrintapp
int _gcr, // Giorni per Calcolo Rischio (valido solo per stampa clienti)
_sfasce,
_nsfasce;
TDate _unsdscd;
real _unsnc,_uns, _unsesp; // Unassigned per partita.
TArray _conti_cf, // array per conti mastro
_t, // Array per i totali
@ -136,6 +137,7 @@ public:
int calc_last_column();
void update_totals(bool what, real& esp, real s[NUMERO_FASCE], real ns[NUMERO_FASCE]);
void compute_antic(TPartita& p, const TDate & datalim);
void compute_unassigned(TPartita& p, const TDate & datalim);
void compute_all(TPartita& p, TBill& bill);
void print_real(TString& dest, const real& num);
@ -191,11 +193,64 @@ void TProspettoScadenze::update_totals(bool what, real& esp,
ll->_es += esp;
}
void TProspettoScadenze::compute_antic(TPartita& p, const TDate & datalim)
{
real s[NUMERO_FASCE];
real ns[NUMERO_FASCE];
for (int r = p.last(); r > 0; r = p.pred(r)) // Browse all rows (partite)
{
const TRiga_partite& rp = p.riga(r);
const char * field = (_stvaluta && rp.in_valuta() ? PART_IMPORTOVAL : PART_IMPORTO);
const TDate & d = rp.get_date(PART_DATAPAG);
if (d > _limscad)
{
if (_nsinfasce)
{
for (int i = _nsfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_ns_date[i];
if (limdate.ok() && d > limdate)
{
ns[i] -= rp.get_real(field);
break;
}
}
}
else
ns[0] += rp.get_real(field);
}
else
{
if (_sinfasce)
{
for (int i = _sfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_s_date[i];
if (limdate.ok() && d <= limdate)
{
s[i] += rp.get_real(field);
break;
}
}
}
else
s[0] += rp.get_real(field);
}
}
real esposto;
update_totals(0, esposto, s, ns); // Singolo...
update_totals(1, esposto, s, ns); // ...Generale
}
void TProspettoScadenze::compute_unassigned(TPartita& p, const TDate & datalim)
{
TRecord_array& ra = p.unassigned();
_uns = _unsnc = _unsesp = ZERO;
_unsdscd = datalim;
for (int r = ra.last_row(); r > 0; r = ra.pred_row(r))
{
const TRectype& rec = ra.row(r);
@ -205,6 +260,7 @@ void TProspettoScadenze::compute_unassigned(TPartita& p, const TDate & datalim)
if ((datascad <= datalim))
{
_unsdscd = datascad;
if (sum.get_int(PART_TIPOMOV) == 2) // Is it a credit note ?
_unsnc += rec.get_real(field);
else
@ -297,7 +353,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
if (prima_riga_pagamento > -1 && prima_riga_pagamento == pp)
data_pag = d; // Se e' il primo pagamento(in ordine di data) di questa rata
// prende la data di scadenza relativa.
if (data_pag > _limbf) // && data_pag <= _limscad)
if (data_pag > _limbf && data_pag <= _limscad)
bf += TImporto(sez,pg.get_real(field));
}
}
@ -327,6 +383,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
{
real gap = (_unsnc > rscd ? rscd : _unsnc);
rscd -= gap;
res -= gap;
_unsnc -= gap;
}
if (rscd == ZERO) // Se le scadenze sono a zero, vuol dire che sono state stornate
@ -368,9 +425,8 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
s[0] += res;
}
residuo += res;
bool sbf;
TImporto esp = rs.esposto(_stvaluta, _limscad, _limbf, sbf);
esposto += esp.valore();
bf.normalize(pag_sez);
esposto += bf.valore();
}
}
@ -475,6 +531,58 @@ bool TProspettoScadenze::preprocess_page(int file, int counter)
// Now performing fulkrum...
compute_all(p, bill);
}
else
{
compute_unassigned(p, _limbf);
real residuo;
real s[NUMERO_FASCE];
real ns[NUMERO_FASCE];
real esposto;
const TDate d(_unsdscd);
real res = - _uns - _unsnc;
if (d > _limscad)
{
if (_nsinfasce)
{
for (int i = _nsfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_ns_date[i];
if (limdate.ok() && d > limdate)
{
ns[i] += res;
break;
}
}
}
else
ns[0] += res;
}
else
{
if (_sinfasce)
{
for (int i = _sfasce - 1; i >= 0; i--)
{
const TDate & limdate = (TDate&)_s_date[i];
if (limdate.ok() && d <= limdate)
{
s[i] += res;
break;
}
}
}
else
s[0] += res;
}
residuo += res;
esposto = _unsesp;
update_totals(0, esposto, s, ns); // Singolo...
update_totals(1, esposto, s, ns); // ...Generale
}
current_cursor()->repos(); // Very, very necessary...
}
}