Problema de concepto con DBFDataset

[Bingen Ugaldebere]

Como puede ser que si hago
msginfo(::oForm:oDbfUsuarios:Nombre)
Me muestre el nombre del usuario en edición
Y si hago
msginfo(::oForm:aComponents[2]:aFields[3]:Value)
Donde aComponentes[2] es oDbfUsuarios y el campo 3 Nombre, me muestre el
nombre del usuario del primer registro del DBF.
Lo mismo pasa si pido
msginfo(::oForm:aComponents[2]:aFields[3]:Buffer)
Como puedo obtener entonces el nombre del usuario en edición mediante
::oForm:aComponents[2]:aFields[3]:xxxxx
Salu2.

[zeasoftware]

prueba:
msginfo(::oForm:oDbfUsuarios:Nombre(dsFIELD))
msginfo(::oForm:oDbfUsuarios:Nombre(dsVAR))
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje news:46d5540a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Como puede ser que si hago
>
> msginfo(::oForm:oDbfUsuarios:Nombre)
>
> Me muestre el nombre del usuario en edición
>
> Y si hago
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Value)
>
> Donde aComponentes[2] es oDbfUsuarios y el campo 3 Nombre, me muestre el
> nombre del usuario del primer registro del DBF.
>
> Lo mismo pasa si pido
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Buffer)
>
> Como puedo obtener entonces el nombre del usuario en edición mediante
> ::oForm:aComponents[2]:aFields[3]:xxxxx
>
> Salu2.
--

[ignacio]

Bingen,
Leete el capítulo 'Introducción a los Datacontrols' en la ayuda. Mira
igualmente los metodos VarGet y FieldGet de TDataset o TDataField.
Un saludo
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:46d5540a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Como puede ser que si hago
>
> msginfo(::oForm:oDbfUsuarios:Nombre)
>
> Me muestre el nombre del usuario en edición
>
> Y si hago
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Value)
>
> Donde aComponentes[2] es oDbfUsuarios y el campo 3 Nombre, me muestre el
> nombre del usuario del primer registro del DBF.
>
> Lo mismo pasa si pido
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Buffer)
>
> Como puedo obtener entonces el nombre del usuario en edición mediante
> ::oForm:aComponents[2]:aFields[3]:xxxxx
>
> Salu2.

[Bingen Ugaldebere]

Gracias Ignacio
Lo que quiero hacer es recorrer todos los tDBFDataset del formulario y
en cada uno todos sus campos para crear una tabla con los valores de los
campos de los registros en edición.
> Leete el capí­tulo 'Introducción a los Datacontrols' en la ayuda. Mira
> igualmente los metodos VarGet y FieldGet de TDataset o TDataField.
Ya lo hice "creyendo entenderlo" y probé con más cosas como:
msginfo(::oForm:aComponents[2]:aFields[3]:Fieldget())
msginfo(::oForm:aComponents[2]:aFields[3]:Varget())
msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsFIELD))
msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsVAR))
msginfo(::oForm:aComponents[2]:aFields[3]:Varget(dsFIELD))
msginfo(::oForm:aComponents[2]:aFields[3]:Varget(dsVAR))
msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsOBJECT) )
msginfo((oForm:aComponents[x]:Alias())->(FieldGet(3)))
y en todas me muestra el valor del primer registro de la tabla no del
que se encuentra en edición.
La única manera de hacerlo es dándole su nombre:
msginfo(::oForm:oDbfUsuarios:Nombre)
Pero claro eso no sirve a mi propósito.

[Bingen Ugaldebere]

Mi problema de concepto es el siguiente, a ver si alguien me lo aclara.
Siguiendo el sample de Xailer DBFData6 y al ser una aplicación MDI he
hecho que el form principal sea el que tenga el datasource y los
dataset, que después tomo en un segundo form MDIChild con un browse
general de Usuarios, en cuyo evento OnCreate del Dataset de usuarios
::oDbfUsuarios:= ::oParent:oDbfUsuarios
y en el tercer form de edición de un usuario concreto tomándolo del form
anterior
::oDbfUsuarios:= ::oParent:oFormUsuarios:oDbfUsuarios
Todo funciona bien y edito el registro concreto y sin problemas hasta ahora.
Pero al parecer esto causa el problema que describo ya que al preguntar por
msginfo(::oForm:aComponents[2]:aFields[3]:Fieldget())
me esta devolviendo el valor del campo del Dataset original y no del que
he ido "heredando" lo cual si que hace
msginfo(::oForm:oDbfUsuarios:Nombre)
Vaya lí­o, siento mucho la paliza y muchas gracias a quien me pueda dar
algo de luz a este embrollo.

[ignacio]

