【结贴】文档关联配置上传附件问题!****

huangyue

最初由 huangyue 发布
[B]错误代码停留在这里
FileSys.FileSystem.CreateFile(TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, TRTLConsts.DocDisplayName); [/B]

我在关了协同重新进去就报错

zfang

11楼的代码你重复调用了？
贴出你的完整代码

huangyue

最初由 zfang 发布
[B]11楼的代码你重复调用了？
贴出你的完整代码 [/B]

重复调用已经去掉

完整代码就是版主给的那几句代码

uses
  Business.System, Business.Model, Business.Forms, Business.Data,Business.System.SysUtils,DocLib, DOCRelevancyInfo, DocOffice;

type
  TFWGZ = class(TSheetDoc)
    Label1: TLabel;
    DataSetBroker: TDataSetBroker;
    InfoBroker1: TInfoBroker;
    DataSource1: TDataSource;
    DataSetFJSJJ: TSQLDataSet;
    DataGrid1: TDataGrid;
    DataGrid1BH: TDataGridColumn;
    DataGrid1NBBH: TDataGridColumn;
    DataGrid1FJM: TDataGridColumn;
    DataGrid1CJSJ: TDataGridColumn;
    DataGrid1DX: TDataGridColumn;
    DataGrid1FWBH: TDataGridColumn;
    DataSetBZSJJ1: TSQLDataSet;
    DataSource2: TDataSource;
    Query: TQuery;
    DataSetBroker2: TDataSetBroker;
    DataSetFWSJJ: TSQLDataSet;
    DocView1: TDocView;
    InfoBroker: TInfoBroker;
    procedure Image1Click(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure SheetDocDestroy(Sender: TObject);
    procedure SheetDocCreate(Sender: TObject);
    procedure DataSetBrokerAfterScroll(DataSet: TDataSet);
  private
    {private declarations}
  public
    {public declarations}
  strID : string;
  procedure EnsureRoot;
  end;

implementation
var
lForm :SCFJGN.TMAINFORM;
strfwbh:string;
procedure TFWGZ.EnsureRoot;
const
  cGUID = '4B666B997C49446688B339B6D944AA5B';
begin
  if not FileSys.FileSystem.FileExists(COLLABORATIONCONSTS.TRTLConsts.DocRoot) then  //TRTLConsts在协同常量库
  try
    FileSys.FileSystem.CreateFile(COLLABORATIONCONSTS.TRTLConsts.DocRoot, cGUID, [], TFileKind.fkSpace, COLLABORATIONCONSTS.TRTLConsts.DocDisplayName);
  except
    on E: TObject do
      raise Exception.CreateFmt('知识中心基础数据错误，初始化失败。'#13#10 + '错误原因：%s', [jsCommon.ExceptText(E)]);
    else
      raise;
  end;
end;
procedure TFWGZ.Image1Click(Sender: TObject);
begin
//Label1Click(self);
end;

procedure TFWGZ.Label1MouseEnter(Sender: TObject);
begin
Label1.Font.Color:=$0ff0202;
Label1.Cursor:= -21;
end;

procedure TFWGZ.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Color:=$0000000;
end;

procedure TFWGZ.Label1Click(Sender: TObject);
begin
lForm := SCFJGN.TMAINFORM.Create(Self.Context);
DataSetBroker.DataSet.Open;
// self.DataSetBroker1.DataSet.ApplyUpdates;
lForm.strfwbh:=DataSetBroker.DataSet.FieldByName('BH').AsString;
// DataSetBroker1.DataSet.Close;
//lForm.ShowModal;
  if lForm.ShowModal=Business.Forms.Controls.mrOK then
     begin
          self.SheetDocCreate(sender);
     end;
     lForm.Free;
end;

procedure TFWGZ.SheetDocDestroy(Sender: TObject);
begin
//lForm.Free;
end;

procedure TFWGZ.SheetDocCreate(Sender: TObject);
var
  i:string;
  lstr:string;
begin
  DataSetBZSJJ1.Active := true;
  DataSetFJSJJ.Active :=false;
  DataSetFJSJJ.Active := true;
  DataSetBroker.DataSet.Open;
  strfwbh:=DataSetBroker.DataSet.FieldByName('BH').AsString;
  DataSetBroker.DataSet.Close;
end;

procedure TFWGZ.DataSetBrokerAfterScroll(DataSet: TDataSet);
begin
  (DocView1.Doc as TRelevancyDoc).FuncURL :='Biz:\OABGZDHXT\FWNG.Func';
      (DocView1.Doc as TRelevancyDoc).Load('',['Biz:\OABGZDHXT\BGZDHSJK.DATABASE\FWZB.TABLE\BH.Field'],
      [DataSet.FieldByName('BH').AsString],True, TDocAccessKind.akAll);
end;

end.

zfang

那去掉后现在还报什么错？报错后停在哪儿？

huangyue

不好意思...下午有点事情.没来得及来看帖...
就是我在协同里面再第二次初始化的时候报21楼的图的错.然后我是每次进协同都是先要初始化一次,就报那个图的错,然后就可以进去操作了.然后就是我上传了的附件,在流程流转结束了的时候找不到所上传的附件,都不知道跑附件那里去,想下载都下载不了??!!

zfang

那段初始化代码不需要重复调用，只需要执行一次就可以了！！你重复执行肯定会报那个错的！

huangyue

最初由 zfang 发布
[B]那段初始化代码不需要重复调用，只需要执行一次就可以了！！你重复执行肯定会报那个错的！ [/B]

恩.这个我知道了.现在是我上传了的附件找不到...也就是说保存不下来的?我不知道该在那里下载自己上传了的附件?请指点!

huangyue

那我怎么看附件??而且怎么定期去维护??是不是我要在每个涉及流程的功能都要在文档关联里面做配置???

huangyue

期待明天早上能把这个问题解决!!

zfang

恩.这个我知道了.现在是我上传了的附件找不到...也就是说保存不下来的?我不知道该在那里下载自己上传了的附件?请指点!

这个是什么意思？保存不下来的？
请看平台的文档关联的说明文档