Description
Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.
Parameters
| oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bcompany.p)
<ANCESTOR-CODE>
empty temp-table tCompanyPropertyRef.
for each tCompany :
/* =============== */
/* CompanyProperty */
/* =============== */
if not can-find (tCompanyPropertyRef of tCompany)
then do :
<Q-3 run CompanyPropertyForCalculate (all) (Read) (NoCache)
(input tCompany.Company_ID, (CompanyId)
output dataset tqCompanyPropertyForCalculate) in BCompanyProperty >
find first tqCompanyPropertyForCalculate no-error.
if not available tqCompanyPropertyForCalculate
then next.
create tCompanyPropertyRef.
assign tCompanyPropertyRef.Company_ID = tqCompanyPropertyForCalculate.tiCompany_ID
tCompanyPropertyRef.CompanyProperty_ID = tqCompanyPropertyForCalculate.tiCompanyProperty_ID
tCompanyPropertyRef.Currency_ID = tqCompanyPropertyForCalculate.tiCurrency_ID
tCompanyPropertyRef.tcCurrencyCode = tqCompanyPropertyForCalculate.tcCurrencyCode
tCompanyPropertyRef.BusinessRelation_ID = tqCompanyPropertyForCalculate.tiBusinessRelation_ID
tCompanyPropertyRef.tcBusinessRelationCode = tqCompanyPropertyForCalculate.tcBusinessRelationCode
tCompanyPropertyRef.CompanyPropertyIsBudOverCh = tqCompanyPropertyForCalculate.tlCompanyPropertyIsBudOverCh
tCompanyPropertyRef.CompanyPropertyPriceNumDec = tqCompanyPropertyForCalculate.tiCompanyPropertyPriceNumDec
tCompanyPropertyRef.CompanyPropertyQtyNumDec = tqCompanyPropertyForCalculate.tiCompanyPropertyQtyNumDec
tCompanyPropertyRef.CompanyPropertyRevRecMinim = tqCompanyPropertyForCalculate.tdCompanyPropertyRevRecMinim
tCompanyPropertyRef.CompanyPropertyRevRecTresh = tqCompanyPropertyForCalculate.tdCompanyPropertyRevRecTresh
tCompanyPropertyRef.CompanyPropertyIsActDurat = tqCompanyPropertyForCalculate.tlCompanyPropertyIsActDurat
tCompanyPropertyRef.CompanyPropertyActCheckp = tqCompanyPropertyForCalculate.tcCompanyPropertyActCheckp
tCompanyPropertyRef.CompanyPropertyMirrorSetup = tqCompanyPropertyForCalculate.tcCompanyPropertyMirrorSetup
tCompanyPropertyRef.CompanyPropertySuspTax = tqCompanyPropertyForCalculate.tcCompanyPropertySuspTax
tCompanyPropertyRef.CompanyPropertyDelTax = tqCompanyPropertyForCalculate.tcCompanyPropertyDelTax
tCompanyPropertyRef.Unit_ID = tqCompanyPropertyForCalculate.tiUnit_ID
tCompanyPropertyRef.tcUnitCode = tqCompanyPropertyForCalculate.tcUnitCode
tCompanyPropertyRef.CompanyPropertyActConvFact = tqCompanyPropertyForCalculate.tdCompanyPropertyActConvFact
tCompanyPropertyRef.CompanyPropertyIsActive = tqCompanyPropertyForCalculate.tlCompanyPropertyIsActive
tCompanyPropertyRef.CompanyPropertyCode = tqCompanyPropertyForCalculate.tcCompanyPropertyCode
tCompanyPropertyRef.tcActCostPostingJournalCode = tqCompanyPropertyForCalculate.tcJournalCode
tCompanyPropertyRef.tcCostSafStructureCode = tqCompanyPropertyForCalculate.tcSafStructureCode
tCompanyPropertyRef.tcActSalaryPostingJournalCode = tqCompanyPropertyForCalculate.tcActSalaryPostingJournalCode
tCompanyPropertyRef.tcSalarySafStructureCode = tqCompanyPropertyForCalculate.tcSalarySafStructureCode
tCompanyPropertyRef.tcSafConceptCode = tqCompanyPropertyForCalculate.tcSafConceptCode
tCompanyPropertyRef.CompanyPropertyIsSalPost = tqCompanyPropertyForCalculate.tlCompanyPropertyIsSalPost
tCompanyPropertyRef.CompanyPropertyIsGlobalTax = tqCompanyPropertyForCalculate.tlCompanyPropertyIsGlobalTax
tCompanyPropertyRef.CompanyPropertyIsPLReverse = tqCompanyPropertyForCalculate.tlCompanyPropertyIsPLReverse
tCompanyPropertyRef.CompanyPropertyIsAddNrYrly = tqCompanyPropertyForCalculate.tlCompanyPropertyIsAddNrYrly
tCompanyPropertyRef.CompanyPropertyIsAddGLNbr = tqCompanyPropertyForCalculate.tlCompanyPropertyIsAddGLNbr
tCompanyPropertyRef.SharedAddNrCompany_ID = tqCompanyPropertyForCalculate.tiSharedAddNrCompany_ID
tCompanyPropertyRef.tcSharedAddNrCompanyCode = tqCompanyPropertyForCalculate.tcSharedAddNrCompanyCode
tCompanyPropertyRef.tc_ParentRowid = tCompany.tc_Rowid
tCompanyPropertyRef.CompanyPropertyUppLimit = tqCompanyPropertyForCalculate.tdCompanyPropertyUppLimit
tCompanyPropertyRef.CompanyPropertyExchTolAP = tqCompanyPropertyForCalculate.tdCompanyPropertyExchTolAP
tCompanyPropertyRef.CompanyPropertyExchTolAR = tqCompanyPropertyForCalculate.tdCompanyPropertyExchTolAR
tCompanyPropertyRef.CompanyPropertyIsConsolid = tqCompanyPropertyForCalculate.tlCompanyPropertyIsConsolid
tCompanyPropertyRef.CompanyPropertyIsPrimary = tqCompanyPropertyForCalculate.tlCompanyPropertyIsPrimary
tCompanyPropertyRef.CompanyPropertyOINetRestr = tqCompanyPropertyForCalculate.tcCompanyPropertyOINetRestr
tCompanyPropertyRef.CompanyPropertyIsOICrossCy = tqCompanyPropertyForCalculate.tlCompanyPropertyIsOICrossCy
tCompanyPropertyRef.CompanyPropertyIsCompens = tqCompanyPropertyForCalculate.tlCompanyPropertyIsCompens
tCompanyPropertyRef.CompanyPropertyIsWHT = tqCompanyPropertyForCalculate.tlCompanyPropertyIsWHT
tCompanyPropertyRef.CompanyPropertyWHTNextNbr = tqCompanyPropertyForCalculate.tiCompanyPropertyWHTNextNbr
tCompanyPropertyRef.CompanyPropertyIsSuspPaid = tqCompanyPropertyForCalculate.tlCompanyPropertyIsSuspPaid
tCompanyPropertyRef.CompanyPropertyIsDelPaid = tqCompanyPropertyForCalculate.tlCompanyPropertyIsDelPaid
tCompanyPropertyRef.CompanyPropertyIsGrIncAcc = tqCompanyPropertyForCalculate.tlCompanyPropertyIsGrIncAcc
tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc = tqCompanyPropertyForCalculate.tcCompanyPropertyAutoBalYEFailAc
tCompanyPropertyRef.CompanyPropertyIsAPUseInvDate = tqCompanyPropertyForCalculate.tlCompanyPropertyIsAPUseInvDate
tCompanyPropertyRef.CompanyPropertyIsARUseTaxDate = tqCompanyPropertyForCalculate.tlCompanyPropertyIsARUseTaxDate
tCompanyPropertyRef.tc_Rowid = tCompany.tc_Rowid
/* tCompanyPropertyRef is created Manully and hence needs the User-defined fields also to be handled explicitly */
tCompanyPropertyRef.CustomCombo0 = tqCompanyPropertyForCalculate.tcCustomCombo0
tCompanyPropertyRef.CustomCombo1 = tqCompanyPropertyForCalculate.tcCustomCombo1
tCompanyPropertyRef.CustomCombo2 = tqCompanyPropertyForCalculate.tcCustomCombo2
tCompanyPropertyRef.CustomCombo3 = tqCompanyPropertyForCalculate.tcCustomCombo3
tCompanyPropertyRef.CustomCombo4 = tqCompanyPropertyForCalculate.tcCustomCombo4
tCompanyPropertyRef.CustomCombo5 = tqCompanyPropertyForCalculate.tcCustomCombo5
tCompanyPropertyRef.CustomCombo6 = tqCompanyPropertyForCalculate.tcCustomCombo6
tCompanyPropertyRef.CustomCombo7 = tqCompanyPropertyForCalculate.tcCustomCombo7
tCompanyPropertyRef.CustomCombo8 = tqCompanyPropertyForCalculate.tcCustomCombo8
tCompanyPropertyRef.CustomCombo9 = tqCompanyPropertyForCalculate.tcCustomCombo9
tCompanyPropertyRef.CustomDate0 = tqCompanyPropertyForCalculate.ttCustomDate0
tCompanyPropertyRef.CustomDate1 = tqCompanyPropertyForCalculate.ttCustomDate1
tCompanyPropertyRef.CustomDate2 = tqCompanyPropertyForCalculate.ttCustomDate2
tCompanyPropertyRef.CustomDate3 = tqCompanyPropertyForCalculate.ttCustomDate3
tCompanyPropertyRef.CustomDate4 = tqCompanyPropertyForCalculate.ttCustomDate4
tCompanyPropertyRef.CustomDecimal0 = tqCompanyPropertyForCalculate.tdCustomDecimal0
tCompanyPropertyRef.CustomDecimal1 = tqCompanyPropertyForCalculate.tdCustomDecimal1
tCompanyPropertyRef.CustomDecimal2 = tqCompanyPropertyForCalculate.tdCustomDecimal2
tCompanyPropertyRef.CustomDecimal3 = tqCompanyPropertyForCalculate.tdCustomDecimal3
tCompanyPropertyRef.CustomDecimal4 = tqCompanyPropertyForCalculate.tdCustomDecimal4
tCompanyPropertyRef.CustomShort0 = tqCompanyPropertyForCalculate.tcCustomShort0
tCompanyPropertyRef.CustomShort1 = tqCompanyPropertyForCalculate.tcCustomShort1
tCompanyPropertyRef.CustomShort2 = tqCompanyPropertyForCalculate.tcCustomShort2
tCompanyPropertyRef.CustomShort3 = tqCompanyPropertyForCalculate.tcCustomShort3
tCompanyPropertyRef.CustomShort4 = tqCompanyPropertyForCalculate.tcCustomShort4
tCompanyPropertyRef.CustomShort5 = tqCompanyPropertyForCalculate.tcCustomShort5
tCompanyPropertyRef.CustomShort6 = tqCompanyPropertyForCalculate.tcCustomShort6
tCompanyPropertyRef.CustomShort7 = tqCompanyPropertyForCalculate.tcCustomShort7
tCompanyPropertyRef.CustomShort8 = tqCompanyPropertyForCalculate.tcCustomShort8
tCompanyPropertyRef.CustomShort9 = tqCompanyPropertyForCalculate.tcCustomShort9
tCompanyPropertyRef.CustomInteger0 = tqCompanyPropertyForCalculate.tiCustomInteger0
tCompanyPropertyRef.CustomInteger1 = tqCompanyPropertyForCalculate.tiCustomInteger1
tCompanyPropertyRef.CustomInteger2 = tqCompanyPropertyForCalculate.tiCustomInteger2
tCompanyPropertyRef.CustomInteger3 = tqCompanyPropertyForCalculate.tiCustomInteger3
tCompanyPropertyRef.CustomInteger4 = tqCompanyPropertyForCalculate.tiCustomInteger4
tCompanyPropertyRef.CustomLong0 = tqCompanyPropertyForCalculate.tcCustomLong0
tCompanyPropertyRef.CustomLong1 = tqCompanyPropertyForCalculate.tcCustomLong1
tCompanyPropertyRef.CustomNote = tqCompanyPropertyForCalculate.tcCustomNote
tCompanyPropertyRef.CompanyPropertyDelTaxDateType = tqCompanyPropertyForCalculate.tcCompanyPropertyDelTaxDateType
tCompanyPropertyRef.CompanyPropertySusTaxDateType = tqCompanyPropertyForCalculate.tcCompanyPropertySusTaxDateType
tCompanyPropertyRef.CompanyPropertyIsAPTaxExcluded = tqCompanyPropertyForCalculate.tlCompanyPropertyIsAPTaxExcluded
tCompanyPropertyRef.CompanyPropertyIsShowSEPAMsg = tqCompanyPropertyForCalculate.tlCompanyPropertyIsShowSEPAMsg.
if (tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc <> {&YECLOSEAUTOBALANCECHECK-ERROR}) and
(tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc <> {&YECLOSEAUTOBALANCECHECK-WARNING}) and
(tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc <> {&YECLOSEAUTOBALANCECHECK-NOACTION})
then assign tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc = {&YECLOSEAUTOBALANCECHECK-ERROR}.
<Q-16 run DomainPropertyByDomain (all) (Read) (Cache)
(input tCompany.Domain_ID, (DomainID)
output dataset tqDomainPropertyByDomain) in BDomainProperty >
find first tqDomainPropertyByDomain no-lock no-error.
if available tqDomainPropertyByDomain
then assign tCompanyPropertyRef.tlDomainSetupComplete = tqDomainPropertyByDomain.tlDomainPropertyIsSetupCompl.
else assign tCompanyPropertyRef.tlDomainSetupComplete = false.
/* Get "AR Tax Excluded flage falue from Tax setup */
<Q-14 run MfgTaxControlByDomain (all) (Read) (NoCache)
(input tCompany.tcDomainCode, (DomainCode)
output dataset tqMfgTaxControlByDomain) in BMfgTaxControl>
find first tqMfgTaxControlByDomain where
tqMfgTaxControlByDomain.tctxc_domain = tCompany.tcDomainCode
no-error.
if available tqMfgTaxControlByDomain
then assign tCompanyPropertyRef.CompanyPropertyIsARTaxExcluded = tqMfgTaxControlByDomain.tltxc_ar_taxexcl.
end. /* if not can-find (tCompanyPropertyRef of tCompany) */
end. /* for each tCompany */