度量快速开发平台-专业、快速的软件定制快开平台

标题: 平台提取his数据，自动填充到他表详解 [打印本页]

作者: 陈晓龙 时间: 2020-2-11 08:56
标题: 平台提取his数据，自动填充到他表详解
本帖最后由陈晓龙于 2016-3-11 08:57 编辑

今天遇到个难题，药品请购流程，有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

作者: 万望 时间: 2020-2-11 09:22

作者: 张兴康 时间: 2020-2-11 16:27
不错，收藏一个

作者: 陈晓龙 时间: 2020-2-13 09:53

万望发表于 2016-3-11 09:22

又动用你的表情包了哦1！

作者: 陈晓龙 时间: 2020-2-13 09:56

张兴康发表于 2016-3-11 16:27
不错，收藏一个

你喊我发的！必须收藏

作者: 张兴康 时间: 2020-2-14 12:53

陈晓龙发表于 2016-3-13 09:56
你喊我发的！必须收藏

作者: 万望 时间: 2020-2-14 15:54

陈晓龙发表于 2016-3-13 09:53
又动用你的表情包了哦1！

佩服你啊，用的不错

作者: 王爱东 时间: 2020-2-14 18:24
这个介绍的不错。看了就知道能实现什么，可以用来做什么工作！！

作者: 陈晓龙 时间: 2020-2-14 20:16

王爱东发表于 2016-3-14 18:24
这个介绍的不错。看了就知道能实现什么，可以用来做什么工作！！

详细吧，有案例、有图片！

作者: 万望 时间: 2020-2-16 22:31

楼主高兴惨了

作者: 陈晓龙 时间: 2020-2-17 00:13

万望发表于 2016-3-16 22:31
楼主高兴惨了

对头！

欢迎光临度量快速开发平台-专业、快速的软件定制快开平台 (http://plat.delit.cn/)