Pretendo lançar inventários por VBA, mas não estou a conseguir que o sistema lance automaticamente os movimentos de acerto. Ou seja que crie os documentos de entrada/saída de stock como faz quando fechamos o inventário no ERP. Essa função/método não é público? Há alguma forma de conseguir o que preciso sem ter de verificar linha a linha do inventário e fazer eu o lançamento dos documentos de acerto?
Já agora outra curiosidade: quando faço a preparação de inventário no ERP tenho um botão “actualizar” que me preenche as linhas da preparação com o stock actual do armazém – Tenho alguma forma de chamar esse botão por VBA?
Segue o meu código em baixo.
Desde já muito obrigada.
`Public Sub PrepInv()
Dim PrepInv As GcpBEInventario
Set PrepInv = New GcpBEInventario
Dim LinhasInv As GcpBELinhaInventario
Set LinhasInv = New GcpBELinhaInventario
With PrepInv
.Armazem = "1"
.Data = Now()
.DataLancamento = Now()
.EmModoEdicao = True
.EstadoInventario = False
.Id = PSO.FuncoesGlobais.CriaGuid(True)
.UsaDataLancamento = True
'.TipoDocEntrada = "AIP"
'.SerieDocEntrada = "2018"
'.TipoDocSaida = "AIN"
'.SerieDocSaida = "2018"
End With
Dim RefArtigo As String
RefArtigo = "0195"
With LinhasInv
.artigo = RefArtigo
.DataUltimaContagem = Now()
.EmModoEdicao = True
.Id = PSO.FuncoesGlobais.CriaGuid(True)
.IDCabecInventario = PrepInv.Id
.NumLinha = 1
.PCMedio = BSO.Comercial.Artigos.DaValorAtributo(RefArtigo, "PCMedio")
.QtdContagem = 50
.QtdPreparacao = 1
'.TipoLinha = Null ' ou L para lotes
.UnidadeBase = BSO.Comercial.Artigos.DaValorAtributo(RefArtigo, "UnidadeBase")
.itemContado = True
End With
PrepInv.LinhasInventarios.Insere LinhasInv
BSO.Comercial.Inventarios.Actualiza PrepInv
MsgBox PrepInv.Id
End Sub