Description
Add code here to initialize the calculated fields of a 'new' record (= a record that must be created in the application database) in a class temp-table.
Parameters
| icTableName | input | character | Name of the database table of which a record is created in the class temp-table. |
| oiReturnStatus | output | integer | |
Internal usage
unused
program code (program/bcompany.p)
<ANCESTOR-CODE>
if icTableName = "company":U
then do:
assign tCompany.CompanyIsActive = yes.
create tCompanyPropertyRef.
assign tCompanyPropertyRef.Company_ID = tCompany.Company_ID
tCompanyPropertyRef.tc_status = "N":U
tCompanyPropertyRef.tc_Rowid = tCompany.tc_Rowid
tCompanyPropertyRef.tc_ParentRowid = tCompany.tc_Rowid
tCompanyPropertyRef.CompanyPropertyIsActive = true
tCompanyPropertyRef.CompanyPropertyIsBudOverCh = false
tCompanyPropertyRef.CompanyPropertyPriceNumDec = 2
tCompanyPropertyRef.CompanyPropertyQtyNumDec = 2
tCompanyPropertyRef.CompanyPropertyIsActDurat = true
tCompanyPropertyRef.CompanyPropertyActCheckp = {&COMPANYASCHECKPOINT-APPROVAL}
tCompanyPropertyRef.CompanyPropertyMirrorSetup = {&COMPANYPROPERTYMIRRORSETUP-NONE}
tCompanyPropertyRef.CompanyPropertyDelTax = {&SUSPDELAYTAX-NOTAPPLICABLE}
tCompanyPropertyRef.CompanyPropertySuspTax = {&SUSPDELAYTAX-NOTAPPLICABLE}
tCompanyPropertyRef.CompanyPropertyActConvFact = 60
tCompanyPropertyRef.CompanyPropertyIsGlobalTax = true
tCompanyPropertyRef.CompanyPropertyIsPLReverse = true
tCompanyPropertyRef.tlDomainSetupComplete = false
tCompanyPropertyRef.CompanyPropertyIsConsolid = false
tCompanyPropertyRef.CompanyPropertyIsAddGLNbr = false
tCompanyPropertyRef.CompanyPropertyIsAddNrYrly = true
tCompanyPropertyRef.CompanyPropertyOINetRestr = {&COMPANYPROPERTYOINETRESTR-NONE}
tCompanyPropertyRef.CompanyPropertyIsOICrossCy = true
tCompanyPropertyRef.CompanyPropertyIsCompens = true
tCompanyPropertyRef.CompanyPropertyIsWHT = false
tCompanyPropertyRef.CompanyPropertyIsGrIncAcc = false
tCompanyPropertyRef.CompanyPropertyIsDocPerInv = false
tCompanyPropertyRef.CompanyPropertyIsAPUseInvDate = false
tCompanyPropertyRef.CompanyPropertyIsARUseTaxDate = false
tCompanyPropertyRef.CompanyPropertyIsShowSEPAMsg = true
tCompanyPropertyRef.CompanyPropertyDelTaxDateType = {&TAXDATETYPE-INVOICEDATE}
tCompanyPropertyRef.CompanyPropertySusTaxDateType = {&TAXDATETYPE-INVOICEDATE}
tCompanyPropertyRef.CompanyPropertyAutoBalYEFailAc = {&YECLOSEAUTOBALANCECHECK-ERROR}.
end.
/* ========================================================================================== */
/* KriLae 20050704: keep these 2 find statemants because otherwise method ApiSynchronise does */
/* not work correctly. Reason for this strange behaviour is not clear to KriLae nor to KriMae */
/* ========================================================================================== */
find first tCompanyPropertyRef no-error.
find first tCompany no-error.