project BLF > class BUser > method DefaultValuesDomain
Description
Initializes the data for public dataset tAvailableCompanies.
Parameters
iiDomainId | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
unused
program code (program4/buser.p)
empty temp-table tAvailableCompanies.
<Q-1 run CompanyByDomainActive (all) (Read) (NoCache) (input ?, (CompanyId)
input iiDomainId, (DomainId)
input true, (CompanyIsActive)
output dataset tqCompanyByDomainActive) in BCompany >
for each tqCompanyByDomainActive where
tqCompanyByDomainActive.tiDomain_ID = iiDomainId and
tqCompanyByDomainActive.tlCompanyIsActive = true on error undo, throw:
create tAvailableCompanies.
assign tAvailableCompanies.tcCompanyCode = tqCompanyByDomainActive.tcCompanyCode
tAvailableCompanies.tiCompanyId = tqCompanyByDomainActive.tiCompany_ID
tAvailableCompanies.tcDomainCode = tqCompanyByDomainActive.tcDomainCode
tAvailableCompanies.tiDomainId = tqCompanyByDomainActive.tiDomain_ID.
end.