method ProcessCompaniesInDomain

Description

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

Parameters

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