project QadFinancials > class BRole > method CreateNotifyRole


Parameters


icRoleNameinputcharacter
icComponentTypeinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BRole.ApiSynchroniseCustom


program code (program1/brole.p)

if(not <M-3 RoleExists (input  icRoleName (icRoleName)) in BRole>) then do:
    <M-4 run AddDetailLine (input  'Role':U (icTable), 
                        input  ? (icParentRowid), 
                        output viFcReturnSuper (oiReturnStatus)) in BRole>    
    if(viFcReturnSuper <> 0) then do:
        oiReturnStatus = viFcReturnSuper.
        if(oiReturnStatus < 0) then return.
    end.
    assign 
        tRole.RoleName = icRoleName
        tRole.RoleIsActive = true
        tRole.RoleDescription = "Create of ":U + icComponentType.
end. /* if(not */