上一页 1 ··· 4 5 6 7 8 9 下一页

2009年9月8日

恢复删除的药品

摘要: 02-14-0242 血塞通片(美尔福)530000378 insert into Dict_List select * from Dict_List_Del where YaoPinID='02-14-0242' insert into Dict_ListExt select * from Dict_ListExt_Del where YaoPinID='02-14-0242' insert ... 阅读全文

posted @ 2009-09-08 17:26 舟山牙医 阅读(217) 评论(0) 推荐(0) 编辑

调价相关

摘要: 调价表ds_modiprice 及ds_modipriceDetail 表中 获取调价数据 select *from ds_modipricedetail where tiaoJiaDh in (select tiaojiaDH from ds_modiprice where serialno>=serialno )prambyname ('serialno').asstrig //修... 阅读全文

posted @ 2009-09-08 17:25 舟山牙医 阅读(128) 评论(0) 推荐(0) 编辑

病人费用比例设置

摘要: \药库管理中的药品增加后,自动添加特殊病人药品比例为0 Insert Into Dict_ListExt2 病人类别=3,4,6procedure TDrugEditForm.AutoInsertExtentInfo;begin //离休病人药品比例为0,病人类别=3,4,6但药品对应时 加入病人类别=5 的一条记录。 阅读全文

posted @ 2009-09-08 17:23 舟山牙医 阅读(133) 评论(0) 推荐(0) 编辑

自动刷新药品等

摘要: UserDM.InitDrugAndChargeSelect; 自动刷新药品等 将Application.CreateForm(TDataTransmitForm, DataTransmitForm);加入到begin Application.CreateForm(TMainForm, MainForm); Application.CreateForm(TDataTransmitForm, Da... 阅读全文

posted @ 2009-09-08 17:15 舟山牙医 阅读(123) 评论(0) 推荐(0) 编辑

费用全退

摘要: select * from out_invoice where danjuid='2817721' jiesuanzt改为-1 tuifeisj添上日期 update out_invoice set jiesuanzt=-1where DanJuID = '144737739' select * from out_invoice where jiesuanzt=-1 and DanJuID... 阅读全文

posted @ 2009-09-08 17:13 舟山牙医 阅读(115) 评论(0) 推荐(0) 编辑

拟上传明细

摘要: select a.YiLiaoDH, b.YiBaoBM,c.HiYaoming,b.YiYuanBM,b.YaoPinMC, b.ShouFeiLBYB, c.YaoPinLB, c.ZhenLiaoDJ, '' as JiXing, '' as GuiGe,c.ChanDi,b.DanWei,c.YongFa,b.DanJia, b.ShuLiang, b.ZiFuBL, b.ZongFY, ... 阅读全文

posted @ 2009-09-08 17:12 舟山牙医 阅读(169) 评论(0) 推荐(0) 编辑

社区ext为空Yiliaodh

摘要: yiliaodh 8621161 社区ext为空1259843649 注射器问题:update Z_Out_ClinicDetailset shoufeilbyb=99 where yiyuanbm='330608059' 3.刷卡时,提示yishengsh错误:qryrecipedetail 的upsql中的insert 中 yishengsh改成:yisheng 阅读全文

posted @ 2009-09-08 17:10 舟山牙医 阅读(116) 评论(0) 推荐(0) 编辑

按医疗单号统计上传的金额

摘要: select i.yiliaodh,sum(zongfy),sum(zifeify),sum(zilify),sum(yibaofy) from ( select a.YiLiaoDH, b.YiBaoBM,c.HiYaoming, YiYuanBM=(case when c.yaopinjx='复方(甲类)' and FuFangBZ=0 then c.YaoPinID+'1' when c.y... 阅读全文

posted @ 2009-09-08 17:04 舟山牙医 阅读(257) 评论(0) 推荐(0) 编辑

材料选择代码

摘要: Select YaoMing as 品名,GuiGe as 规格,DanWei as 单位,ShouJia as 单价,* from vDM_MT_DrugAlias where KeShiBM='004'and ZhuXiaoBZ=0 order by YaoMing 阅读全文

posted @ 2009-09-08 17:01 舟山牙医 阅读(92) 评论(0) 推荐(0) 编辑

控制负数输入.txt

摘要: procedure TMakePriceForm.DbgKeyPressProc(var okey: Char);var vIsCancel: Boolean; vKeShiBM, vKeShiMC: string; vVariant: Variant;begin //20090216 wqs 控制负数输入 if not (oKey in ['0'..'9', #8, #13]) then beg... 阅读全文

posted @ 2009-09-08 16:55 舟山牙医 阅读(133) 评论(0) 推荐(0) 编辑

上一页 1 ··· 4 5 6 7 8 9 下一页

导航