project QadFinancials > class Business Component > method ReadSessionValues

Description

Read some comonly used values from session like current user login or current company ID and store these values in variables available to all business classes.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method business.InitInstance
method BBaseDaemonProcessor.SwitchSessionCy


program code (program/business.p)

<ANCESTOR-CODE>

/* Read settings from session (initialised at Login), so they are available
   to all business classes. */
assign vhFcComponent = vhCacher
       vcNameList    = 'CompanyLC,c,CompanyLCDec,i,CompanyLCId,i,CompanyCC,c,CompanyCCDec,i,CompanyCCId,i,CompanyPriceDec,i,CompanyQtyDec,i,MfgDomain,c,DomainID,i,DomainCode,c,DomainLngCode,c,GLVerificationActive,l,CurrencyDecimalsList,c,CompanyMC,c,CompanyMCDec,i,CompanyMCID,i,DomainIsStatutory,l'.
<M-53 run GetValuesFromSession
   (input  viSessionID (iiSessionId),
    input  vcNameList (icNameList),
    output vcValueList (ocValueList),
    output viFcReturnSuper (oiReturnStatus)) in Cacher>



assign vcCompanyLC             = entry(1,vcValueList,chr(2))
       viCompanyLCDec          = integer(entry(2,vcValueList,chr(2)))
       viCompanyLCId           = integer(entry(3,vcValueList,chr(2)))
       vcCompanyCC             = entry(4,vcValueList,chr(2))
       viCompanyCCDec          = integer(entry(5,vcValueList,chr(2)))
       viCompanyCCId           = integer(entry(6,vcValueList,chr(2)))
       viCompanyPriceDec       = integer(entry(7,vcValueList,chr(2)))
       viCompanyQtyDec         = integer(entry(8,vcValueList,chr(2)))
       vcMfgDomain             = entry(9,vcValueList,chr(2))
       viDomainID              = integer(entry(10,vcValueList,chr(2)))
       vcDomainCode            = entry(11,vcValueList,chr(2))
       vcDomainLngCode         = entry(12,vcValueList,chr(2))
       vlGLVerificationActive  = (entry(13,vcValueList,chr(2)) = "TRUE")
       vcCurrencyDecimalsList  = entry(14,vcValueList,chr(2))
       vcCompanyMC             = entry(15,vcValueList,chr(2))
       viCompanyMCDec          = integer(entry(16,vcValueList,chr(2)))
       viCompanyMCId           = integer(entry(17,vcValueList,chr(2)))
       vlDomainIsStatutory     = (entry(18,vcValueList,chr(2)) = "TRUE").

if vcDomainLngCode = ?
then vcDomainLngCode = "".