__dbApp Syntax

[Marcelo Coelho Silva]

Prezados Amigos,
Alguem poderia me ajudar como a syntax da função __dbApp ou onde posso
conseguir sua documentação (manual).
Desde já agradeço,
Atenciosamente,
Marcelo Coelho Silva
Brasil.

[ftwein]

Em 03/11/2010 23:16, Marcelo Coelho Silva escreveu:
> Prezados Amigos,
>
> Alguem poderia me ajudar como a syntax da função __dbApp ou onde posso
> conseguir sua documentação (manual).
>
> Desde já agradeço,
>
> Atenciosamente,
>
> Marcelo Coelho Silva
> Brasil.
Marcelo,
No STD.CH está desta forma, dá para ter uma ideia:
#command APPEND [FROM <(f)>] [FIELDS <fields,...>] ;
[FOR <for>] [WHILE <while>] [NEXT <next>] ;
[RECORD <rec>] [<rest:REST>] [ALL] [VIA <rdd>] ;
[CODEPAGE <cp>] [CONNECTION <conn>] => ;
__dbApp( <(f)>, { <(fields)> }, ;
<{for}>, <{while}>, <next>, <rec>, <.rest.>, <rdd>,
<conn>, <cp> )
Atte,
Fausto Di Creddo Trautwein

[alcisoft]

Marcelo,
No se si será más rapido asi:
Method AppendFrom( cNomeDBF, cFiltro ) CLASS TDbfDataSet
Local bFiltro
::SaveState( .t. )
If !Empty(cFiltro)
bFiltro:= &("{||"+ cFiltro+ "}")
endif
( ::cAlias )->( __dbApp( cNomeDBF, { }, bFiltro ,,,,.F.,,, ) )
::RestoreState( .t. )
Return ( Nil )
Saludos

[Marcelo Coelho Silva]

Prezado Fausto,
Obrigado pela ajuda.
Eu estava re-escrevendo a Classe TDbfDataSet para acrescentar os
Metodos: AppendFrom(), NameFull() e DeleteFor()
Abaixo segue o fonte (Source) para quem for util.
att.
Marcelo Coelho Silva.
Brasil.
//---------------------------------------------------------- --------------
/*
* Projeto: StockTTE
* Arquivo: Stte_AppendFrom.prg
* Descrição: Implementação do metodo AppendFrom(), NameFull() e
* DeleteFor()
* Autor: Marcelo Coelho Silva
* Data: 03/11/2010
*/
#include "Xailer.ch"
Class TDbfDataSet From xDbfDataSet
Method AppendFrom( cNomeDBF )
Method NameFull()
Method DeleteFor( cFiltro )
EndClass
Method AppendFrom( cNomeDBF, cFiltro ) CLASS TDbfDataSet
::SaveState( .t. )
If Empty(cFiltro)
( ::cAlias )->( __dbApp( cNomeDBF, { },,,,, .F.,,, ) )
else
( ::cAlias )->( __dbApp( cNomeDBF, { }, {|| &(cFiltro) } ,,,,.F.,,, ) )
EndIf
::RestoreState( .t. )
Return ( Nil )
Method NameFull() CLASS TDbfDataSet
Return ( ::oDataSource:cConnect + "" + ::cName)
Method DeleteFor( cFiltro ) CLASS TDbfDataSet
( ::cAlias )->(DBEval( {|| dbDelete()}, {|| &(cFiltro) },,,,.F. ))
Return ( Nil )
//---------------------------------------------------------- --------
Em 04/11/2010 09:58, F.Trautwein escreveu:
> Em 03/11/2010 23:16, Marcelo Coelho Silva escreveu:
>> Prezados Amigos,
>>
>> Alguem poderia me ajudar como a syntax da função __dbApp ou onde posso
>> conseguir sua documentação (manual).
>>
>> Desde já agradeço,
>>
>> Atenciosamente,
>>
>> Marcelo Coelho Silva
>> Brasil.
>
> Marcelo,
>
> No STD.CH está desta forma, dá para ter uma ideia:
>
> #command APPEND [FROM <(f)>] [FIELDS <fields,...>] ;
> [FOR <for>] [WHILE <while>] [NEXT <next>] ;
> [RECORD <rec>] [<rest:REST>] [ALL] [VIA <rdd>] ;
> [CODEPAGE <cp>] [CONNECTION <conn>] => ;
> __dbApp( <(f)>, { <(fields)> }, ;
> <{for}>, <{while}>, <next>, <rec>, <.rest.>, <rdd>, <conn>, <cp> )
>
>
> Atte,
>
> Fausto Di Creddo Trautwein