Perguntas Fazer upload de arquivo em cadastro customizado do protheus

Luiz, então cara fiz tudo direitinho e está funcionando ele copia, porém não está renomeando o arquivo...

@ 110, 055 MSGET oGetAD VAR cGetAD VALID U_ARQ(@cGetAd) .And. !Empty(cGetAd) WHEN .t. SIZE 074, 010 OF oGroup1 PIXEL

Static Function GravaDados()
CPYT2S(cGetAd,GetSrvProfString("Startpath", "")+'Anexos\',.T.)
FRename(cGetAd,'0001'+cGetAd)
alert("Sucesso! - " +cGetAd )
Limpa()
Return

User Function Arq(cGetAd)
Private cCaminho := "C:\"
cGetAd:= cGetFile("JPG |????????.JPG| JPEG |????????.JPEG| BMP |????????.BMP| PDF|????????.PDF| DOC|????????.DOC| XLS|????????.XLS|" , "Selecione o Arquivo do Documento",,cCaminho,.T., )

If !File(cGetAd)
Alert("Arquivo Não Encontrado !!!")
Return .f.
Endif
Return .t.


estou fazendo alguma coisa errada?

Pessoal para solução do problema foi necessário pegar somente o nome do arquivo em questão.

nomedoarquivo := AllTrim(SubStr(cGetAd,RAT('\',cGetAd)+1,100))

e então fazer a renomeação dessa forma..

renomear := frename(GetSrvProfString("Startpath", "")+'Anexos\'+nomedoarquivo,GetSrvProfString("Startpath", "")+'Anexos\'+'1000'+nomedoarquivo)

a variavel renomear recebe o retorno da função frename e tem como depois vocÊ e exibir para o usuário uma mensagem dizendo se a renomeação foi executada com sucesso. Caso tenha dado certo a função retorna 0, caso tenha dado errado retorna -1.

If (renomear = 0)
Alert ("Arquivo Renomeado com Sucesso!")
Else
Alert ("Não foi possível renomear o arquivo!")
EndIf