Motor PBSS | Add Line

Hello, I would like to know how to launch n lines through the integration engines in the latest version of Primavera V9 LP, because the following example I send attached fills only one line in the Sales Editor instead of two. (BD DEMO)

If KeyCode = vbKeyF2 Then
   BSO.Comercial.Vendas.AdicionaLinha Me.DocumentoVenda, "A0001", 12
   BSO.Comercial.Vendas.AdicionaLinha Me.DocumentoVenda, "A0002", 13
End If

Inthisothertest,thetwolinesareactuallyfilled...