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
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.