project BLF > class BBaseDaemonProcessor > method SwitchSessionCy


Parameters


icCompanyCodeinputcharacter
iiCompanyIdinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method BReportDaemonProcessor.PerformWorkItem
method BScanDaemonProcessor.PerformWorkItem
method BXmlDaemonProcessor.LoadXmlDocument

QadFinancials
method BBalanceDaemonProcessor.PerformWorkItem
method BBudgetDaemonProcessor.PerformWorkItem
method BCrossCyDaemonProcessor.PerformWorkItem
method BHistoryDaemonProcessor.PerformWorkItem
method BReplicaDaemonProcessor.PerformWorkItem


program code (program1/bbasedaemonprocessor.p)

if (iiCompanyId <> 0 and
    iiCompanyId <> ? and
    iiCompanyId <> viCompanyId)
or (icCompanyCode <> "" and
    icCompanyCode <> ? and
    icCompanyCode <> vcCompanyCode)
then do:
    <I-44 {bFcOpenInstance
         &CLASS           = "Session"}>
    <M-23 run SwitchCompany
       (input  icCompanyCode (icCompanyCode), 
        input  iiCompanyId (iiCompanyId), 
        output viFcReturnSuper (oiReturnStatus)) in Session>
    <I-87 {bFcCloseInstance
         &CLASS           = "Session"}>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
    
    <M-42 run ReadSessionValues  (output viFcReturnSuper (oiReturnStatus)) in BBaseDaemonProcessor>
    if viFcReturnSuper <> 0
    then oiReturnStatus = viFcReturnSuper.
    if viFcReturnSuper < 0
    then return.
end.