Nesse vídeo demonstraremos em com realizar a cópia de arquivos entre o servidor (Protheus Data) e a estação (que esta rodando o SmartClient) usando as funções CpyS2T e CpyT2S.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe099 Realiza a cópia de arquivo entre servidor (Protheus Data) e terminal (Smartclient) @type Function @author Atilio @since 11/12/2022 @see https://tdn.totvs.com/display/tec/CpyS2T e https://tdn.totvs.com/display/tec/CpyT2S @obs Função CpyS2T Parâmetros + cFile , Caractere , Nome do arquivo na Protheus Data + cFolder , Caractere , Indica a pasta destino na estação + lCompress , Lógico , Se .T. o arquivo será compactado antes de fazer a cópia + lChangeCase , Lógico , Se .T. o nome do arquivo será convertido tudo para minúsculo Retorno + lRet , Lógico , .T. se a cópia foi executada com sucesso ou .F. se não Função CpyT2S Parâmetros + cFile , Caractere , Nome do arquivo na estação + cFolder , Caractere , Indica a pasta destino na Protheus Data + lCompress , Lógico , Se .T. o arquivo será compactado antes de fazer a cópia + lChangeCase , Lógico , Se .T. o nome do arquivo será convertido tudo para minúsculo Retorno + lRet , Lógico , .T. se a cópia foi executada com sucesso ou .F. se não **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe099() Local aArea := FWGetArea() Local cOrigem := "" Local cDestino := "" //Realiza a cópia do servidor para a estação cOrigem := "\x_logs\log_auto.txt" cDestino := "C:\spool\" CpyS2T(cOrigem, cDestino) //Realiza a cópia da estação para o servidor cOrigem := "C:\spool\tst.txt" cDestino := "\x_logs\" CpyT2S(cOrigem, cDestino) FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.