PdcPurchaseInvoices.Active

Declaration

Active as PdcPurchaseInvoiceHeader

Code example

dim objPurInv

  set objPurInv = pdc.Logistics.PurchaseInvoices.Active
  if IsValid(objPurInv) then
    msgbox "Inkoopfactuur ID (PIH_HEADER.PIH_ID) = " & objPurInv.ID
  end if 'IsValid(objPurInv)