Xailer & OZ Software

Hola
Al ejecutar la aplicación abro las bases de datos con OpenDatos() y al
cerrarla automaticamente se cierran con Close()
//
Procedure OpenDatos()
.. With object AppData:oAdsDataSource := TAdsDataSource():Create()
:cConnect := Appdata:DirDatos
:lRightsCheck := .f.
:lUseDictionary := .f.
:nFileType := afADT
:nServerType := asLOCAL
AppData:oDbfGrupos := :NewDataSet( "GRU"+Appdata:Ejercicio )
:OpenProcess()
end with
AppData:OnClose := {|| Close() }
Return
Procedure Close()
AppData:oAdsDataSource:EndProcess()
Return
//
Pero espues si desde cualquier otro formulario quiero cerra las bases de
datos
AppData:oAdsDataSource:EndProcess()
Me arroja un error
FOKDATOS(95)
Error BASE/1004 Class: 'NIL' has no exported method: ENDPROCESS
Argumentos: ()
Alguna idea de porque
Gracias
Paco Gomis
fvgomis@ono.com

Solucionado
Instaciava AppData:oAdsDataSource:EndProcess() antes de crearlo.
Gracias Paco (Grupo ST)
Un Saludo
Paco Gomis
fvgomis@ono.com
"Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
news:4448fd6c$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Hola
> Al ejecutar la aplicación abro las bases de datos con OpenDatos() y al
> cerrarla automaticamente se cierran con Close()
> //
> Procedure OpenDatos()
> . With object AppData:oAdsDataSource := TAdsDataSource():Create()
> :cConnect := Appdata:DirDatos
> :lRightsCheck := .f.
> :lUseDictionary := .f.
> :nFileType := afADT
> :nServerType := asLOCAL
> AppData:oDbfGrupos := :NewDataSet( "GRU"+Appdata:Ejercicio )
> :OpenProcess()
> end with
> AppData:OnClose := {|| Close() }
> Return
>
> Procedure Close()
> AppData:oAdsDataSource:EndProcess()
> Return
> //
> Pero espues si desde cualquier otro formulario quiero cerra las bases de
> datos
> AppData:oAdsDataSource:EndProcess()
> Me arroja un error
> FOKDATOS(95)
> Error BASE/1004 Class: 'NIL' has no exported method:
> ENDPROCESS
> Argumentos: ()
>
>
> Alguna idea de porque
> Gracias
> Paco Gomis
> fvgomis@ono.com
>
>
>
>