Copy To

Comando que copia informações de um alias / arquivo para outro (ao utilizar Copy File pode se mandar para uma porta, como LPT1).

Exemplo da Rotina:

Copy [arquivo] to DESTINO

Exemplo 1- Exportando dados de um alias para o Excel:

Copy To - Exemplo 1
Copy To – Exemplo 1
//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea     := GetArea()
	Local cArqExcel := "teste_sb1.xls"
	
	//Copiando tabela para o arquivo Excel
	DbSelectArea('SB1')
	Copy To &("\system\"+cArqExcel)
	
	//Copia o arquivo para a máquina
	__CopyFile("\system\"+cArqExcel, GetTempPath()+cArqExcel)
	
	//Se não extiver instalado o excel, encerra
	If ! ApOleClient("MsExcel")
		MsgAlert("MsExcel não instalado", "Atenção")
		Return
	EndIf
	
	//Abre o arquivo do Excel
	oExcelApp := MsExcel():New()
	oExcelApp:WorkBooks:Open(GetTempPath()+cArqExcel)
	oExcelApp:SetVisible(.T.)
	oExcelApp:Destroy()
	
	RestArea(aArea)
Return

Exemplo 2- Mandando um arquivo para ser impresso em uma porta LPT1:

//Bibliotecas
#Include "Protheus.ch"

/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
    @example
    u_zTeste()
/*/
 
User Function zTeste()
	Local aArea  := GetArea()
	Local cTexto := ""
	
	//Copiando o aruqivo para uma porta
	cTexto := "teste"
	MemoWrite("c:\teste\arquivo.txt", cTexto)
	Copy File "c:\teste\arquivo.txt" To LPT1
	
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Referências:

TDN