【结贴】计划中心只读问题

dynasty0628

试了半天还是不行，试过用代码设置数据集的只读、设置docview的模式
能帮忙找出是在哪限制的么？

zfang

好，需要点时间，有结果会跟帖告知。

zfang

楼主，找到原因了，是计划库中有对 计划状态的一个判断
static function TPlanSpecialLogic.GetPlanCanEdit(AContext: TContext; APlan: TPlan): Boolean;
var
  lOperatorPosition: TOperatorPosition;
begin
  case APlan.PlanState of
    TPlanState.psPlanEditing, TPlanState.psPlanExecuting:
    begin
      lOperatorPosition := TPlanSpecialLogic.GetOperatorPosition(AContext);
      Result := APlan.PlanExecutors.FindPlanExecutor(petEditors, lOperatorPosition.PersonMember.ID, False) <> nil;
    end;
  else
      Result := False; //如果计划状态是完成，那么 直接就跳转到这里，就不允许进行编辑此计划。
  end;
end;

如果想要实现你的要求，只能把这段根据计划状态控制是否可编辑的代码屏蔽，但是计划库的源代码 你们是没有的，所以要改也只能我改了之后重新给你一份。

不过不建议这么 去修改。

dynasty0628

好的，明白了，谢谢
先结，我们暂时先跳过这个去整别的需求了，这个等我需要的时候再管您要

zfang

好的。