Nesse vídeo demonstraremos em como realizar a cópia de algumas informações utilizando o comando COPY TO.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe093
Exemplo para copiar dados de uma tabela para um arquivo
@type Function
@author Atilio
@since 11/12/2022
@obs
Também é possível mandar direto para uma porta de impressão, por exemplo:
cTexto := "teste"
MemoWrite("c:\teste\arquivo.txt", cTexto)
Copy File "c:\teste\arquivo.txt" To LPT1
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe093()
Local aArea := FWGetArea()
Local cPasta := GetTempPath()
Local cArquivo := "produtos.txt"
Local cDelim := ""
DbSelectArea("SB1")
SB1->(DbSetOrder(1)) // Filial + Código
//Realiza a exportação
Copy To (cPasta + cArquivo) DELIMITED WITH (cDelim)
//Abre o arquivo
ShellExecute("OPEN", cArquivo, "", cPasta, 1)
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