Bingen,
Extraño lo que dices. Por favor mandeme un ejemplo.
Por cierto:
> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsFIELD))
> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsVAR))
Esto no tiene ningún sentido.
Por otra parte no tiene sentido que estando en la edición de un registro vía
DataControls, el recno NO ESTE en ese mismo registro, ya que entre otras
cosas cuando hagas el Update() se producirá un error.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=46d6764f@ozsrv2.ozlan.local...]46d6764f@ozsrv2.ozlan.local...[/email]
> Gracias Ignacio
>
> Lo que quiero hacer es recorrer todos los tDBFDataset del formulario y en
> cada uno todos sus campos para crear una tabla con los valores de los
> campos de los registros en edición.
>
>> Leete el capítulo 'Introducción a los Datacontrols' en la ayuda. Mira
>> igualmente los metodos VarGet y FieldGet de TDataset o TDataField.
>
> Ya lo hice "creyendo entenderlo" y probé con más cosas como:
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Fieldget())
> msginfo(::oForm:aComponents[2]:aFields[3]:Varget())
>
> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsFIELD))
> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsVAR))
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Varget(dsFIELD))
> msginfo(::oForm:aComponents[2]:aFields[3]:Varget(dsVAR))
>
> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsOBJECT) )
>
> msginfo((oForm:aComponents[x]:Alias())->(FieldGet(3)))
>
> y en todas me muestra el valor del primer registro de la tabla no del que
> se encuentra en edición.
>
> La única manera de hacerlo es dándole su nombre:
>
> msginfo(::oForm:oDbfUsuarios:Nombre)
>
> Pero claro eso no sirve a mi propósito.
>

[zeasoftware]

Por que no agregas tus DataSet en un arreglo o en Variables con el AppData?
A mi se me presento algo parecido, y lo que empece a hacer, fue crear un
Component en la clases hijas y pasarles los valores de los dataSet:
::oDBFClientes := oParent:oDBFClientes
Incluso yo, al heredar, uso ::oDBFClientes:Nombre(dsFIELD) y me da el valor
del registro actual en la BD, y ::oDBFClientes:Nombre(dsVAR) y me da el
valor del campo en edición.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:46d67a2d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Mi problema de concepto es el siguiente, a ver si alguien me lo aclara.
>
> Siguiendo el sample de Xailer DBFData6 y al ser una aplicación MDI he
> hecho que el form principal sea el que tenga el datasource y los dataset,
> que después tomo en un segundo form MDIChild con un browse general de
> Usuarios, en cuyo evento OnCreate del Dataset de usuarios
> ::oDbfUsuarios:= ::oParent:oDbfUsuarios
>
> y en el tercer form de edición de un usuario concreto tomándolo del form
> anterior
>
> ::oDbfUsuarios:= ::oParent:oFormUsuarios:oDbfUsuarios
>
> Todo funciona bien y edito el registro concreto y sin problemas hasta
> ahora.
>
> Pero al parecer esto causa el problema que describo ya que al preguntar
> por
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Fieldget())
>
> me esta devolviendo el valor del campo del Dataset original y no del que
> he ido "heredando" lo cual si que hace
>
> msginfo(::oForm:oDbfUsuarios:Nombre)
>
> Vaya lío, siento mucho la paliza y muchas gracias a quien me pueda dar
> algo de luz a este embrollo.

[Bingen Ugaldebere]

Gracias Ramón
> Por que no agregas tus DataSet en un arreglo o en Variables con el AppData?
> A mi se me presento algo parecido, y lo que empece a hacer, fue crear un
> Component en la clases hijas y pasarles los valores de los dataSet:
>
> ::oDBFClientes := oParent:oDBFClientes
En algo parecido estoy
> Incluso yo, al heredar, uso ::oDBFClientes:Nombre(dsFIELD) y me da el valor
> del registro actual en la BD, y ::oDBFClientes:Nombre(dsVAR) y me da el
> valor del campo en edición.
Si a mi también me funciona así­, pero haz la prueba de pedir el valor de
::oDBFClientes:Nombre sin saber el nombre del campo "Nombre" es decir
::oDBFClientes:aFields[x]:Fieldget() donde x serí­a el número del
campo en la estructura y más allá prueba a pedir
::oForm:aComponents[n]:aFields[x]:Fieldget() donde n serí­a el número
del dataset dentro del form y x serí­a el número del campo en la estructura
Si me puedes decir que valor te da te estarí­a muy agradecido.
Ah, además yo estoy trabajando con tADSDatasources y estoy por probarlo
con tCDXDatasources a ver si no me hace lo mismo.
Salu2 y gracias de nuevo.

[zeasoftware]

