[搞定]关于知识中心权限与业务功能权限结合的需求[请求]**

liso

那我改了以后是不是只对当前的附件起作用,同一文件夹下其他的附件是不是不会影响,有没有代码实例给我参考一下

yancm

只对当前功能的附件起作用。

参考
procedure TMainForm.DataSetBroker1AfterScroll(DataSet: TDataSet);
begin
    (DocView1.Doc as TRelevancyDoc).FuncURL :='Biz:\YANCMDYWKJ\YWGN5.Func';
    (DocView1.Doc as TRelevancyDoc).Load('',  ['Biz:\YANCMDYWKJ\YANCMDSJK.DATABASE\ycmTest.Table\ID.FIELD'],
         [DataSet.FieldByName('ID').AsString],True, TDocAccessKind.akAll);

end;

liso

好的谢谢,我试试看

liso

在运行的时候报错,类型转换失败

(DocViewCONTRACTENTERINFO_CONTRACTENTERDOC.Doc as TRelevancyDoc).FuncURL :='Biz:JQERPXTHQ.FUNC';
  (DocViewCONTRACTENTERINFO_CONTRACTENTERDOC.Doc as TRelevancyDoc).Load('',['Biz:JQERPJQERP.DATABASECRM_CONTRACT.TABLEFGUID.Field'],
  [dsbCon.DataSet.FieldByName('FGUID').AsString],True, TDocAccessKind.akAll);

liso

上面那个问题解决了,是docview引用错了.不过现在有新的问题了:现在运行到那个合同会签的界面,运行了上面的代码后,原来可以开到但打不开的附件现在看不到了.不知道是什么原因?

liso

上面那个问题解决了,是docview引用错了.不过现在有新的问题了:现在运行到那个合同会签的界面,运行了上面的代码后,原来可以看到但打不开的附件现在看不到了.不知道是什么原因?

liso

(dvDoc.Doc as TRelevancyDoc).FuncURL :='Biz:\JQERP\XTHQ.FUNC';
  (dvDoc.Doc as TRelevancyDoc).Load('',['Biz:\JQERP\JQERP.DATABASE\CRM_CONTRACT.TABLE\FGUID.Field'],
  [dsbCon.DataSet.FieldByName('FGUID').AsString],True, TDocAccessKind.akAll);
end;

liso

我在知识中心中给用户授权了,但是为什么我下面的代码执行以后,还是能够编辑附件; 如果没有在知识中心中给用户授权却无法看到文档附件,也就是说下面的代码关于权限方面没有起到作用,权限还是以知识中心的权限为依据.
,
procedure TMAINFORM.LoadDocAttach;
begin
  (dvDoc.Doc as TRelevancyDoc).FuncURL :='Biz:\JQERP\XTHQ.FUNC';
  (dvDoc.Doc as DOCRELEVANCYINFO.TRELEVANCYDOC).Load('',
    ['Biz:\JQERP\HTGLYWYSZ.ElementGroup\ConGUID.Element'],
    [dsbCon.DataSet.FieldByName('FGUID').AsString],
    True, TDocAccessKind.akRead);

liso

上面如果没有在知识中心中给用户授权,是可以看到文档附件,但是无法打开

yancm

2805是中间版本，规则可能不同。搂主可以升级到2918版本。