PdcPurchaseInvoiceHeader.SetCurrencyID

Declaration

SetCurrencyId(CurrencyId as Integer) as Boolean

Description

Sets the currency ID of the purchase invoice header.

Code example

The following code example changes the currency ID and saves the invoice.

dim objPI

  set objPI = Pdc.logistics.PurchaseInvoices.Open("157625")
  if objPI.SetCurrencyID(1) then
    if not objPI.Save then
      msgbox pdc.LastError
    end if
  else
    msgbox pdc.LastError
  end if

Availability

Available since April 2014 (Version 4.3 onwards)