Page 1 of 1
como validar una fecha erronea en un GET
Posted: Sat May 30, 2015 4:51 pm
by Patricio Avalos Aguirre
Estimados
antiguamente cuando uno colocaba una fecha erronea en un get el sistema automaticamente dejaba la fecha vacia para que el usuario la volviera a colocar
pero ahora la deja en el ultimo dia
por ejemplo hoy 30/05/2015 y en el get coloco 31/06/2015 error en fecha pero el sistema deja en 31/05/2015 y eso provoca que el usuario pase sin darse cuenta del error
ahora en el sistema trato de validar dicha fecha pero el valid me pone que el usuario puso 31/05/2015
alguna forma de dejarlo como antes?
Re: como validar una fecha erronea en un GET
Posted: Mon Jun 01, 2015 3:11 pm
by puenteda
Patricio:
El comportamiento normal de la clase tget es retornar .F. en el valid del get (aunque vos no hayas utilizado la clausula VALID en tu definicion del get) y emitir un pitido, por lo que usuario no deberia poder 'salir' del get si la fecha es erronea. Si vos le agregas clausula valid podes poner un cartel de aviso, cambiar el valor del get, etc.
Si lo que queres es que se vacie el get por defecto deberias modificar la clase tget y listo, en por ejemplo (depende de la version de fw que tengas):
METHOD lValid() CLASS TGet
local lRet := .t.
if ::oGet:BadDate
Tone( 100, 3 )
// agregar
if BadDate
::buffer:=CTOD(' / / ')
endif
return .f.
else
Saludos,
Daniel Puente
Re: como validar una fecha erronea en un GET
Posted: Wed Aug 10, 2016 10:01 pm
by Patricio Avalos Aguirre
Retomando esto
Daniel
Claro antiguamente eso funcionaba ahora no..
en la clase tGet siempre va una fecha valida
he estado dandole vualta a la clase pero no me entrega dicha fecha erronea para enviarselo al usuario
a alguien le sucede
Code: Select all
METHOD lValid() CLASS TGet
local lRet := .t.
alert( ::oGet:varget ) // siempre devuelve la ultima fecha valida
//como esta la clase ahora esto estaria de mas
if ::oGet:BadDate
::oGet:KillFocus()
::oGet:SetFocus()
MsgBeep()
return .f.
else
::oGet:Assign()
if GetASyncKey( VK_UP ) .or. (GetASyncKey( VK_SHIFT ) .and. !GetASyncKey( VK_RETURN )) //patricio
return( .t. )
endif
if ValType( ::bValid ) == "B"
lRet := Eval( ::bValid, Self )
if ! lRet
::oWnd:nLastKey = 0
endif
endif
endif
return lRet
Re: como validar una fecha erronea en un GET
Posted: Fri Aug 12, 2016 6:59 am
by Antonio Linares
Patricio,
Prueba a comentar estas líneas:
// ::oGet:KillFocus()
// ::oGet:SetFocus()