Xailer & OZ Software

Hola,
Me estoy liando con un tema al cual no se verle la punta
En un proceso de edición de una fila de un memdataset los datacontrols
reciben el valor de los datafields. Se modifican esos valores y mediante el
método update se pasan esos valores a los campos. Creo que esta es la idea
del funcionamiento.
En mi caso concreto, ese memdataset tiene cuatro campos y _solo_ tres
datacontrols.
El cuarto campo se actualiza justo antes del update.
He probado lo siguiente
A.
::oMemDataSet:Edit()
.....
.....
::oMemDataSet:MiCuartoCampo := ::oMemDataSet:MiTercerCampo * 100
::oMemDataSet:UPdate()
B.
::oMemDataSet:Edit()
.....
.....
::oMemDataSet:VarPut(4, ::oMemDataSet:VarGet(3) * 100 )
::oMemDataSet:UPdate()
C.
::oMemDataSet:Edit()
.....
.....
::oMemDataSet:VarPut(4, ::oMemDataSet:MiTercerCampo(3) * 100 )
::oMemDataSet:UPdate()
Todos sin éxito aparente. ¿Podeis darme alguna pista?
Os dejo un proyecto (form3).
Saludos,
José Luis Capel


Attached files pruebas5.zip (3.9 KB)Â

José Luis,
No consigo ver en tu método Button2Click ninguna llamada al método
oMemDataSet:Edit(). No obstante si le doy al botón "Añadir" que hace
presisamente una llamada al método Edit() si funciona. Debería ser por
ejemplo así:
METHOD Button2Click( oSender ) CLASS TForm3
::oMemDataSet1:Edit()
::oMemdataSet1:varPut(4, ::oMemDataset1:c * 100 )
::oMemDataSet1:Update()
MsgInfo(::oMemDataset1:d)
RETURN Nil
O así (son equivalentes):
METHOD Button2Click( oSender ) CLASS TForm3
::oMemDataSet1:Edit()
::oMemdataSet1:d := ::oMemDataset1:c * 100
::oMemDataSet1:Update()
MsgInfo(::oMemDataset1:d)
RETURN Nil
En ambos casos se se coge el valor del campo 'C' antes de editarlo y
funciona correctamente ya que el campo 'D' no tiene ningún datacontrol
enlazado y por lo tanto en el método Update no se 'machaca' el valor que tu
hayas introducido por código:
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=44be1a26@news.xailer.com...]44be1a26@news.xailer.com...[/email]
> Hola,
>
> Me estoy liando con un tema al cual no se verle la punta
>
> En un proceso de edición de una fila de un memdataset los datacontrols
> reciben el valor de los datafields. Se modifican esos valores y mediante
> el método update se pasan esos valores a los campos. Creo que esta es la
> idea del funcionamiento.
>
> En mi caso concreto, ese memdataset tiene cuatro campos y _solo_ tres
> datacontrols.
>
> El cuarto campo se actualiza justo antes del update.
>
> He probado lo siguiente
>
> A.
> ::oMemDataSet:Edit()
> ....
> ....
> ::oMemDataSet:MiCuartoCampo := ::oMemDataSet:MiTercerCampo * 100
> ::oMemDataSet:UPdate()
>
>
> B.
> ::oMemDataSet:Edit()
> ....
> ....
> ::oMemDataSet:VarPut(4, ::oMemDataSet:VarGet(3) * 100 )
> ::oMemDataSet:UPdate()
>
> C.
> ::oMemDataSet:Edit()
> ....
> ....
> ::oMemDataSet:VarPut(4, ::oMemDataSet:MiTercerCampo(3) * 100 )
> ::oMemDataSet:UPdate()
>
> Todos sin éxito aparente. ¿Podeis darme alguna pista?
>
> Os dejo un proyecto (form3).
> Saludos,
> José Luis Capel
>
>

