Modificata la costruzione della TToken_string: i valori contenuti

nei campi S1 e S2 sono separati da !.


git-svn-id: svn://10.65.10.50/trunk@3173 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-07-09 13:39:35 +00:00
parent 8ed953f73f
commit 3a1704b19a

View File

@ -3680,7 +3680,7 @@ bool CG4400_application::stampa_riepilogo(int m)
real impol = pim.get_real("R2"); real impol = pim.get_real("R2");
if (_tabreg->get_bool("B0")) if (_tabreg->get_bool("B0"))
{ {
TToken_string cs(pim.get("S2")); TToken_string cs(pim.get("S2"),'!');
impon = cs.get(0); impon = cs.get(0);
impos = cs.get(1); impos = cs.get(1);
} }
@ -3689,7 +3689,7 @@ bool CG4400_application::stampa_riepilogo(int m)
impon = pim.get_real("R11"); impon = pim.get_real("R11");
impos = pim.get_real("R12"); impos = pim.get_real("R12");
} }
TToken_string fatt_rit(pim.get("S1")); TToken_string fatt_rit(pim.get("S1"),'!');
impon += real(fatt_rit.get(0)); impon += real(fatt_rit.get(0));
impos += real(fatt_rit.get(1)); impos += real(fatt_rit.get(1));
if (impon != ZERO || impos != ZERO || impol != ZERO) if (impon != ZERO || impos != ZERO || impol != ZERO)