Alterar estado documentos Internos   

Ao editar o documento interno e alterando o estado o mesmo obriga a que seja efectuado através das autorizações, no entanto as autorizações não consigo perceber como o fazer via motores.

Segue o código para editar o documento mas sem ser através das autorizações o que está incorreto.

Public Function AlteraEstadoInterno(ByVal MotorPrimavera As ErpBS, ByVal plataformaPrimavera As StdPlatBS100.StdPlatBS, ByVal Documento As Documento)
            Dim NovoDocumento As IIntBEDocumentoInterno
            Dim Avisos As String = String.Empty
            Dim Erros As String = String.Empty
            Dim camposChave As StdBE100.StdBECamposChave = New StdBE100.StdBECamposChave()

            Try
                MotorPrimavera.IniciaTransaccao()
                NovoDocumento = MotorPrimavera.Internos.Documentos.Edita(Documento.CabecDoc.Tipodoc, Documento.CabecDoc.NumDoc, Documento.CabecDoc.Serie, "000")
                NovoDocumento.Estado = "A"

                If MotorPrimavera.Internos.Documentos.ValidaActualizacao(NovoDocumento, Erros) Then
                    MotorPrimavera.Internos.Documentos.Actualiza(NovoDocumento, Avisos)
                    MotorPrimavera.TerminaTransaccao()
                    Return DaResposta(StatusType.Success.ToString, Avisos, Source.NovoDocumentoVenda.ToString,
                                    NovoDocumento.Tipodoc, NovoDocumento.NumDoc, NovoDocumento.Serie)
                Else
                    Return DaResposta(StatusType.Error.ToString, Erros, Source.NovoDocumentoVenda.ToString, String.Empty)
                End If
            Catch ex As Exception
                MotorPrimavera.DesfazTransaccao()
                Return DaResposta(StatusType.Error.ToString, Erros & Environment.NewLine & ex.Message, Source.NovoDocumentoVenda.ToString, String.Empty)
            Finally
                NovoDocumento = Nothing
            End Try
        End Function