project QadFinancials > class BCInvoice > method DefaultValuesTaxInfo


Parameters


icCInvoiceRowIdinputcharacter
iiCInvoiceIdinputinteger
icCurrencyCodeinputcharacter
icDocumentReferenceinputcharacter
itCInvoiceTaxPointDateinputdate
icShipFromTaxZoneinputcharacter
icShipToTaxZoneinputcharacter
icTxclTaxClassinputcharacter
icTxuTaxUsageinputcharacter
idCInvoiceOriginalTCinputdecimal
idCInvoiceExchangeRateinputdecimal
idCInvoiceRateScaleinputdecimal
icPaymentConditionCodeinputcharacter
itCInvoicePostingDateinputdate
ilCInvoiceIsTaxableinputlogical
ilCInvoiceIsTaxExcludedinputlogical
ilCreditorIsWHTinputlogicalTrue if Creditor is set up for withholding tax
icCInvoiceTypeinputcharacter
ilShipToAddressIsTaxInCityinputlogical
idCInvoiceVatExchangeRateinputdecimal
idCInvoiceVatRateScaleinputdecimal
ilCInvoiceIsLogisticMatchinginputlogical
itCInvoiceDateinputdate
iiShipToAddressIDinputinteger
iiShipFromAddressIDinputinteger
ocTxenvTaxEnvoutputcharacter
tApiCInvoiceVatoutputtemp-table
tApiCInvoiceWHToutputtemp-table
oiReturnStatusoutputintegerReturn 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.