topic-17164

Posts: 205

Joined: Wed Sep 02, 2009 03:11 AM

Para MMercado TSBrowse
Posted: Tue Oct 27, 2009 03:35 AM

Hola Manuel

deseo saber como puedo saber la columna en la que se encuentra el prompt del TsBrowse. En el codigo que incluyo creo un arreglo y lo presento por medio de TsBrowse y utilizo ON CHANGE para que cada vez que cambie de registro (movimiento vertical) en cTEST se me cargue el valor del nAT (fila actual), pero al moverme horizontalmente no consigo obtener el valor del numero de la columna hasta que efectuo el movimiento vertical.

Lo que deseo saber es la coordenada (por asi decirlo) de la celda en la que se encuentre el prompt.

AADD(aCALEND,{1,2,3,4,5,6,7,8,9,0})
AADD(aCALEND,{11,22,33,44,55,66,77,88,99,00})
REDEFINE BROWSE oBrw20 ID 101 OF oFld:aDialogs[2] UPDATE CELLED;
ON CHANGE (cTEST:=STR(oBrw20:nAT)+' - '+STR(oBrw20:nCELL),oTEST:REFRESH())
oBrw20:SetArray(aCALEND)

ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT 1 HEADER "A" ALIGN 0,1,1 SIZE 80
ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT 2 HEADER "B" ALIGN 0,1,1 SIZE 80
ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT 3 HEADER "C" ALIGN 0,1,1 SIZE 80
ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT 4 HEADER "D" ALIGN 0,1,1 SIZE 80
ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT 5 HEADER "E" ALIGN 0,1,1 SIZE 80

REDEFINE SAY oTEST VAR cTEST ID 102 OF oFld:aDialogs[2] UPDATE

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: Para MMercado TSBrowse
Posted: Tue Oct 27, 2009 12:13 PM

Hola José:

JoseGS wrote:deseo saber como puedo saber la columna en la que se encuentra el prompt del TsBrowse. En el codigo que incluyo creo un arreglo y lo presento por medio de TsBrowse y utilizo ON CHANGE para que cada vez que cambie de registro (movimiento vertical) en cTEST se me cargue el valor del nAT (fila actual), pero al moverme horizontalmente no consigo obtener el valor del numero de la columna hasta que efectuo el movimiento vertical.

Lo que deseo saber es la coordenada (por asi decirlo) de la celda en la que se encuentre el prompt.

TSBrowse evalúa el bloque bGotFocus propio de cada columna al mover el cursor entre columnas.

Además del On Change, prueba lo siguiente Después de definir el Browse:

Code (fw): Select all Collapse

   For nEle := 1 To Len( oBrw20:aColumns )
      oBrw20:aColumns[ nEle ]:bGotFocus := {||cTEST:=STR(oBrw20:nAT)+' - '+STR(oBrw20:nCELL),oTEST:REFRESH()}
   Next

Un abrazo.

manuelmercado at prodigy dot net dot mx

JoseGS

Posts: 205

Joined: Wed Sep 02, 2009 03:11 AM

Re: Para MMercado TSBrowse
Posted: Tue Oct 27, 2009 08:07 PM

Gracias por contestar, hare la prueba

Saludos...

JoseGS

Posts: 205

Joined: Wed Sep 02, 2009 03:11 AM

Re: Para MMercado TSBrowse
Posted: Wed Oct 28, 2009 03:05 AM

Funciono !! Perfecto !!!

Muchas gracias.... :-)

FiveTech Support Forums

Continue the discussion