Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

SetRelation con dos DbBrowser

https://forum.xailer.com/viewtopic.php?t=2083

Página 1 de 1

SetRelation con dos DbBrowser

Publicado: Mié Ago 24, 2005 2:35 pm
por jrcpoli
Saludos
En la pantalla que ajunto se aprecian dos Browser que tienen
relacionados dos campos que se llaman N_Zona, lo que necesito y no he
conseguido por falta de experiencia es que cuando en el primer Bbrowse se
seleccione un registro en la otra solo se muestren los registros cuya Zona
sea la seleccionada en el primero no que se vean todos.
Este es el codigo que tengo implementado de momento.
CLASS TFormZonas FROM TForm
COMPONENT oDataSourceZonas
COMPONENT oDataSetZonas
COMPONENT oDataSourceClub
COMPONENT oDataSetClub
COMPONENT oDBClub
COMPONENT oDBZonas
COMPONENT oLabel1
COMPONENT oLabel2
COMPONENT oN_Zona
COMPONENT oNombre
METHOD CreateForm()
METHOD FormInitialize( oSender )
METHOD DBZonasChange( oSender, lBookMarkChanged )
ENDCLASS
#include "FormZonas.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS TFormZonas
*
** Inicializa la base de datos de Zonas
WITH OBJECT ::oDataSetZonas
:cName := 'BasesZONAS.dbf'
:lOpen := .T.
END
** Inicializa la base de datos de Club
WITH OBJECT ::oDataSetClub
** Inicializa la base de datos de Club
:cName := 'BasesCLUB.dbf'
:lOpen := .T.
END
** Relación de las DataSet de Zonas con Club
IF ::oDataSetZonas:lOpen
WITH OBJECT ::oDataSetZonas
:OrdSetFocus( "ZONAS" )
END
ENDIF
** Relacion de las DataSet de Club
IF ::oDataSetClub:lOpen
WITH OBJECT ::oDataSetClub
:OrdSetFocus( "CLUB3" )
END
ENDIF
** Unir el Browser a la DataSet
WITH OBJECT ::oDBZonas
:oDataSet := ::oDataSetZonas
//:Refresh()
END
** Unir el Browser a la DataSet
WITH OBJECT ::oDBClub
:oDataSet := ::oDataSetClub
//:Refresh()
END
** Unir el Campo a la DataSet
WITH OBJECT ::oN_Zona
:oDataSet := ::oDataSetZonas
END
** Unir el Campo a la DataSet
WITH OBJECT ::oNombre
:oDataSet := ::oDataSetZonas
END
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
WITH OBJECT ::oDBClub
:oDataSet := ::oDataSetClub
END
RETURN Nil


Attached files Zonas.zip (5.3 KB)Â

SetRelation con dos DbBrowser

Publicado: Vie Ago 26, 2005 12:12 am
por jrcpoli
Por favor Ignacio seguro que puede haber algo que me falta para que la
relación se realice, me puedes contestar.
Ramón.
"José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
> Saludos
>
> En la pantalla que ajunto se aprecian dos Browser que tienen
> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
> conseguido por falta de experiencia es que cuando en el primer Bbrowse se
> seleccione un registro en la otra solo se muestren los registros cuya Zona
> sea la seleccionada en el primero no que se vean todos.
>
> Este es el codigo que tengo implementado de momento.
>
> CLASS TFormZonas FROM TForm
> COMPONENT oDataSourceZonas
> COMPONENT oDataSetZonas
> COMPONENT oDataSourceClub
> COMPONENT oDataSetClub
> COMPONENT oDBClub
> COMPONENT oDBZonas
> COMPONENT oLabel1
> COMPONENT oLabel2
> COMPONENT oN_Zona
> COMPONENT oNombre
>
> METHOD CreateForm()
> METHOD FormInitialize( oSender )
> METHOD DBZonasChange( oSender, lBookMarkChanged )
> ENDCLASS
> #include "FormZonas.xfm"
> //---------------------------------------------------------- --------------------
> METHOD FormInitialize( oSender ) CLASS TFormZonas
> *
> ** Inicializa la base de datos de Zonas
> WITH OBJECT ::oDataSetZonas
> :cName := 'BasesZONAS.dbf'
> :lOpen := .T.
> END
> ** Inicializa la base de datos de Club
> WITH OBJECT ::oDataSetClub
> ** Inicializa la base de datos de Club
> :cName := 'BasesCLUB.dbf'
> :lOpen := .T.
> END
> ** Relación de las DataSet de Zonas con Club
> IF ::oDataSetZonas:lOpen
> WITH OBJECT ::oDataSetZonas
> :OrdSetFocus( "ZONAS" )
> END
> ENDIF
> ** Relacion de las DataSet de Club
> IF ::oDataSetClub:lOpen
> WITH OBJECT ::oDataSetClub
> :OrdSetFocus( "CLUB3" )
> END
> ENDIF
> ** Unir el Browser a la DataSet
> WITH OBJECT ::oDBZonas
> :oDataSet := ::oDataSetZonas
> //:Refresh()
> END
> ** Unir el Browser a la DataSet
> WITH OBJECT ::oDBClub
> :oDataSet := ::oDataSetClub
> //:Refresh()
> END
> ** Unir el Campo a la DataSet
> WITH OBJECT ::oN_Zona
> :oDataSet := ::oDataSetZonas
> END
> ** Unir el Campo a la DataSet
> WITH OBJECT ::oNombre
> :oDataSet := ::oDataSetZonas
> END
> RETURN Nil
> //---------------------------------------------------------- --------------------
> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
> WITH OBJECT ::oDBClub
> :oDataSet := ::oDataSetClub
> END
> RETURN Nil
>
>
>
>

