【搞定】刷新工作台的问题**

liubin

看过 http://bbs.justep.com/forum.php?mod=viewthread&tid=14250   帖子8楼的代码
if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then
        lBizObject := lContext.Children.Owner;    我在如下代码出错，如图：

liubin

http://bbs.justep.com/forum.php?mod=viewthread&tid=14250  中 10楼说：
8楼代码是我这里运行过的，没有问题
我故意试错的，因为有except，不会弹出错误来，这样写没有问题

这个数据集应该是已经打开了，我这里都是正常的，而且这里都是查找出来的工作台功能和信息。要么你贴一个对象查看器的图。要能看到工作台所在的环境，工作台下的信息


在 business  是不会出现错误，但没有效果

atiger

楼主，看了你1、2楼的描述有点晕，不知道你现在遇到啥问题，请明示。
如果报错，执行哪句报错，原始的错误信息是啥
如果没有效果，你设置断点跟踪，并看一下环境是否对。

liubin

if SysUtils.SameText(cDesktopURL, (lContext.Children.Owner as TFunc).BizClassURL.BizURL.URL) then  lBizObject := lContext.Children.Owner   错误定位在这句话   错误如1楼图片

没有效果，只的是工作台没刷新

liubin

顶

atiger

别顶了，好吗？
你先让高工看看吧，遇到问题，需要自己设置断点跟踪，例如参数传的是否对，对象值是否正确，环境是否对，

liubin

高经理不在，我的需求是把改变主表的状态后把  尚未结束的流程结束掉，如下操作 AQuery.CommandText := 'UPDATE TFLOW SET FSTATE = ''fsFinished'' WHERE ' +
    'FGUID IN (SELECT FFLOWGUID FROM TFLOWID WHERE FID = ''' + AFlowID + ''')';
  AQuery.Execute;

  AQuery.Close;
  AQuery.CommandText := 'UPDATE TTASK SET FSTATE = ''tsAborted'', FFINISHTIME = ''' +
    lDate + ''' WHERE FFLOWGUID IN (SELECT FFLOWGUID FROM TFLOWID WHERE FID = ''' +
    AFlowID + ''') AND FSTATE NOT IN (''tsFinished'', ''tsCanceled'', ''tsTransmited'')';
  AQuery.Execute;

  AQuery.Close;
  AQuery.CommandText := 'UPDATE TTASKMESSAGE SET FSTATE = ''tmsAborted'', ' +
    'FFINISHTIME = ''' + lDate + ''' WHERE FTASKGUID IN (SELECT FGUID FROM TTASK ' +
    'WHERE FFLOWGUID IN (SELECT FFLOWGUID FROM TFLOWID WHERE FID = ''' + AFlowID +
    ''')) AND FSTATE  NOT IN (''tmsFinished'',''tmsCanceled'',''tmsTransmited'')';
  AQuery.Execute;

操作后刷新工作台，1楼的错误忽略，参数都正确也不出错，但没刷新，请alang帮看看吧

liubin

断点跟踪了，刷新的代码和  任务网格导航的右键刷新代码是同一段代码，为什么没刷新，右键就可以刷新？

alang

楼主，1楼的连接已经给了思路，你看看这个思路，结合对象察看器分析一下，肯定能找到原因的

liubin

一楼的帖子  应该是直接能用的，我是问，我做的是7楼的操作，为什么会没效果，我断点跟过了，参数都正确