单档——单头内容新增、修改后同步更新到其他相关数据表

范例（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

　　

 

转载于:https://www.cnblogs.com/xiaoli9627/p/6841325.html