project BLF > class Session > method GetAllData

Description

get all session data


Parameters


tDataItemsoutputtemp-table
tFilterVariableoutputtemp-table
tSharedSetsoutputtemp-table
tCompanyCurrenciesoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


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>