From 5589e9773e9166d214cabd02906b52b61c0404d9 Mon Sep 17 00:00:00 2001 From: angelo Date: Mon, 8 Jul 1996 08:50:23 +0000 Subject: [PATCH] Corretto errore MI3403. Corretta la costruzione delle Token_string sui campi S1 e S2 di PIM. git-svn-id: svn://10.65.10.50/trunk@3152 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- cg/cg4400.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/cg/cg4400.cpp b/cg/cg4400.cpp index 94db3b6a5..64b79cc04 100755 --- a/cg/cg4400.cpp +++ b/cg/cg4400.cpp @@ -3634,7 +3634,7 @@ bool CG4400_application::stampa_riepilogo(int m) real impol = pim.get_real("R2"); if (_tabreg->get_bool("B0")) { - TToken_string cs(pim.get("S2")); + TToken_string cs(pim.get("S2"),'!'); impon = cs.get(0); impos = cs.get(1); } @@ -3643,7 +3643,7 @@ bool CG4400_application::stampa_riepilogo(int m) impon = pim.get_real("R11"); 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)); impos += real(fatt_rit.get(1)); if (impon != ZERO || impos != ZERO || impol != ZERO)