project QadFinancials > class BConsolid > method AdditionalUpdatesPostingTaxAccount
Description
Run method AddTaxPosting when the GL is a tax account.
Parameters
iiCompanyId | input | integer | |
icDefaultTaxCode | input | character | |
icPostingtcRowid | input | character | |
iiPostingLineId | input | integer | |
icCurrencyCode | input | character | |
itTaxPointDate | input | date | |
icTaxGLCode | input | character | |
idExchangeRate | input | decimal | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bconsolid.p)
assign viLocalReturnStatus = oiReturnStatus
oiReturnStatus = -98.
empty temp-table tConsTaxDetailPosting.
/* Get the domain of the consolidation company */
<Q-3 run DomainsForCompanies (all) (Read) (NoCache)
(input 0, (DomainId)
input '':U, (DomainCode)
input iiCompanyId, (CompanyId)
output dataset tqDomainsForCompanies) in BDomain >
find tqDomainsForCompanies where
tqDomainsForCompanies.tiCompany_id = iiCompanyId
no-lock no-error.
if not available tqDomainsForCompanies
then do:
assign vcMessage = trim(substitute(#T-4'The domain could not be found for an entity (Entity ID = &1).':255(63326)t-4#, trim(string(iiCompanyId)) ))
oiReturnStatus = -3.
<M-5 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'S':U (icType),
input 1 (iiSeverity),
input '':U (icRowid),
input 'QadFin-6465':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BConsolid>
return.
end. /* if not available tqDomainsForCompanies */
create tConsTaxDetailPosting.
assign tConsTaxDetailPosting.tx2d_domain = tqDomainsForCompanies.tcDomainCode
tConsTaxDetailPosting.tx2d_tax_code = icDefaultTaxCode
tConsTaxDetailPosting.tx2d_tr_type = {&VATTAXTRANSACTIONTYPE-APVOUCHER}.
/* Retrieve PostingLine Rowid */
<M-6 run GetPostingLineRowidBasedOnPostingLineID
(input iiPostingLineId (iiPostingLineID),
output vcPostingLineRowid (ocPostingLineRowid),
output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>
if viFcReturnSuper <> 0 and viLocalReturnStatus >= 0
then assign viLocalReturnStatus = viFcReturnSuper.
<M-2 run AddTaxPosting
(input icPostingtcRowid (icPostingtcRowid),
input vcPostingLineRowid (icPostingLineTcRowid),
input itTaxPointDate (itTaxPointDate),
input trim(#T-1'Default Tax':100(63325)T-1#) (icDescription),
input icCurrencyCode (icCurrencyCode),
input 0 (iiCurrencyId),
input {&EXCHANGERATETYPE-ACCOUNTING} (icExchangeRateType),
input idExchangeRate (idExchangeRate),
input 1 (idExchangeRateScale),
input ? (idCCRate),
input ? (idCCRateScale),
input 0 (idBaseDebit),
input 0 (idBaseCredit),
input 0 (idFullDebit),
input 0 (idFullCredit),
input {&INVOICETYPE-INVOICE} (icInvoiceType),
input false (ilCalculateVat),
input-output tConsTaxDetailPosting (tTaxDetailPosting),
input '':U (icCaller),
input false (ilIsVatDelay),
input '':U (icDivisionCode),
input '':U (icVatCurrencyCode),
input 0 (iiVatCurrencyId),
input 1 (idVatExchangeRate),
input 1 (idVatExchangeRateScale),
input {&VATTRANSACTIONTYPE-PURCHASE} (icTransactionType),
input '':U (icTxclTaxCls),
input '':U (icTxuTaxUsage),
input '':U (icFromTxzTaxZone),
input '':U (icToTxzTaxZone),
input '':U (icTxenvTaxEnv),
input '':U (icDocumentReference),
input '':U (icDocumentNumber),
input '':U (icPaymentCondition),
input false (ilIsTaxInCityFromCompany),
input false (ilIsTaxInCityFromShipTo),
input true (ilCustomerInvoice),
input '':U (icControlGLCode),
input 0 (iiMasterId),
input 0 (iiTransactionId),
input icTaxGLCode (icTaxGLCode),
input false (ilIsTaxable),
input 0 (idAdjustmentFactor),
input '':U (icCostCentreCode),
input '':U (icProjectCode),
input 0 (iiShipFromAddressId),
input 0 (iiShipToAddressId),
input {&VATTAXTRANSACTIONTYPE-APVOUCHER} (icTaxTransactionType),
input ? (icSoldToDebtorCode),
input-output iiPostingLineId (biFirstVatPostingLineId),
output viDummyPostingLineID (oiSecondVatPostingLineId),
output vcDummy (ocPostingLineIds),
input false (ilLinkedCrCyDaemonReqExists),
output viFcReturnSuper (oiReturnStatus)) in BJournalEntry>
if viFcReturnSuper <> 0 and viLocalReturnStatus >= 0
then assign viLocalReturnStatus = viFcReturnSuper.
assign oiReturnStatus = viLocalReturnStatus.