Para MMercado TSBrowse

[JoseGS]

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]

Hola José:

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

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

Un abrazo.

[JoseGS]

Gracias por contestar, hare la prueba

Saludos...

[JoseGS]

Funciono !! Perfecto !!!

Muchas gracias....