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.