Error en función Floor(0)

[AngelSalom]

Hola amigos, obteniendo unos informes, en ciertas ocasiones se me genera un error mientras se están preparando los mismos.

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.prg

Concretamente en la llamada

Code: Select all

e := Floor( nLog )

de la función N2E

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 cRet

¿Alguna idea?
Gracias