SetRelation con dos DbBrowser

Publicado: Vie Ago 26, 2005 10:17 am
por ignacio
José,
La forma más sencilla sería:
- No establezcas relaciones, no hace falta
- Establece el TAG correctamente en la relacionada
- En el evento ONCHANGE del primer Browse, simplemente establece un
oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera es
necesario refrescar el segundo browse.
Un saludo,
"José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
> Por favor Ignacio seguro que puede haber algo que me falta para que la
> relación se realice, me puedes contestar.
>
> Ramón.
>
> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
>> Saludos
>>
>> En la pantalla que ajunto se aprecian dos Browser que tienen
>> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
>> conseguido por falta de experiencia es que cuando en el primer Bbrowse se
>> seleccione un registro en la otra solo se muestren los registros cuya
>> Zona
>> sea la seleccionada en el primero no que se vean todos.
>>
>> Este es el codigo que tengo implementado de momento.
>>
>> CLASS TFormZonas FROM TForm
>> COMPONENT oDataSourceZonas
>> COMPONENT oDataSetZonas
>> COMPONENT oDataSourceClub
>> COMPONENT oDataSetClub
>> COMPONENT oDBClub
>> COMPONENT oDBZonas
>> COMPONENT oLabel1
>> COMPONENT oLabel2
>> COMPONENT oN_Zona
>> COMPONENT oNombre
>>
>> METHOD CreateForm()
>> METHOD FormInitialize( oSender )
>> METHOD DBZonasChange( oSender, lBookMarkChanged )
>> ENDCLASS
>> #include "FormZonas.xfm"
>> //---------------------------------------------------------- --------------------
>> METHOD FormInitialize( oSender ) CLASS TFormZonas
>> *
>> ** Inicializa la base de datos de Zonas
>> WITH OBJECT ::oDataSetZonas
>> :cName := 'BasesZONAS.dbf'
>> :lOpen := .T.
>> END
>> ** Inicializa la base de datos de Club
>> WITH OBJECT ::oDataSetClub
>> ** Inicializa la base de datos de Club
>> :cName := 'BasesCLUB.dbf'
>> :lOpen := .T.
>> END
>> ** Relación de las DataSet de Zonas con Club
>> IF ::oDataSetZonas:lOpen
>> WITH OBJECT ::oDataSetZonas
>> :OrdSetFocus( "ZONAS" )
>> END
>> ENDIF
>> ** Relacion de las DataSet de Club
>> IF ::oDataSetClub:lOpen
>> WITH OBJECT ::oDataSetClub
>> :OrdSetFocus( "CLUB3" )
>> END
>> ENDIF
>> ** Unir el Browser a la DataSet
>> WITH OBJECT ::oDBZonas
>> :oDataSet := ::oDataSetZonas
>> //:Refresh()
>> END
>> ** Unir el Browser a la DataSet
>> WITH OBJECT ::oDBClub
>> :oDataSet := ::oDataSetClub
>> //:Refresh()
>> END
>> ** Unir el Campo a la DataSet
>> WITH OBJECT ::oN_Zona
>> :oDataSet := ::oDataSetZonas
>> END
>> ** Unir el Campo a la DataSet
>> WITH OBJECT ::oNombre
>> :oDataSet := ::oDataSetZonas
>> END
>> RETURN Nil
>> //---------------------------------------------------------- --------------------
>> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
>> WITH OBJECT ::oDBClub
>> :oDataSet := ::oDataSetClub
>> END
>> RETURN Nil
>>
>>
>>
>>
>
>
>

SetRelation con dos DbBrowser

