一、 购增
1、 设备购增
1）购增
设备名称：TagSql = 419 ，表sb_zd_equipname
分类：表sb_zd_class
单位：表sb_zd_unit
计量：表sb_zd_measure_type
生产厂家：表sb_zd_manufacture
折旧类型：表sb_zd_depreciation_type
入库序列号：select in_series from sb_configure where kzh_no = '01' 对应sb_in_detl.in_series
入库单据号：select in_docu_no from sb_configure where kzh_no = '01'对应sb_in_detl.in_docu_no
入出类型：SELECT * FROM sb_zd_in_out_type WHERE (in_out_flag = 'IN') AND (kind = 1)
供应商：表sb_zd_supplyer
如果入出类型为：购入，则保存时写入sb_in_detl[入库明细表]，同时写入sb_main_equipment[主设备表]
两表关联用kzh_no和in_series；sb_main_equipment.state=’02’ 在库状态，其字段值来源于sb_zd_state
如果入出类型为：入旧帐页，同时写入sb_move_detl[出库明细表]，而sb_main_equipment.state=’04’ 在用状态
Sb_move_detl和sb_main_equipment两表用equip_id关联。
如果一种设备，数量n个，一次入库。则sb_in_detl中一条记录，而sb_main_equipment有n条记录，In_series相同equip_id不同。
2）退货
Sb_in_detl中写入一条记录，in_series为原入库记录的in_series的负值
Sb_main_equipment.state=’03’ 退货状态
2、 设备信息
略
3、 附件购增
1）入库单据号：select appendix_in_docu_no from sb_configure where kzh_no = '01'
2）Update sb_main_equipment set appendix_flag = '1' where equip_id = '00005605'
更改主设备信息表的附件标志appendix_flag
3) sb_appendix[设备附件表]中插入记录 sb_appendix和sb_main_equipment用equip_id关联
系统初始化中：附件价值直接增加到主设备上 ，无效？[sb_configure.add_appendix_to_equip]
4、 分期付款
1）设备名称：TagSql=429 ，查找sb_in_detl.first_pay_value
的记录。 此原始记录的为在设备购增的时候，实付金额手工改动的记录。
2）付款单据号：select pay_docu_no from sb_configure where kzh_no = '01'
3）记录保存在表：sb_pay_detl[分期付款明细表] 与sb_in_detl用kzh_no和in_series关联。Sb_pay_detl.sum_pay_value为每次付款后的付款总金额，如果大于sb_in_detl.buy_price * sb_in_detl.buy_amount则不能保存。
5、 设备增贬值
1） 设备名称TagSql=424
2） 增殖：update sb_main_equipment set depre_price = 150300,remain_value = remain_value + 300 where equip_id = '00001069' 更改设备原值和残值（加），记录保存在表：sb_value_increment
3） 贬值：update sb_main_equipment set depre_price = 1900,remain_value = remain_value + -50 where equip_id = '00002042'更改设备原值和残值（减）, 记录保存在表：sb_value_increment ,字段incre_value为负数
二、 使用
1、 出库调配
出库类型：select * from sb_zd_in_out_type where kind like '2' and in_out_flag like '%' and deleted_flag like '0'
用途：select * from sb_zd_usage
原因：select * from sb_zd_move_cause
科室地点的TagSql=2
保存：
1)更改出库单号
Update sb_configure set move_docu_no=SubString(('000'+Convert(char(4),move_docu_no+1)),len('000'+Convert(Char(4),move_docu_no+1))-3,4) where kzh_no = '01'
2）更改主设备信息表
update sb_main_equipment set state = '04', usage = '01', inner_acct_no = '1010109', place_dept = '1010109', keep_oper = '', contact_oper = '', allo_unit = Null where equip_id = '00005660'
update sb_main_equipment set use_date ='2007-11-26' where equip_id = '00005660' and use_date is null
3）出库记录明细表写入
sb_move_detl
2、 设备销减
业务类型：select * from sb_zd_in_out_type where kind like '3' and in_out_flag like '%' and deleted_flag like '0'
销减原因：select * from sb_zd_move_cause
保存：
1） 销减明细写入：sb_waste
2） 更改主设备表的状态：update sb_main_equipment set state = '07' where equip_id = '00005591' and state = '04'
3、 附件耗用
入出类别：select * from sb_zd_in_out_type where kind like '3' and in_out_flag like '%' and deleted_flag like '0'
保存
1）更改设备附件表的当前数量
update sb_appendix set curr_amount = curr_amount - 1 where equip_id = '00001069' and appendix_series = 1
2）附件耗用明细记录写入
sb_appendix_use
4、 成本效益
保存在表：sb_cost_benefit
三、 维修
1、 维修登记
保存在表：sb_maintenance_record
四、 计量
1、 计量登记
保存在表：sb_measure_record
五、 财务
1、 月结
调用7074号报表
exec sp_executesql N'exec sb_month_report_wj @P1,@P2,@P3,@P4,@P5
', N'@P1 datetime,@P2 datetime,@P3 varchar(2),@P4 datetime,@P5 varchar(10)', '10 26 2007 12:00AM', '11 26 2007 12:00AM', '01', '10 26 2007 12:00AM', '全院'
保存：
1） 汇总记录写在：sb_report
2） 更改入库明细表的report_date
exec sp_executesql N'update sb_in_detl set specification = @P1, invoice_name = @P2, report_date = @P3
where in_series = @P4 and kzh_no = @P5 and input_date = @P6
', N'@P1 varchar(32),@P2 varchar(50),@P3 datetime,@P4 int,@P5 char(2),@P6 datetime', 'TX100LA', '多普勒胎心监护仪', '11 26 2007 7:10PM', 900, '01', '06 26 2007 3:30PM'
3） 更改出库明细表sb_move_detl的report_date
2、 设备折旧
预览调用6052号报表，执行
exec sp_executesql N'exec sb_depreciation_preview @P1, @P2,@P3,@P4
', N'@P1 datetime,@P2 datetime,@P3 varchar(2),@P4 varchar(5)', '11 28 2007 12:00AM', '11 28 2007 12:00AM', '01', '00000'
保存执行存储过程：
exec sb_depreciation '11 28 2007 12:00AM', '11 28 2007 12:00AM', '01', '00000'
3、 供应商结款
预结：调用7105号报表
结款：
exec sp_executesql N'update sb_in_detl set
acct_date = @P1,
acct_docu_no = @P2,
acct_oper = @P3
where
input_date = @P4 and
in_docu_no = @P5 and
supplyer_code = @P6 and
in_series = @P7 and
acct_date is null and
acct_docu_no is null and
buy_price = @P8 and
kzh_no = @P9 and
acct_oper is null
', N'@P1 datetime,@P2 char(12),@P3 char(5),@P4 datetime,@P5 char(12),@P6 char(6),@P7 int,@P8 float,@P9 char(2)', '11 26 2007 7:26PM', '200711260001', '00000', '11 26 2007 6:34PM', '200711261704', '000002', 2161, 1.200000000000000e+004, '01'
4、 折旧变更
六、 报表
1、 明细查询
2、 查询统计
3、 设备卡片
七、 字典
1、 设备名称
2、 设备分类
3、 折旧类型
4、 基本字典
5、 往来单位
6、 库帐号
7、 内部帐号
8、 国标分类
八、 系统
1、 初始化
2、 用户管理
|
|
资源大�。�12.78 KB 