Bingen:
Supongo estas utilizando STRTRAN, si quieres mandame el proyecto ya sea con archivos objetos, y un pequeño uso de la clase, y lo intento usar con el TExpParser de Xailer, algunas cosas que le haye las fui documentando y otras no,
Igual se me olvidaba decirte que la uso con archivos de Texto, donde tengo algunos formatos de impresion en comandos y uso de variables.
Centrar <Empresa.RFC> Ancho 40
Fuente "Negrita"
@@ 480 Escribe "Folio: " + <Folio>
BrincaLinea
@@ 100 Escribe "Fecha: " + <Fecha>
Ya en caso de salir bien, te mando de regreso todo junto con la TExpParser, ya que me parecio buena clase.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje news:[email=46d7bd30@ozsrv2.ozlan.local...]46d7bd30@ozsrv2.ozlan.local...[/email]
> Gracias Ramón
>> Por que no agregas tus DataSet en un arreglo o en Variables con el AppData?
>> A mi se me presento algo parecido, y lo que empece a hacer, fue crear un
>> Component en la clases hijas y pasarles los valores de los dataSet:
>>
>> ::oDBFClientes := oParent:oDBFClientes
>
> En algo parecido estoy
>
>> Incluso yo, al heredar, uso ::oDBFClientes:Nombre(dsFIELD) y me da el valor
>> del registro actual en la BD, y ::oDBFClientes:Nombre(dsVAR) y me da el
>> valor del campo en edición.
>
> Si a mi también me funciona así­, pero haz la prueba de pedir el valor de
> ::oDBFClientes:Nombre sin saber el nombre del campo "Nombre" es decir
>
> ::oDBFClientes:aFields[x]:Fieldget() donde x serí­a el número del
> campo en la estructura y más allá prueba a pedir
>
> ::oForm:aComponents[n]:aFields[x]:Fieldget() donde n serí­a el número
> del dataset dentro del form y x serí­a el número del campo en la estructura
>
> Si me puedes decir que valor te da te estarí­a muy agradecido.
>
> Ah, además yo estoy trabajando con tADSDatasources y estoy por probarlo
> con tCDXDatasources a ver si no me hace lo mismo.
>
> Salu2 y gracias de nuevo.
--

[Bingen Ugaldebere]

Lo siento Ignacio por mas ejemplos que hago de tamaño limitado todo
funciona correctamente, lógico y como deberí­a de ser siempre el campo
tiene el contenido del registro activo pero en mi programa no, me está
volviendo loco, pero te puedo jurar que el update() lo hace perfectamente.
Sigo haciendo pruebas y si encuentro algo te cuento, muchas gracias.
Ortiz de Zúñiga escribió:
> Bingen,
>
> Extraño lo que dices. Por favor mandeme un ejemplo.
>
> Por cierto:
>
>> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsFIELD))
>> msginfo(::oForm:aComponents[2]:aFields[3]:fieldget(dsVAR))
>
> Esto no tiene ningún sentido.
>
> Por otra parte no tiene sentido que estando en la edición de un registro ví­a
> DataControls, el recno NO ESTE en ese mismo registro, ya que entre otras
> cosas cuando hagas el Update() se producirá un error.
>
> Un saludo,
>

[Bingen Ugaldebere]

Descubierto el porque de este comportamiento.
Se me ocurrió que para usar ADS y con su estabilidad, era mejor (antes
lo hacia en FW) abrir todos los DBFs al principio y luego ir pasándolos
a los formularios que aunque tienen su propio Datasource/Datasets para
el diseño visual, "heredan" del formulario padre los Datasource/Datasets
en tiempo de ejecución, vamos lo normal, como los ejemplos de Xailer mas
o menos.
Pero rizando el rizo hice que los objetos Datasource/Datasets no
estuvieran en el formulario principal MDI sino que pertenecieran a
AppData mediante un bucle For Next que abre todos los DBFs de la carpeta
designada en el arranque, local o servidor.
Aquí­ esta el "problema de concepto" ya que si hago
msginfo(::oForm:oDbfUsuarios:Nombre)
Me muestre el nombre del usuario en edición
Y si hago
msginfo(::oForm:aComponents[2]:aFields[3]:Value)
me muestra el Nombre del primer registro pero si hago
msginfo(AppData:oDbf[2]:aFields[3]:Value)
Me muestra el nombre del usuario en edición que es lo que querí­a.
Explicación, no lo se si meto el Datasource/Datasets dentro del MainForm
funciona como debiera pero si lo meto en AppData y de hay lo "heredo" a
los formularios funciona bien dando altas editando y haciendo update
pero se me lí­an los componentes dichosos.
Salu2 a todos y gracias por vuestras sugerencias.

[ignacio]

