project QadFinancials > class BGLMask > method InitInstance

Description

This method can be extended with code to execute when an instance of a business class is started.

PreCondition

This method is executed when a new instance of the business class is started, or when a draft instance is opened (in that case a new instance is started which is a copy of the draft instance).


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program/bglmask.p)

<ANCESTOR-CODE>

/* ========================================================== */
/* Assign the instance-dependant data-items that represent a  */
/* company-property concerning the required checks on GLMasks */
/* ========================================================== */
if vlCompanyCheckGL      = ? or
   vlCompanyCheckDiv     = ? or
   vlCompanyCheckCC      = ? or
   vlCompanyCheckProject = ?
then do:
    <Q-2 run DomainPropertyByDomain (all) (Read) (NoCache)
       (input viDomainID, (DomainID)
        output dataset tqDomainPropertyByDomain) in BDomainProperty >

    find first tqDomainPropertyByDomain where
               tqDomainPropertyByDomain.tiDomain_ID = viDomainID
               no-error.
/* ddl - GL Mask Rewrite */
    if available tqDomainPropertyByDomain
    then assign vlCompanyCheckGL      = tqDomainPropertyByDomain.tlObsoleteDomPropGLMaskGL
                vlCompanyCheckDiv     = tqDomainPropertyByDomain.tlDomainPropertyIsMaskDiv
                vlCompanyCheckCC      = tqDomainPropertyByDomain.tlDomainPropertyIsMaskCC
                vlCompanyCheckProject = tqDomainPropertyByDomain.tlDomainPropertyIsMaskProj.                
end.