【搞定】有关协同常量库的问题**

YZYHZ

在协同常量库中有个func的定义，有何区别？

static function TRTLConsts.PersonFuncs: TStringArray;

static function TRTLConsts.DefaultFuncs: TStringArray;  


有关于协同常量库使用的资料吗？

twins_tony

楼主能说下您的需求是什么吗？这两个方法是控制默认加载的功能列表的。
关于协同常量库目前还没有资料提供参考。

YZYHZ

那两个函数的主要作用是什么？ 如何体现和修改？

twins_tony

楼主参考下：
http://bbs.justep.com/forum.php?mod=viewthread&tid=11825

alang

static function TRTLConsts.PersonFuncs: TStringArray;
是需要运行的人员环境的功能（一般的功能是运行在岗位环境的），一般不需要修改者个函数。
例如：任务中心看到的是用户在所有岗位上的任务，所以就不要在人员环境运行，而是在岗位环境运行。

static function TRTLConsts.DefaultFuncs: TStringArray;  
不需要分配功能权限就可以直接运行的功能。比如：公告之类的功能应该公司里所有的人都可以看到，就可以放到这里。

YZYHZ

对于工作事务中的工作记录，只允许自己和上级可以看到，是否需要修改？

能结合代码讲得详细一点吗？

alang

打开 协同系统\任务\任务中心资源\任务桌面过滤
在 function TCIRCSCOMMONFILTER.RebuildRightsFilterText: string;
定义
  SSOrgURLLike1 = 'T1.FSORGURL LIKE ''%s%%''  and (T1.FSPERSON is null or T1.FSPERSON='''' or T1.FSPERSON = ''%s'')';
  SROrgURLLike1 = 'TTASKMESSAGE.FRORGURL LIKE ''%s%%'' and (TTASKMESSAGE.FRPERSON is null or TTASKMESSAGE.FRPERSON='''' or TTASKMESSAGE.FRPERSON=''%s'')';

代码
        begin
          lSQL := SysUtils.Format(SSOrgURLLike, [DoGetQueryURLStr(lBizURL.URL)]);
          if not FPersonChecked and not lDeptEmpty then
          begin
            lOperatorID := TContextUtils.GetOperator(Context).ID;
            lSQL := AddAndCondition(lSQL, SysUtils.Format('NOT (%s)', [SysUtils.Format(SSOrgURLIn,
              [DoGetQueryURLStr(PersonMemberURLs), lOperatorID])]));
          end;}
          lSend.Add(lSQL);

          lSQL := SysUtils.Format(SROrgURLLike, [DoGetQueryURLStr(lBizURL.URL)]);
          if not FPersonChecked and not lDeptEmpty then
          begin
            lOperatorID := TContextUtils.GetOperator(Context).ID;
            lSQL := AddAndCondition(lSQL, SysUtils.Format('NOT (%s)', [SysUtils.Format(SROrgURLIn,
              [DoGetQueryURLStr(PersonMemberURLs), lOperatorID])]));
          end;
          lProces.Add(lSQL);
        end

修改成
        begin
          TContextUtils.GetContextOperator(Context, lDept, lPos, lPer);
          lSQL := SysUtils.Format(SSOrgURLLike1, [DoGetQueryURLStr(lBizURL.URL), lPer]);
          {if not FPersonChecked and not lDeptEmpty then
          begin
            lOperatorID := TContextUtils.GetOperator(Context).ID;
            lSQL := AddAndCondition(lSQL, SysUtils.Format('NOT (%s)', [SysUtils.Format(SSOrgURLIn1,
              [DoGetQueryURLStr(PersonMemberURLs), lOperatorID])]));  //alang
          end;}
          lSend.Add(lSQL);

          lSQL := SysUtils.Format(SROrgURLLike1, [DoGetQueryURLStr(lBizURL.URL), lPer]);
          {if not FPersonChecked and not lDeptEmpty then
          begin
            lOperatorID := TContextUtils.GetOperator(Context).ID;
            lSQL := AddAndCondition(lSQL, SysUtils.Format('NOT (%s)', [SysUtils.Format(SROrgURLIn1,
              [DoGetQueryURLStr(PersonMemberURLs), lOperatorID])]));  //alang
          end;}
          lProces.Add(lSQL);
        end

alang

就是说在显示本部门任务的地方，显示成本部门的没有执行者的任务或者是我处理的任务

alang

楼主，问题搞定没有？

alang

这个问题先结了，楼主有问题请开新贴！