project BLF > class Session > method GetAllData
Description
get all session data
Parameters
Internal usage
unused
program code (program1/session.p)
<M-49 run CreateFilterVariables (output viFcReturnSuper (oiReturnStatus)) in Session>
empty temp-table tSharedSets.
<Q-47 run LookupSharedSetForCompany (all) (Read) (NoCache)
(input viCompanyId, (CompanyId)
input '', (SharedSetType)
output dataset tqSharedSetForCompany) in BCompany >
for each tqSharedSetForCompany on error undo, throw:
create tSharedSets.
assign tSharedSets.tcSharedSetTypeCode = tqSharedSetForCompany.tcSharedSetTypeCode
tSharedSets.tiSharedSet_ID = tqSharedSetForCompany.tiSharedSet_ID.
end.
empty temp-table tCompanyCurrencies.
<M-94 run GetCompanyCurrency
(output tCompanyCurrencies (tCompanyCurrencies),
output viFcReturnSuper (oiReturnStatus)) in Session>