Work area not in use on MSCOPYFILE(APLIB070.PRW)

Estou escrevendo um fonte para copiar algumas tabelas, porém está dando este erro do título. Alguém sabe o que pode ser o erro? Segue trecho do fonte:

#include "protheus.ch"

User Function TestCopy()

DBUSEAREA(.T.,"CTREECDX",'SED0101', "SED", .F., .T.)

cFileIni := 'system\sed0101.dtc'
cFileFim := 'BACKUP\sed0101_bkp.dtc'

 If ! MsCopyFile(cFileIni, cFileFim)
     MsgAlert("O arquivo não pôde ser copiado.")

    Else    
    MsgAlert("O arquivo foi copiado com sucesso.")

    EndIf

    Return

ERRO:

criado 27 de Feb de 2023
Anne Cavalcante
57 pontos
editado 27 de Feb de 2023

0

Sua tabela SED010 original está em CTREE ou TOPCONN, sua origem digamos assim.
— Daniel Mendes 27 de Feb de 2023

0

A tabela está em Ctree
— Anne Cavalcante 27 de Feb de 2023

Anexos

Capturar.PNG

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 1 down
Anne, Para corrigir seu fonte basta deixá-lo desta forma, era apenas um erro de sintaxe no uso da função MsCopy:
```
#include "protheus.ch"

User Function TestCopy()

cFileIni := '\system\sed0101.dtc'
cFileFim := '\BACKUP\sed0101_bkp.dtc'

 If ! MsCopyFile(cFileIni, cFileFim,'CTREECDX')
     MsgAlert("O arquivo não pôde ser copiado.")
Else    
    MsgAlert("O arquivo foi copiado com sucesso.")
EndIf

Return
```
Se for apenas uma operação de cópia simples de uma pasta para outra no próprio servidor pode usar a função __CopyFile(cFileOrig,cFileDest), esta função faz apenas uma cópia simples e direta (a MsCopyFile é para arquivos de banco de dados). Esta função inclusive permite mais flexibilidade, você pode copiar servidor-servidor, servidor-cliente, cliente-cliente, cliente-servidor, e até com nomes de arquivo diferentes.

Também existe as funções CpyT2S(https://tdn.totvs.com/display/tec/CpyT2S) que faz a cópia de um arquivo do servidor->cliente mantendo o mesmo nome original do arquivo, e a função CpyS2T(https://tdn.totvs.com/display/tec/CpyS2T) que faz o caminho reverso. ATENTE que estas funções mantém o mesmo nome de arquivo original.
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 27 de Feb de 2023
  Cirilo Rocha
  1670 pontos
- 0
  
  Olá Cirilo! Muito obrigada pela ajuda, fiz aqui os ajustes de acordo com o que você repassou e deu certo! A cópia da tabela foi feita. Obrigada!
  — Anne Cavalcante 27 de Feb de 2023
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Work area not in use on MSCOPYFILE(APLIB070.PRW)

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags fonte advpl tabela copiar erro ou faça a sua própria pergunta.