BlackTDN Search

quinta-feira, 9 de dezembro de 2010

Protheus :: Advpl "BUG" na Função: NToL


User Function Foo()

 ConOut( "Bug na nToL" )
 
 ConOut( "NToL( -1000000000 )" , NToL( -1000000000 )  )
 ConOut( "NToL( -100000000 )" , NToL( -100000000 )  )
 ConOut( "NToL( -10000000 )" , NToL( -10000000 )  )
 ConOut( "NToL( -1000000 )" , NToL( -1000000 )  )
 ConOut( "NToL( -100000 )" , NToL( -100000 )  )
 ConOut( "NToL( -10000 )" , NToL( -10000 )  )
 ConOut( "NToL( -1000 )" , NToL( -1000 )  )
 ConOut( "NToL( -100 )" , NToL( -100 )  )
 ConOut( "NToL( -10 )" , NToL( -10 )  )
 ConOut( "NToL( -1 )" , NToL( -1 )  )
 ConOut( "NToL( 0 )" , NToL( 0 )  )
 ConOut( "NToL( 1 )" , NToL( 1 )  )
 ConOut( "NToL( 10 )" , NToL( 10 )  )
 ConOut( "NToL( 100 )" , NToL( 100 )  )
 ConOut( "NToL( 1000 )" , NToL( 1000 )  )
 ConOut( "NToL( 10000 )" , NToL( 10000 )  )
 ConOut( "NToL( 100000 )" , NToL( 100000 )  )
 ConOut( "NToL( 1000000 )" , NToL( 1000000 )  )
 ConOut( "NToL( 10000000 )" , NToL( 10000000 )  )
 ConOut( "NToL( 100000000 )" , NToL( 100000000 )  ) 
 ConOut( "NToL( 1000000000 )" , NToL( 1000000000 )  ) 

Return( NIL )


Bug na nToL
NToL( -1000000000 )
.F.
NToL( -100000000 )
.F.
NToL( -10000000 )
.T.
NToL( -1000000 )
.T.
NToL( -100000 )
.T.
NToL( -10000 )
.T.
NToL( -1000 )
.T.
NToL( -100 )
.T.
NToL( -10 )
.T.
NToL( -1 )
.T.
NToL( 0 )
.F.
NToL( 1 )
.T.
NToL( 10 )
.T.
NToL( 100 )
.T.
NToL( 1000 )
.T.
NToL( 10000 )
.T.
NToL( 100000 )
.T.
NToL( 1000000 )
.T.
NToL( 10000000 )
.T.
NToL( 100000000 )
.F.
NToL( 1000000000 )
.F.
Sem comentários. Para maiores referências consulte: Função: NToL


[]s иαldσ dj

Nenhum comentário:

Postar um comentário