Ignacio,
Gracias por tu respuesta.
>
> No consigo ver en tu método Button2Click ninguna llamada al método
> oMemDataSet:Edit(). No obstante si le doy al botón "Añadir" que hace
> presisamente una llamada al método Edit() si funciona. Debería ser por
> ejemplo así:
Por error, el botón que pone 'Añadir' debe poner 'Editar'. A mi no me está
funcionando el ejemplo que he puesto. La secuencia que sigo es esta:
- Hago click en botón 'Añadir' (hace la llamada al Edit() )
- Modifico el valor del tercer datacontrol (el numérico) y pongo 400 (por
ejemplo).
- Hago click en 'Grabar'
- Pasa por el evento onclick y allí prentendo asignar al campo "D" (el
cuarto) el valor del campo "C" multiplicado por 100.
El resultado es el que se puede observar en la imagen. El resultado correcto
debe ser 40000 sin embargo aparece 990000. Algo se me está escapando y no
se verlo
Muchas gracias por tu ayuda.
Saludos,
José Luis Capel
>
> METHOD Button2Click( oSender ) CLASS TForm3
>
> ::oMemDataSet1:Edit()
> ::oMemdataSet1:varPut(4, ::oMemDataset1:c * 100 )
> ::oMemDataSet1:Update()
> MsgInfo(::oMemDataset1:d)
>
> RETURN Nil
>
> O así (son equivalentes):
>
> METHOD Button2Click( oSender ) CLASS TForm3
>
> ::oMemDataSet1:Edit()
> ::oMemdataSet1:d := ::oMemDataset1:c * 100
> ::oMemDataSet1:Update()
> MsgInfo(::oMemDataset1:d)
>
> RETURN Nil
>
> En ambos casos se se coge el valor del campo 'C' antes de editarlo y
> funciona correctamente ya que el campo 'D' no tiene ningún datacontrol
> enlazado y por lo tanto en el método Update no se 'machaca' el valor que
> tu
> hayas introducido por código:
>
> Un saludo,
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=44be1a26@news.xailer.com...]44be1a26@news.xailer.com...[/email]
>> Hola,
>>
>> Me estoy liando con un tema al cual no se verle la punta
>>
>> En un proceso de edición de una fila de un memdataset los datacontrols
>> reciben el valor de los datafields. Se modifican esos valores y mediante
>> el método update se pasan esos valores a los campos. Creo que esta es la
>> idea del funcionamiento.
>>
>> En mi caso concreto, ese memdataset tiene cuatro campos y _solo_ tres
>> datacontrols.
>>
>> El cuarto campo se actualiza justo antes del update.
>>
>> He probado lo siguiente
>>
>> A.
>> ::oMemDataSet:Edit()
>> ....
>> ....
>> ::oMemDataSet:MiCuartoCampo := ::oMemDataSet:MiTercerCampo * 100
>> ::oMemDataSet:UPdate()
>>
>>
>> B.
>> ::oMemDataSet:Edit()
>> ....
>> ....
>> ::oMemDataSet:VarPut(4, ::oMemDataSet:VarGet(3) * 100 )
>> ::oMemDataSet:UPdate()
>>
>> C.
>> ::oMemDataSet:Edit()
>> ....
>> ....
>> ::oMemDataSet:VarPut(4, ::oMemDataSet:MiTercerCampo(3) * 100 )
>> ::oMemDataSet:UPdate()
>>
>> Todos sin éxito aparente. ¿Podeis darme alguna pista?
>>
>> Os dejo un proyecto (form3).
>> Saludos,
>> José Luis Capel
>>
>>
>
>


Attached files

