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
oiReturnStatus | output | integer | |
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.