Clarion - Entry con Control

Tengo un entry donde cargo la fecha de nacimiento y controlar que la fecha no sea mayor que el dia actual, entonces controlo que sea menor a today y si es mayor hago aparecer un message donde le avisa que debe cargar una fecha menor al día actual. Pregunta como hago para luego de darle ok a la ventana del mensaje hacer foco en el campo de la fecha de nacimiento. desde ya gracias

Walter

! Controlo Fecha Que no sea mayor a Today() y Muestro en el Message el Valor de Today()

IF LOC:FechaNacimiento > Today()
Message('Fecha Nacimiento No Puede Ser Mayor a Fecha Actual......'&format(Today(),@d06b),'Mensaje del Sistema',ICON:Exclamation)
Select(?LOC:FechaNacimiento )
CYCLE
End

Saludos desde Venado Tuerto

Walter el codigo que te escribio Marcelo para que funcione en el boton OK debes ponerlo antes de "Generate Code"

Saludos!

Perdón por no indicar el lugar donde ubicarlo.

Lo agrego en 2 lugares.
En el Selected al campo siguiente y en el botón aceptar y como dice Rodrigo antes de Generated Code.

¿Por que en dos lugares?
1) En el siguiente.. Para que cuando el operador de enter y caiga en el campo próximo le aparezca el cartel y desde ahí lo haga volver atrás
2) Para el caso que el operador modifique la fecha y vaya directamente al botón aceptar con el Mouse, si no tuviera el código no haría la validación y aceptaría sin problemas.

Saludos

PD: Tengo habilitado el Enter por Tab

ME FUE DE MUCHA UTILIDAD DESDE YA MUCHAS GRACIAS. SALUDOS