【结贴】[问题] 升级后，文档栏内原来的下载菜单没有了！**

roice · 发表于 2008-4-21 13:52:43

查看业务模型协同系统\文档关联\文档关联信息(兼容保留)文档关联表单的代码
procedure TRELEVANCYDOC.DoGetOperations(Sender: object;
AURLs: TStrings);

AURLs.Add('Biz:COLLABORATIONDOCOPTGROUP.OperationGroupDownLoad.Operation'); // 28版本有这行代码，3000版本没有。

即使在新版本加上上面的代码还是没有效果。

如何能在升级后还保留原来版本中的下载菜单？

roice · 发表于 2008-4-21 17:34:33

请问这是哪里问题？比较急啊

jiahaiming · 发表于 2008-4-21 17:52:44

需要代码添加：
协同系统\文档\关联\文档关联信息(兼容保留)\文档关联表单
procedure TRELEVANCYDOC.DoGetOperations(Sender: object;  AURLs: TStrings);
……
  else if FDocOperationProvider.Resolver is TUnStructureDocOperationProviderResolver then
  begin
……
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');

roice · 发表于 2008-4-21 21:30:22

最初由 roice 发布
[B] 即使在新版本加上上面的代码还是没有效果。
..

以下省略...... [/B]

1楼已经测试过加这段代码，不起作用！

jiahaiming · 发表于 2008-4-22 19:09:09

请尝试在配置文档关联时，加上另存为的操作权限。

roice · 发表于 2008-4-23 11:17:33

测试还是不行，能不能把您测试好的文档关联表单代码传个附件上来对比一下？

jiahaiming · 发表于 2008-4-23 12:52:51

楼主，请对比一下完整的函数代码，看是否加错地方了，其中有几个条件分支。

procedure TRELEVANCYDOC.DoGetOperations(Sender: object;
  AURLs: TStrings);
var
  I: Integer;
begin
{ AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewDoc.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewIndices.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewBizDoc.Operation');
  //  AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewReport.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewDesc.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewWeb.Operation');
  //  AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\RunDescision.Operation');}
  if FDocOperationProvider.Resolver is TBizInfoOperationProviderResolver then
  begin
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Access.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Search.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Send.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveUp.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveDown.Operation');

  end
  else if FDocOperationProvider.Resolver is TUnStructureDocOperationProviderResolver then
  begin
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\CancelEdit.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\UpLoad.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Access.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Search.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\EditLog.Operation');  ////Add by wdx 20060629
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Send.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveUp.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveDown.Operation');
//jhm 2008-4-21 增加另存为菜单
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');
  end
  else if SysUtils.SameText(FDocOperationProvider.FileName, '') then
  begin //此为不在信息树上的结点的操作
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
  end;

  for I := AURLs.Count - 1 downto 0 do
if not ValidOperation(AURLs[I]) then
   AURLs.Delete(I);
end;

roice · 发表于 2008-4-23 16:13:53

加代码的地方没错，看看附件代码哪里有问题：

shangxy · 发表于 2008-4-23 16:28:22

procedure TRELEVANCYDOC.DoGetOperations(Sender: object;
  AURLs: TStrings);
var
  I: Integer;
begin
{ AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewDoc.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewIndices.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewBizDoc.Operation');
  //  AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewReport.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewDesc.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewWeb.Operation');
  //  AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\RunDescision.Operation');}
  if FDocOperationProvider.Resolver is TBizInfoOperationProviderResolver then
  begin
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Access.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Search.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Send.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveUp.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveDown.Operation');

  end
  else if FDocOperationProvider.Resolver is TUnStructureDocOperationProviderResolver then
  begin
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\CancelEdit.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\UpLoad.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Access.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Search.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\EditLog.Operation');  ////Add by wdx 20060629
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Send.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveUp.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveDown.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');
  end
  else if SysUtils.SameText(FDocOperationProvider.FileName, '') then
  begin //此为不在信息树上的结点的操作
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Open.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Edit.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Copy.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Cut.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Paste.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Del.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Rename.Operation');
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');

  end;

  for I := AURLs.Count - 1 downto 0 do
if not ValidOperation(AURLs[I]) then
   AURLs.Delete(I);
end;

roice · 发表于 2008-4-23 17:25:48

procedure TRELEVANCYDOC.DoGetOperations(Sender: object;
  AURLs: TStrings);
var
  I: Integer;
begin
{ AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\NewDoc.Operation');
AURLs.Addprocedure TRELEVANCYDOC.DoGetOperations(Sender: object;
  AURLs: TStrings);
var
  I: Integer;
begin
{
... ...
  end

  else if FDocOperationProvider.Resolver is TUnStructureDocOperationProviderResolver then
  begin
... ...
... ...
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\MoveDown.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation'); // 设置断点，执行
  end

  else if SysUtils.SameText(FDocOperationProvider.FileName, '') then
  begin //此为不在信息树上的结点的操作
... ...
... ...
// AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\Attr.Operation');
AURLs.Add('Biz:\COLLABORATION\DOCOPTGROUP.OperationGroup\DownLoad.Operation');  // 设置断点，没有执行
  end;

  for I := AURLs.Count - 1 downto 0 do
if not ValidOperation(AURLs[I]) then
   AURLs.Delete(I);
end;

还是没有效果，设置断点，在第二个download.operation 没有执行

		自动登录	找回密码
密码			立即注册

【结贴】[问题] 升级后，文档栏内原来的下载菜单没有了！**

Re: [问题] 升级后，文档栏内原来的下载菜单没有了！