Creaci

[Paco Gomis]

Hola a todos
Al principio de mi aplicación abro todos los ficheros
/*
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 := {|| AppData:oAdsDataSource:EndProcess() }
Return
*/
Si el fichero indice existe se abre tambien sin problemas, pero si no existe
como puedo crearlo desde aqui, ¿algun ejemplo?
Un Saludo
Paco Gomis
fvgomis@ono.com

[ignacio]

Paco,
Utiliza el evento OnPostOpen del DataSet.
Saludos,
"Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
news:[email=4447a8a7@ozsrvnegro.ozlan.local...]4447a8a7@ozsrvnegro.ozlan.local...[/email]
> Hola a todos
> Al principio de mi aplicación abro todos los ficheros
> /*
> 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 := {|| AppData:oAdsDataSource:EndProcess() }
> Return
> */
> Si el fichero indice existe se abre tambien sin problemas, pero si no
> existe como puedo crearlo desde aqui, ¿algun ejemplo?
>
> Un Saludo
> Paco Gomis
> fvgomis@ono.com
>
>

[Paco Gomis]

Ignacio
Gracias, pero como creo el indice con ¿ AddTag ?, algun ejemplo
Un Saludo
Paco Gomis
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
news:4447aa60$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Paco,
>
> Utiliza el evento OnPostOpen del DataSet.
>
> Saludos,
>
> "Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
> news:[email=4447a8a7@ozsrvnegro.ozlan.local...]4447a8a7@ozsrvnegro.ozlan.local...[/email]
>> Hola a todos
>> Al principio de mi aplicación abro todos los ficheros
>> /*
>> 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 := {|| AppData:oAdsDataSource:EndProcess() }
>> Return
>> */
>> Si el fichero indice existe se abre tambien sin problemas, pero si no
>> existe como puedo crearlo desde aqui, ¿algun ejemplo?
>>
>> Un Saludo
>> Paco Gomis
>> fvgomis@ono.com
>>
>>
>
>

[ignacio]

Paco,
Efectivamente. Aunque si lo deseas siempre puedes utilizar los comandos
CLIPPER de siempre.
Un saludo,
"Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
news:4447aee7$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
> Ignacio
> Gracias, pero como creo el indice con ¿ AddTag ?, algun ejemplo
>
> Un Saludo
> Paco Gomis
>
> "Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje
> news:4447aa60$[email=1@ozsrvnegro.ozlan.local...]1@ozsrvnegro.ozlan.local...[/email]
>> Paco,
>>
>> Utiliza el evento OnPostOpen del DataSet.
>>
>> Saludos,
>>
>> "Paco Gomis" <fvgomis@ono.com> escribió en el mensaje
>> news:[email=4447a8a7@ozsrvnegro.ozlan.local...]4447a8a7@ozsrvnegro.ozlan.local...[/email]
>>> Hola a todos
>>> Al principio de mi aplicación abro todos los ficheros
>>> /*
>>> 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 := {|| AppData:oAdsDataSource:EndProcess() }
>>> Return
>>> */
>>> Si el fichero indice existe se abre tambien sin problemas, pero si no
>>> existe como puedo crearlo desde aqui, ¿algun ejemplo?
>>>
>>> Un Saludo
>>> Paco Gomis
>>> fvgomis@ono.com
>>>
>>>
>>
>>
>
>