project BLF > class BUser > method DefaultValuesDomain

Description

Initializes the data for public dataset tAvailableCompanies.


Parameters


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