平台提取his数据,自动填充到他表详解
来源:互联网 发布:帝国cms后台模板 编辑:程序博客网 时间:2024/06/06 00:32
今天遇到个难题,药品请购流程,有2个表,一个总表和一个明细表,两个表都需要从his提取数据,进行流程审批。客户想通过药品请购总表,输入单据编号,就可以把his的数据,填充到总表和明细表里面。那么该如何实现呢?
1.首先把总表单据编号这个字段,设置为他表选择。这个是根据客户提供的sql语句,提取his里面的药品请购基本信息。
2.在药品请购的编辑窗体,功能管理里,写自动填充药品明细信息的代码。实现如下:
'药品请领明细查询
dim sql="Select a.单据编号,VJ.编号 药品编号,VJ.名称 药品名称,规格,D.药品单位,DW.名称 As 生产厂商,D.生产批号,convert(char(10),K.有效期至,120) 有效期至,数量,单价,金额 From D请领单 A Inner Join D请领数据 D On A.单据编号 = D.单据编号 Inner Join VJ药品卫材 VJ On D.编号 = VJ.编号 Inner Join T库存药品 K On D.库存流水 = K.库存流水 Left Join T生产单位 DW On K.生产单位 = DW.编号 where A.状态 = 'N' Order by 行序"
'连接his数据库
dim dt=ExecuteSelect("HIS",sql)
'把药品明细添加到下面表格中
药品请领明细编辑.RefreshData()
dim dt_gs=药品请领明细编辑.DataTable
dim dr_gs
for each dr in dt.Rows
dr_gs=dt_gs.NewRow()
dr_gs["ID"]=guid()
dr_gs["药品编号"]=dr["药品编号"]
dr_gs["药品名称"]=dr["药品名称"]
dr_gs["规格"]=dr["规格"]
dr_gs["单位"]=dr["药品单位"]
dr_gs["生产厂家"]=dr["生产厂商"]
dr_gs["生产批号"]=dr["生产批号"]
dr_gs["有效期至"]=dr["有效期至"]
dr_gs["数量"]=dr["数量"]
dr_gs["单价"]=dr["单价"]
dr_gs["金额"]=dr["金额"]
dt_gs.Rows.Add(dr_gs)
next
3.在药品请领的总表,事件管理—字段值变化事件,里面写触发值变化事件的代码。实现代码如下:
'触发单据编号,就自动提取之前在功能管理写的填充数据代码。
dim e = Me.GetEventArgs()
if e.FieldName="单据编号" then
Call("填充数据")
end if
1.首先把总表单据编号这个字段,设置为他表选择。这个是根据客户提供的sql语句,提取his里面的药品请购基本信息。
2.在药品请购的编辑窗体,功能管理里,写自动填充药品明细信息的代码。实现如下:
'药品请领明细查询
dim sql="Select a.单据编号,VJ.编号 药品编号,VJ.名称 药品名称,规格,D.药品单位,DW.名称 As 生产厂商,D.生产批号,convert(char(10),K.有效期至,120) 有效期至,数量,单价,金额 From D请领单 A Inner Join D请领数据 D On A.单据编号 = D.单据编号 Inner Join VJ药品卫材 VJ On D.编号 = VJ.编号 Inner Join T库存药品 K On D.库存流水 = K.库存流水 Left Join T生产单位 DW On K.生产单位 = DW.编号 where A.状态 = 'N' Order by 行序"
'连接his数据库
dim dt=ExecuteSelect("HIS",sql)
'把药品明细添加到下面表格中
药品请领明细编辑.RefreshData()
dim dt_gs=药品请领明细编辑.DataTable
dim dr_gs
for each dr in dt.Rows
dr_gs=dt_gs.NewRow()
dr_gs["ID"]=guid()
dr_gs["药品编号"]=dr["药品编号"]
dr_gs["药品名称"]=dr["药品名称"]
dr_gs["规格"]=dr["规格"]
dr_gs["单位"]=dr["药品单位"]
dr_gs["生产厂家"]=dr["生产厂商"]
dr_gs["生产批号"]=dr["生产批号"]
dr_gs["有效期至"]=dr["有效期至"]
dr_gs["数量"]=dr["数量"]
dr_gs["单价"]=dr["单价"]
dr_gs["金额"]=dr["金额"]
dt_gs.Rows.Add(dr_gs)
next
3.在药品请领的总表,事件管理—字段值变化事件,里面写触发值变化事件的代码。实现代码如下:
'触发单据编号,就自动提取之前在功能管理写的填充数据代码。
dim e = Me.GetEventArgs()
if e.FieldName="单据编号" then
Call("填充数据")
end if
原文地址: http://bbs.delit.cn/thread-774-1-1.html
转载请注明出处:
撰写人:度量科技www.delit.cn
0 0
- 平台提取his数据,自动填充到他表详解
- java控制自动填充数据到world模板
- js 填充数据到表单
- 第一次EXCEL编程,双击SHEET2 中的单元格 数据自动填充到 SHEET1 中去
- 用反射实现将数据自动填充到对象中,学习orm的半个功能
- excel中自动填充到最后一行
- javascript自动填充到6位数
- 禁止浏览器自动填充到表单
- 禁止chrome浏览器自动填充到表单
- 禁止浏览器自动填充到表单
- asp.net 自动填充表单数据
- Laravel使用Seeder自动填充数据
- yii2 表单ajax获取数据,自动填充
- excel里面数据自动填充自动增进,自动复制数据填充
- 数据提取时字符过长不能进行单元格填充问题
- hive提取数据到本地
- 将XML数据填充到TreeView中
- 填充数据到word模板中
- UIAlertController的简单使用示例
- java学习第一集:Hello World
- UItableView处于UITableViewStylePlain模式下如何取消HeaderView粘连性
- Java中正则表达式匹配的语法规则
- Android eclipse导入项目后出现Unable to resolve target 'android-17'解决方法
- 平台提取his数据,自动填充到他表详解
- getResource("")和getClassLoader().getResource("")
- Python基础
- quick-cocos2d-x数据存储之GameState
- Android 自定义View 入门——FlowLayout实例(流布局)
- 两种IO模式:Proactor与Reactor模式
- 分布式学习第一章 SOA服务简述
- 内存泄漏、内存溢出
- 使用Andorid Studio 创建unity 插件