范例(cxmt631),在车辆报到单单头内容新增、修改后,把相关内容也更新到派车单单头档去(有派车单号的车辆报到单);
1)在单头新增后:
#add-point:單頭新增後 name="input.head.a_insert" select xmabucstus into l_xmabucstus from xmabuc_t where xmabucent = g_enterprise and xmabucdocno = g_xmabuc_m.xmabucdocno if not cl_null(g_xmabuc_m.xmabuc009) then select gzcbl004 into l_gzcbl004 from gzcbl_t,gzcb_t where gzcbl001=gzcb001 and gzcbl002=gzcb002 and gzcbl001='13' and gzcbl002=l_xmabucstus and gzcbl003=g_dlang update xmen_t set xmenua001=g_xmabuc_m.xmabucdocno, xmenua