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.
SET RELATION TO CODIGO INTO RUTAS 聽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 WITHHol谩, siempre muestre el c贸digo COMPLETO para el master Adhemar analisar, ok?
Regards, saludos.
(aAlias[29])->(Ordsetfocus("conductor"))
dbSelectArea(aAlias[26])
(aAlias[26])->(Dbgotop())
set relation to conduc->codigo into ruta
................. etc聽 聽set relation to ( conduc )->codigo into ruta