Dentro del objeto documents debes setear la propiedad DocumentSubType para cargar otro tipo de factura.
Dim oDoc As SAPbobsCOM.Documents
set oDoc = oCompany.GetBusinessObject(oPurchaseInvoice)
oDoc.DocumentSubType = bod_InvoiceExempt
Saludos
Dentro del objeto documents debes setear la propiedad DocumentSubType para cargar otro tipo de factura.
Dim oDoc As SAPbobsCOM.Documents
set oDoc = oCompany.GetBusinessObject(oPurchaseInvoice)
oDoc.DocumentSubType = bod_InvoiceExempt
Saludos