附件无法下载

dstr

附件无法下载

dstr

下载文件时候出现如图所示的提示，初始化时好使，可以下载，用协同系统登陆平台下载文件就会出现如图所示
的情况
这是我下载的代码，并且所有下载都出现这种情况
var
  i : integer;
begin
  business.System.SysUtils.CreateDir('D:\TQS文件JUSTEP\') ;
  //i := 1 ;
  //PersonId := COMMONUNIT.TCOMMONUNIT.GetParam (self.Context,'Biz:\SYSTEM\ORGPARAMS.PARAMGROUP','OperatorID');
  lPersonId := 'SY';
  lQuery1 := TQuery.Create(nil);
  lQuery2 := TQuery.Create(nil);
  try
    lQuery1.ConnectionString :=  'DATABASEURL=Biz:\COLLABORATION\Collaboration.Database';
    lQuery2.ConnectionString :=  'DATABASEURL=Biz:\COLLABORATION\Collaboration.Database';
    lQuery1.Close;
    lQuery1.CommandText := 'select FDOCGUID,FDOCNAME from TDOCRELEVANCY where FKEYVALUE0= '+QuotedStr(cKeyId);//代入当前TQS单的keyid //   7EBBD080F12943ADAB6B5CC6467CEE43
    lQuery1.Open;
    lQuery1.First;
    //
    while not lQuery1.Eof do
      begin
        lDownT := TCOMMONUNIT.GetAutoSeq('TQS下载文件',lPersonId,self);
        //
        lDownName := lQuery1.FieldByName('FDOCNAME').AsString;//文档名称
        lFDOCGUID := lQuery1.FieldByName('FDOCGUID').AsString;
        lQuery2.Close;
        lQuery2.CommandText := 'SELECT FPATH,FFILENAME'
                          +' FROM TDOCSYSTEM where FID = '+QuotedStr(lFDOCGUID);
        lQuery2.Open;
        lSPATH  :=lQuery2.FieldByName('FPATH').AsString+lQuery2.FieldByName('FFILENAME').AsString ;
        lDress2 := 'D:\TQS文件JUSTEP\'+'('+IntToStr(lDownT)+')'+lDownName ;
        if (pos('.DOC',ansiuppercase(lDownName)) > 0) or (pos('.DOT',ansiuppercase(lDownName)) > 0) then
           begin
             TUnStructureDocUtils.DownLoadFile(lSPATH,lDress2);
             dialogs.ShowMessage('TQS编号：'+cTQSBH+'请等待正在下载TQS文件！');

atiger

初始化时好使,运行不行，且连接的是同一个数据库 那只能说明资源不一致了，
请确认，
1、重新编译这个功能所有涉及到的资源
2、签入所有编译的资源
3、刷新缓存，或者重新启动服务

dstr

你说这几条我都作了 并且知识中心好使 还是无法下载

dstr

别人以前做的下载也是这种情况 以前还好使

dstr

有人能帮忙看一下吗

atiger

你的意思原先可以下载的，现在不行了，同一个文档是麻？如果是，请问，你对X3 Server 目录下的alf_data这个目录下的文件或者文件夹进行过删除麻？
当然还有是否删除文档相关表的记录呢

dstr

我删除过文档关联表里的纪录，目的是把待办任务的没有用的名称去掉

atiger

你加QQ ：657944664  远程看一下

dstr

请上线