#XCommand para o Say

[Anderson.OL]

Olá amigos...

Gostaria de saber como utilizar o say para imprimir em modo texto.

Ja sei que eh possivel utilizar o seguinte para usar o psay:

#xcommand @ , PSAY => oPrin:Say(,,)

Mas gotaria de fazer o mesmo com o say, mas creio q para isto, após gerar meu relatorio, devo desfaze-lo, para voltar a escrever nos Dialog's.

Entaum, a minha dúvida eh como desfazer o comando acima quando eu o fizer para o SAY, ao invés de utiliza-lo para o PSAY????

Desde jah sou grato a ajuda de todos.

Abraços.

//--Clipper 5.2c / FiveWin 2.6 / Blinker 7.0 --//

//--

_Dom Quixote_

RO Iris Server / Agility Kina / 6*/3*

[gilmer]

Olá,

Você pode fazer isto mesmo, inclusive tenho uma classe muiti parecida com os antigos do clipper, irei postar amanhã. A classe chama-se VoPrnPad.

[Anderson.OL]

citação:

Olá,

Você pode fazer isto mesmo, inclusive tenho uma classe muiti parecida com os antigos do clipper, irei postar amanhã. A classe chama-se VoPrnPad.

---

id=quote>id=quote>

Ola Gilmer...

Na verdade eu gostaria de saber se eh possivel fazer o seguinte:

******************************

function SetDevPrint(Porta)

******************************

local oPrin

//--Instancia o objeto

oPrin:= TDosPrn():New(Porta)

//--Inicializa a pagina

oPrin:StartPage()

//--Auto-Eject

//-- Pular pagina=.f.

//-- Nao Pular =.t.

#xcommand @ , PSAY => oPrin:Say(,,)

return oPrin

*****************************

procedure SetDevScreen(oPrin)

*****************************

//--Finaliza a emissao do relatorio

oPrin:EndPage()

//--Destroi a instancia do objeto

oPrin:End()

#xcommand @ , SAY [ ] ;

[ PICTURE ] ;

[ ] ;

[ FONT ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ [, ] ] ;

[ SIZE , ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

[ ] ;

=> ;

[ := ] TSay():New( , , <{cText}>,;

[], [], , <.lCenter.>, <.lRight.>, <.lBorder.>,;

<.lPixel.>, , , , ,;

<.design.>, <.update.>, <.lShaded.>, <.lBox.>, <.lRaised.> )

return NIL

E depois, no arquivo onde gera meu relatorio escreve-lo da seguinte maneira:

**************************

static procedure GeraRel()

**************************

local oPrin

oPrin := SetDevPrint("REL_116.txt")

setprc(0,0)

select estoque

go top

@00,00 say chr(15)

@01,00 say "ESCREVENDO EM TXT"

@02,00 say chr(18)

SetDevScreen(oPrin)

close all

return nil

Nos meus testes (ateh o momento) não deu certo....

Será q vc pode apontar o meu erro?

Desde jah agradeco a sua ajuda.

Abraços.

//--Clipper 5.2c / FiveWin 2.6 / Blinker 7.0 --//

//--

_Dom Quixote_

RO Iris Server / Agility Kina / 6*/3*

[Anderson.OL]

Bom dia a todos..

Gente pelos testes q andei fazendo, acho que o xcommand só eh interpretado na compilação.

Alguem sabe como eu posso fazer com que isto seja interpretado em tempo de execução?

Ou pelo menos onde posso pesquisar mais sobre o xcommand ou um comando semelhante..

Desde já sou grato pela ajuda.

Abraços.

//--Clipper 5.2c / FiveWin 2.6 / Blinker 7.0 --//

//--

_Dom Quixote_

RO Iris Server / Agility Kina / 6*/3*