标签：logs lan select log 驾驶 span cst 状态 strong
范例（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
标签：logs lan select log 驾驶 span cst 状态 strong
原文地址：http://www.cnblogs.com/xiaoli9627/p/6841325.html
