Error en función Floor(0)
Posted: Thu Feb 09, 2017 3:01 pm
Hola amigos, obteniendo unos informes, en ciertas ocasiones se me genera un error mientras se están preparando los mismos.
Concretamente en la llamada
de la función N2E
¿Alguna idea?
Gracias
Code: Select all
Called from FLOOR(0)
Called from N2E(164) in .\source\function\VALTOSTR.PRG
Called from CVALTOSTR(150) in .\source\function\VALTOSTR.PRG
Called from TRGROUP:TOTAL(96) in .\source\classes\RGROUP.PRG
Called from TRGROUP:FOOTER(189) in .\source\classes\RGROUP.PRG
Called from TREPORT:ENDGROUP(1774) in ..\clases\report.prg
Called from TREPORT:PLAY(1124) in ..\clases\report.prg
Called from (b)TREPORT_ACTIVATE(923) in ..\clases\report.prgCode: Select all
e := Floor( nLog )Code: Select all
static function N2E( nNum, nDec )
local e := 0, nLog, cRet
DEFAULT nDec := 2
nLog := Log10( nNum )
e := Floor( nLog )
nNum := 10 ^ ( nLog - e )
if e > 9 .and. nDec > 0
nDec--
endif
cRet := Str( nNum, nDec + 2, nDec ) + "E" + LTrim( Str( e ) )
return cRetGracias