Xailer & OZ Software

Buen Dia !
Estoy Usando TDbfDataSet con Tablas de Advantage (ADT)
Tengo un TDBBrowse que su DataSet es oDSFamilias el cual tiene un campo
que se llama Grupo_ID , el cual quiero relacionar con el campo de otro
DataSet que se llama oDSGrupos donde contiene un campo del mismo nombre
(Grupo_ID) , para ello hago esto
::oDSFamilias:SetRelation("Grupo_ID,::oDSGrupos), hago esto porque quiero
mostrar en las 2 primeras columnas del Browse dos campos del DataSet
oDSGrupos los cuales son Clave del Grupo y Nombre del Grupo y el resto de
las columnas del Browse los campos del DataSet oDSFamilias.
Mi pregunta es como lo hago ?
Atravez de Campos calculados y como sería ?
He visto ejemplos de campos calculados , pero solo se refieren a un solo
DataSet.
Alguien me podría poner un ejemplo de utilizar 2 DataSets relacionados en
un TDBBrowse.
para que las 2 primeras columnas sean de un DataSet y el resto de otro
DataSet
Gracias...

Martin,
Se puede hacer de dos formas:
1) Capturando el evento OnGetData de la columna, por ejemplo:
METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS TForm2
Value := ::oDSGrupos:Clave
RETURN Nil
2) Creando un campo calculado en oDSFamilias, por ejemplo:
::oDSFamilias:AddCalcField("GruposClave",{|oField| ::oDSGrupos:Clave })
Y logicmante indicando en la columna del browse que oDataField es
"GruposClave"
Observe como en ambos casos el código se ha simplificado bastante al existir
la relación entre las tablas. No obstante con muy poco esfuerzo adicional
podría haber conseguido el mismo resultado sin necesidad de hacer la
relación, simplemente realizando manualmente la búsqueda en oDSGrupos. Algo
así:
METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS TForm2
IF ::oDSGrupos:Seek( ::oDSFamilia:Campo )
Value := ::oDSGrupos:Clave
ENDIF
RETURN Nil
Un saludo
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Martin del Angel" <martindelangel@msn.com> escribió en el mensaje
news:[email=46a60d3e@ozsrv2.ozlan.local...]46a60d3e@ozsrv2.ozlan.local...[/email]
> Buen Dia !
>
> Estoy Usando TDbfDataSet con Tablas de Advantage (ADT)
>
> Tengo un TDBBrowse que su DataSet es oDSFamilias el cual tiene un campo
> que se llama Grupo_ID , el cual quiero relacionar con el campo de otro
> DataSet que se llama oDSGrupos donde contiene un campo del mismo nombre
> (Grupo_ID) , para ello hago esto
> ::oDSFamilias:SetRelation("Grupo_ID,::oDSGrupos), hago esto porque quiero
> mostrar en las 2 primeras columnas del Browse dos campos del DataSet
> oDSGrupos los cuales son Clave del Grupo y Nombre del Grupo y el resto de
> las columnas del Browse los campos del DataSet oDSFamilias.
>
> Mi pregunta es como lo hago ?
>
> Atravez de Campos calculados y como sería ?
> He visto ejemplos de campos calculados , pero solo se refieren a un solo
> DataSet.
>
> Alguien me podría poner un ejemplo de utilizar 2 DataSets relacionados en
> un TDBBrowse.
> para que las 2 primeras columnas sean de un DataSet y el resto de otro
> DataSet
>
>
> Gracias...
>
>
>

Gracias Ignacio.....
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> wrote in message
news:46a624a0$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Martin,
>
> Se puede hacer de dos formas:
>
> 1) Capturando el evento OnGetData de la columna, por ejemplo:
>
> METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS TForm2
>
> Value := ::oDSGrupos:Clave
>
> RETURN Nil
>
> 2) Creando un campo calculado en oDSFamilias, por ejemplo:
>
> ::oDSFamilias:AddCalcField("GruposClave",{|oField| ::oDSGrupos:Clave })
>
> Y logicmante indicando en la columna del browse que oDataField es
> "GruposClave"
>
> Observe como en ambos casos el código se ha simplificado bastante al
> existir la relación entre las tablas. No obstante con muy poco esfuerzo
> adicional podría haber conseguido el mismo resultado sin necesidad de
> hacer la relación, simplemente realizando manualmente la búsqueda en
> oDSGrupos. Algo así:
>
> METHOD DBBrowse1Column1GetData( oSender, Value, nImage ) CLASS TForm2
>
> IF ::oDSGrupos:Seek( ::oDSFamilia:Campo )
> Value := ::oDSGrupos:Clave
> ENDIF
>
> RETURN Nil
>
> Un saludo
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Martin del Angel" <martindelangel@msn.com> escribió en el mensaje
> news:[email=46a60d3e@ozsrv2.ozlan.local...]46a60d3e@ozsrv2.ozlan.local...[/email]
>> Buen Dia !
>>
>> Estoy Usando TDbfDataSet con Tablas de Advantage (ADT)
>>
>> Tengo un TDBBrowse que su DataSet es oDSFamilias el cual tiene un campo
>> que se llama Grupo_ID , el cual quiero relacionar con el campo de otro
>> DataSet que se llama oDSGrupos donde contiene un campo del mismo nombre
>> (Grupo_ID) , para ello hago esto
>> ::oDSFamilias:SetRelation("Grupo_ID,::oDSGrupos), hago esto porque quiero
>> mostrar en las 2 primeras columnas del Browse dos campos del DataSet
>> oDSGrupos los cuales son Clave del Grupo y Nombre del Grupo y el resto
>> de las columnas del Browse los campos del DataSet oDSFamilias.
>>
>> Mi pregunta es como lo hago ?
>>
>> Atravez de Campos calculados y como sería ?
>> He visto ejemplos de campos calculados , pero solo se refieren a un solo
>> DataSet.
>>
>> Alguien me podría poner un ejemplo de utilizar 2 DataSets relacionados
>> en un TDBBrowse.
>> para que las 2 primeras columnas sean de un DataSet y el resto de otro
>> DataSet
>>
>>
>> Gracias...
>>
>>
>>
>
>