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

Patch level : 12.0 1066

Browse Source 
Files correlati     : ef0.exe
Commento        :

Il programma di disposizionii e pagamenti dava un errore quando doveva creare un effetto dallo scadenziario
This commit is contained in:
Alessandro Bonazzi 2021-06-30 09:49:48 +02:00
parent 0675301082
commit a1288069f8
1 changed files with 21 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/ef/ef0a00.cpp
View File

@ -92,14 +92,14 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
const bool valuta = scad.in_valuta();
const char tipocf = scad.get_char(SCAD_TIPOCF);
TImporto importo = scad.residuo(TRUE);
TImporto importo = scad.residuo(true);
importo.normalize(tipocf == 'C' ? 'D' : 'A');
impres = importo.valore();
imppag = ZERO;
accsal = 'A';
rdist = reff = 0;
partially_unassigned = FALSE;
partially_unassigned = false;
// Contolla se ci sono pagamenti non assegnati da gestire
const TRiga_partite& fattura = scad.riga();
@ -120,7 +120,7 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
{
if (!fattura.rata(r).chiusa())
{
TImporto res = fattura.rata(r).residuo(TRUE);
TImporto res = fattura.rata(r).residuo(true);
tot_unassigned -= res.valore();
if (tot_unassigned <= ZERO)
break;
@ -133,7 +133,7 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
impres = ZERO;
else
impres -= tot_unassigned;
partially_unassigned = TRUE;
partially_unassigned = true;
}
}
@ -151,7 +151,7 @@ bool TPE_mask::calc_residual(const TRiga_scadenze& scad,
expr << '(' << LF_EFFETTI << "->" << EFF_EFFCONT << "!=\"X\")&&";
expr << '(' << LF_EFFETTI << "->" << EFF_TIPOCF << "==\"" << tipocf << "\")&&";
expr << '(' << LF_EFFETTI << "->" << EFF_CODCF << "==\"" << codcf << "\")";
cur.setfilter(expr, TRUE);
cur.setfilter(expr, true);
const long items = cur.items();
if (items > 0L)
{
@ -407,7 +407,7 @@ bool TPE_mask::fill_rate()
{
TRectype& partita = partite.curr();
TProgind pi(items, "Caricamento partite aperte", TRUE, TRUE);
TProgind pi(items, "Caricamento partite aperte", true, true);
long last_cf = 0;
int last_year = 0;
@ -604,7 +604,8 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf, co
TString16 codice; codice << tipocf << '|' << codcf;
const bool ragg = !cache().get(LF_CFVEN, codice, CFV_RAGGEFF).blank();
TEffetto* neweff = NULL;
TEffetto* neweff = nullptr;
if (ragg)
{
for (int i = 0; i < dist.items(); i++)
@ -633,7 +634,7 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf, co
}
}
}
if (neweff == NULL)
if (neweff == nullptr)
{
neweff = new TEffetto;
dist.righe().add(neweff);
@ -648,7 +649,7 @@ TRectype& TPE_mask::new_row_effetto(TDistinta& dist, char tipocf, long codcf, co
neweff->put(EFF_CONTSEP, contsep);
}
rigaeff = neweff->rows_r()+1;
return neweff->row_r(rigaeff, TRUE);
return neweff->row_r(rigaeff, true);
}
bool TPE_mask::check_bank(TEffetto& effetto, TLog_report& log) const
@ -782,12 +783,12 @@ void TPE_mask::save_rate()
const TRectype& mov = cache().get(LF_MOV, part.get(PART_NREG));
const TString cig = row->get(cid2index(F_CIG));
const TString16 contsep = mov.get(MOV_CONTSEP);
TEffetto& eff = distinta[rigadist - 1];
if (rigaeff <= 0)
{
const char tipocf = get(F_TIPOCF)[0];
const long codcf = row->get_long(cid2index(F_CODCF));
TRectype& reff = new_row_effetto(distinta, tipocf, codcf, cup, cig, contsep, datapag, rigadist, rigaeff);
reff.put(REFF_ANNO, row->get(cid2index(F_ANNO)));
@ -799,9 +800,14 @@ void TPE_mask::save_rate()
reff.put(REFF_DATAFATT, part.get(PART_DATADOC));
reff.put(REFF_IMPFATT, part.get(PART_IMPORTO));
TEffetto& eff = distinta[rigadist - 1];
eff.put(EFF_DSCVAL, row->get(sheet.cid2index(F_VALBEN)));
eff.put(EFF_TIPOPAG, tipopag);
}
TEffetto& eff = distinta[rigadist - 1];
if (sheet.cell_enabled(r, cid2index(F_IBANAPP)))
{
eff.put(EFF_CODABI, row->get(cid2index(F_ABIAPP)));
@ -994,7 +1000,7 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
disable(F_DIST);
disable(DLG_NEWREC);
set_focus_field(F_ABI);
_is_new = TRUE;
_is_new = true;
_spork = false;
}
break;
@ -1187,7 +1193,7 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
if (e == fe_button)
{
print();
return FALSE;
return false;
}
break;
case F_SORT:
@ -1218,7 +1224,7 @@ bool TPE_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
return on_sheet_event(o, e, jolly);
break;
}
return TRUE;
return true;
}
TPE_mask::TPE_mask() : TAutomask("ef0a00a")