project BLF > class BStoredSearch > method Calculate

Description

Add code here to initialize the calculated fields of the class temp-tables after loading existing records from the application database.


Parameters


oiReturnStatusoutputinteger


Internal usage


unused


program code (program/bstoredsearch.p)

define buffer bCompany for Company.
define buffer bRole for Role.
define buffer bUsr for Usr.

<ANCESTOR-CODE>

/* BLF-3502 : replace with external value */
for each tSSearchFilterField where
         tSSearchFilterField.SSearchFilterFieldOperator = "!null" on error undo, throw:
    tSSearchFilterField.SSearchFilterFieldOperator = "isnotnull".
end.

for each tStoredSearch on error undo, throw:
    
    if tStoredSearch.Company_ID <> 0
    then for each bCompany fields (Company_ID CompanyCode) no-lock where
                  bCompany.Company_ID = tStoredSearch.Company_ID on error undo, throw:
        tStoredSearch.tcAccessCompanyCode = bCompany.CompanyCode.
    end.
    
    if tStoredSearch.Role_ID <> 0
    then for each bRole fields (Role_ID RoleName) no-lock where
                  bRole.Role_ID = tStoredSearch.Role_ID on error undo, throw:
        tStoredSearch.tcAccessRoleName = bRole.RoleName.
    end.
    
    if tStoredSearch.Usr_ID <> 0
    then for each bUsr fields (Usr_ID UsrLogin) no-lock where
                  bUsr.Usr_ID = tStoredSearch.Usr_ID on error undo, throw:
        tStoredSearch.tcAccessUserLogin = bUsr.UsrLogin.
    end.
end.