Tengo dos DBF'S indexadas por el campo código, una es de clientes, y otra de sus almacenes, (Tienen los mismos campos), y me gustaría que en un xbrowse, al hacer doble click sobre un código, se abra un tree, y me muestre los almacenes de éste cliente.
He hecho pruebas con el ejemplo xbrwtree, pero me lío cuando son dos bases de datos
- Code: Select all Expand view
- Static function rutasc(oDlg1,oDlg,recibe,aAlias)
local n,conduc:=space(5)
local titulo:="LISTADO DE RUTAS DE CLIENTES"
local oBrw
if Publicas:abierta=1
msginfo('Tienes Una ventana Abierta','Atencion')
return nil
endif
dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\Almacen",aAlias[23],.T.)
(aAlias[23])->(OrdSetFocus("Codigo"))
(aAlias[23])->( dbGotop() )
dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\PROVE",aAlias[21],.T.)
(aAlias[21])->(OrdSetFocus("Codigo"))
(aAlias[21])->( dbGotop() )
SetParent( oDlg1:hWnd, oDlg:hWnd )
@ 0,0 XBROWSE oBrw ;
COLUMNS 'Codigo','Nombre','Calle', 'Pobla','Rutar' ;
SIZE 260,320 PIXEL ;
COLSIZES ,250,225,200,25 ;
JUSTIFY AL_CENTER ;
OF oDlg1 Alias aAlias[21] FOOTERS AUTOCOLS LINES CELL
oBrw:aCols[5]:nEditType := 1
oBrw:bClrSelFocus := { || { CLR_BLUE, nRGB( 230, 255, 230 ) } }
oBrw:lColDividerComplete := .f.
oBrw:nTop := oDlg1:nTop()
oBrw:lKineticBrw := .f.
oBrw:nBottom := oDlg1:nheight()
oBrw:nRight := oDlg1:nWidth()
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrw:CreateFromCode()
barra1(oDlg1,oBrw,titulo)
oBrw:Setfocus()
return nil
Esto me muestra en un browse los datos de Prove
Alguna ayuda?
