vb.net – Erro ao adicionar anexo a documento de vendas ERP PRIMAVERA V9

Boa tarde, tenho um desenvolvimento que adiciona de forma mais eficiente anexos a documentos de venda. Atualmente realizo esta operação via SQL, no entanto queria conseguir implementar em .NET visto ser mais eficiente.

A questão é que com o bloco de código abaixo :

Public Function AdicionarAnexo(ByVal pathAnexoOrigem As String, ByVal pathAnexoDestino As String, descricao As String, ByVal encriptar As Boolean, ByVal ttes As Boolean, ByVal chave As String) As String

    Try

        Dim anexo As New StdBEAnexo

        anexo.Chave = chave

        anexo.FicheiroOrigem = pathAnexoOrigem
        anexo.Descricao = descricao
        anexo.ExportarTTE = ttes
        anexo.IdAnexo = Guid.NewGuid.ToString
        anexo.Idioma = 0
        anexo.Web = False
        anexo.Data = Now.ToString("yyyy-MM-dd", CultureInfo.InvariantCulture)
        anexo.Utilizador = BSO.Contexto.UtilizadorActual
        anexo.Tabela = EnumTabelaAnexos.anxVendas
        anexo.Encriptado = encriptar

        id = anexo.IdAnexo

        plat.Anexos.Actualiza(anexo)

        If encriptar Then

            anexo.Encriptado = True
            plat.Ficheiros.EncriptaFicheiro(pathAnexoOrigem, pathAnexoDestino & Path.GetFileName(pathAnexoOrigem))

        Else

            anexo.Encriptado = False

        End If

        plat.Anexos.Actualiza(anexo)

        Return "Sucesso"

    Catch ex As Exception

        Return ex.Message

    End Try

End Function

A questão que me deparei foi, quando não é colocado o “check” no atributo encriptado, o processo decorre “quase” na normalidade, pois necessito apenas de adicionalmente ir á pasta de ANEXOS e renomear o documento , adicionando {NomeDoFicheiro}, no entanto quando é para encriptar depois o acesso ao documento no ERP não é possível.

Alguém que já tenha feito algo semelhante que me possa ajudar? Obrigado.