Publicado: Vie Ago 26, 2005 1:08 pm
por jrcpoli
Ignacio:
He realizado lo que me has dicho y funciona perfecto, gracias.
Ramón.
"Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
news:[email=430ecffa@ozsrvnegro.ozlan.local...]430ecffa@ozsrvnegro.ozlan.local...[/email]
> José,
>
> La forma más sencilla sería:
>
> - No establezcas relaciones, no hace falta
> - Establece el TAG correctamente en la relacionada
> - En el evento ONCHANGE del primer Browse, simplemente establece un
> oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera es
> necesario refrescar el segundo browse.
>
> Un saludo,
>
> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
>> Por favor Ignacio seguro que puede haber algo que me falta para que la
>> relación se realice, me puedes contestar.
>>
>> Ramón.
>>
>> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
>> news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
>>> Saludos
>>>
>>> En la pantalla que ajunto se aprecian dos Browser que tienen
>>> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
>>> conseguido por falta de experiencia es que cuando en el primer Bbrowse
>>> se
>>> seleccione un registro en la otra solo se muestren los registros cuya
>>> Zona
>>> sea la seleccionada en el primero no que se vean todos.
>>>
>>> Este es el codigo que tengo implementado de momento.
>>>
>>> CLASS TFormZonas FROM TForm
>>> COMPONENT oDataSourceZonas
>>> COMPONENT oDataSetZonas
>>> COMPONENT oDataSourceClub
>>> COMPONENT oDataSetClub
>>> COMPONENT oDBClub
>>> COMPONENT oDBZonas
>>> COMPONENT oLabel1
>>> COMPONENT oLabel2
>>> COMPONENT oN_Zona
>>> COMPONENT oNombre
>>>
>>> METHOD CreateForm()
>>> METHOD FormInitialize( oSender )
>>> METHOD DBZonasChange( oSender, lBookMarkChanged )
>>> ENDCLASS
>>> #include "FormZonas.xfm"
>>> //---------------------------------------------------------- --------------------
>>> METHOD FormInitialize( oSender ) CLASS TFormZonas
>>> *
>>> ** Inicializa la base de datos de Zonas
>>> WITH OBJECT ::oDataSetZonas
>>> :cName := 'BasesZONAS.dbf'
>>> :lOpen := .T.
>>> END
>>> ** Inicializa la base de datos de Club
>>> WITH OBJECT ::oDataSetClub
>>> ** Inicializa la base de datos de Club
>>> :cName := 'BasesCLUB.dbf'
>>> :lOpen := .T.
>>> END
>>> ** Relación de las DataSet de Zonas con Club
>>> IF ::oDataSetZonas:lOpen
>>> WITH OBJECT ::oDataSetZonas
>>> :OrdSetFocus( "ZONAS" )
>>> END
>>> ENDIF
>>> ** Relacion de las DataSet de Club
>>> IF ::oDataSetClub:lOpen
>>> WITH OBJECT ::oDataSetClub
>>> :OrdSetFocus( "CLUB3" )
>>> END
>>> ENDIF
>>> ** Unir el Browser a la DataSet
>>> WITH OBJECT ::oDBZonas
>>> :oDataSet := ::oDataSetZonas
>>> //:Refresh()
>>> END
>>> ** Unir el Browser a la DataSet
>>> WITH OBJECT ::oDBClub
>>> :oDataSet := ::oDataSetClub
>>> //:Refresh()
>>> END
>>> ** Unir el Campo a la DataSet
>>> WITH OBJECT ::oN_Zona
>>> :oDataSet := ::oDataSetZonas
>>> END
>>> ** Unir el Campo a la DataSet
>>> WITH OBJECT ::oNombre
>>> :oDataSet := ::oDataSetZonas
>>> END
>>> RETURN Nil
>>> //---------------------------------------------------------- --------------------
>>> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
>>> WITH OBJECT ::oDBClub
>>> :oDataSet := ::oDataSetClub
>>> END
>>> RETURN Nil
>>>
>>>
>>>
>>>
>>
>>
>>
>
>

SetRelation con dos DbBrowser

