project QadFinancials > class MfgNotification > method ProcessCompaniesInDomain

Description

For all companies in the specified domain sends notifications to company's users that have the appropriate role associated.


Parameters


icDomainCodeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method MfgNotification.ProcessComponentCompanyDomain


program code (program1/mfgnotification.p)

<Q-3 run DomainsByCode (all)  (Read)  (NoCache)  (input ?, (DomainID) 
                        input icDomainCode, (DomainCode)
                        output dataset tqDomainsByCode) in BDomain >
for each tqDomainsByCode where tqDomainsByCode.tcDomainCode = icDomainCode:
    viDomainID = tqDomainsByCode.tiDomain_ID.
end.
<Q-1 run CompanyByDomain (all)  (Read)  (NoCache)  (input ?, (CompanyId) 
                          input viDomainID, (DomainId) 
                          input true, (Active)
                          output dataset tqCompanyByDomain) in BCompany >
for each tqCompanyByDomain where tqCompanyByDomain.tiDomain_ID = viDomainID:
    icDomainCode = tqCompanyByDomain.tcDomainCode.
    <M-2 run ProcessUsersForCompany (input  tqCompanyByDomain.tiCompany_ID (iiCompanyID), 
                                 output viFcReturnSuper (oiReturnStatus)) in MfgNotification>
    if(viFcReturnSuper < 0) then do:
        oiReturnStatus = viFcReturnSuper.
        return.
    end.
end.

oiReturnStatus = 0.