MultiEdit en Browse 5.0
Publicado: Vie Ago 29, 2008 3:29 am
Por 5ta vez planteo mi problema, que me esta dando algo de problemas ya con mis clientes:
Existe algun detalle con el TDBBrowse en la version 1.97?
El detalle es que anteriormente y si compilo con una version anterior a esta, en el Browse si ejecuto un :Edit() entra en modo multiedit, osea, que me edita todas las columnas de este, esto igual a la manera de cuando un registro es nuevo; pero ahora, en la 1.97 no lo hace, solo hace un edit a la columna actual.
//---------------------------------------------------------- --------------------
METHOD BrwPartidasKeyDown( oSender, nKey, nFlags ) CLASS TFactura
Do Case
CASE ( nKey == VK_DOWN )
::BrwPartidasPastEof( oSender )
CASE ( nKey == VK_INSERT )
::BrwPartidasPastEof( oSender )
Case ( nKey == VK_ENTER )
with object ::oBrwPartidas
::BrwPartidasEnter( oSender ) //, oPrevCtl )
:SetFocus()
:Edit() //En versiones anteriores a la 1.97 entran en edicion todas las columnas, en la 1.97 solo la columna actual.
end with
EndCase
RETURN 0
//---------------------------------------------------------- --------------------
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--
Existe algun detalle con el TDBBrowse en la version 1.97?
El detalle es que anteriormente y si compilo con una version anterior a esta, en el Browse si ejecuto un :Edit() entra en modo multiedit, osea, que me edita todas las columnas de este, esto igual a la manera de cuando un registro es nuevo; pero ahora, en la 1.97 no lo hace, solo hace un edit a la columna actual.
//---------------------------------------------------------- --------------------
METHOD BrwPartidasKeyDown( oSender, nKey, nFlags ) CLASS TFactura
Do Case
CASE ( nKey == VK_DOWN )
::BrwPartidasPastEof( oSender )
CASE ( nKey == VK_INSERT )
::BrwPartidasPastEof( oSender )
Case ( nKey == VK_ENTER )
with object ::oBrwPartidas
::BrwPartidasEnter( oSender ) //, oPrevCtl )
:SetFocus()
:Edit() //En versiones anteriores a la 1.97 entran en edicion todas las columnas, en la 1.97 solo la columna actual.
end with
EndCase
RETURN 0
//---------------------------------------------------------- --------------------
Saludos.
--
Ramón Zea
01.993.231-62-29
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
dirza_com@hotmail.com
--