project QadFinancials > class BResource > method CreateGenCodeGroups

Parameters

Internal usage

program code (program1/bresource.p)

<Q-3 run GenCodeGroups (all) (Read) (NoCache)  (output dataset tqGenCodeGroups) in BMfgGenCodeQuery>

for each tqGenCodeGroups:

    vcgcgURI = "urn:gencodegroup:" + tqGenCodeGroups.tcctg_value.
    
    find first tResources where
               tResources.ResourceURI = vcgcgURI no-error.
    if available tResources
    then do:
        if tResources.tc_Status = "D"
        then tResources.tc_Status = "".
    end.
    else do:
        <M-43 run AddDetailLine
           (input  'Resources':U (icTable), 
            input  '' (icParentRowid), 
            output viFcReturnSuper (oiReturnStatus)) in BResource>
        if viFcReturnSuper <> 0
        then oiReturnStatus = viFcReturnSuper.
        if viFcReturnSuper < 0
        then return.  

        assign tResources.ResourceURI   = vcgcgURI
               tResources.ResourceLabel = vcgcgURI
               tResources.ResourceType  = {&RESOURCE-TYPE-MENU}
               blUpdatesDone            = true.
    end.
end.