Corretta gestione fatture extra-contabili
git-svn-id: svn://10.65.10.50/trunk@2612 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
054348d896
commit
53701e9b1f
@ -278,7 +278,7 @@ END
|
||||
STRING E_CODPAG 4
|
||||
BEGIN
|
||||
PROMPT 1 11 "Codice Pagamento "
|
||||
FLAGS "UZ"
|
||||
FLAGS "U#"
|
||||
USE %CPG
|
||||
INPUT CODTAB E_CODPAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
|
@ -202,7 +202,7 @@ bool TFattura_mask::pag_notify(TSheet_field& ps, int riga, KEY k)
|
||||
pag.add_rata(ZERO, gio_scad, pag.tipo_rata(prev), pag.ulc_rata(prev));
|
||||
pag.next_scad(data_scad, gio_scad, pag.mese_commerciale(), riga);
|
||||
pag.set_datarata(riga, data_scad);
|
||||
pag.adjust_fixed_scad();
|
||||
// pag.adjust_fixed_scad();
|
||||
msk.pag2sheet();
|
||||
}
|
||||
break;
|
||||
@ -255,11 +255,12 @@ bool TFattura_mask::pag_notify(TSheet_field& ps, int riga, KEY k)
|
||||
}
|
||||
if (m_impl)
|
||||
{
|
||||
trw.add(newl,7);
|
||||
// *** TBC la percentuale viene ricalcolata solo se si modifica in valuta
|
||||
// const real p = pag.recalc_percrata(r, FALSE);
|
||||
// ps.row(r).add(p.string(), 3);
|
||||
// **********************************************************************
|
||||
trw.add(newl,7);
|
||||
if (!in_valuta)
|
||||
{
|
||||
const real p = pag.recalc_percrata(riga, FALSE);
|
||||
ps.row(riga).add(p.string(), 3);
|
||||
}
|
||||
ps.force_update(riga);
|
||||
}
|
||||
if (m_impv)
|
||||
@ -356,7 +357,7 @@ bool TFattura_mask::pag_handler(TMask_field& f, KEY key)
|
||||
ok = f.yesno_box("Il totale in lire delle rate e' %s mentre\n"
|
||||
"il totale del documento e' %s.\n"
|
||||
"Si desidera registrare ugualmente?",
|
||||
(const char *)is, (const char *)ts);
|
||||
(const char*)is, (const char*)ts);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user