Para MMercado TSBrowse
Posted: Tue Oct 27, 2009 3: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
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