- Code: Select all Expand view
- 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 Expand view
- e := Floor( nLog )
de la función N2E
- Code: Select all Expand view
- 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