单档新增明细数据时,项次自动+1;
范例(cxmt052):
1)在 cxmt052_input(p_cmd)函数中,会分有head和body两个领域,在body的before_insert中置入以下代码:
#add-point:modify段before insert name="input.body.before_insert" #项次+1 SELECT MAX(xmcoucseq)+1 INTO g_xmcouc_d[l_ac].xmcoucseq FROM xmcouc_t WHERE xmcoucent = g_enterprise AND xmcoucdocno = g_xmcnuc_m.xmcnucdocno IF cl_null(g_xmcouc_d[l_ac].xmcoucseq) OR g_xmcouc_d[l_ac].xmcoucseq = 0 THEN LET g_xmcouc_d[l_ac].xmcoucseq = 1 END IF #end add-point
cxmt052_input是资料输入时触发的事件,所以在其中的 input.body.before_insert 里写入项次+1的程序即可。