PdcPurchaseInvoices.Active

Declaration

Active as PdcPurchaseInvoiceHeader

Code example

dim objInkFact

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