project QadFinancials > class BRole > method CreateNotifyRole
Parameters
icRoleName | input | character | |
icComponentType | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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 */