method CheckIsWithCOAMask

Description

check whether to validate coa mask.
true: need to run coa mask validateion.
false: not need.

Parameters

iiCompanyId	input	integer
olIsWithCOAMask	output	logical	default: false. true: if any type of COA mask is checked in the domain settings.
iiDomainId	input	integer
olIsCOAMaskDiv	output	logical
olIsCOAMaskDivAll	output	logical
olIsCOAMaskCC	output	logical
olIsCOAMaskCCAll	output	logical
olIsCOAMaskProj	output	logical
olIsCOAMaskProjAll	output	logical
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

method BPosting.ValidateComponentPostPostingLine4

program code (program4/bposting.p)

assign oiReturnStatus = -98
       olIsWithCOAMask = false
       olIsCOAMaskCC = ?
       olIsCOAMaskCCAll = ?
       olIsCOAMaskDiv = ?
       olIsCOAMaskDivAll = ?
       olIsCOAMaskProj = ?
       olIsCOAMaskProjAll = ?.
if iiDomainId = ? or iiDomainId = 0 then
do:
   <Q-6 run CompanyByDomain (all) (Read) (Cache)
      (input iiCompanyId, (CompanyId)
       input ?, (DomainId)
       input ?, (Active)
       output dataset tqCompanyByDomain) in BCompany>
   find first tqCompanyByDomain where 
                   tqCompanyByDomain.tiCompany_ID = iiCompanyID 
                        no-error.
   if available tqCompanyByDomain 
   then do:
       assign iiDomainId = tqCompanyByDomain.tiDomain_ID.
   end.
end.
<Q-98 run DomainPropertyByDomain (all) (Read) (Cache)
   (input iiDomainId, (DomainID)
    output dataset tqDomainPropertyByDomain) in BDomainProperty>
                     
find first tqDomainPropertyByDomain where 
                       tqDomainPropertyByDomain.tiDomain_ID = tqCompanyByDomain.tiDomain_ID 
                       no-error.
if available tqDomainPropertyByDomain then do:

     assign            olIsCOAMaskDiv     = tqDomainPropertyByDomain.tlDomainPropertyIsMaskDiv
                       olIsCOAMaskDivAll  = tqDomainPropertyByDomain.tlDomainPropertyIsMaskDivAll
                       olIsCOAMaskCC      = tqDomainPropertyByDomain.tlDomainPropertyIsMaskCC
                       olIsCOAMaskCCAll   = tqDomainPropertyByDomain.tlDomainPropertyIsMaskCCAll
                       olIsCOAMaskProj    = tqDomainPropertyByDomain.tlDomainPropertyIsMaskProj
                       olIsCOAMaskProjAll = tqDomainPropertyByDomain.tlDomainPropertyIsMaskPrjAll. 
     if tqDomainPropertyByDomain.tlDomainPropertyIsMaskDiv or  
         tqDomainPropertyByDomain.tlDomainPropertyIsMaskCC or
         tqDomainPropertyByDomain.tlDomainPropertyIsMaskProj then
     do:
        assign olIsWithCOAMask = true.
     end.                                            
end. /*if available tqDomainPropertyByDomain*/  
assign oiReturnStatus = 0.