method CreateNotifyRole

Parameters

icRoleName	input	character
icComponentType	input	character
oiReturnStatus	output	integer	Return 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 */