Publicado: Dom Ago 28, 2005 4:09 pm
por PILO
Ignacion puede escribir la programación necesito lo mismo y no tengo ni
idea de ellos
gracias de antemano
"Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
news:[email=430ecffa@ozsrvnegro.ozlan.local...]430ecffa@ozsrvnegro.ozlan.local...[/email]
> José,
>
> La forma más sencilla sería:
>
> - No establezcas relaciones, no hace falta
> - Establece el TAG correctamente en la relacionada
> - En el evento ONCHANGE del primer Browse, simplemente establece un
> oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera es
> necesario refrescar el segundo browse.
>
> Un saludo,
>
> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
> > Por favor Ignacio seguro que puede haber algo que me falta para que la
> > relación se realice, me puedes contestar.
> >
> > Ramón.
> >
> > "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> > news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
> >> Saludos
> >>
> >> En la pantalla que ajunto se aprecian dos Browser que tienen
> >> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
> >> conseguido por falta de experiencia es que cuando en el primer Bbrowse
se
> >> seleccione un registro en la otra solo se muestren los registros cuya
> >> Zona
> >> sea la seleccionada en el primero no que se vean todos.
> >>
> >> Este es el codigo que tengo implementado de momento.
> >>
> >> CLASS TFormZonas FROM TForm
> >> COMPONENT oDataSourceZonas
> >> COMPONENT oDataSetZonas
> >> COMPONENT oDataSourceClub
> >> COMPONENT oDataSetClub
> >> COMPONENT oDBClub
> >> COMPONENT oDBZonas
> >> COMPONENT oLabel1
> >> COMPONENT oLabel2
> >> COMPONENT oN_Zona
> >> COMPONENT oNombre
> >>
> >> METHOD CreateForm()
> >> METHOD FormInitialize( oSender )
> >> METHOD DBZonasChange( oSender, lBookMarkChanged )
> >> ENDCLASS
> >> #include "FormZonas.xfm"
> >>
//---------------------------------------------------------- ----------------
----
> >> METHOD FormInitialize( oSender ) CLASS TFormZonas
> >> *
> >> ** Inicializa la base de datos de Zonas
> >> WITH OBJECT ::oDataSetZonas
> >> :cName := 'BasesZONAS.dbf'
> >> :lOpen := .T.
> >> END
> >> ** Inicializa la base de datos de Club
> >> WITH OBJECT ::oDataSetClub
> >> ** Inicializa la base de datos de Club
> >> :cName := 'BasesCLUB.dbf'
> >> :lOpen := .T.
> >> END
> >> ** Relación de las DataSet de Zonas con Club
> >> IF ::oDataSetZonas:lOpen
> >> WITH OBJECT ::oDataSetZonas
> >> :OrdSetFocus( "ZONAS" )
> >> END
> >> ENDIF
> >> ** Relacion de las DataSet de Club
> >> IF ::oDataSetClub:lOpen
> >> WITH OBJECT ::oDataSetClub
> >> :OrdSetFocus( "CLUB3" )
> >> END
> >> ENDIF
> >> ** Unir el Browser a la DataSet
> >> WITH OBJECT ::oDBZonas
> >> :oDataSet := ::oDataSetZonas
> >> //:Refresh()
> >> END
> >> ** Unir el Browser a la DataSet
> >> WITH OBJECT ::oDBClub
> >> :oDataSet := ::oDataSetClub
> >> //:Refresh()
> >> END
> >> ** Unir el Campo a la DataSet
> >> WITH OBJECT ::oN_Zona
> >> :oDataSet := ::oDataSetZonas
> >> END
> >> ** Unir el Campo a la DataSet
> >> WITH OBJECT ::oNombre
> >> :oDataSet := ::oDataSetZonas
> >> END
> >> RETURN Nil
> >>
//---------------------------------------------------------- ----------------
----
> >> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
> >> WITH OBJECT ::oDBClub
> >> :oDataSet := ::oDataSetClub
> >> END
> >> RETURN Nil
> >>
> >>
> >>
> >>
> >
> >
> >
>
>

SetRelation con dos DbBrowser