Bingen,
Raro, raro, raro, ....
Comprueba que ::oForm:aComponents[2] y AppData:oDbf[2] apuntan EXACTAMENTE a
la misma área, es decir, su propiedad cAlias es idéntica. En caso contrario,
me temo que estás abriendo la tabla dos o más veces.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:46dc39d3$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Descubierto el porque de este comportamiento.
>
> Se me ocurrió que para usar ADS y con su estabilidad, era mejor (antes lo
> hacia en FW) abrir todos los DBFs al principio y luego ir pasándolos a los
> formularios que aunque tienen su propio Datasource/Datasets para el diseño
> visual, "heredan" del formulario padre los Datasource/Datasets en tiempo
> de ejecución, vamos lo normal, como los ejemplos de Xailer mas o menos.
>
> Pero rizando el rizo hice que los objetos Datasource/Datasets no
> estuvieran en el formulario principal MDI sino que pertenecieran a AppData
> mediante un bucle For Next que abre todos los DBFs de la carpeta designada
> en el arranque, local o servidor.
>
> Aquí esta el "problema de concepto" ya que si hago
>
> msginfo(::oForm:oDbfUsuarios:Nombre)
>
> Me muestre el nombre del usuario en edición
>
> Y si hago
>
> msginfo(::oForm:aComponents[2]:aFields[3]:Value)
>
> me muestra el Nombre del primer registro pero si hago
>
> msginfo(AppData:oDbf[2]:aFields[3]:Value)
>
>
> Me muestra el nombre del usuario en edición que es lo que quería.
>
> Explicación, no lo se si meto el Datasource/Datasets dentro del MainForm
> funciona como debiera pero si lo meto en AppData y de hay lo "heredo" a
> los formularios funciona bien dando altas editando y haciendo update pero
> se me lían los componentes dichosos.
>
> Salu2 a todos y gracias por vuestras sugerencias.

[Bingen Ugaldebere]

Tienes razón Ignacio, no podí­a ser otra cosa son 2 áreas diferentes
Clientes y Clientes1
Algo debo de haber pasado por alto por que voy cogiendo en cascada en
cada formulario heredando del anterior desde el Mainform, si que es
cierto que para el diseño visual los abro en cada nuevo formulario pero
luego se supone que en el OnInit de cada Dataset le asigno el del oParent.
Revisaré el código a ver que encuentro.
Muchas gracias.

[Bingen Ugaldebere]

Gracias Ramón, aunque no creo que Exparser sirva para lo que yo quiero
hacer en Word le echaré un vistazo en cuanto pueda, pero si te interesa
ya he dejado la tWord prácticamente terminada, deberí­a de hacer un
proyecto de ejemplo y un pequeño manual, pero ya es operativa.
Salu2.

[zeasoftware]

ok, si me interesa, sobre todo aprender mas, de los mastes
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=46df9e3e@ozsrv2.ozlan.local...]46df9e3e@ozsrv2.ozlan.local...[/email]
> Gracias Ramón, aunque no creo que Exparser sirva para lo que yo quiero
> hacer en Word le echaré un vistazo en cuanto pueda, pero si te interesa ya
> he dejado la tWord prácticamente terminada, debería de hacer un proyecto
> de ejemplo y un pequeño manual, pero ya es operativa.
>
> Salu2.

[zeasoftware]

- Es viable en un sistema de Xailer con DBF abrir todas las bases en el
MainForm y heredarlas ha los FormChild?
o
- Usarlas en el AppData y pasarlas a los FormChild segun se requieran, ya
sea por Clone o asignacion?
Gracias.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:[email=46df9d96@ozsrv2.ozlan.local...]46df9d96@ozsrv2.ozlan.local...[/email]
> Tienes razón Ignacio, no podía ser otra cosa son 2 áreas diferentes
> Clientes y Clientes1
> Algo debo de haber pasado por alto por que voy cogiendo en cascada en cada
> formulario heredando del anterior desde el Mainform, si que es cierto que
> para el diseño visual los abro en cada nuevo formulario pero luego se
> supone que en el OnInit de cada Dataset le asigno el del oParent.
>
> Revisaré el código a ver que encuentro.
>
> Muchas gracias.

[Bingen Ugaldebere]

Si yo lo hago de la segunda manera pero además abro los Datasets de
nuevo en cada Form MdiChild para poder hacer el diseño visual
eficientemente, aunque luego en ejecución estos Dataset los sustituyo
con los de AppData.
Ramón Zea escribió:
> - Es viable en un sistema de Xailer con DBF abrir todas las bases en el
> MainForm y heredarlas ha los FormChild?
>
> o
>
> - Usarlas en el AppData y pasarlas a los FormChild segun se requieran, ya
> sea por Clone o asignacion?
>
>
> Gracias.

[Bingen Ugaldebere]

Tengo que preparar un proyecto separado con un ejemplo y un pequeño
manual, en cuanto este lo pongo por aqui.
Salu2.