project QadFinancials > class BCompany > method InitialValues

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


icTableNameinputcharacterName of the database table of which a record is created in the class temp-table.
oiReturnStatusoutputinteger


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.