PdcPurchaseInvoices.CreateIncomingGoodsProcessor

dim oIcProc

 set oIcProc = pdc.logistics.incominggoods.CreateIncomingGoodsProcessor(583)
 oIcProc.DeliveryDate = Date
 oIcProc.QuantityDelivered = 364
 oIcProc.ToLocation = "C13"

 'oIncGd.ForceDeliveryComplete = True

 If Not oIcProc.Process() Then
   msgbox pdc.lasterror
 End If
 set oIcProc = nothing