Mandar el puntero al final de un Browse

[acuellar]

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

[George]

Adhemar,
Try this:
ACTIVATE DIALOG oDlg1 CENTERED ON INIT;
( oBrw:GoBottom(), oBrw:Refresh(),oBrw:SetFocus() )

Regards,

George

[Daniel Garcia-Gil]

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

[acuellar]

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

[Daniel Garcia-Gil]

pense que usabas xbrowse disculpe....

[mmercado]

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

[acuellar]

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

[mmercado]

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

[acuellar]

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

[mmercado]

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: Select all  Expand view

oDBF:GRUPO:bKeyDown := { | nKey | If( nKey == VK_F2, BuscaGrupo( "GRUPO", 1 ), Nil ) }

Un abrazo.

Manuel Mercado

[acuellar]

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

[mmercado]

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: Select all  Expand view

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

[acuellar]

Distinguido Manuel, No funciona.

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

Muchisimas Gracias por su tiempo y colaboracion.

Saludos

Adhemar