Criar Preparação de Inventário   

Boa tarde, ao tentar criar uma Preparação de Inventário o documento fica sem linhas, ou seja é necessário fazer Atualizar para as linhas aparecerem. Existe forma de ter este processo automático? Segue o meu código:

Dim objInventario As New InvBEInventario

            objInventario.Armazem = armazem
            objInventario.DataDoc = DateTime.Now
            objInventario.DataStock = objInventario.DataDoc
            objInventario.EmModoEdicao = False

            objInventario.Responsavel = Platform.Contexto.Utilizador.Utilizador
            objInventario.EstadoDoc = 1

            objInventario.BloquearStock = True

            objInventario.StockMaximoArt = 999999999
            objInventario.StockMinimoArt = -999999999
            objInventario.ValorMaximoArt = 999999999
            objInventario.ValorMinimoArt = -999999999

            objInventario.NumDoc = Engine.Inventario.Inventarios.SugereNumerador(objInventario.DataDoc)

            Engine.Inventario.Inventarios.PreencheInventario(objInventario, 0)

            Try

                Engine.Inventario.Inventarios.Actualiza(objInventario)

                mensagem = "Sucesso: Foi criada a Preparação de Inventário nº " & objInventario.NumDoc & " no ERP Primavera."

            Catch ex As Exception

                mensagem = "Erro: " & Replace(ex.Message, Environment.NewLine, " ")

            Finally

                Engine.FechaEmpresaTrabalho()

                Engine = Nothing

            End Try