Transformation of Sales Document into Transport Guide

Question

In version 9 when transforming sales document into transport guide the error is triggered:

Automation Error

If using the same code for another document type that is not a guide works correctly.

Follows the code:

Public Shared Function transformaDocGrid(ByVal motorPrimavera As ErpBS, tipo As String, numdoc As Long, serie As String)
        Dim docOrigem As GcpBEDocumentoVenda
        Dim docDestino As GcpBEDocumentoVenda
        docDestino = New GcpBEDocumentoVenda
        Dim lngI As Long
        Dim arrDocumentos(0) As Object
        Dim i As Long
        Dim strAvisos As String
        docOrigem = motorPrimavera.Comercial.Vendas.Edita("000", tipo, serie, numdoc)
        With docDestino
            .Tipodoc = "GT"
            .Serie = "2019"
            .Entidade = docOrigem.Entidade
            .TipoEntidade = docOrigem.TipoEntidade
            .Morada = docOrigem.Morada
            .Morada2 = docOrigem.Morada2
            .Localidade = docOrigem.Localidade
            .LocalidadeCodigoPostal = docOrigem.LocalidadeCodigoPostal
            .CodigoPostal = docOrigem.CodigoPostal
            .DataDoc = Now
            .TipoEntidade = docOrigem.TipoEntidade
        End With
        motorPrimavera.Comercial.Vendas.PreencheDadosRelacionados(docDestino, PreencheDados.enuDadosTodos)
        For i = 1 To docOrigem.Linhas.NumItens
                docOrigem.Linhas(i).QuantReservada = 0
            Next
            motorPrimavera.Comercial.Vendas.Actualiza(docOrigem)
        arrDocumentos(0) = docOrigem
        motorPrimavera.Comercial.Vendas.TransformaDocumentoEX(arrDocumentos, docDestino, True, strAvisos)
        docDestino = motorPrimavera.Comercial.Vendas.EditaID(docDestino.ID)
        For i = 1 To docDestino.Linhas.NumItens
                docDestino.Linhas(i).QuantReservada = docDestino.Linhas(i).Quantidade
            Next
        motorPrimavera.Comercial.Vendas.Actualiza(docDestino)
    End Function