project QadFinancials > class BCInvoice > method DefaultValuesVatCurrency
Parameters
| iiCompanyID | input | integer | |
| icVatCurrencyCode | input | character | |
| icCurrencyCode | input | character | |
| idCInvoiceExchangeRate | input | decimal | |
| idCInvoiceRateScale | input | decimal | |
| itCInvoiceTaxPointDate | input | date | |
| odCInvoiceVatExchangeRate | output | decimal | |
| odCInvoiceVatRateScale | output | decimal | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program3/bcinvoice.p)
if icVatCurrencyCode = ?
then assign icVatCurrencyCode = "":U.
if icVatCurrencyCode = "":U
then return.
<M-1 run GetVatExchangeRate
(input iiCompanyID (iiCompanyID),
input icCurrencyCode (icCInvoiceCurrencyCode),
input icVatCurrencyCode (icOwnVatCurrencyCode),
input idCInvoiceExchangeRate (idCInvoiceExchangeRate),
input idCInvoiceRateScale (idCInvoiceRateScale),
input ? (iiCInvoiceCurrencyId),
input ? (iiOwnVatCurrencyId),
input itCInvoiceTaxPointDate (itTaxPointDate),
output odCInvoiceVatExchangeRate (odVatExchangeRate),
output odCInvoiceVatRateScale (odVatRateScale),
output viFcReturnSuper (oiReturnStatus)) in BCInvoice>