DBNavigator

[Rolando]

Hola foro: alguno sabe donde hay documentacion sobre este control?
En el se produce un efecto que estimo no deberia producirse por ejemplo
cuando generamos un evento OnClickDelete se ejecuta el codigo que escribimos
y ademas la accion por defecto con lo cual si borramos un registro se
borraran dos, adjunto codigo de ejemplo
METHOD DBN1ClickDelete( oSender ) CLASS TForm2
if MsgYesNo( "Borra el Paciente actual?","Borrado" )
if ::oDbfDataSet1:Delete()
If ::oDbfDataSet1:Eof()
::oDbfDataSet1:Skip( -1 )
endif
::odBbrowse1:Refresh()
endif
endif
RETURN Nil

[ignacio]

Rolando,
Como está hereda de TToolBar que aún no está terminada pues tampoco está
documentada. Te dejo lá única documentación que hay al respecto. No obstante
esperamos que en breve este la documentación 100% terminada.
Un saludo,
"Rolando" <rsarrailh@gmail.com> escribió en el mensaje
news:448d6202$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola foro: alguno sabe donde hay documentacion sobre este control?
> En el se produce un efecto que estimo no deberia producirse por ejemplo
> cuando generamos un evento OnClickDelete se ejecuta el codigo que
> escribimos
> y ademas la accion por defecto con lo cual si borramos un registro se
> borraran dos, adjunto codigo de ejemplo
>
> METHOD DBN1ClickDelete( oSender ) CLASS TForm2
> if MsgYesNo( "Borra el Paciente actual?","Borrado" )
> if ::oDbfDataSet1:Delete()
> If ::oDbfDataSet1:Eof()
> ::oDbfDataSet1:Skip( -1 )
> endif
> ::odBbrowse1:Refresh()
> endif
> endif
>
> RETURN Nil
>
>


Attached files DbNavigator.rar (441 B)Â

[jfgimenez]

Rolando,
> Hola foro: alguno sabe donde hay documentacion sobre este control?
> En el se produce un efecto que estimo no deberia producirse por ejemplo
> cuando generamos un evento OnClickDelete se ejecuta el codigo que
> escribimos y ademas la accion por defecto con lo cual si borramos un
> registro se borraran dos, adjunto codigo de ejemplo
>
> METHOD DBN1ClickDelete( oSender ) CLASS TForm2
> if MsgYesNo( "Borra el Paciente actual?","Borrado" )
> if ::oDbfDataSet1:Delete()
> If ::oDbfDataSet1:Eof()
> ::oDbfDataSet1:Skip( -1 )
> endif
> ::odBbrowse1:Refresh()
> endif
> endif
>
> RETURN Nil
Xailer siempre llama en primer lugar al evento, y si no quieres que después
se ejecute la acción por defecto (en este caso el borrado del registro)
simplemente tienes que retornar .F.
--
Un saludo,
José F. Giménez
http://www.xailer.com

[Rolando]

Ok. muchas gracias
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:448d7e8c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Rolando,
>
> Como está hereda de TToolBar que aún no está terminada pues tampoco está
> documentada. Te dejo lá única documentación que hay al respecto. No
> obstante esperamos que en breve este la documentación 100% terminada.
>
> Un saludo,
>
> "Rolando" <rsarrailh@gmail.com> escribió en el mensaje
> news:448d6202$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Hola foro: alguno sabe donde hay documentacion sobre este control?
>> En el se produce un efecto que estimo no deberia producirse por ejemplo
>> cuando generamos un evento OnClickDelete se ejecuta el codigo que
>> escribimos
>> y ademas la accion por defecto con lo cual si borramos un registro se
>> borraran dos, adjunto codigo de ejemplo
>>
>> METHOD DBN1ClickDelete( oSender ) CLASS TForm2
>> if MsgYesNo( "Borra el Paciente actual?","Borrado" )
>> if ::oDbfDataSet1:Delete()
>> If ::oDbfDataSet1:Eof()
>> ::oDbfDataSet1:Skip( -1 )
>> endif
>> ::odBbrowse1:Refresh()
>> endif
>> endif
>>
>> RETURN Nil
>>
>>
>
>
>

[Rolando]

Ok. muchas gracias
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:448d9fbc$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Rolando,
>
>> Hola foro: alguno sabe donde hay documentacion sobre este control?
>> En el se produce un efecto que estimo no deberia producirse por ejemplo
>> cuando generamos un evento OnClickDelete se ejecuta el codigo que
>> escribimos y ademas la accion por defecto con lo cual si borramos un
>> registro se borraran dos, adjunto codigo de ejemplo
>>
>> METHOD DBN1ClickDelete( oSender ) CLASS TForm2
>> if MsgYesNo( "Borra el Paciente actual?","Borrado" )
>> if ::oDbfDataSet1:Delete()
>> If ::oDbfDataSet1:Eof()
>> ::oDbfDataSet1:Skip( -1 )
>> endif
>> ::odBbrowse1:Refresh()
>> endif
>> endif
>>
>> RETURN Nil
>
> Xailer siempre llama en primer lugar al evento, y si no quieres que
> después se ejecute la acción por defecto (en este caso el borrado del
> registro) simplemente tienes que retornar .F.
>
> --
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
>