ERP LN Job出错后的状态重置源代码
ERPLN里面的Job可以通过不同的方式来调用执行，如果在Windows平台的话就用类似自动任务的程序来执行如[URL=http://www.networkautomation.com/automate/9/]Automate[/URL]等，但是我们经常会遇到Job出错的时候，这时候不得不在整个Job的Session执行完毕后来设定Job的状态为Free，那么下面的一段代码做成一个Session之后加入到Job的最后来执行就可以解决出错后自动修改状态的问题。
<br/>|******************************************************************************<br/>|* Main table ttaad500 , Form Type 4<br/>|******************************************************************************<br/> <br/>|****************************** declaration section ***************************<br/>declaration:<br/><br/> table tttaad500 | <br/> <br/> extern domain tcmcs.str32 job.f,job.t<br/><br/><br/>|****************************** program section ********************************<br/><br/><br/>|****************************** group section **********************************<br/><br/>group.1:<br/>init.group:<br/> get.screen.defaults()<br/><br/>|****************************** choice section ********************************<br/><br/>choice.cont.process:<br/>on.choice:<br/> execute(print.data)<br/><br/>choice.print.data:<br/>on.choice:<br/> if rprt_open() then<br/> read.main.table()<br/> rprt_close()<br/> else<br/> choice.again()<br/> endif<br/><br/><br/>|****************************** field section *********************************<br/><br/><br/>|****************************** function section ******************************<br/><br/>functions:<br/><br/>function read.main.table()<br/>{<br/> select ttaad500.*<br/> from ttaad500 for update<br/> where ttaad500._index1 >= :job.f<br/> and ttaad500._index1 <= :job.t<br/> and ttaad500.jsta = ttaad.jsta.runtime.error <br/> order by ttaad500._index1<br/> selectdo<br/> ttaad500.jsta = ttaad.jsta.not.active<br/> db.update(tttaad500, db.retry)<br/> commit.transaction()<br/> <br/> rprt_send()<br/> endselect<br/>}<br/>
另外请注意：
1、Form上的job.f和job.t的Zoom Session选择ttaad5500m000 2、Job的几种状态：Blocked,Running,Free,Runtime Error