【结贴】流程回退保留记录**

wulei_doudou_1 · 发表于 2008-1-14 16:01:34

对于流程回退，而且还想保留以前那张单子的记录的话，有没有什么好的实现方法？
意思是，以前填写的那个表格文档还要原封不动，在回退时需要填一张新的东西

wulei_doudou_1 · 发表于 2008-1-14 16:02:52

上面那个初始表，这张是回退表

alang · 发表于 2008-1-14 16:08:09

采购实施报审表增加一个字段，标识出是否回退的记录
在界面上用两个数据集来分别查询出这两条数据
用两个文档来表现这两条数据就可以了

wulei_doudou_1 · 发表于 2008-1-15 10:01:27

那一个人如果回退多次的话（也就是生成多个文档后），对以前填写的记录只读权限应该怎么控制呢？

lisb · 发表于 2008-1-15 10:54:45

那就可以判断标识如果是退回的记录就把数据集或相关字段只读掉啊。

alang · 发表于 2008-1-15 11:05:51

以下是我以前做的一个例子，动态生成信息和文档，放在PageControl上，可以实现你说的不管有多少条数据，每一条数据独立的显示到一个文档上
procedure TMainForm.DataGridNewDblClick(Sender: TObject);
var
  myinfo: TInfoBroker;
  dv: TDocView;
  tab: TTabSheet;
begin
  myinfo := TInfoBroker.Create(Self);
  myinfo.AutoBroker := True;
  myinfo.AutoKind := TAutoKind.akPrivate;
  myInfo.FuncBroker := FuncBroker1;
  myInfo.BizClassRef.BizURL.URL := 'Biz:\PXYKJ\YWXX1.Info';
  dialogs.showmessage(SysUtils.IntToStr(PageControl1.PageCount));
  tab := TTabSheet.Create(PageControl1);
  tab.Parent := PageControl1;
  tab.PageControl := PageControl1;
  dialogs.showmessage(SysUtils.IntToStr(PageControl1.PageCount));
  dv := TDocView.Create(Self);
  dv.InfoBroker := myInfo;
  dv.DocClassID := 'JLST2.FormDoc';
  dv.Parent := tab;
  dv.Align := TAlign.alClient;
  myInfo.Info.DataSetByID('BZSJJ1').Locate('ID', InfoBroker1.Info.DataSetByID('BZSJJ1').FieldByName('ID').AsString, []);
  PageControl1.ActivePage := tab;
end;

lisb · 发表于 2008-1-18 15:38:21

楼主这个问题怎么样了？

wulei_doudou_1 · 发表于 2008-1-18 16:28:39

还没解决，正在解决中。

lisb · 发表于 2008-1-18 16:59:14

好的，那有问题请跟帖。有结果请反馈。

wulei_doudou_1 · 发表于 2008-1-18 17:08:35

上面alang给的那段代码应该怎么用，我怎么看着DataGridNewDblClick(Sender: TObject)是自己定义的一个方法

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