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
oiReturnStatus | output | integer | Return 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.