Publicado: Mié Ago 31, 2005 10:18 am
por jrcpoli
No soy Ignacio, soy el hizo la pregunta:
El codigo anterior no lo voy a voner porque ya está en los anteriores
solo voy a poner la parte en la que se vea el código que implica la unión de
los dos browser.
En el Initialize:
** Relacion de las DataSet de Club
IF ::oDataSetClub:lOpen
WITH OBJECT ::oDataSetClub
:OrdSetFocus( "CLUB3" ) // Indice de Zonas en fichero Club
:SetScope( ::oDataSetZonas:N_Zona, ::oDataSetZonas:N_Zona, .T. )
END
ENDIF
En el OnChange del Browse sobre el que se quiere que el otro realice la
relación cuando pulsemos en este.
Para que se entienda OnChange sobre Zonas para que solo me salgan en
Club los que estan en esa zona.
METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
** SetScope de Club dependiendo del registro seleccionado
** en el Browse de Zonas por el campo N_Zona que es el por
** el que está indexado el fichero de Club, en el Inizialice, Club3
::oDataSetClub:SetScope( ::oDataSetZonas:N_Zona, ::oDataSetZonas:N_Zona,
..T. )
RETURN Nil
Otros ejemplos:
LOCAL cBusqueda
cBusqueda := Alltrim(oTEdit:Value)
::oDataSet:SetScope( cBusqueda, cBusqueda, .T. )
Lo más importante es que el indice de la base de datos sobre el que se
va a trabajar el Scope sea el mismo que el valor de busqueda.
Si estoy equivocado siempre Ignacio me corregirá.
José Ramón Castro Polinio.
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:[email=4314d023@ozsrvnegro.ozlan.local...]4314d023@ozsrvnegro.ozlan.local...[/email]
> Ignacion puede escribir la programación necesito lo mismo y no tengo ni
> idea de ellos
> gracias de antemano
> "Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
> news:[email=430ecffa@ozsrvnegro.ozlan.local...]430ecffa@ozsrvnegro.ozlan.local...[/email]
>> José,
>>
>> La forma más sencilla sería:
>>
>> - No establezcas relaciones, no hace falta
>> - Establece el TAG correctamente en la relacionada
>> - En el evento ONCHANGE del primer Browse, simplemente establece un
>> oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera es
>> necesario refrescar el segundo browse.
>>
>> Un saludo,
>>
>> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
>> news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
>> > Por favor Ignacio seguro que puede haber algo que me falta para que la
>> > relación se realice, me puedes contestar.
>> >
>> > Ramón.
>> >
>> > "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
>> > news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
>> >> Saludos
>> >>
>> >> En la pantalla que ajunto se aprecian dos Browser que tienen
>> >> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
>> >> conseguido por falta de experiencia es que cuando en el primer Bbrowse
> se
>> >> seleccione un registro en la otra solo se muestren los registros cuya
>> >> Zona
>> >> sea la seleccionada en el primero no que se vean todos.
>> >>
>> >> Este es el codigo que tengo implementado de momento.
>> >>
>> >> CLASS TFormZonas FROM TForm
>> >> COMPONENT oDataSourceZonas
>> >> COMPONENT oDataSetZonas
>> >> COMPONENT oDataSourceClub
>> >> COMPONENT oDataSetClub
>> >> COMPONENT oDBClub
>> >> COMPONENT oDBZonas
>> >> COMPONENT oLabel1
>> >> COMPONENT oLabel2
>> >> COMPONENT oN_Zona
>> >> COMPONENT oNombre
>> >>
>> >> METHOD CreateForm()
>> >> METHOD FormInitialize( oSender )
>> >> METHOD DBZonasChange( oSender, lBookMarkChanged )
>> >> ENDCLASS
>> >> #include "FormZonas.xfm"
>> >>
> //---------------------------------------------------------- ----------------
> ----
>> >> METHOD FormInitialize( oSender ) CLASS TFormZonas
>> >> *
>> >> ** Inicializa la base de datos de Zonas
>> >> WITH OBJECT ::oDataSetZonas
>> >> :cName := 'BasesZONAS.dbf'
>> >> :lOpen := .T.
>> >> END
>> >> ** Inicializa la base de datos de Club
>> >> WITH OBJECT ::oDataSetClub
>> >> ** Inicializa la base de datos de Club
>> >> :cName := 'BasesCLUB.dbf'
>> >> :lOpen := .T.
>> >> END
>> >> ** Relación de las DataSet de Zonas con Club
>> >> IF ::oDataSetZonas:lOpen
>> >> WITH OBJECT ::oDataSetZonas
>> >> :OrdSetFocus( "ZONAS" )
>> >> END
>> >> ENDIF
>> >> ** Relacion de las DataSet de Club
>> >> IF ::oDataSetClub:lOpen
>> >> WITH OBJECT ::oDataSetClub
>> >> :OrdSetFocus( "CLUB3" )
>> >> END
>> >> ENDIF
>> >> ** Unir el Browser a la DataSet
>> >> WITH OBJECT ::oDBZonas
>> >> :oDataSet := ::oDataSetZonas
>> >> //:Refresh()
>> >> END
>> >> ** Unir el Browser a la DataSet
>> >> WITH OBJECT ::oDBClub
>> >> :oDataSet := ::oDataSetClub
>> >> //:Refresh()
>> >> END
>> >> ** Unir el Campo a la DataSet
>> >> WITH OBJECT ::oN_Zona
>> >> :oDataSet := ::oDataSetZonas
>> >> END
>> >> ** Unir el Campo a la DataSet
>> >> WITH OBJECT ::oNombre
>> >> :oDataSet := ::oDataSetZonas
>> >> END
>> >> RETURN Nil
>> >>
> //---------------------------------------------------------- ----------------
> ----
>> >> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
>> >> WITH OBJECT ::oDBClub
>> >> :oDataSet := ::oDataSetClub
>> >> END
>> >> RETURN Nil
>> >>
>> >>
>> >>
>> >>
>> >
>> >
>> >
>>
>>
>
>

SetRelation con dos DbBrowser

