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
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
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 = "".