Error cuando Cancelo Adicion de Nuevo Registro Usando ADO en Oracle

[Fernando Hernandez]

Buenas Tardes
Con relacion a este problema, esperaba que en la version 1.3c quedara
solucionado sin necesidad de instalar el modulo que me envio (Problema
Enviado el 30/03).
Tenia dias de no probar este problema, pero me he dado cuenta que persiste
en la version 1.3c y no se si se mantiene en la version 1.4. Podria
verificar este dato
antes de liberar la version 1.4 definitiva.
El error basicamente es que si el dataset esta vacio, luego trato de agregar
un registro, pero en medio de eso cancelo la adicion y regreso al dataset me
da el error que adjunto en el archivo anexo.
Que podria ser.
En espera de sus comentarios,....
METHOD MantenAlta( oSender ) CLASS TFrmRuta
Local clBusca
::odbbrowse1:savestate(.t.)
IF ::odbBrowse1:lFilterBar
::odbBrowse1:lFilterBar := .f.
Endif
WITH OBJECT TFRMRUTAS()
:lOnAppend := .t.
:New( Application:oMainForm )
::osqltable1:addnew()
:cText := "Agregar Rutas"
:RequestState()
IF :ShowModal() == mrOK
::osqltable1:Update()
clBusca := ::osqltable1:Ruta
::osqlTable1:Refresh()
::osqlTable1:locate("Ruta='"+clBusca+"'" )
::Odbbrowse1:refresh()
::asignarico()
ELSE
::osqltable1:Cancel() // EN ESTA LINEA ES DONDE ME DA EL ERROR
ENDIF
END WITH
::odbbrowse1:restorestate(.t.)
RETURN NIL


Attached files

[Fernando Hernandez]

Problema Solucionado en la version 1.4
Saludos
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=464b8e4c@ozsrv2.ozlan.local...]464b8e4c@ozsrv2.ozlan.local...[/email]
> Buenas Tardes
>
> Con relacion a este problema, esperaba que en la version 1.3c quedara
> solucionado sin necesidad de instalar el modulo que me envio (Problema
> Enviado el 30/03).
>
> Tenia dias de no probar este problema, pero me he dado cuenta que persiste
> en la version 1.3c y no se si se mantiene en la version 1.4. Podria
> verificar este dato
> antes de liberar la version 1.4 definitiva.
>
> El error basicamente es que si el dataset esta vacio, luego trato de
> agregar un registro, pero en medio de eso cancelo la adicion y regreso al
> dataset me da el error que adjunto en el archivo anexo.
>
> Que podria ser.
>
> En espera de sus comentarios,....
>
> METHOD MantenAlta( oSender ) CLASS TFrmRuta
> Local clBusca
> ::odbbrowse1:savestate(.t.)
>
> IF ::odbBrowse1:lFilterBar
> ::odbBrowse1:lFilterBar := .f.
> Endif
>
> WITH OBJECT TFRMRUTAS()
> :lOnAppend := .t.
> :New( Application:oMainForm )
> ::osqltable1:addnew()
> :cText := "Agregar Rutas"
>
> :RequestState()
> IF :ShowModal() == mrOK
> ::osqltable1:Update()
> clBusca := ::osqltable1:Ruta
> ::osqlTable1:Refresh()
> ::osqlTable1:locate("Ruta='"+clBusca+"'" )
> ::Odbbrowse1:refresh()
> ::asignarico()
> ELSE
> ::osqltable1:Cancel() // EN ESTA LINEA ES DONDE ME DA EL ERROR
> ENDIF
> END WITH
> ::odbbrowse1:restorestate(.t.)
> RETURN NIL
>
>
>
>
>

[ignacio]

Fernando,
Gracias por la información.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
news:[email=464cb33d@ozsrv2.ozlan.local...]464cb33d@ozsrv2.ozlan.local...[/email]
> Problema Solucionado en la version 1.4
>
> Saludos
>
>
> "Fernando Hernandez" <dbfer@dilico.com.sv> escribió en el mensaje
> news:[email=464b8e4c@ozsrv2.ozlan.local...]464b8e4c@ozsrv2.ozlan.local...[/email]
>> Buenas Tardes
>>
>> Con relacion a este problema, esperaba que en la version 1.3c quedara
>> solucionado sin necesidad de instalar el modulo que me envio (Problema
>> Enviado el 30/03).
>>
>> Tenia dias de no probar este problema, pero me he dado cuenta que
>> persiste en la version 1.3c y no se si se mantiene en la version 1.4.
>> Podria verificar este dato
>> antes de liberar la version 1.4 definitiva.
>>
>> El error basicamente es que si el dataset esta vacio, luego trato de
>> agregar un registro, pero en medio de eso cancelo la adicion y regreso al
>> dataset me da el error que adjunto en el archivo anexo.
>>
>> Que podria ser.
>>
>> En espera de sus comentarios,....
>>
>> METHOD MantenAlta( oSender ) CLASS TFrmRuta
>> Local clBusca
>> ::odbbrowse1:savestate(.t.)
>>
>> IF ::odbBrowse1:lFilterBar
>> ::odbBrowse1:lFilterBar := .f.
>> Endif
>>
>> WITH OBJECT TFRMRUTAS()
>> :lOnAppend := .t.
>> :New( Application:oMainForm )
>> ::osqltable1:addnew()
>> :cText := "Agregar Rutas"
>>
>> :RequestState()
>> IF :ShowModal() == mrOK
>> ::osqltable1:Update()
>> clBusca := ::osqltable1:Ruta
>> ::osqlTable1:Refresh()
>> ::osqlTable1:locate("Ruta='"+clBusca+"'" )
>> ::Odbbrowse1:refresh()
>> ::asignarico()
>> ELSE
>> ::osqltable1:Cancel() // EN ESTA LINEA ES DONDE ME DA EL ERROR
>> ENDIF
>> END WITH
>> ::odbbrowse1:restorestate(.t.)
>> RETURN NIL
>>
>>
>>
>>
>>
>
>