T100——作业action执行其他P作业,后台背景执行完后才能继续操作改作业

时间:2023-03-09 17:20:06
T100——作业action执行其他P作业,后台背景执行完后才能继续操作改作业

范例:如axmt500订单,查询开单占用量;

客制作业cxmp500,通过参数-订单号,查询该订单下的料件,目前有库存量、开单占用量、库存可用量,查询后更新到该订单下的单身对应栏位;

现在axmt500上的action动作,后台执行cxmp500,执行完后axmt500数据刷新;

axmt500代码:

   DEFINE la_param   RECORD
prog STRING,
actionid STRING,
background LIKE type_t.chr1,
param DYNAMIC ARRAY OF STRING
END RECORD
DEFINE ls_js STRING
# #######add by chenwb
INITIALIZE la_param.* TO NULL
LET la_param.prog = 'cxmp500'
LET la_param.param[] = g_xmda_m.xmdadocno
LET la_param.param[]='T'
LET la_param.background='Y'
LET ls_js = util.JSON.stringify(la_param)
CALL cl_cmdrun_wait(ls_js)
CALL axmt500_b_fill()

T100——作业action执行其他P作业,后台背景执行完后才能继续操作改作业

LET g_bgjob = g_argv[02]

#背景(Y) 或半背景(T) 時不做主畫面開窗