In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

OrdSetFocus

Foro de Xailer profesional en español
Responder
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

OrdSetFocus

Mensaje por paco-ssi »

En un maskedit, deseo comprobar si el valor introducido es correcto; si no
lo es que vuelva al mismo de nuevo.
Seria correcto?:
If omaskedit:value() < 99
omaskedit:OrdSetfocus()
else
omaskedit := 9900
endif
Paco V
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

OrdSetFocus

Mensaje por ignacio »

Paco,
OrdSetFocus se utiliza para cambiar el Tag en un DataSet.
Lo correcto sería simplemente devolver .F. en el evento ONEXIT de dicho
control, y es precisamente en dicho evento donde debes hacer el control:
METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
RETURN !( oSender:Value < 99 )
Saludos,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:42484801$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> En un maskedit, deseo comprobar si el valor introducido es correcto; si no
> lo es que vuelva al mismo de nuevo.
>
> Seria correcto?:
> If omaskedit:value() < 99
> omaskedit:OrdSetfocus()
> else
> omaskedit := 9900
> endif
>
> Paco V
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

OrdSetFocus

Mensaje por paco-ssi »

Gracias Ignacio.
He hecho el control en el evento ONEXIT, pero no habia forma de que me
hiciera lo demas.
Simplemente era imposible.
Perdonad de nuevo, y muchas gracias por vuestra paciencia.
Paco V.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:4248542d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Paco,
>
> OrdSetFocus se utiliza para cambiar el Tag en un DataSet.
>
> Lo correcto sería simplemente devolver .F. en el evento ONEXIT de dicho
> control, y es precisamente en dicho evento donde debes hacer el control:
>
> METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
>
> RETURN !( oSender:Value < 99 )
>
> Saludos,
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:42484801$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> > En un maskedit, deseo comprobar si el valor introducido es correcto; si
no
> > lo es que vuelva al mismo de nuevo.
> >
> > Seria correcto?:
> > If omaskedit:value() < 99
> > omaskedit:OrdSetfocus()
> > else
> > omaskedit := 9900
> > endif
> >
> > Paco V
> >
> >
>
>
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9253
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

OrdSetFocus

Mensaje por ignacio »

Paco,
METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
If oSendert:value < 99
return .f.
else
oSender:Value := 9900
endif
return .t.
Saludos,
"Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
news:424873eb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Gracias Ignacio.
> He hecho el control en el evento ONEXIT, pero no habia forma de que me
> hiciera lo demas.
> Simplemente era imposible.
>
> Perdonad de nuevo, y muchas gracias por vuestra paciencia.
>
> Paco V.
>
>
> "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
> news:4248542d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> Paco,
>>
>> OrdSetFocus se utiliza para cambiar el Tag en un DataSet.
>>
>> Lo correcto sería simplemente devolver .F. en el evento ONEXIT de dicho
>> control, y es precisamente en dicho evento donde debes hacer el control:
>>
>> METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
>>
>> RETURN !( oSender:Value < 99 )
>>
>> Saludos,
>>
>> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
>> news:42484801$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
>> > En un maskedit, deseo comprobar si el valor introducido es correcto; si
> no
>> > lo es que vuelva al mismo de nuevo.
>> >
>> > Seria correcto?:
>> > If omaskedit:value() < 99
>> > omaskedit:OrdSetfocus()
>> > else
>> > omaskedit := 9900
>> > endif
>> >
>> > Paco V
>> >
>> >
>>
>>
>
>
Ignacio Ortiz de Zúñiga
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
paco-ssi
Mensajes: 390
Registrado: Lun Feb 07, 2005 4:17 pm

OrdSetFocus

Mensaje por paco-ssi »

Gracias Ignacio, pero funciono a la primera.
En el mensaje que envie antes no queria decir que no funcionaba lo que tu me
habias enviado. Si no que era imposible que me funcionara lo que yo habia
hecho antes.
Cuando compré Xailer, esperaba que me echarais una manita, pero me estais
llevando de la mano y me estais enseñando la repera.
Mucisimas Gracias, y perdonadme.
Paco V.
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:42490d22$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Paco,
>
> METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
>
> If oSendert:value < 99
> return .f.
> else
> oSender:Value := 9900
> endif
>
> return .t.
>
> Saludos,
>
> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> news:424873eb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> > Gracias Ignacio.
> > He hecho el control en el evento ONEXIT, pero no habia forma de que me
> > hiciera lo demas.
> > Simplemente era imposible.
> >
> > Perdonad de nuevo, y muchas gracias por vuestra paciencia.
> >
> > Paco V.
> >
> >
> > "Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el
mensaje
> > news:4248542d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> >> Paco,
> >>
> >> OrdSetFocus se utiliza para cambiar el Tag en un DataSet.
> >>
> >> Lo correcto sería simplemente devolver .F. en el evento ONEXIT de dicho
> >> control, y es precisamente en dicho evento donde debes hacer el
control:
> >>
> >> METHOD MaskEditExit( oSender, oNextCtl ) CLASS TForm1
> >>
> >> RETURN !( oSender:Value < 99 )
> >>
> >> Saludos,
> >>
> >> "Paco V." <paco-ssi@usuarios.retecal.es> escribió en el mensaje
> >> news:42484801$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> >> > En un maskedit, deseo comprobar si el valor introducido es correcto;
si
> > no
> >> > lo es que vuelva al mismo de nuevo.
> >> >
> >> > Seria correcto?:
> >> > If omaskedit:value() < 99
> >> > omaskedit:OrdSetfocus()
> >> > else
> >> > omaskedit := 9900
> >> > endif
> >> >
> >> > Paco V
> >> >
> >> >
> >>
> >>
> >
> >
>
>
Arriba
Responder

Volver a “Spanish”