project QadFinancials > class BCInvoice > method DefaultValuesTaxInfo
Parameters
icCInvoiceRowId | input | character | |
iiCInvoiceId | input | integer | |
icCurrencyCode | input | character | |
icDocumentReference | input | character | |
itCInvoiceTaxPointDate | input | date | |
icShipFromTaxZone | input | character | |
icShipToTaxZone | input | character | |
icTxclTaxClass | input | character | |
icTxuTaxUsage | input | character | |
idCInvoiceOriginalTC | input | decimal | |
idCInvoiceExchangeRate | input | decimal | |
idCInvoiceRateScale | input | decimal | |
icPaymentConditionCode | input | character | |
itCInvoicePostingDate | input | date | |
ilCInvoiceIsTaxable | input | logical | |
ilCInvoiceIsTaxExcluded | input | logical | |
ilCreditorIsWHT | input | logical | True if Creditor is set up for withholding tax |
icCInvoiceType | input | character | |
ilShipToAddressIsTaxInCity | input | logical | |
idCInvoiceVatExchangeRate | input | decimal | |
idCInvoiceVatRateScale | input | decimal | |
ilCInvoiceIsLogisticMatching | input | logical | |
itCInvoiceDate | input | date | |
iiShipToAddressID | input | integer | |
iiShipFromAddressID | input | integer | |
ocTxenvTaxEnv | output | character | |
tApiCInvoiceVat | output | temp-table | |
tApiCInvoiceWHT | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program3/bcinvoice.p)
empty temp-table tApiCInvoiceVat.
/* Tax stuff */
<M-3 run DefaultValuesTax
(input icCInvoiceRowId (icCInvoiceRowid),
input iiCInvoiceId (iiCInvoiceId),
input icCurrencyCode (icCurrencyCode),
input icDocumentReference (icDocumentReference),
input itCInvoiceTaxPointDate (itTaxPointDate),
input icShipFromTaxZone (icShipFromTaxZone),
input icShipToTaxZone (icShipToTaxZone),
input icTxclTaxClass (icTxclTaxClass),
input icTxuTaxUsage (icTxuTaxUsage),
input idCInvoiceOriginalTC (idInvoiceAmountTC),
input idCInvoiceExchangeRate (idExchangeRate),
input idCInvoiceRateScale (idExchangeRateScale),
input icPaymentConditionCode (icPaymentConditionCode),
input itCInvoicePostingDate (itPostingDate),
input ilCInvoiceIsTaxable (ilTaxable),
input ilCreditorIsWHT (ilCreditorIsWht),
input icCInvoiceType (icInvoiceType),
input ilShipToAddressIsTaxInCity (ilShipToAddressIsTaxInCity),
input idCInvoiceVatExchangeRate (idVatExchangeRate),
input idCInvoiceVatRateScale (idVatRateScale),
input ilCInvoiceIsLogisticMatching (ilIsLogisticMatching),
output ocTxenvTaxEnv (ocTxenvTaxEnv),
input ilCInvoiceIsTaxExcluded (ilCInvoiceIsTaxExcluded),
input itCInvoiceDate (itCInvoiceDate),
input 0 (idCCExchangeRate),
input 0 (idCCExchangeRateScale),
input iiShipToAddressID (iiShipToAddressID),
input iiShipFromAddressID (iiShipFromAddressID),
input ? (icCreditorCode),
output viFcReturnSuper (oiReturnStatus)) in BCInvoice>
if viFcReturnSuper < 0 or
oiReturnStatus = 0
then assign oiReturnStatus = viFcReturnSuper.
if oiReturnStatus < 0
then return.
for each tCInvoiceVat where
tCInvoiceVat.tc_Status <> "D":U:
create tApiCInvoiceVat.
raw-transfer tCInvoiceVat to tApiCInvoiceVat.
end.
for each tCInvoiceWHT where
tCInvoiceWHT.tc_Status <> "D":U:
create tApiCInvoiceWHT.
raw-transfer tCInvoiceWHT to tApiCInvoiceWHT.
end.