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/bsodcategory.p)

<ANCESTOR-CODE>

for each tSODCategory on error undo, throw:

    if vlDataLoadKeepPrevious and can-find (tAlreadyCalculatedRecords where
             tAlreadyCalculatedRecords.tcTableName = "SODCategory" and
             tAlreadyCalculatedRecords.tc_Rowid = tSODCategory.tc_Rowid)
    then next.

    if can-find (first tSODCategoryResources where
                       tSODCategoryResources.tc_ParentRowid = tSODCategory.tc_Rowid)
    then next.
    
    <Q-1 run ResourceBySODCategory (all) (Read) (NoCache)
       (input tSODCategory.SODCategory_ID, (SODCategoryID)
        input '', (SODCategoryCode)
        input 0, (ResourceID)
        output dataset tqResourceBySODCategory) in BResource >
    for each tqResourceBySODCategory:
        virowid = virowid + 1.
        create tSODCategoryResources.
        assign tSODCategoryResources.tcResourceLabel = tqResourceBySODCategory.tcResourceLabel
               tSODCategoryResources.tcResourceURI   = tqResourceBySODCategory.tcResourceURI
               tSODCategoryResources.tc_Rowid        = string(virowid)
               tSODCategoryResources.tc_ParentRowid  = tSODCategory.tc_Rowid.
    end.
end.