Private Sub ActualizaDocumento()

Dim objDocVenda As GcpBEDocumentoVenda
Dim strAvisos As String

On Error GoTo Erro

Set objDocVenda = New GcpBEDocumentoVenda

objDocVenda.TipoEntidade = "C"
objDocVenda.Entidade = "SOFRIO"
objDocVenda.DataDoc = Date
objDocVenda.TipoDoc = "FA"
objDocVenda.Serie = "A"

BSO.Comercial.Vendas.PreencheDadosRelacionados objDocVenda, vdDadosTodos

Set objDocVenda = BSO.Comercial.Vendas.AdicionaLinhaTransformada(objDocVenda, "ECL", 5, 1)

BSO.Comercial.Vendas.Actualiza objDocVenda, strAvisos

Exit Sub

Erro:
MsgBox Err.Description, vbCritical + vbOKOnly

End Sub