http://wiki.ecibemet.com/index.php?action=history&feed=atom&title=PdcPurchaseInvoiceHeader.SetCurrencyIDPdcPurchaseInvoiceHeader.SetCurrencyID - Revision history2026-05-06T15:36:56ZRevision history for this page on the wikiMediaWiki 1.43.1http://wiki.ecibemet.com/index.php?title=PdcPurchaseInvoiceHeader.SetCurrencyID&diff=2699&oldid=prevTC: Created page with "== Declaration == SetCurrencyId(CurrencyId as Integer) as Boolean == Description == Sets the currency ID of the purchase invoice header. == Notes == == Code example == The ..."2015-08-19T11:34:53Z<p>Created page with "== Declaration == SetCurrencyId(CurrencyId as Integer) as Boolean == Description == Sets the currency ID of the purchase invoice header. == Notes == == Code example == The ..."</p>
<p><b>New page</b></p><div>== Declaration ==<br />
SetCurrencyId(CurrencyId as Integer) as Boolean<br />
<br />
== Description ==<br />
Sets the currency ID of the purchase invoice header.<br />
<br />
== Notes ==<br />
<br />
== Code example ==<br />
The following code example changes the currency ID and saves the invoice.<br />
<br />
<source lang="vb"><br />
dim objPI<br />
<br />
set objPI = Pdc.logistics.PurchaseInvoices.Open("157625")<br />
if objPI.SetCurrencyID(1) then<br />
if not objPI.Save then<br />
msgbox pdc.LastError<br />
end if<br />
else<br />
msgbox pdc.LastError<br />
end if<br />
</source><br />
<br />
== Availability ==<br />
Available since April 2014 (Version 4.3 onwards)</div>TC