Como puedo saber si un numero en un campo es negativo

[devwin2010]

Estimados Colegas

Alguien tiene alguna rutina o funcion para saber si el en numero en un campo de una dbf es negativo

desde ya muchisimas gracias
Fabian

[horacio]

Fabian:

Function DimeSiElNumeroEsNegativo( nNumeroGuardadoEnDbf )

Do Case
Case( nNumeroGuardadoEnDbf < 0 )
Return .t.
Otherwise
Return .f.
EndCase
Return .f.

No sé si es lo que necesitas
Saludos

[ADBLANCO]

Fabian:

Function DimeSiElNumeroEsNegativo( nNumeroGuardadoEnDbf )
Return ( nNumeroGuardadoEnDbf < 0 )

[joseluisysturiz]

FUNCTION menorqcero(nVar) // VALIDA VALOR ENTRADO SEA MAYOR O IGUAL A CERO (0) - NO SEA NEGATIVO
IF nVar < 0
MSGWAIT("Valor Invalido", "ATENCION", 2)
RETURN .F.
ENDIF
RETURN .T.