project QadFinancials > class MfgNotification > method ProcessComponentCompanyDomain

Description

Handles processing of notifications for component company's domain. All users having appropriate role whose company is in the same domain as the component's company will get notified.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


unused


program code (program1/mfgnotification.p)

<Q-1 run CompanyByDomain (all)  (Read)  (NoCache)  (input viComponentCompanyID, (CompanyId) 
                          input ?, (DomainId) 
                          input true, (Active)
                          output dataset tqCompanyByDomain) in BCompany >
for first tqCompanyByDomain where tqCompanyByDomain.tiCompany_ID = viComponentCompanyID:
    vcDomainCode = tqCompanyByDomain.tcDomainCode.
end.
<M-2 run ProcessCompaniesInDomain (input  vcDomainCode (icDomainCode), 
                                   output viFcReturnSuper (oiReturnStatus)) in MfgNotification>
if(viFcReturnSuper < 0) then do:
    oiReturnStatus = viFcReturnSuper.
    return.
end.

oiReturnStatus = 0.