Page 1 of 1
Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 6:57 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 7:23 pm
by George
Adhemar,
Try this:
ACTIVATE DIALOG oDlg1 CENTERED ON INIT;
( oBrw:GoBottom(), oBrw:Refresh(),oBrw:SetFocus() )
Regards,
George
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 7:36 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 7:38 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 7:40 pm
by Daniel Garcia-Gil
pense que usabas xbrowse disculpe....
Re: Mandar el puntero al final de un Browse
Posted: Tue Mar 24, 2009 10:30 pm
by mmercado
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
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 12:27 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 3:19 pm
by mmercado
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
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 3:56 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 4:43 pm
by mmercado
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 _ en TBtnGet, pero creo que podria servirte lo siguiente:
Code: Select all
oDBF:GRUPO:bKeyDown := { | nKey | If( nKey == VK_F2, BuscaGrupo( "GRUPO", 1 ), Nil ) }
Un abrazo.
Manuel Mercado
Re: Mandar el puntero al final de un Browse
Posted: Wed Mar 25, 2009 7:28 pm
by 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
Re: Mandar el puntero al final de un Browse
Posted: Thu Mar 26, 2009 3:33 am
by mmercado
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: Select all
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
Re: Mandar el puntero al final de un Browse
Posted: Thu Mar 26, 2009 1:13 pm
by 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