Cópia de Linhas V10 – Via Motores

Estou a tentar obter a cópia de linhas através de motores no entanto dá sempre objeto vazio mesmo tendo rastreabilidade para apresentar, segue o codigo utilizado:

Dim NovoDocumento As VndBEDocumentoVenda
            Dim linhasDocumento As VndBELinhaDocumentoVenda
            Dim objLinhasRast As BasBE100.BasBELinhasRastreabilidade
            Dim objLinhaRast As BasBE100.BasBELinhaRastreabilidade
            Dim avisos As String = String.Empty
            Dim Erros As String = String.Empty

            Try
                MotorPrimavera.IniciaTransaccao()
                NovoDocumento = New VndBEDocumentoVenda
                linhasDocumento = New VndBELinhaDocumentoVenda
                NovoDocumento = MotorPrimavera.Vendas.Documentos.Edita("000", Documento.CabecDoc.Tipodoc, Documento.CabecDoc.Serie, Documento.CabecDoc.NumDoc)
                For Each linhasDocumento In NovoDocumento.Linhas
                    objLinhasRast = New BasBE100.BasBELinhasRastreabilidade
                    MotorPrimavera.Vendas.Documentos.ProcuraLinhasPosteriores(linhasDocumento.IdLinha, objLinhasRast)
                    If Not objLinhasRast Is Nothing Then
                        For Each objLinhaRast In objLinhasRast
                            Return DaResposta(StatusType.Success.ToString, Erros, Source.NovoDocumentoVenda.ToString,
                                    objLinhaRast.Tipodoc, objLinhaRast.NumDoc, objLinhaRast.Serie)
                        Next objlinharast
                    End If
                Next linhasdocumento
            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