|
发表于 2009-2-13 14:18:39
|
显示全部楼层
问题解决了,是发布查看的过滤条造成的,过滤条对组织机构的过滤与发布范围的策略发生冲突
现在换了一个过滤条,只过滤时间,不过滤组织机构
procedure TMAINFORM.BizFormShow(Sender: TObject);
var
lGuid : string;
begin
Inherited;
(dvList.Doc as TLISTBASEFORMDOC).OnGridDbClick := self.OnGridDBClick;
{注释掉这部分
with (FilterBar.ToolBarModule as TBillStateFILTER) do
begin
TableName := 'OA_NEWSTABLE';
Key := 'FID';
Dept := 'FDEPT';
Person := 'FZDPERSON';
DateTime := 'FZDDATE';
BillState := 'FState';
/TimeState := 3;
BindDataSet[DefaultInfo.Info, BasicInfo.MasterDataSet.ID];
end;
}
with (FilterBar.ToolBarModule as TTIMECOMMONFILTER) do
begin
TableName := 'OA_NEWSTABLE';
Key := 'FID';
// Dept := 'FDEPT';
// Person := 'FZDPERSON';
DateTime := 'FZDDATE';
// BillState := 'FState';
/TimeState := 3;
BindDataSet[DefaultInfo.Info, BasicInfo.MasterDataSet.ID];
end;
{得到业务功能获取的参数,进行数据定位}
lGuid := FuncBroker.Func.Parameters;
if BasicInfo.MasterDataSet.Locate('FID', lGuid, []) then
PageChanged(1);
//TSQLDataSet((dvList.Doc as TLISTBASEFORMDOC).DataSetBroker.DataSet).SQLFilter := 'FID = ''' + lGuid + '''';
//TSQLDataSet((dvList.Doc as TLISTBASEFORMDOC).DataSetBroker.DataSet).SQLFiltered := True;
end; |
|