topic-28123

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 02:14 AM

hola.
define in cPicture asi:

oGets[8]:cPicture:= "@E 9,999,999.99"

pero necesito que solo se ingrese positivos (ya que es un importe) como hago?
gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 02:40 AM

Yo lo controlo con una simplre funcion en el valid del GET, saludos... :shock:

FUNCTION menorqcero(nVar) // VALIDA VALOR ENTRADO SEA MAYOR O IGUAL A CERO (0) - NO SEA NEGATIVO

IF nVar < 0
MSGWAIT("Valor "+ALLTRIM(cValtoChar(nVar))+" es Invalido", oDatos:cTitMsg, 2)
RETURN .f.

ENDIF

RETURN ( .t. )

Dios no está muerto...

Gracias a mi Dios ante todo!

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 02:50 AM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Posts: 118

Joined: Fri Dec 20, 2013 10:39 AM

Re: cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 03:29 AM

en clipper existía RANGE en los gets para indicar que valores se podían introducir

Windows 10 + FWH 20.08 + BCC 7.4 + Harbour 3.2.0 + PSPad 5.0.3

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 03:39 AM

Tambien puedes hacerlo asi:
oGets[8]:cPicture:= "@E 9,999,999.99"
oGets[8]:bValid := {|| if(nVar<0,.f.,.t.) }

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Posts: 1956

Joined: Fri Oct 07, 2005 07:08 PM

Re: cPicture que solo acepte positivos?
Posted: Fri Feb 21, 2014 11:03 AM

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

FiveTech Support Forums