Corretta assegnazione scadenze su rate aggiunte manualmente

git-svn-id: svn://10.65.10.50/trunk@2455 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1996-01-15 11:22:37 +00:00
parent f7df30100c
commit 14bfa5c76d

View File

@ -145,7 +145,18 @@ bool TPrimanota_application::pag_notify(TSheet_field& ps, int r, KEY k)
TToken_string& trw = pag.rata(r); TToken_string& trw = pag.rata(r);
TToken_string srw = trw; TToken_string srw = trw;
if (m_tipo) trw.add(newt,2); if (m_tipo) trw.add(newt,2);
if (m_scad) trw.add(news,3); if (m_scad)
{
trw.add(news,3);
if (r > 0)
{
TDate d(news);
int scd = (int)(d - pag.data_rata(r-1));
if (pag.mese_commerciale() && (scd % 30) != 0)
scd = 30 * ((scd/30)+1);
trw.add(scd, 0);
}
}
if (m_imp) if (m_imp)
{ {
trw.add(newi,4); trw.add(newi,4);