Publicado: Mié Ago 31, 2005 10:38 am
por ignacio
José,
Yo no lo habría hecho mejor. Muchas gracias.
Un saludo,
"José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
news:431567e9$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> No soy Ignacio, soy el hizo la pregunta:
>
> El codigo anterior no lo voy a voner porque ya está en los anteriores
> solo voy a poner la parte en la que se vea el código que implica la unión
> de
> los dos browser.
>
> En el Initialize:
>
> ** Relacion de las DataSet de Club
> IF ::oDataSetClub:lOpen
> WITH OBJECT ::oDataSetClub
> :OrdSetFocus( "CLUB3" ) // Indice de Zonas en fichero Club
> :SetScope( ::oDataSetZonas:N_Zona, ::oDataSetZonas:N_Zona, .T. )
> END
> ENDIF
>
> En el OnChange del Browse sobre el que se quiere que el otro realice la
> relación cuando pulsemos en este.
> Para que se entienda OnChange sobre Zonas para que solo me salgan en
> Club los que estan en esa zona.
> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
> ** SetScope de Club dependiendo del registro seleccionado
> ** en el Browse de Zonas por el campo N_Zona que es el por
> ** el que está indexado el fichero de Club, en el Inizialice, Club3
> ::oDataSetClub:SetScope( ::oDataSetZonas:N_Zona, ::oDataSetZonas:N_Zona,
> .T. )
>
> RETURN Nil
>
> Otros ejemplos:
>
> LOCAL cBusqueda
>
> cBusqueda := Alltrim(oTEdit:Value)
> ::oDataSet:SetScope( cBusqueda, cBusqueda, .T. )
>
> Lo más importante es que el indice de la base de datos sobre el que se
> va a trabajar el Scope sea el mismo que el valor de busqueda.
>
> Si estoy equivocado siempre Ignacio me corregirá.
>
> José Ramón Castro Polinio.
>
> "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> news:[email=4314d023@ozsrvnegro.ozlan.local...]4314d023@ozsrvnegro.ozlan.local...[/email]
>> Ignacion puede escribir la programación necesito lo mismo y no tengo ni
>> idea de ellos
>> gracias de antemano
>> "Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
>> news:[email=430ecffa@ozsrvnegro.ozlan.local...]430ecffa@ozsrvnegro.ozlan.local...[/email]
>>> José,
>>>
>>> La forma más sencilla sería:
>>>
>>> - No establezcas relaciones, no hace falta
>>> - Establece el TAG correctamente en la relacionada
>>> - En el evento ONCHANGE del primer Browse, simplemente establece un
>>> oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera
>>> es
>>> necesario refrescar el segundo browse.
>>>
>>> Un saludo,
>>>
>>> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
>>> news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
>>> > Por favor Ignacio seguro que puede haber algo que me falta para que la
>>> > relación se realice, me puedes contestar.
>>> >
>>> > Ramón.
>>> >
>>> > "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
>>> > news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
>>> >> Saludos
>>> >>
>>> >> En la pantalla que ajunto se aprecian dos Browser que tienen
>>> >> relacionados dos campos que se llaman N_Zona, lo que necesito y no he
>>> >> conseguido por falta de experiencia es que cuando en el primer
>>> >> Bbrowse
>> se
>>> >> seleccione un registro en la otra solo se muestren los registros cuya
>>> >> Zona
>>> >> sea la seleccionada en el primero no que se vean todos.
>>> >>
>>> >> Este es el codigo que tengo implementado de momento.
>>> >>
>>> >> CLASS TFormZonas FROM TForm
>>> >> COMPONENT oDataSourceZonas
>>> >> COMPONENT oDataSetZonas
>>> >> COMPONENT oDataSourceClub
>>> >> COMPONENT oDataSetClub
>>> >> COMPONENT oDBClub
>>> >> COMPONENT oDBZonas
>>> >> COMPONENT oLabel1
>>> >> COMPONENT oLabel2
>>> >> COMPONENT oN_Zona
>>> >> COMPONENT oNombre
>>> >>
>>> >> METHOD CreateForm()
>>> >> METHOD FormInitialize( oSender )
>>> >> METHOD DBZonasChange( oSender, lBookMarkChanged )
>>> >> ENDCLASS
>>> >> #include "FormZonas.xfm"
>>> >>
>> //---------------------------------------------------------- ----------------
>> ----
>>> >> METHOD FormInitialize( oSender ) CLASS TFormZonas
>>> >> *
>>> >> ** Inicializa la base de datos de Zonas
>>> >> WITH OBJECT ::oDataSetZonas
>>> >> :cName := 'BasesZONAS.dbf'
>>> >> :lOpen := .T.
>>> >> END
>>> >> ** Inicializa la base de datos de Club
>>> >> WITH OBJECT ::oDataSetClub
>>> >> ** Inicializa la base de datos de Club
>>> >> :cName := 'BasesCLUB.dbf'
>>> >> :lOpen := .T.
>>> >> END
>>> >> ** Relación de las DataSet de Zonas con Club
>>> >> IF ::oDataSetZonas:lOpen
>>> >> WITH OBJECT ::oDataSetZonas
>>> >> :OrdSetFocus( "ZONAS" )
>>> >> END
>>> >> ENDIF
>>> >> ** Relacion de las DataSet de Club
>>> >> IF ::oDataSetClub:lOpen
>>> >> WITH OBJECT ::oDataSetClub
>>> >> :OrdSetFocus( "CLUB3" )
>>> >> END
>>> >> ENDIF
>>> >> ** Unir el Browser a la DataSet
>>> >> WITH OBJECT ::oDBZonas
>>> >> :oDataSet := ::oDataSetZonas
>>> >> //:Refresh()
>>> >> END
>>> >> ** Unir el Browser a la DataSet
>>> >> WITH OBJECT ::oDBClub
>>> >> :oDataSet := ::oDataSetClub
>>> >> //:Refresh()
>>> >> END
>>> >> ** Unir el Campo a la DataSet
>>> >> WITH OBJECT ::oN_Zona
>>> >> :oDataSet := ::oDataSetZonas
>>> >> END
>>> >> ** Unir el Campo a la DataSet
>>> >> WITH OBJECT ::oNombre
>>> >> :oDataSet := ::oDataSetZonas
>>> >> END
>>> >> RETURN Nil
>>> >>
>> //---------------------------------------------------------- ----------------
>> ----
>>> >> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
>>> >> WITH OBJECT ::oDBClub
>>> >> :oDataSet := ::oDataSetClub
>>> >> END
>>> >> RETURN Nil
>>> >>
>>> >>
>>> >>
>>> >>
>>> >
>>> >
>>> >
>>>
>>>
>>
>>
>
>

