Como puedo saber si un numero en un campo es negativo

devwin2010 · Post by **devwin2010** » Fri Feb 08, 2008 1:22 am

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 · Post by **horacio** » Fri Feb 08, 2008 2:18 am

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 · Post by **ADBLANCO** » Fri Feb 08, 2008 1:03 pm

Fabian:

Function DimeSiElNumeroEsNegativo( nNumeroGuardadoEnDbf )
Return ( nNumeroGuardadoEnDbf < 0 )

joseluisysturiz · Post by **joseluisysturiz** » Sat Feb 09, 2008 6:33 am

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.