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

Corretto errore MI1042, risistemati alcuni commenti, alcuni calcoli

Browse Source 
su note di credito e importi non assegnati (tramite normalizzazioni
e storni degli importi gia' pagati). Tolti anche i ^M.


git-svn-id: svn://10.65.10.50/trunk@2732 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-04-15 16:58:45 +00:00
parent 8f7d3a77cb
commit 0bc7247d02
1 changed files with 1263 additions and 1267 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
sc/sc2200.cpp
View File

@ -320,7 +320,8 @@ void TStampaScadenzario::calcola_pagamenti(real& imp_scad, int riga, int rata)
const char ssez = _p->riga(riga).sezione();
const char* field = (_stvaluta && rs.in_valuta()) ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO;
const char* sfield = (_stvaluta && rs.in_valuta()) ? SCAD_IMPORTOVAL : SCAD_IMPORTO;
TImporto totalep, // Totale dei pagamenti
TImporto work_imp,
totalep, // Totale dei pagamenti
scdz; // Importo in scadenza
scdz += TImporto(ssez,rs.get_real(sfield));
totalep += rs.importo_pagato(_stvaluta,7); // Quanto e' stato pagato per questa scadenza?
@ -330,25 +331,20 @@ void TStampaScadenzario::calcola_pagamenti(real& imp_scad, int riga, int rata)
const TRiga_partite& sum = _p->riga(p); // 3,4,6 : incasso/pagamento/abbuono/pag.insoluto/diff.cambio/rit.prof
const char sez = sum.sezione();
const int tipomov = sum.get_int(PART_TIPOMOV);
// Se tipomov e' 5 (Insoluto) aumenta scdz; se tipomov e' 2 (Nota di credito assegnata)
// storna da scdz. In entrambi i casi si ha l'operatore +=, perche' nel TImporto e' gia'
// compresa la sezione opposta
if (tipomov == 2 || tipomov == 5)
scdz += TImporto(sez,pag.get_real(field));
/* ------------------------------------------------------
switch (tipomov)
{
case 5: // Insoluto (aumenta scdz)
scdz += TImporto(sez,pag.get_real(field));
break;
case 2: // Nota di credito assegnata (storna da scdz)
scdz -= TImporto(sez,pag.get_real(field));
break;
default:
break;
work_imp = TImporto(sez,pag.get_real(field));
scdz += work_imp;
totalep -= work_imp;
}
----------------------------------------------------*/
}
char norm = 'D';
if (_tipost == fornitori) norm = 'A';
totalep.normalize(norm); scdz.normalize(norm);
totalep.normalize((norm=='D') ? 'A' : 'D');
scdz.normalize(norm);
_w_imp_pag = totalep.valore();
imp_scad = scdz.valore();
real a,b;