如果这个机器一直使用的是oracle数据库,楼主可以把:业务模型\系统空间\系统功能\组织机构\组织机构资源库\向组织机构分配管理者这个单元里面的procedure TASSIGNMANAGERTOORGUNIT.ReloadOlvOrg;函数中的sql稍作修改就可以了:
即把:
lDataSet.SQL.Text := 'Select FSPACE + FFileName as URL, FPATH + FFileName as FileName from TORGSYSTEM where FDeleteLevel = 0 and FGUID in (Select FGUID from TOrgIndex where FID Like ' + QS('OrgUnit.Subordination%') + ' and FValue = ' + QS(StrUtils.AnsiReplaceText(FSubURL.URL, 'Org:', '')) + ')';
修改成:
lDataSet.SQL.Text := 'Select FSPACE || FFileName as URL, FPATH || FFileName as FileName from TORGSYSTEM where FDeleteLevel = 0 and FGUID in (Select FGUID from TOrgIndex where FID Like ' + QS('OrgUnit.Subordination%') + ' and FValue = ' + QS(StrUtils.AnsiReplaceText(FSubURL.URL, 'Org:', '')) + ')'; |