FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Mandar el puntero al final de un Browse
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 06:57 PM

Hola a todos
No se porque no manda el puntero al final del browse Ej:
DEFINE DIALOG oDlg OF oWnd FROM 168,207 TO 515,910 PIXEL TITLE "Muestra los registros"

  @ 10,0 BROWSE oBrw OF oDlg GRID SIZE 158,148 PIXEL 
              ADD COLUMN TO oBrw  SIZE  10 DATA ""
               ADD COLUMN TO oBrw SIZE 41 TITLE "FACT." ;
                  DATA BILL->RNR ALIGN DT_RIGHT, DT_CENTER
               ADD COLUMN TO oBrw SIZE 58 TITLE "FECHA";
                  DATA BILL->DATUM ALIGN DT_RIGHT, DT_CENTER

ACTIVATE DIALOG oDlg1 CENTERED ON INIT ( oBrw:GoBottom(), oBrw:SetFocus() )

Gracias por su ayuda.

Saludos

Adhemar

Saludos,



Adhemar C.
George
Posts: 729
Joined: Tue Oct 18, 2005 06:49 PM
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 07:23 PM
Adhemar,
Try this:
ACTIVATE DIALOG oDlg1 CENTERED ON INIT;
( oBrw:GoBottom(), oBrw:Refresh(),oBrw:SetFocus() )

Regards,

George
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 07:36 PM

Acuellar...

Revisa samples/Testxbr3.prg

en la funcion RddBrwAllColsDlg
agrega en la activacion del dialogo

ON INIT ( oBrw:GoBottom(), oBrw:SetFocus() )

a mi me funciona...
no se si tenga algo que ver con la version de FW que usas, sino te sirve prueba GO BOTTOM a la DBF

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 07:38 PM

Gracias distinguido, pero no funciona. Tengo el Sbrowse8, con FiveWin 9.02
Con FiveWin 7.10 funciona el mismo ejemplo.

No se donde esta la falla

Saludos

Adhemar

Saludos,



Adhemar C.
Daniel Garcia-Gil
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 07:40 PM

pense que usabas xbrowse disculpe....

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 10:30 PM
acuellar wrote:Gracias distinguido, pero no funciona. Tengo el Sbrowse8, con FiveWin 9.02
Con FiveWin 7.10 funciona el mismo ejemplo.
Hola Adhemar:

Con TSBrowse 8.0 debes usar: oBrw:lInitGoTop := .F.

Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 12:27 PM

Gracias Distinguido Manuel, Funciona perfecto.

Otra Consulta
Antes con el BTNGET funcionaba el F2 para mostrar una tabla. y ahora no.

Que hay que hacer?

Saludos

Adhemar

Saludos,



Adhemar C.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 03:19 PM
acuellar wrote:Antes con el BTNGET funcionaba el F2 para mostrar una tabla. y ahora no.
Hola Adhemar:

Si te refieres al BtnGet usado dentro del modo de edición de TSBrowse, sigue funcionando igual a menos que en tu programa definas oBrw:nFireKey con una valor diferente (el valor por omisión es VK_F2).

Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 03:56 PM

Distinguido no es en el TSBrowse es aqui:

REDEFINE BTNGET oDBF:GRUPO ID 104 OF oDlg UPDATE PICTURE "@!" WHEN lBdr MESSAGE "F2";
VALID {|| GRUPO->( dBSeek( oDBF:GRUPO )),;
iif( GRUPO->( Eof() ), NoExiste(),.T. ) } RESOURCE "B-Buscar1" ACTION ( BuscaGrupo("GRUPO",1) )

Gracias por su colaboracion

Saludos

Adhemar

Saludos,



Adhemar C.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 04:43 PM
acuellar wrote:REDEFINE BTNGET oDBF:GRUPO ID 104 OF oDlg UPDATE PICTURE "@!" WHEN lBdr MESSAGE "F2";
VALID {|| GRUPO->( dBSeek( oDBF:GRUPO )),;
iif( GRUPO->( Eof() ), NoExiste(),.T. ) } RESOURCE "B-Buscar1" ACTION ( BuscaGrupo("GRUPO",1) )
Hola Adhemar:

Desconozco los cambios en TBtnGet, pero creo que podria servirte lo siguiente:
Code (fw): Select all Collapse
oDBF:GRUPO:bKeyDown := { | nKey | If( nKey == VK_F2, BuscaGrupo( "GRUPO", 1 ), Nil ) }
Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 07:28 PM

Gracias Manuel

Coloque la linea en varios lugares del BTNGET y sale error, la coloque fuera y en la ejecucion sale este error:

CHARACTER has no property BKEYDOWN

Si no se puede no se preocupe.

Saludos

Adhemar

Saludos,



Adhemar C.
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Mandar el puntero al final de un Browse
Posted: Thu Mar 26, 2009 03:33 AM
acuellar wrote:Coloque la linea en varios lugares del BTNGET y sale error, la coloque fuera y en la ejecucion sale este error:CHARACTER has no property BKEYDOWN
Hola Adhemar:

Disculpa, en mi sugerencia anterior usé el nombre de la variable en lugar del objeto BtnGet, prueba de la siguiente manera:
Code (fw): Select all Collapse
Local oBget

REDEFINE BTNGET oBget VAR oDBF:GRUPO ID 104 OF oDlg UPDATE PICTURE "@!" WHEN lBdr MESSAGE "F2";
VALID {|| GRUPO->( dBSeek( oDBF:GRUPO )),;
iif( GRUPO->( Eof() ), NoExiste(),.T. ) } RESOURCE "B-Buscar1" ACTION ( BuscaGrupo("GRUPO",1) )

oBget:bKeyDown := { |nKey| If( nKey == VK_F2, BuscaGrupo( "GRUPO", 1 ), Nil ) }
Un abrazo.

Manuel Mercado
manuelmercado at prodigy dot net dot mx
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: Mandar el puntero al final de un Browse
Posted: Thu Mar 26, 2009 01:13 PM

Distinguido Manuel, No funciona.

Hay otra manera de hacer lo mismo sin usar el BTNGET.

Muchisimas Gracias por su tiempo y colaboracion.

Saludos

Adhemar

Saludos,



Adhemar C.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions