楼主,应该是TOrgUtils.IsDeputized这个函数有问题了,没有正确判断岗位是否被代理。
你在“系统空间\系统运行库\系统函数库”里,将这个函数重新实现一下吧:
1、声明单元函数IsDeputized
function IsDeputized(APersonMember: TPersonMember): boolean;
var
i: integer;
begin
Result := false;
for I := 0 to APersonMember.Module.Deputies.Count - 1 do
if TOrgDeputyItem(APersonMember.Module.Deputies[I]).Enabled then
begin
result := true;
break;
end;
end;