Me marcar error al editar

[MARIO DAVALOS]

Hola a todos,
Esto me funcionaba bien en la version 1.99:
WITH OBJECT oSQLQDataCarga := TSQLQuery():Create()
IF :lOpen
:Close()
ENDIF
:oDataSource := AppData:oDataSource
:nLockType := adLockOptimistic
:cSelect := "select id_cliente, importe, consumo, saldo from CARGAS
" + ;
"where (importe - consumo ) > 0 order by id_cliente,
compra"
:Open()
:Gotop()
WHILE ! :Eof()
// Si tuvo consumo
IF ( nCV := Ascan( aConsXCDR, {|x| x[1] == :id_cliente} ) ) > 0
:consumo := :consumo + aConsXCDR[ nCV, 2 ]
Ahora me marca el siguiente error al modificar :consumo
TSQLQUERY:FIELDPUT(953)
Error XAILER:FieldPut()/0 Not in Edit or AddNew mode. FieldPut() not
allowed
Argumentos: ()
Le agrege :Edit() antes de modificar el consumo y, ya no me marca error pero
tampoco me modifica el consumo.
Tengo Ver. 2.0 Octuber y uso DB MySQL.
Apreciare cualquier ayuda que me den al respecto.
Saludos,
Mario A. Dávalos

[Fernando Leal]

Mario,
En la tabla CARGAS tienes una llave primaria ??
Por que es a la de producto de gallina.
Saludos
"Mario A. Dávalos" <mariodava@hotmail.com> escribió en el mensaje de
noticias news:[email=4afa0896@svctag-j7w3v3j....]4afa0896@svctag-j7w3v3j....[/email]
> Hola a todos,
>
> Esto me funcionaba bien en la version 1.99:
>
> WITH OBJECT oSQLQDataCarga := TSQLQuery():Create()
>
> IF :lOpen
> :Close()
> ENDIF
>
> :oDataSource := AppData:oDataSource
>
> :nLockType := adLockOptimistic
>
> :cSelect := "select id_cliente, importe, consumo, saldo from
> CARGAS " + ;
> "where (importe - consumo ) > 0 order by id_cliente,
> compra"
> :Open()
>
> :Gotop()
>
> WHILE ! :Eof()
>
> // Si tuvo consumo
> IF ( nCV := Ascan( aConsXCDR, {|x| x[1] == :id_cliente} ) ) > 0
>
> :consumo := :consumo + aConsXCDR[ nCV, 2 ]
>
> Ahora me marca el siguiente error al modificar :consumo
>
> TSQLQUERY:FIELDPUT(953)
> Error XAILER:FieldPut()/0 Not in Edit or AddNew mode. FieldPut() not
> allowed
> Argumentos: ()
>
> Le agrege :Edit() antes de modificar el consumo y, ya no me marca error
> pero tampoco me modifica el consumo.
>
> Tengo Ver. 2.0 Octuber y uso DB MySQL.
>
> Apreciare cualquier ayuda que me den al respecto.
>
> Saludos,
> Mario A. Dávalos
>

[MARIO DAVALOS]

Si Fer, tengo una primary key que es autoincremental (id_cargas) y no esta
incluida en el Select.
Saludos,
"Fernando Leal" <visitante32@hotmail.com> escribió en el mensaje
news:[email=4afa0f4e@svctag-j7w3v3j....]4afa0f4e@svctag-j7w3v3j....[/email]
> Mario,
>
> En la tabla CARGAS tienes una llave primaria ??
> Por que es a la de producto de gallina.
>
> Saludos
>
>
>
> "Mario A. Dávalos" <mariodava@hotmail.com> escribió en el mensaje de
> noticias news:[email=4afa0896@svctag-j7w3v3j....]4afa0896@svctag-j7w3v3j....[/email]
>> Hola a todos,
>>
>> Esto me funcionaba bien en la version 1.99:
>>
>> WITH OBJECT oSQLQDataCarga := TSQLQuery():Create()
>>
>> IF :lOpen
>> :Close()
>> ENDIF
>>
>> :oDataSource := AppData:oDataSource
>>
>> :nLockType := adLockOptimistic
>>
>> :cSelect := "select id_cliente, importe, consumo, saldo from
>> CARGAS " + ;
>> "where (importe - consumo ) > 0 order by id_cliente,
>> compra"
>> :Open()
>>
>> :Gotop()
>>
>> WHILE ! :Eof()
>>
>> // Si tuvo consumo
>> IF ( nCV := Ascan( aConsXCDR, {|x| x[1] == :id_cliente} ) ) >
>> 0
>>
>> :consumo := :consumo + aConsXCDR[ nCV, 2 ]
>>
>> Ahora me marca el siguiente error al modificar :consumo
>>
>> TSQLQUERY:FIELDPUT(953)
>> Error XAILER:FieldPut()/0 Not in Edit or AddNew mode. FieldPut() not
>> allowed
>> Argumentos: ()
>>
>> Le agrege :Edit() antes de modificar el consumo y, ya no me marca error
>> pero tampoco me modifica el consumo.
>>
>> Tengo Ver. 2.0 Octuber y uso DB MySQL.
>>
>> Apreciare cualquier ayuda que me den al respecto.
>>
>> Saludos,
>> Mario A. Dávalos
>>
>