Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :modifica per l'elenco clifo


git-svn-id: svn://10.65.10.50/trunk@16530 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-04-18 11:20:47 +00:00
parent eb87d031c8
commit 9f30662d0d

View File

@ -408,7 +408,7 @@ bool TAS400_recordset::set_field(const TAS400_column_info& fi, const TVariant& v
case _longfld:
{
TString80 str;
if (fi._width > 8 && var.is_real())
if (fi._width > 8)
str = var.as_real().string(fi._width, 0, ' ');
else
str.format("%*ld", fi._width, var.as_int());
@ -419,7 +419,7 @@ bool TAS400_recordset::set_field(const TAS400_column_info& fi, const TVariant& v
case _longzerofld:
{
TString80 str;
if (fi._width > 8 && var.is_real())
if (fi._width > 8)
str = var.as_real().string(fi._width, 0, '0');
else
str.format("%0*ld", fi._width, var.as_int());