Página 1 de 1

Forzar a salir TArrayBrowse

Publicado: Dom Ago 27, 2006 11:31 pm
por zeasoftware
Tengo un caso que me esta dando un poco de lata:
Tengo un TArrayBrowse() en el cual verifico si doy click fuera del area de datos (creo que asi es) BrwPastEof, forzo a ingresar en modo de captura, esto lo hago si estoy fuera de un multiedit, vaya, si n ome encuentro haciendo ninguna captura previa.
Pero, si etoy haciendo la captura, y le doy un click a un boton de SALIR, pero no ejecuta mas que el BrwPastEof(), como podria hacerlo? o que estoy haciendo mal?
METHOD BrwPartidasPastEof( oSender ) CLASS TCotiza
with object ::oBrwPartidas
If !:IsMultipleEdit()
:AddRow( { "", 1, "", "", 0, 0 } )
:Refresh( .t. )
:GoBottom()
:SetFocus()
:Edit()
End
End with
RETURN Nil
desde ya gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com

http://www.paginasprodigy.com/zeasoft/
--

Forzar a salir TArrayBrowse

Publicado: Lun Ago 28, 2006 10:19 am
por _support_
Ramón,
BrwPastEof() se dispará SOLO cuando intenta avanzar en el browse después de su última fila, por lo que no entiendo muy bien lo que comentas de 'si doy click fuera del área de datos'.
Los eventos que se disparan cuando se hace click fuera del campo de edición en un browse son OnExit y OnPostEdit.
Un saludo,
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=44f20f3b@news.xailer.com...]44f20f3b@news.xailer.com...[/email]
Tengo un caso que me esta dando un poco de lata:
Tengo un TArrayBrowse() en el cual verifico si doy click fuera del area de datos (creo que asi es) BrwPastEof, forzo a ingresar en modo de captura, esto lo hago si estoy fuera de un multiedit, vaya, si n ome encuentro haciendo ninguna captura previa.
Pero, si etoy haciendo la captura, y le doy un click a un boton de SALIR, pero no ejecuta mas que el BrwPastEof(), como podria hacerlo? o que estoy haciendo mal?
METHOD BrwPartidasPastEof( oSender ) CLASS TCotiza
with object ::oBrwPartidas
If !:IsMultipleEdit()
:AddRow( { "", 1, "", "", 0, 0 } )
:Refresh( .t. )
:GoBottom()
:SetFocus()
:Edit()
End
End with
RETURN Nil
desde ya gracias.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com

http://www.paginasprodigy.com/zeasoft/
--