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

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

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

Winform appconfig修改后的更新问题

直接执形.exe时 要修改WindowsFormsApplication2.exe.config才能实时更新appconfig 调试时要修改WindowsFormsApplication2.vshost.exe.config才能实时更新appconfig

Dev GridControl数据修改后实时更新数据源

  1:  /// <summary> 2:  /// 嵌入的ComboxEdit控件选择值变化事件 3:  /// </summary> 4: /// <param name="sender"></param> 5: /// <param name="e"></param> 6: private void repositoryItemComboBox_Gender_SelectedIndexC

Dev GridControl数据修改后实时更新数据源(转)

1:  /// <summary> 2:  /// 嵌入的ComboxEdit控件选择值变化事件 3:  /// </summary> 4: /// <param name="sender"></param> 5: /// <param name="e"></param> 6: private void repositoryItemComboBox_Gender_SelectedIndexCha

jquary 表单输入内容 表格接收 分页符

表格的悬浮换色  点击换色  隔行换色 $("tr:even").addClass("gaoliang"); $("tr").mouseover(function(){ $(this).addClass("xf");    }).mouseout(function(){     $(this).removeClass("xf");    }).click(function(){     $(this).ad

关于rxjs subject订阅分发实现Angular的全局数据管理与同步更新

自定义实现angular中数据的状态管理,如有不妥请指正 一.先介绍一下rxjs中subject: Import {subject}from’rxjs’ Subject 数据的订阅与分发,结合报刊的发布与订阅进行功能的模拟,subject即是observeable对象也是observer对象,subject对于后期没有数据更新时所添加的订阅者是不怎么友好的,因为不跟新数据时订阅者就不在收到返回的数值     const interval$ = interval(1000).pipe(take(1

约束以及修改数据表

先创建一个数据表 再创建一张数据表,让其属性pid参照上一个provinces数据表的id 主要代码为:FOREIGN KEY (pid) REFERENCES provinces(id) 查看province以及users的表索引,就可以看到两个约束,一个是主键id另一个就是pid 接下来了解外键约束的参照操作 CASCAD:从父表删除或更新且自动删除或更新子表中匹配的行 SET NULL:从父表删除或更新行,并设置子表中的外键列为NULL.如果使用该选项,必须保证子表列没有指定NOT NUL

捕获mssqlservice 修改表后的数据,统一存储到特定的表中,之后通过代码同步两个库的数据

根据之前的一些想法,如果有A,B 两个数据库, 如果把A 用户通过界面产生的更新或者插入修改,操作的数据同步更新到B 库中,如果允许延时2分钟以内 想法一: 通过创建触发器 把变更的数据和对应的表名称统一存储到某个特定的表,然后通过程序获取转换成sql 更新B数据库中的表,本文主要说明使用该方法 想法二: 通过CDC 记录变更的内容, 园内搜索:  SQL Server 变更数据捕获(CDC)监控表数据  即可 . 以下是测试: drop database T_Mytest create dat

phpcms新增子类后,原分类内容找不到的解放方法

  phpcms新增子类后,原分类内容找不到了,我不知道大家有没有遇到这个问题. 也就是说某个栏目没有子栏目的时候,这个栏目就是列表,如果这个子栏目下面还有子栏目,那么这个栏目就变成了频道.所以在创建的时候,不论是频道还是栏目,都是创建栏目.如果某个栏目在开始的时候添加了一些内容,后来又想给这个栏目添加子栏目,那么你会发现原来添加的栏目内容找不到了,但在其他地方调用的时候又能看到,那么这些内容有没有办法恢复呢?答案是肯定的. 如图所示,在主控方案,子类一里面有3篇文章.现在我在栏目管理那里,在子

Jquery append 生成的新表单,手动输入修改后,无法获取html真实代码的解决方案

function doSubmit() { $('#T_form select').each(function(){ $(this).find(':selected').attr('selected', true); }); $("#T_form :text").each(function(){ $(this).attr('value', $(this).val()); }); $("#T_form :radio").each(function(){ $(this)