Por cierto,
En la última versión se incluyo una mejora para evitar ciertos problemas con
los datacontrols. Ahora cuando se modifica directamente el buffer del
datacontrol cuando se encuentra el DataSet en edición se actualizan
automaticamente todos los DataControls que estuvieran enlazados con dicho
campo.
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=44be439f@news.xailer.com...]44be439f@news.xailer.com...[/email]
> Ignacio,
>
> Gracias por tu respuesta.
>
>>
>> No consigo ver en tu método Button2Click ninguna llamada al método
>> oMemDataSet:Edit(). No obstante si le doy al botón "Añadir" que hace
>> presisamente una llamada al método Edit() si funciona. Debería ser por
>> ejemplo así:
>
> Por error, el botón que pone 'Añadir' debe poner 'Editar'. A mi no me
> está funcionando el ejemplo que he puesto. La secuencia que sigo es esta:
>
> - Hago click en botón 'Añadir' (hace la llamada al Edit() )
> - Modifico el valor del tercer datacontrol (el numérico) y pongo 400 (por
> ejemplo).
> - Hago click en 'Grabar'
> - Pasa por el evento onclick y allí prentendo asignar al campo "D" (el
> cuarto) el valor del campo "C" multiplicado por 100.
>
> El resultado es el que se puede observar en la imagen. El resultado
> correcto debe ser 40000 sin embargo aparece 990000. Algo se me está
> escapando y no se verlo
>
> Muchas gracias por tu ayuda.
> Saludos,
> José Luis Capel
>
>
>
>>
>> METHOD Button2Click( oSender ) CLASS TForm3
>>
>> ::oMemDataSet1:Edit()
>> ::oMemdataSet1:varPut(4, ::oMemDataset1:c * 100 )
>> ::oMemDataSet1:Update()
>> MsgInfo(::oMemDataset1:d)
>>
>> RETURN Nil
>>
>> O así (son equivalentes):
>>
>> METHOD Button2Click( oSender ) CLASS TForm3
>>
>> ::oMemDataSet1:Edit()
>> ::oMemdataSet1:d := ::oMemDataset1:c * 100
>> ::oMemDataSet1:Update()
>> MsgInfo(::oMemDataset1:d)
>>
>> RETURN Nil
>>
>> En ambos casos se se coge el valor del campo 'C' antes de editarlo y
>> funciona correctamente ya que el campo 'D' no tiene ningún datacontrol
>> enlazado y por lo tanto en el método Update no se 'machaca' el valor que
>> tu
>> hayas introducido por código:
>>
>> Un saludo,
>>
>> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
>> news:[email=44be1a26@news.xailer.com...]44be1a26@news.xailer.com...[/email]
>>> Hola,
>>>
>>> Me estoy liando con un tema al cual no se verle la punta
>>>
>>> En un proceso de edición de una fila de un memdataset los datacontrols
>>> reciben el valor de los datafields. Se modifican esos valores y
>>> mediante
>>> el método update se pasan esos valores a los campos. Creo que esta es la
>>> idea del funcionamiento.
>>>
>>> En mi caso concreto, ese memdataset tiene cuatro campos y _solo_ tres
>>> datacontrols.
>>>
>>> El cuarto campo se actualiza justo antes del update.
>>>
>>> He probado lo siguiente
>>>
>>> A.
>>> ::oMemDataSet:Edit()
>>> ....
>>> ....
>>> ::oMemDataSet:MiCuartoCampo := ::oMemDataSet:MiTercerCampo * 100
>>> ::oMemDataSet:UPdate()
>>>
>>>
>>> B.
>>> ::oMemDataSet:Edit()
>>> ....
>>> ....
>>> ::oMemDataSet:VarPut(4, ::oMemDataSet:VarGet(3) * 100 )
>>> ::oMemDataSet:UPdate()
>>>
>>> C.
>>> ::oMemDataSet:Edit()
>>> ....
>>> ....
>>> ::oMemDataSet:VarPut(4, ::oMemDataSet:MiTercerCampo(3) * 100 )
>>> ::oMemDataSet:UPdate()
>>>
>>> Todos sin éxito aparente. ¿Podeis darme alguna pista?
>>>
>>> Os dejo un proyecto (form3).
>>> Saludos,
>>> José Luis Capel
>>>
>>>
>>
>>
>
>
>

Ignacio,
>
> En la última versión se incluyo una mejora para evitar ciertos problemas
> con los datacontrols. Ahora cuando se modifica directamente el buffer del
> datacontrol cuando se encuentra el DataSet en edición se actualizan
> automaticamente todos los DataControls que estuvieran enlazados con dicho
> campo.
>
Disculpa pero no te sigo...
Volviendo a mi ejemplo.... a mi da un resultado distinto al esperado. ¿Como
puedo corregirlo?
Saludos y gracias por tu paciencia.
José Luis Capel

José Luis,
Ahora el que no te sigue soy yo
Saludos,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:44be5802$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Ignacio,
>
>>
>> En la última versión se incluyo una mejora para evitar ciertos problemas
>> con los datacontrols. Ahora cuando se modifica directamente el buffer del
>> datacontrol cuando se encuentra el DataSet en edición se actualizan
>> automaticamente todos los DataControls que estuvieran enlazados con dicho
>> campo.
>>
>
> Disculpa pero no te sigo...
>
> Volviendo a mi ejemplo.... a mi da un resultado distinto al esperado.
> ¿Como puedo corregirlo?
>
> Saludos y gracias por tu paciencia.
> José Luis Capel
>