Duda con TsBrowse
Posted: Tue Feb 16, 2010 5:53 pm
Hola amigos
Para efectos de depuracion del sistema, he incluido un boton que me despliega en un dialogo un browse que contiene todas las DBF activas.
Deseo que al ubicarme en una de dichas DBF y al hacer clic sobre un boton, se me refresque el contenido de esa DBF en otro browse que tengo en el mismo dialogo.
Resumiendo, deseo cambiar la DBF ligada al tsbrowse en tiempo de ejecucion...
Como puedo hacer eso ?
Gracias
Ejemplo:
// Este el esl browse que contiene la lista de las DBF que estan en uso
REDEFINE BROWSE oBrwY ID 702 OF oDlgX
oBrwY:SetArray(aDBF)
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 1 HEADER "ACT" ALIGN 1,1,1 SIZE 30
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 2 HEADER "DBFNAME" ALIGN 0,1,1 SIZE 100
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 3 HEADER "CDX" ALIGN 1,1,1 SIZE 30
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 4 HEADER "INDEXKEY" ALIGN 0,1,1 SIZE 191
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 5 HEADER "FILTRO" ALIGN 0,1,1 SIZE 200
oBrwY:SetColor({1,2,3,4,9,10,13,14,5,6,11,12,15}, {CLR_BLACK,{NRGB(210,225,242),NRGB(114,163,230)},CLR_WHITE,nRGB(65,65,65),CLR_HGREEN,CLR_BLACK,CLR_WHITE,CLR_BLACK,CLR_BLACK,{NRGB(255,255,255),NRGB(255,0,0)},CLR_HRED,{NRGB(244,226,170),NRGB(223,154,11)},CLR_BLACK } )
oBrwY:nHeightCell += 6
oBrwY:nHeightHead += 14
oBrwY:oBrush := oBrushX
// este en el arreglo que debe desplegar el contenido de la DBF seleccionada en tiempo de ejecucion en la lista anterior
REDEFINE BROWSE oBrwZ ID 703 OF oDlgX
oBrwZ:SetColor({1,2,3,4,9,10,13,14,5,6,11,12,15}, {CLR_BLACK,{NRGB(210,225,242),NRGB(114,163,230)},CLR_WHITE,nRGB(65,65,65),CLR_HGREEN,CLR_BLACK,CLR_WHITE,CLR_BLACK,CLR_BLACK,{NRGB(255,255,255),NRGB(255,0,0)},CLR_HRED,{NRGB(244,226,170),NRGB(223,154,11)},CLR_BLACK } )
oBrwZ:nHeightCell += 6
oBrwZ:nHeightHead += 14
oBrwZ:oBrush := oBrushX
REDEFINE BUTTON oBtn ID 200 OF oDlgX ACTION _______________________________
gracias
Para efectos de depuracion del sistema, he incluido un boton que me despliega en un dialogo un browse que contiene todas las DBF activas.
Deseo que al ubicarme en una de dichas DBF y al hacer clic sobre un boton, se me refresque el contenido de esa DBF en otro browse que tengo en el mismo dialogo.
Resumiendo, deseo cambiar la DBF ligada al tsbrowse en tiempo de ejecucion...
Como puedo hacer eso ?
Gracias
Ejemplo:
// Este el esl browse que contiene la lista de las DBF que estan en uso
REDEFINE BROWSE oBrwY ID 702 OF oDlgX
oBrwY:SetArray(aDBF)
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 1 HEADER "ACT" ALIGN 1,1,1 SIZE 30
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 2 HEADER "DBFNAME" ALIGN 0,1,1 SIZE 100
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 3 HEADER "CDX" ALIGN 1,1,1 SIZE 30
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 4 HEADER "INDEXKEY" ALIGN 0,1,1 SIZE 191
ADD COLUMN TO oBrwY DATA ARRAY ELEMENT 5 HEADER "FILTRO" ALIGN 0,1,1 SIZE 200
oBrwY:SetColor({1,2,3,4,9,10,13,14,5,6,11,12,15}, {CLR_BLACK,{NRGB(210,225,242),NRGB(114,163,230)},CLR_WHITE,nRGB(65,65,65),CLR_HGREEN,CLR_BLACK,CLR_WHITE,CLR_BLACK,CLR_BLACK,{NRGB(255,255,255),NRGB(255,0,0)},CLR_HRED,{NRGB(244,226,170),NRGB(223,154,11)},CLR_BLACK } )
oBrwY:nHeightCell += 6
oBrwY:nHeightHead += 14
oBrwY:oBrush := oBrushX
// este en el arreglo que debe desplegar el contenido de la DBF seleccionada en tiempo de ejecucion en la lista anterior
REDEFINE BROWSE oBrwZ ID 703 OF oDlgX
oBrwZ:SetColor({1,2,3,4,9,10,13,14,5,6,11,12,15}, {CLR_BLACK,{NRGB(210,225,242),NRGB(114,163,230)},CLR_WHITE,nRGB(65,65,65),CLR_HGREEN,CLR_BLACK,CLR_WHITE,CLR_BLACK,CLR_BLACK,{NRGB(255,255,255),NRGB(255,0,0)},CLR_HRED,{NRGB(244,226,170),NRGB(223,154,11)},CLR_BLACK } )
oBrwZ:nHeightCell += 6
oBrwZ:nHeightHead += 14
oBrwZ:oBrush := oBrushX
REDEFINE BUTTON oBtn ID 200 OF oDlgX ACTION _______________________________
gracias