【结帖】请问如何将面板中的代办任务单独提取出来

lijunfeng

版主，我现在有这样的业务需求，希望帮忙解决。
我们的系统部署方案是这样的，客户有两台客户端PC机-1号机和2号机。1号机在登录成功后的主面板为我们系统默认的那套界面方案。而2号机的界面方案则完全不同，登录成功后为显示如下图所示：
1.我们现在要求将原界面方案中的代办任务挪到这个界面的红框中。请提供解决方案。谢谢，在线等。。。。。（新界面方案还是在默认界面方案上修改而成的，将原方案中不需要显示的部分全部隐藏了，只显示这张图片）。

2.我们在点击这个界面方案上的某个按钮，调用某个功能窗体出来，在将这个功能窗体关闭后，为什么系统回到的页面还是默认的那套方案。

jiahaiming

取待办任务其实就是执行了一个sql语句，返回了待办的数据集
楼主可以看看任务中心信息的代码，或者设置断点跟踪得到待办的sql语句

shangxy

参考一下这个功能是怎么取代办任务的：
业务模型\协同系统\任务\我的任务

lijunfeng

老大们，帮帮忙啊！急啊！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

jiahaiming

最初由 shangxy 发布
[B]参考一下这个功能是怎么取代办任务的：
业务模型\协同系统\任务\我的任务 [/B]

lijunfeng

版主，这次问题初步已经解决了。但又出现新的问题，我已经开了新帖。这个可以结了。明天我会把提取代办任务的代码贴出来，和朋友们一块分享。也希望大家能多多指教。
新帖希望斑竹也能快点帮我看看！！

lijunfeng

这是我找出的过滤代办任务的SQL，希望能对大家有所帮助。

数据集的数据来源是：select * from ttask;
  
sql :='(FTYPE IS NULL OR FTYPE NOT IN (''TASKREMIND''))';
sql := sql + ' AND (FGUID IN (SELECT TTASKMESSAGE.FTASKGUID FROM TTASKMESSAGE';
sql := sql + ' WHERE (TTASKMESSAGE.FSTATE IN (''tmsSend'',''tmsReceived'',''tmsProcessing''))';
sql := sql + ' AND (TTASKMESSAGE.FRORGURL =''' + PersonUrl + '''';
sql := sql + ' OR ((TTASKMESSAGE.FRDEPT = ''' + PersonDept + ''') AND (TTASKMESSAGE.FRPOSITION = ''' + PersonPosition + ''')';
sql := sql + ' AND (TTASKMESSAGE.FRPERSON = ''' + PersonID + ''')))))';

参数必须由自己代码获得。

TSQLDataSet(DataSetBroker1.DataSet).SQLFilter :=sql;
TSQLDataSet(DataSetBroker1.DataSet).SQLFiltered :=true;