范例(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, xmenua002=g_xmabuc_m.xmabuc002, #车牌号 xmenua003=l_gzcbl004, #车辆状态 xmenua004=g_xmabuc_m.xmabuc003, #车次 xmenua005=g_xmabuc_m.xmabuc006, #驾驶员 xmenua006=g_xmabuc_m.xmabuc007, #驾驶证编号 xmenua007=g_xmabuc_m.xmabuc008, #联系电话 xmenua008=g_xmabuc_m.xmabuc005, #报到时间 xmenua009=g_xmabuc_m.xmabuc013, #备注 xmenua010=g_xmabuc_m.xmabuc011, #车辆类型 xmenua011=g_xmabuc_m.xmabuc012 #提货方式 where xmenent=g_enterprise and xmensite=g_site and xmendocno=g_xmabuc_m.xmabuc009 end if #end add-point
2)在单头修改后:
#add-point:單頭修改後 name="input.head.a_update" 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, xmenua002=g_xmabuc_m.xmabuc002, #车牌号 xmenua003=l_gzcbl004, #车辆状态 xmenua004=g_xmabuc_m.xmabuc003, #车次 xmenua005=g_xmabuc_m.xmabuc006, #驾驶员 xmenua006=g_xmabuc_m.xmabuc007, #驾驶证编号 xmenua007=g_xmabuc_m.xmabuc008, #联系电话 xmenua008=g_xmabuc_m.xmabuc005, #报到时间 xmenua009=g_xmabuc_m.xmabuc013, #备注 xmenua010=g_xmabuc_m.xmabuc011, #车辆类型 xmenua011=g_xmabuc_m.xmabuc012 #提货方式 WHERE xmenent=g_enterprise AND xmensite=g_site AND xmendocno=g_xmabuc_m.xmabuc009 END IF #end add-point
时间: 2024-10-15 02:08:58