Erro de estadoorigem da linha na inserção de documento via integração   

Boa tarde

Ao tentar inserir uma linha num documento de venda uso o seguinte código:

While linhas.EOF = False

objLinhaVenda = New VndBE100.VndBELinhaDocumentoVenda

With objLinhaVenda

.Armazem = linhas.Fields(“armazem”).Value
.ArredFConv = 1

.Localizacao = linhas.Fields(“armazem”).Value

.Artigo = Trim(linhas.Fields(“art_cod”).Value)

If linhacab.Fields(“pais”) Is “PT” Then

.CodIva = “23”
.RegimeIva = 0
.TaxaIva = 23
Else
.CodIva = “02”
.RegimeIVA = 0
.TaxaIva = 0
End If

.Descricao = Trim(linhas.Fields(“art_descr”).Value)
.DataEntrega = Documento.DataDoc
.DataStock = Documento.DataDoc
.Desconto1 = 0
.Desconto2 = 0
.Desconto3 = 0
.DescontoComercial = 0
.Estado = 0
.FactorConv = 1
.IDLinha = vbNullString
.IDLinhaOriginal = vbNullString
If linhas.Fields(“move_stock”).Value = True Then
.MovStock = “S”
If linhas.Fields(“trata_lotes”).Value = True Then
.Lote = linhas.Fields(“lote_serie”).Value
End If
Else
.MovStock = “N”

End If

.NumLinDocOriginal = 0
‘.NumLinhaStkGerada = 0
.Quantidade = linhas.Fields(“quantidade”).Value
.QuantReservada = 0
.QuantSatisfeita = 0
‘.RegimeIVA = 0
‘.TaxaIva = 0
.TipoLinha = 10
.Unidade = “UN”
.PrecoLiquido = Trim(linhas.Fields(“valor_liq”).Value)
.PrecUnit = Trim(linhas.Fields(“preco_unit”).Value)
.TotalIva = Trim(linhas.Fields(“iva_linha”).Value)
.Vendedor = linhas.Fields(“comercial”).Value
.EstadoOrigem = 1

End With

Documento.Linhas.Insere(objLinhaVenda)

linhas.MoveNext
End While

Obtenho o erro “o estadoorigem da linha 1 não está preenchido”

Informo que a linha movimenta stocks e tem o lote atribuido.

O lote está ativo.

Eu estou a passar estadoorigem=1 não sei se estou a fazer bem.

Já fiz uma fatura manual e o campo no linhasdoc estadoorigem é “DISP”-

Alguém me pode dar alguma ideia do que possa ser?

Obrigado