Page 1 of 1
Xbrowse columnas de distintas fuentes
Posted: Fri Apr 07, 2023 4:52 pm
by JoseLuis
Buenas
Tengo dos Dbf , conductores con _ código y nombre, y la dbf rutas con _ 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.
Re: Xbrowse columnas de distintas fuentes
Posted: Fri Apr 07, 2023 10:00 pm
by acuellar
Estimado José Luis
Debe utilizar SET RELATION TO, las 2 dbf con indice en CODIGO
Re: Xbrowse columnas de distintas fuentes
Posted: Sat Apr 08, 2023 9:01 am
by JoseLuis
Gracias Adhemar
Lo intenté de diversas formas y siempre me da error
Code: Select all | Expand
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
Re: Xbrowse columnas de distintas fuentes
Posted: Sat Apr 08, 2023 1:51 pm
by karinha
Holá, siempre muestre el código COMPLETO para el master Adhemar analisar, ok?
Regards, saludos.
Re: Xbrowse columnas de distintas fuentes SOLUCIONADO
Posted: Sat Apr 08, 2023 2:40 pm
by JoseLuis
Buenas
Ok Joao.
El error estaba en el índice, el codigo queda así
Code: Select all | Expand
(aAlias[29])->(Ordsetfocus("conductor"))
dbSelectArea(aAlias[26])
(aAlias[26])->(Dbgotop())
set relation to conduc->codigo into ruta
................. etc
Re: Xbrowse columnas de distintas fuentes
Posted: Sat Apr 08, 2023 3:28 pm
by karinha
no uso este estilo, no me gusta. crea sea asi:
Regards, saludos.