Não é possível inserir o mesmo número de série em armazéns distintos via motores V9.15   

Não é possível inserir o mesmo número de série em armazéns distintos via motores V9.15

Como reproduzir:

• Criar o artigo ART01 e marcá-lo para gerir números de série
• Dar uma entrada de stock manual para o artigo ART01 no armazém A1 com n. de série 12345
• Via motores – utilizar o snippet abaixo – dar uma entrada de stock para o artigo ART01 no armazém A2 com n. de série 12345

Segue snippet abaixo.

Public Sub MacroDocCompras()
Dim DocCompra As GcpBEDocumentoCompra
Dim Linha As GcpBELinhaDocumentoCompra
Dim strAvisos As String
Dim objNumSerie As GcpBENumeroSerie

On Error GoTo erro
Set DocCompra = New GcpBEDocumentoCompra
With DocCompra
    .Tipodoc = "VGT"
    .TipoEntidade = "F"
    .Entidade = "F001"
    .Serie = "2019"
    .Moeda = "EUR"
    .CondPag = "01"
    .ModoPag = "NUM"
    .NumDocExterno = "xxx"
 
End With

BSO.Comercial.Compras.PreencheDadosRelacionados DocCompra, 5
BSO.Comercial.Compras.AdicionaLinha DocCompra, "ART01", 1, "A2", "A2"

Set objNumSerie = New GcpBENumeroSerie
With objNumSerie
    .Modulo = "C"
    .Manual = 0
    .NumeroSerie = "12345"
End With
DocCompra.Linhas(1).NumerosSerie.Insere objNumSerie
Set objNumSerie = Nothing

BSO.Comercial.Compras.Actualiza DocCompra, strAvisos
Set DocVenda = Nothing
erro:
    MsgBox (Err.Description)
    
End Sub