SetRelation con dos DbBrowser

Publicado: Vie Sep 02, 2005 11:37 am
por PILO
Muhas gracias por ello , este tipo de ayuda entre nosostros tambien es muy
importante
"Ignacio Ortiz de Zúñiga" <InvalidAccount@ozs.com> escribió en el mensaje
news:43156c7c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> José,
>
> Yo no lo habría hecho mejor. Muchas gracias.
>
> Un saludo,
>
> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> news:431567e9$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> > No soy Ignacio, soy el hizo la pregunta:
> >
> > El codigo anterior no lo voy a voner porque ya está en los anteriores
> > solo voy a poner la parte en la que se vea el código que implica la
unión
> > de
> > los dos browser.
> >
> > En el Initialize:
> >
> > ** Relacion de las DataSet de Club
> > IF ::oDataSetClub:lOpen
> > WITH OBJECT ::oDataSetClub
> > :OrdSetFocus( "CLUB3" ) // Indice de Zonas en fichero Club
> > :SetScope( ::oDataSetZonas:N_Zona, ::oDataSetZonas:N_Zona, .T. )
> > END
> > ENDIF
> >
> > En el OnChange del Browse sobre el que se quiere que el otro realice
la
> > relación cuando pulsemos en este.
> > Para que se entienda OnChange sobre Zonas para que solo me salgan en
> > Club los que estan en esa zona.
> > METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
> > ** SetScope de Club dependiendo del registro seleccionado
> > ** en el Browse de Zonas por el campo N_Zona que es el por
> > ** el que está indexado el fichero de Club, en el Inizialice, Club3
> > ::oDataSetClub:SetScope( ::oDataSetZonas:N_Zona,
::oDataSetZonas:N_Zona,
> > .T. )
> >
> > RETURN Nil
> >
> > Otros ejemplos:
> >
> > LOCAL cBusqueda
> >
> > cBusqueda := Alltrim(oTEdit:Value)
> > ::oDataSet:SetScope( cBusqueda, cBusqueda, .T. )
> >
> > Lo más importante es que el indice de la base de datos sobre el que
se
> > va a trabajar el Scope sea el mismo que el valor de busqueda.
> >
> > Si estoy equivocado siempre Ignacio me corregirá.
> >
> > José Ramón Castro Polinio.
> >
> > "PILO" <srmpilo@hotmail.com> escribió en el mensaje
> > news:[email=4314d023@ozsrvnegro.ozlan.local...]4314d023@ozsrvnegro.ozlan.local...[/email]
> >> Ignacion puede escribir la programación necesito lo mismo y no tengo ni
> >> idea de ellos
> >> gracias de antemano
> >> "Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
> >> news:[email=430ecffa@ozsrvnegro.ozlan.local...]430ecffa@ozsrvnegro.ozlan.local...[/email]
> >>> José,
> >>>
> >>> La forma más sencilla sería:
> >>>
> >>> - No establezcas relaciones, no hace falta
> >>> - Establece el TAG correctamente en la relacionada
> >>> - En el evento ONCHANGE del primer Browse, simplemente establece un
> >>> oDataSet:SetScope( xx ) en el segundo browse. En principio ni siquiera
> >>> es
> >>> necesario refrescar el segundo browse.
> >>>
> >>> Un saludo,
> >>>
> >>> "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> >>> news:[email=430e4257@ozsrvnegro.ozlan.local...]430e4257@ozsrvnegro.ozlan.local...[/email]
> >>> > Por favor Ignacio seguro que puede haber algo que me falta para que
la
> >>> > relación se realice, me puedes contestar.
> >>> >
> >>> > Ramón.
> >>> >
> >>> > "José R.Castro" <JRCPOLI@terra.es> escribió en el mensaje
> >>> > news:[email=430c698f@ozsrvnegro.ozlan.local...]430c698f@ozsrvnegro.ozlan.local...[/email]
> >>> >> Saludos
> >>> >>
> >>> >> En la pantalla que ajunto se aprecian dos Browser que tienen
> >>> >> relacionados dos campos que se llaman N_Zona, lo que necesito y no
he
> >>> >> conseguido por falta de experiencia es que cuando en el primer
> >>> >> Bbrowse
> >> se
> >>> >> seleccione un registro en la otra solo se muestren los registros
cuya
> >>> >> Zona
> >>> >> sea la seleccionada en el primero no que se vean todos.
> >>> >>
> >>> >> Este es el codigo que tengo implementado de momento.
> >>> >>
> >>> >> CLASS TFormZonas FROM TForm
> >>> >> COMPONENT oDataSourceZonas
> >>> >> COMPONENT oDataSetZonas
> >>> >> COMPONENT oDataSourceClub
> >>> >> COMPONENT oDataSetClub
> >>> >> COMPONENT oDBClub
> >>> >> COMPONENT oDBZonas
> >>> >> COMPONENT oLabel1
> >>> >> COMPONENT oLabel2
> >>> >> COMPONENT oN_Zona
> >>> >> COMPONENT oNombre
> >>> >>
> >>> >> METHOD CreateForm()
> >>> >> METHOD FormInitialize( oSender )
> >>> >> METHOD DBZonasChange( oSender, lBookMarkChanged )
> >>> >> ENDCLASS
> >>> >> #include "FormZonas.xfm"
> >>> >>
> >>
//---------------------------------------------------------- ----------------
> >> ----
> >>> >> METHOD FormInitialize( oSender ) CLASS TFormZonas
> >>> >> *
> >>> >> ** Inicializa la base de datos de Zonas
> >>> >> WITH OBJECT ::oDataSetZonas
> >>> >> :cName := 'BasesZONAS.dbf'
> >>> >> :lOpen := .T.
> >>> >> END
> >>> >> ** Inicializa la base de datos de Club
> >>> >> WITH OBJECT ::oDataSetClub
> >>> >> ** Inicializa la base de datos de Club
> >>> >> :cName := 'BasesCLUB.dbf'
> >>> >> :lOpen := .T.
> >>> >> END
> >>> >> ** Relación de las DataSet de Zonas con Club
> >>> >> IF ::oDataSetZonas:lOpen
> >>> >> WITH OBJECT ::oDataSetZonas
> >>> >> :OrdSetFocus( "ZONAS" )
> >>> >> END
> >>> >> ENDIF
> >>> >> ** Relacion de las DataSet de Club
> >>> >> IF ::oDataSetClub:lOpen
> >>> >> WITH OBJECT ::oDataSetClub
> >>> >> :OrdSetFocus( "CLUB3" )
> >>> >> END
> >>> >> ENDIF
> >>> >> ** Unir el Browser a la DataSet
> >>> >> WITH OBJECT ::oDBZonas
> >>> >> :oDataSet := ::oDataSetZonas
> >>> >> //:Refresh()
> >>> >> END
> >>> >> ** Unir el Browser a la DataSet
> >>> >> WITH OBJECT ::oDBClub
> >>> >> :oDataSet := ::oDataSetClub
> >>> >> //:Refresh()
> >>> >> END
> >>> >> ** Unir el Campo a la DataSet
> >>> >> WITH OBJECT ::oN_Zona
> >>> >> :oDataSet := ::oDataSetZonas
> >>> >> END
> >>> >> ** Unir el Campo a la DataSet
> >>> >> WITH OBJECT ::oNombre
> >>> >> :oDataSet := ::oDataSetZonas
> >>> >> END
> >>> >> RETURN Nil
> >>> >>
> >>
//---------------------------------------------------------- ----------------
> >> ----
> >>> >> METHOD DBZonasChange( oSender, lBookMarkChanged ) CLASS TFormZonas
> >>> >> WITH OBJECT ::oDBClub
> >>> >> :oDataSet := ::oDataSetClub
> >>> >> END
> >>> >> RETURN Nil
> >>> >>
> >>> >>
> >>> >>
> >>> >>
> >>> >
> >>> >
> >>> >
> >>>
> >>>
> >>
> >>
> >
> >
>
>
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España