Xbrowse columnas de distintas fuentes

[JoseLuis]

Buenas

Tengo dos Dbf , conductores con los campos código y nombre, y la dbf rutas con los campos código y ruta.
Cual es la mejor forma de crear un Xbrowse que tenga tres columnas, código,nombre y ruta. Las dos primeras con la información de la dbf conductores y la tercera de la dbf rutas, teniendo en cuenta que el campo código de ambas dbf tienen la misma información y ambas están indexadas por este campo.

[acuellar]

Estimado José Luis

Debe utilizar SET RELATION TO, las 2 dbf con indice en CODIGO

Code: Select all  Expand view

SET RELATION TO CODIGO INTO RUTAS
 

[JoseLuis]

Gracias Adhemar

Lo intenté de diversas formas y siempre me da error

Code: Select all  Expand view

 dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\conduc",aAlias[26],.T.)
  (aAlias[26])->(OrdSetFocus("Codigo"))
  (aAlias[26])->( dbGotop() )
  dbUseArea(.T.,,Publicas:cUnidad+Publicas:cSubd+"\Ruta",aAlias[29],.T.)
  (aAlias[29])->(OrdSetFocus("Ruta"))
  (aAlias[29])->( dbGotop() )
 set relation to (aAlias[26])->codigo into (aAlias[29])
cAlias1:=aAlias[26]
    @ 30, 0 xbrowse oBrw1 OF oDlg ;
    ALIAS cAlias1;
    COLUMNS "Codigo","Nombre",{(aAlias[29])->Ruta};
    AUTOSORT LINES CELL FOOTERS NOBORDER SIZE -645,-30 PIXEL

        WITH OBJECT oBrw1:aCols[ 1 ]
                :oHeaderFont:=oFont1
        END WITH
        WITH OBJECT oBrw1:aCols[ 2 ]
                :oHeaderFont:=oFont1
        END WITH

    WITH OBJECT oBrw1
                :SetGroupHeader( "Conductores",  1,  2, ofont)
        :nColDividerStyle := LINESTYLE_BLACK
        :lColDividerComplete := .T.
        :l2007 := .T.
        :lRecordSelector := .F.
        :lAllowColHiding := .F.
        :lAllowColSwapping := .F.
        :nStretchCol      := 2
                :nHeadStrAligns:= AL_CENTER
                :bChange := {|| cVar:=(aAlias[26])->Matricula,oCombo:Refresh(),xnuconduc:=oBrw1:aCols[1]:value,aData2:=creaelarray2(xnuconduc),aData3:=creaelarray3(xnuconduc),oBrw2:aArrayData:=aData2,oBrw3:aArrayData:=aData3,oBrw1:Refresh(),oBrw2:Refresh(),oBrw3:Refresh()}
        :bClrStd:= { || { CLR_BLACK, If( oBrw1:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(207,222,240) ) } }
        :nMarqueeStyle := MARQSTYLE_HIGHLROWMS //6
        :MakeTotals()
        :CreateFromCode()
    END WITH
 

El error es siempre:

Error description: Error DBCMD/2001 Workarea not in use: DBSETRELATION

[karinha]

Holá, siempre muestre el código COMPLETO para el master Adhemar analisar, ok?

Regards, saludos.

[JoseLuis]

Buenas

Ok Joao.

El error estaba en el índice, el codigo queda así

Code: Select all  Expand view

(aAlias[29])->(Ordsetfocus("conductor"))
dbSelectArea(aAlias[26])
(aAlias[26])->(Dbgotop())
set relation to conduc->codigo into ruta
................. etc

 

[karinha]

no uso este estilo, no me gusta. crea sea asi:

Code: Select all  Expand view

   set relation to ( conduc )->codigo into ruta
 

Regards, saludos.