private void butok_Click(object sender, EventArgs e)
{
try
{
int htdwlx = Convert.ToInt32(Convertor.IsNull(cmbhtdwlx.SelectedValue, "0"));
int htdwid = Convert.ToInt32(Convertor.IsNull(txthtdwmc.Tag, "0"));
int err_code = -1;
string err_text = "";
ts_mz_class.mz_ghxx.UpdateHtdw(_ghxxid, htdwlx, htdwid, out err_code, out err_text, InstanceForm.BDatabase);
if (err_code != 0)
{
throw new Exception(err_text);
}
MessageBox.Show("修改成功", "", MessageBoxButtons.OK, MessageBoxIcon.Information);
string str_old = "";
str_old = "原合同单位信息:" + old_htdwlx.Trim() + " " + old_htdwmc.ToString() + " 修改后为:" + cmbhtdwlx.Text + " " + txthtdwmc.Text;
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "修改合同单位", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 2);
systemLog.Save();
systemLog = null;
this.Close();
}
catch (System.Exception err)
{
MessageBox.Show(err.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void menuItem4_Click(object sender, System.EventArgs e)
{
string msg = "";
msg = MessageBox.Show(this, "删除数据将无法恢复，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question).ToString();
if (msg.ToUpper() == "NO")
{
return;
}
if (InstanceForm.BCurrentUser.Name.Trim() != jbjlTb.Rows[myDataGrid1.CurrentRowIndex]["book_user"].ToString().Trim())
{
MessageBox.Show(this, "不是你录入的记录，不能删除！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop);
return;
}
sqlStr = "delete from zy_wardjbjl_brdt where jb_id=" + Convert.ToInt32(jbjlTb.Rows[myDataGrid1.CurrentRowIndex]["id"].ToString());
InstanceForm.BDatabase.DoCommand(sqlStr);
sqlStr = "delete from zy_wardjbjl where id=" + Convert.ToInt32(jbjlTb.Rows[myDataGrid1.CurrentRowIndex]["id"].ToString());
InstanceForm.BDatabase.DoCommand(sqlStr);
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "删除交班记录", "记录号" + jbjlTb.Rows[myDataGrid1.CurrentRowIndex]["id"].ToString(), DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
Show_Date();
}
private void btnDelPwd_Click(object sender, System.EventArgs e)
{
if (MessageBox.Show("确定要清除该用户的密码吗?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.Yes)
{
//定义多院操作日志 Modify By Tany 2010-01-24
ts_HospData_Share.ts_update_log ts = new ts_HospData_Share.ts_update_log();
Guid log_djid = Guid.Empty;
db.BeginTransaction();
try
{
string sql = "update pub_user set [password]='' where id=" + cmbCode.SelectedValue.ToString() + " and employee_id=" + employee.EmployeeId + " and code = '" + this.cmbCode.Text + "'";
db.DoCommand(sql);
//处理多院数据处理，首先插入操作日志 Modify By Tany 2010-01-24
string cznr = "清空用户密码:【" + txtName.Text.Trim() + "】";
ts.Save_log(ts_HospData_Share.czlx.jc_用户修改, cznr, "pub_user", "id", cmbCode.SelectedValue.ToString(), jgbm, -999, "", out log_djid, db);
db.CommitTransaction();
}
catch (Exception err)
{
db.RollbackTransaction();
MessageBox.Show("清空用户密码：" + err.Message);
return;
}
try
{
//查看该类型操作是否属于立即执行 Modify By Tany 2010-01-21
string errtext = "";
ts_HospData_Share.ts_update_type ty = new ts_HospData_Share.ts_update_type((int)ts_HospData_Share.czlx.jc_用户修改, db);
if (ty.Bzx == 1 && log_djid != Guid.Empty)
{
//立即执行该操作 Modify By Tany 2010-01-21
ts.Pexec_log(log_djid, db, out errtext);
}
if (errtext != "")
{
throw new Exception(errtext);
}
}
catch (Exception err)
{
MessageBox.Show("发生错误：" + err.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
//写入日志 Add By Tany 2012-02-02
SystemLog systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "清空用户密码", FrmMdiMain.CurrentUser.Name + " 清空【" + employee.Name + "(EmployeeId：" + employee.EmployeeId + ")】密码", DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 0, "主机名：" + System.Environment.MachineName, (int)SystemModule.系统公共参数);
systemLog.Save();
systemLog = null;
MessageBox.Show("密码已经清除，请及时通知该用户修改密码");
}
}
public static void DeleteDj(Guid id, RelationalDatabase _DataBase)
{
string ssql = "delete from YF_RKSQMX where djid='" + id + "'";
_DataBase.DoCommand(ssql);
ssql = "delete from YF_RKSQ where id='" + id + "' and shbz=0";
int nrow = (int)_DataBase.DoCommand(ssql);
if (nrow != 1)
{
throw new System.Exception("错误，数据影响了多行或零行，请和管理员联系");
}
SystemLog systemLog = new SystemLog(-1, TrasenFrame.Forms.FrmMdiMain.CurrentDept.DeptId,
TrasenFrame.Forms.FrmMdiMain.CurrentUser.EmployeeId, "删除药房申请单据", "删除药房申请单据 YF_RKSQ.ID='" + id.ToString() + "'",
DateManager.ServerDateTimeByDBType(_DataBase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
}
private DataTable DoGetScanBit(string inpatNo, long _baby_id, long WardDeptId, DateTime strDate, DateTime endDate)
{
DataTable rtnTb = new DataTable();
string sSql = "";
ParameterEx[] parameters = new ParameterEx[5];
try
{
sSql = "SP_ZYHS_Pivas_SELECTFEE";
parameters[0].Value = inpatNo;
parameters[0].Text = "@BINID";
parameters[1].Value = _baby_id;
parameters[1].Text = "@BABYID";
parameters[2].Value = WardDeptId;
parameters[2].Text = "@WARDDEPTID";
parameters[3].Value = strDate;
parameters[3].Text = "@strDate";
parameters[4].Value = endDate;
parameters[4].Text = "@endDate";
rtnTb = FrmMdiMain.Database.GetDataTable(sSql, parameters, 60);
return(rtnTb);
}
catch (Exception err)
{
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "程序错误", "SP_ZYHS_Pivas_SELECTFEE错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return(rtnTb);
}
}
private void butsave_Click(object sender, System.EventArgs e)
{
if (MessageBox.Show(this, "您 [确定] 要保存参数设置吗?", "确认", MessageBoxButtons.YesNo) == DialogResult.No)
{
return;
}
try
{
string str_old = "修改[" + cmbyjks.Text.Trim() + "］参数 ";
InstanceForm.BDatabase.BeginTransaction();
DataTable tb = (DataTable)this.myDataGrid1.DataSource;
for (int i = 0; i <= tb.Rows.Count - 1; i++)
{
int _values = Convert.ToInt32(Convertor.IsNull(tb.Rows[i]["参数值"], "0"));
string _code = Convertor.IsNull(tb.Rows[i]["参数编码"], "0");
string ssql = "update yk_config set zt=" + _values + " where bh='" + _code + "' and deptid=" + Convertor.IsNull(cmbyjks.SelectedValue, "0") + "";
InstanceForm.BDatabase.DoCommand(ssql);
str_old = str_old + _code.ToString() + ":" + _values.ToString() + "|";
}
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "修改药品参数", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
Yp.InsertLog("修改药品参数", TrasenFrame.Forms.FrmMdiMain.CurrentDept.DeptId, 0, TrasenFrame.Forms.FrmMdiMain.CurrentUser.EmployeeId, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString(), str_old, InstanceForm.BDatabase);
InstanceForm.BDatabase.CommitTransaction();
MessageBox.Show("保存成功");
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
MessageBox.Show(err.Message);
}
}
//删除模板头
public static void Delete_Mb(Guid mbid, RelationalDatabase _DataBase)
{
string ssql = "update JC_CFMB set bscbz=1 where mbxh='" + mbid + "' and bscbz=0 ";
int i = _DataBase.DoCommand(ssql);
if (i == 0)
{
throw new Exception("删除模板时出错，可能该模板已删除，请刷新后重试");
}
Guid log_djid = Guid.Empty;
ts_HospData_Share.ts_update_log ts = new ts_HospData_Share.ts_update_log();
string _bz = "删除模板: mbid='" + mbid + "'";
ts.Save_log(ts_HospData_Share.czlx.jc_处方模板, _bz, "jc_cfmb", "mbxh", mbid.ToString(), TrasenFrame.Forms.FrmMdiMain.Jgbm, 0, -999, "", out log_djid, _DataBase);
SystemLog systemLog = new SystemLog(-1, TrasenFrame.Forms.FrmMdiMain.CurrentDept.DeptId, TrasenFrame.Forms.FrmMdiMain.CurrentUser.EmployeeId, "删除模板", "删除模板 mbid=" + mbid.ToString() + "", DateManager.ServerDateTimeByDBType(_DataBase), 0, "主机名：" + System.Environment.MachineName, 3);
bool bok = systemLog.Save();
systemLog = null;
}
private void menuItem1_Click(object sender, System.EventArgs e)
{
try
{
if (MessageBox.Show(this, "记录删除将不能恢复，确认删除这条记录吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
string strSql = @"delete from ZY_HLJLMODEL where id=" + dgShow[dgShow.CurrentCell.RowNumber, 0].ToString();
InstanceForm.BDatabase.DoCommand(strSql);
//写日志 Add By Tany 2005-06-21
SystemLog _systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "删除护理记录模板", "将 " + dgShow[dgShow.CurrentCell.RowNumber, 0].ToString() + " 号护理记录模板删除", DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
MessageBox.Show(this, "删除成功！", "保存", MessageBoxButtons.OK, MessageBoxIcon.Information);
strSql = @"select id,name 名称,model_text 内容,py 拼音码,wb 五笔码,case model_type when 0 then '全院共用' when 1 then '病区使用' when 2 then '科室使用' " +
@"when 3 then '个人使用' end 类型 from ZY_HLJLMODEL where mng_type in (0,1) and " +
@"((model_type=0) or (model_type=1 and ward_id='" + InstanceForm.BCurrentDept.WardId + "')" +
@" or (model_type=2 and dept_id=" + InstanceForm.BCurrentDept.DeptId + ")" +
@" or (model_type=3 and user_id=" + InstanceForm.BCurrentUser.EmployeeId + "))";
InitGrid(strSql);
}
catch (Exception err)
{
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "保存一般患者护理记录错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
private void bt修改_Click(object sender, System.EventArgs e)
{
DataTable myTb = (DataTable)this.myDataGrid1.DataSource;
string sBaby_ID = myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["BABY_ID"].ToString().Trim();
//Modify By Tany 2004-12-13
// if (ClassStatic.Static_EmployeeID!=myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["BOOK_OPER"].ToString().Trim())
// {
// MessageBox.Show(this,"对不起，您没有修改该条记录的权利！", "错误", MessageBoxButtons.OK,MessageBoxIcon.Error);
// return;
// }
if (this.textBox1.Text.Trim() == "")
{
MessageBox.Show(this, "对不起，请输入婴儿姓名！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.textBox1.Focus();
return;
}
//add by zouchihua 2012-10-1 必须选择性别
if (comboBox1.Text.Trim() == "")
{
MessageBox.Show(this, "对不起，请你选择分娩婴儿的性别", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.comboBox1.Focus();
return;
}
if (this.textBox1.Text.Trim() == sName)
{
MessageBox.Show(this, "对不起，婴儿姓名不允许和母亲的姓名相同！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.textBox1.Focus();
return;
}
string sMsg = "";
string OperContens = "将" + sName + "的婴儿“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim() + "”";
if (this.dateTimePicker1.Value.ToString() != myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["出生日期"].ToString().Trim())
{
sMsg = "“出生日期”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["出生日期"].ToString().Trim() + "”改为“" + this.dateTimePicker1.Value.ToString() + "”";
OperContens += "“出生日期”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["出生日期"].ToString().Trim() + "”改为“" + this.dateTimePicker1.Value.ToString() + "”";
}
if (this.comboBox1.Text.Trim() != myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["性别"].ToString().Trim())
{
sMsg += sMsg == "" ? "" : "、";
sMsg += "“性别”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["性别"].ToString().Trim() + "”改为“" + this.comboBox1.Text.Trim() + "”";
OperContens += "“性别”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["性别"].ToString().Trim() + "”改为“" + this.comboBox1.Text.Trim() + "”";
}
if (this.textBox1.Text.Trim() != myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim())
{
sMsg += sMsg == "" ? "" : "、";
sMsg += "“姓名”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim() + "”改为“" + this.textBox1.Text.Trim() + "”";
OperContens += "“姓名”由“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim() + "”改为“" + this.textBox1.Text.Trim() + "”";
}
if (sMsg == "")
{
return;
}
if (MessageBox.Show(this, "确认" + sMsg + "吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
//修改
string _outmsg = myFunc.ChildBearing("", 3, 1, ClassStatic.Current_BinID, Convert.ToInt16(myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["BABY_ID"]), this.comboBox1.Text.Trim(), this.textBox1.Text.Trim(), FrmMdiMain.CurrentUser.EmployeeId, this.dateTimePicker1.Value, FrmMdiMain.Jgbm);
if (_outmsg.Trim() != "")
{
MessageBox.Show(_outmsg);
}
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "修改婴儿信息", OperContens, DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
this.Show_Date();
}
private void bt删除_Click(object sender, System.EventArgs e)
{
DataTable myTb = (DataTable)this.myDataGrid1.DataSource;
string sBaby_ID = myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["BABY_ID"].ToString().Trim();
//Modify By Tany 2004-12-13
// if (ClassStatic.Static_EmployeeID!=myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["BOOK_OPER"].ToString().Trim())
// {
// MessageBox.Show(this,"对不起，您没有删除该条记录的权利！", "错误", MessageBoxButtons.OK,MessageBoxIcon.Error);
// return;
// }
//是否有医嘱、是否转过科
string sSql = "select * from ( " +
" Select Order_ID,0 id1,dbo.fun_getemptyguid() id2 from zy_orderrecord a" +
" where status_flag<>5 and delete_bit=0 and a.INPATIENT_ID='" + ClassStatic.Current_BinID + "' and a.Baby_ID=" + Convert.ToInt32(sBaby_ID) +
// " union "+
// " Select 0,ID,0 from zy_fee_speci b"+
// " where b.INPATIENT_ID="+ClassStatic.Current_BinID+ " and b.Baby_ID="+ Convert.ToInt32(sBaby_ID) +
" union " +
" Select Order_ID,0,c.id from ZY_TRANSFER_dept c" +
" where c.INPATIENT_ID='" + ClassStatic.Current_BinID + "' and c.Baby_ID=" + Convert.ToInt32(sBaby_ID) +
" ) tmp ";
DataTable tempTb1 = FrmMdiMain.Database.GetDataTable(sSql);
if (tempTb1.Rows.Count > 0)
{
MessageBox.Show(this, "对不起，该婴儿有未停的医嘱或转科记录，不允许删除！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
//是否有费用 单独统计 Add By Tany 2005-03-14
sSql = "Select sum(acvalue) from ZY_FEE_SPECI" +
" where delete_bit=0 and charge_bit=1 and INPATIENT_ID='" + ClassStatic.Current_BinID + "' and Baby_ID=" + Convert.ToInt32(sBaby_ID);
string fee = Convertor.IsNull(FrmMdiMain.Database.GetDataResult(sSql), "");
if (fee != "0" && fee != "")
{
MessageBox.Show(this, "对不起，该婴儿总费用不为0，不允许删除！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (MessageBox.Show(this, "确认删除“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim() + "”的记录吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
//删除婴儿记录，减少母亲的母婴同室
string _outmsg = myFunc.ChildBearing("", 2, 1, ClassStatic.Current_BinID, Convert.ToInt16(sBaby_ID), "", "", FrmMdiMain.CurrentUser.EmployeeId, this.dateTimePicker1.Value, FrmMdiMain.Jgbm);
if (_outmsg.Trim() != "")
{
MessageBox.Show(_outmsg);
}
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "删除婴儿", "删除" + sName + "的婴儿“" + myTb.Rows[this.myDataGrid1.CurrentCell.RowNumber]["姓名"].ToString().Trim() + "”的记录", DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
this.Show_Date();
}
private void bt分娩_Click(object sender, System.EventArgs e)
{
int current_no = 0;
int CWF = cbCWF.Checked ? 0 : 1;
if (cfg7205.Config == "0")
{
if (this.textBox1.Text.Trim() == "")
{
MessageBox.Show(this, "对不起，请输入婴儿姓名！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.textBox1.Focus();
return;
}
if (this.textBox1.Text.Trim() == sName)
{
MessageBox.Show(this, "对不起，婴儿姓名不允许和母亲的姓名相同！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.textBox1.Focus();
return;
}
if (this.current_row != -1)
{
if (MessageBox.Show(this, sName + "已经分娩过，确认还分娩吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
string sSql = "Select max(baby_no) as max_no from zy_inpatient_baby where inpatient_id='" + ClassStatic.Current_BinID + "'";
DataTable tempTb = FrmMdiMain.Database.GetDataTable(sSql);
current_no = Convert.ToInt16(tempTb.Rows[0]["max_no"]);
sSql = "Select babyname from zy_inpatient_baby where inpatient_id='" + ClassStatic.Current_BinID + "' and rtrim(babyname)='" + this.textBox1.Text.Trim() + "'";
DataTable tempTb1 = FrmMdiMain.Database.GetDataTable(sSql);
if (tempTb1.Rows.Count > 0)
{
MessageBox.Show(this, "对不起，" + sName + "已经分娩过名叫“" + this.textBox1.Text.Trim() + "”的婴儿，请输入婴儿姓名！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.textBox1.Focus();
return;
}
//add by zouchihua 2012-10-1 必须选择性别
if (comboBox1.Text.Trim() == "")
{
MessageBox.Show(this, "对不起，请你选择分娩婴儿的性别", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.comboBox1.Focus();
return;
}
//string xx = "姓名：【" + textBox1.Text.Trim() + " 】";
// xx += "\r性别：【" + comboBox1.Text.Trim() + " 】";
//if (MessageBox.Show(this, sName + "确认分娩吗？\r分娩婴儿信息如下：\r" + xx, "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
// return;
}
else
{
//add by zouchihua 2012-10-1 必须选择性别
if (comboBox1.Text.Trim() == "")
{
MessageBox.Show(this, "对不起，请你选择分娩婴儿的性别", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.comboBox1.Focus();
return;
}
string xx = "姓名：【" + textBox1.Text.Trim() + " 】";
xx += "\r性别：【" + comboBox1.Text.Trim() + " 】";
if (MessageBox.Show(this, sName + "确认分娩吗？\r分娩婴儿信息如下：\r" + xx, "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
}
current_no += 1;
}
else
{
string sSql = "Select babyname from zy_inpatient_baby where inpatient_id='" + ClassStatic.Current_BinID + "' and rtrim(babyname)='" + this.textBox1.Text.Trim() + "'";
DataTable tempTb1 = FrmMdiMain.Database.GetDataTable(sSql);
if (tempTb1.Rows.Count > 0)
{
MessageBox.Show(this, "对不起，" + sName + "已经存在该附加名称！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
}
//分娩
string _outmsg = myFunc.ChildBearing("", 1, CWF, ClassStatic.Current_BinID, current_no, this.comboBox1.Text.Trim(), this.textBox1.Text.Trim(), FrmMdiMain.CurrentUser.EmployeeId, this.dateTimePicker1.Value, FrmMdiMain.Jgbm);
if (_outmsg.Trim() != "")
{
MessageBox.Show(_outmsg);
}
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "分娩", sName + "分娩名叫“" + this.textBox1.Text.Trim() + "”的婴儿", DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
this.Show_Date();
}
private void btOK_Click(object sender, System.EventArgs e)
{
string sSql = "", sMsg = "";
new_bed_no = cmbNewBed.Text.Trim(); //.Substring(0,1)=="加"?cmbNewBed.Text.Trim().Substring(1):cmbNewBed.Text.Trim();
sSql = "select bed_id,INPATIENT_ID,isbf,dept_id,room_no from ZY_BEDDICTION where WARD_ID='" + InstanceForm.BCurrentDept.WardId + "' and bed_no='" + new_bed_no + "' and isinuse=0";
DataTable new_tempTab = InstanceForm.BDatabase.GetDataTable(sSql);
if (new_tempTab.Rows[0]["INPATIENT_ID"].ToString().Trim() != "")
{
MessageBox.Show(this, "对不起，目标床位不是空床！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (Convert.ToInt16(new_tempTab.Rows[0]["isbf"].ToString()) == 1)
{
MessageBox.Show(this, "对不起，目标床位被包！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
new_bed_id = new Guid(new_tempTab.Rows[0]["bed_id"].ToString());
new_dept_id = Convert.ToInt64(new_tempTab.Rows[0]["dept_id"]);
//性别判断
sSql = @"select * from zy_BedDiction " +
" where ward_id='" + InstanceForm.BCurrentDept.WardId + "'" +
" and room_no='" + new_tempTab.Rows[0]["room_no"].ToString().Trim() + "'" +
" and inpatient_id is not null " +
" and bedsex!='" + old_bed_sex + "'";
DataTable tempTab = InstanceForm.BDatabase.GetDataTable(sSql);
if (tempTab.Rows.Count > 0)
{
sMsg = "目标房间住有异性病人，";
}
if (new_dept_id != old_dept_id)
{
//if ( MessageBox.Show(this, "两个床位的所属科室不相同，"+sMsg+"是否确认转床？","转床", MessageBoxButtons.YesNo,MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)==DialogResult.No) return ;
//Modify By Tany 2016-11-21 不允许跨科室转床
MessageBox.Show(this, "目标床位属于【" + new Department(new_dept_id, InstanceForm.BDatabase).DeptName.Trim() + "】，当前病人属于【" + new Department(old_dept_id, InstanceForm.BDatabase).DeptName.Trim() + "】\r\n两个床位的所属科室不相同，不允许操作！", "转床", MessageBoxButtons.OK, MessageBoxIcon.Stop);
return;
}
else
{
if (MessageBox.Show(this, sMsg + "是否确认将 [" + old_bed_no + "床] 病人转到 [" + new_bed_no + "床] ？", "转床", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
}
string _outmsg = myFunc.ChangeBed("", 1, old_bed_id, new_bed_id, InstanceForm.BCurrentUser.EmployeeId, FrmMdiMain.Jgbm);
if (_outmsg.Trim() != "")
{
MessageBox.Show(_outmsg);
}
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "转床", _outmsg + "把病人 " + ClassStatic.Current_BinID + " 从" + old_bed_id.ToString() + "床位代码转到" + new_bed_id.ToString() + "床位代码", DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
// MessageBox.Show("转床成功，请重新确认病人的床位费！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);
this.Close();
}
private void button1_Click(object sender, System.EventArgs e)
{
DataTable tb = (DataTable)this.myDataGrid1.DataSource;
int nrow = Convert.ToInt32(this.myDataGrid1.CurrentCell.RowNumber);
if (nrow > tb.Rows.Count - 1)
{
return;
}
if (MessageBox.Show("您确定要删除第" + Convert.ToString((nrow + 1)) + "行这个单据吗 ？", "询问窗", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
this.button1.Enabled = false;
string err_text = "";
int wldw = 0;
string ssql = "select * from yf_rksq where id='" + tb.Rows[nrow]["id"].ToString() + "'";
DataTable tbdj = InstanceForm.BDatabase.GetDataTable(ssql);
if (tbdj.Rows.Count > 0)
{
wldw = Convert.ToInt32(tbdj.Rows[0]["wldw"]);
}
//删除目标服务器的申领单
DataTable tbyjks = Yp.SelectYjks(wldw, InstanceForm.BDatabase);
TrasenClasses.DatabaseAccess.RelationalDatabase mbdb = null;
if (Convert.ToInt32(tbyjks.Rows[0]["szjgbm"]) != InstanceForm._menuTag.Jgbm)
{
mbdb = TrasenFrame.Classes.WorkStaticFun.GetJgbmDb(Convert.ToInt32(tbyjks.Rows[0]["szjgbm"]));
ssql = "select * from yf_rksq where id='" + tb.Rows[nrow]["id"].ToString() + "' and shbz=1";
DataTable mbtb = mbdb.GetDataTable(ssql);
if (mbtb.Rows.Count > 0)
{
MessageBox.Show("", "该单据已审核,不能删除", MessageBoxButtons.OK, MessageBoxIcon.Error);
this.button1.Enabled = true;
return;
}
}
try
{
InstanceForm.BDatabase.BeginTransaction();
YF_RKSQ_RKSQMX.DeleteDj(new Guid(tb.Rows[nrow]["id"].ToString()), InstanceForm.BDatabase);
if (tbyjks.Rows.Count > 0)
{
if (Convert.ToInt32(tbyjks.Rows[0]["QYBZ"]) == 1 && Convert.ToInt32(tbyjks.Rows[0]["deptid"]) != Convert.ToInt32(InstanceForm.BCurrentDept.DeptId))
{
if (Convert.ToInt32(tbyjks.Rows[0]["szjgbm"]) != InstanceForm._menuTag.Jgbm && mbdb != null)
{
//Guid log_djid = Guid.Empty;
//ts_HospData_Share.ts_update_log ts = new ts_HospData_Share.ts_update_log();
//bool shbz = ts_HospData_Share.yp_lysq.GetShzt(new Guid(tb.Rows[nrow]["id"].ToString()), Convert.ToInt32(tbyjks.Rows[0]["szjgbm"]), out err_text);
//if (shbz == true) throw new Exception(err_text);
//string bz = InstanceForm.BCurrentDept.DeptName.Trim() + " 删除申领单 ";
//ts.Save_log(ts_HospData_Share.czlx.yp_药房申请领药单, bz, "YF_RKSQ", "ID", tb.Rows[nrow]["id"].ToString(), InstanceForm._menuTag.Jgbm, Convert.ToInt32(tbyjks.Rows[0]["szjgbm"]), 0, "", out log_djid, InstanceForm.BDatabase);
YF_RKSQ_RKSQMX.DeleteDj(new Guid(tb.Rows[nrow]["id"].ToString()), mbdb);
}
}
}
string str_old = InstanceForm.BCurrentUser.Name + "删除" + InstanceForm.BCurrentDept.DeptName + "药品申请单.单据主键:" + tb.Rows[nrow]["id"].ToString();
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "删除单据", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
//提交事务
InstanceForm.BDatabase.CommitTransaction();
this.button1.Enabled = true;
MessageBox.Show("删除成功");
this.butref_Click(sender, e);
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
this.button1.Enabled = true;
MessageBox.Show(err.Message);
}
}
private void bt确认_Click(object sender, System.EventArgs e)
{
DataTable myTb = (DataTable)this.myDataGrid1.DataSource;
// if(!myOldTb.Equals(myTb))
// {
// MessageBox.Show("网格已经更新，请重新确认！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information);
// return;
// }
int nrow = this.myDataGrid1.CurrentCell.RowNumber;
string sSql = "";
if (MessageBox.Show(this, "确认该项目不执行了吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
//Modify By Tany 2010-06-08 是否使用密码确认 0=使用 1=不使用
if (new SystemCfg(7066).Config == "0")
{
frmInPassword f1 = new frmInPassword();
f1.ShowDialog();
if (f1.isLogin == false)
{
return;
}
f1.Close();
}
InstanceForm.BDatabase.BeginTransaction();
try
{
string _lisGroup = "-1";
switch (Convert.ToInt16(myTb.Rows[nrow]["xh"]))
{
case 1: //未安排 安排表cancel
//看看是否有lis组合
//sSql="select lis_group from yj_applyrecord "+
// " where id="+myTb.Rows[nrow]["id"].ToString()+" and isarrange=0";
//_lisGroup=InstanceForm.BDatabase.GetDataResult(sSql).ToString().Trim();
//if(_lisGroup!="-1" && _lisGroup!="")
//{
// sSql="update yj_applyrecord set lis_group=-1 where lis_group="+_lisGroup;
// InstanceForm.BDatabase.DoCommand(sSql);
//}
sSql = "update YJ_ZYSQ " +
" set bscbz=1,scsj=getdate() ,scr=" + InstanceForm.BCurrentUser.EmployeeId +
" where yjsqid='" + myTb.Rows[nrow]["id"].ToString() + "' and bjsbz=0";
if (InstanceForm.BDatabase.DoCommand(sSql) == 0)
{
throw new Exception("未找到需要更新的记录，请重新确认！");
}
sSql = "update zy_fee_speci " +
" set delete_bit= " +
" (select 1 from zy_fee_speci a,VI_jc_ITEMS b " +
" where a.hditem_id=b.itemid and a.tcid=b.tcid " +
" and a.hditem_id=" + myTb.Rows[nrow]["hditem_id"].ToString() +
" ) where prescription_id='" + myTb.Rows[nrow]["applycode"].ToString() + "' and charge_bit=0";
if (InstanceForm.BDatabase.DoCommand(sSql) == 0)
{
throw new Exception("未找到需要更新的记录，请重新确认！");
}
break;
case 2: //已安排，未记帐
//sSql="update yj_arrangequeue set affirm_user=-2 where id="+myTb.Rows[nrow]["id"].ToString();
//if(InstanceForm.BDatabase.DoCommand(sSql)==0)
// throw new Exception("未找到需要更新的记录，请重新确认！");
sSql = "update zy_fee_speci " +
" set delete_bit= " +
" (select 1 from zy_fee_speci a,VI_jc_ITEMS b " +
" where a.hditem_id=b.itemid and a.tcid=b.tcid " +
" and a.hditem_id=" + myTb.Rows[nrow]["hditem_id"].ToString() +
" ) where prescription_id='" + myTb.Rows[nrow]["applycode"].ToString() + "' and charge_bit=0";
if (InstanceForm.BDatabase.DoCommand(sSql) == 0)
{
throw new Exception("未找到需要更新的记录，请重新确认！");
}
break;
case 3: //冲正
//sSql="update yj_arrangequeue set affirm_user=-2 where id="+myTb.Rows[nrow]["id"].ToString();
//if(InstanceForm.BDatabase.DoCommand(sSql)==0)
// throw new Exception("未找到需要更新的记录，请重新确认！");
sSql = "update zy_fee_speci " +
" set charge_bit=1,charge_date=getdate(),charge_user="******" " +
" from zy_fee_speci a,VI_jc_ITEMS b " +
" where a.hditem_id=b.itemid and a.tcid=b.tcid " +
" and a.hditem_id=" + myTb.Rows[nrow]["hditem_id"].ToString() +
" and a.cz_flag=2 and a.prescription_id='" + myTb.Rows[nrow]["applycode"].ToString() + "' and a.charge_bit=0";
if (InstanceForm.BDatabase.DoCommand(sSql) == 0)
{
throw new Exception("未找到需要更新的记录，请重新确认！");
}
break;
}
if (Convert.ToInt16(myTb.Rows[nrow]["xh"]) == 1 || Convert.ToInt16(myTb.Rows[nrow]["xh"]) == 2)
{
//如果是临嘱，且不是冲账，均打上未执行标志
if (Convert.ToInt16(myTb.Rows[nrow]["mngtype"]) == 1 || Convert.ToInt16(myTb.Rows[nrow]["mngtype"]) == 5)
{
//Modify by Tany 2005-02-21 order_edate=getdate()
sSql = "update zy_orderrecord set wzx_flag=" + InstanceForm.BCurrentUser.EmployeeId + ",order_edate=getdate() where order_id='" + myTb.Rows[nrow]["order_id"].ToString() + "'";
if (InstanceForm.BDatabase.DoCommand(sSql) == 0)
{
throw new Exception("未找到需要更新的记录，请重新确认！");
}
}
//取消检查打印 Add By Tany 2004-12-02
sSql = "update zy_jy_print set delete_bit=1 where order_id='" + myTb.Rows[nrow]["order_id"].ToString() + "'";
InstanceForm.BDatabase.DoCommand(sSql);//Modify By Tany 2004-12-08
}
InstanceForm.BDatabase.CommitTransaction();
//更新lis条形码表 暂时没有lis连接屏蔽 Modify By Tany 2006-12-04
// if(_lisGroup!="-1" && _lisGroup!="")
// {
// sSql="update ls_as_txm set delete_bit=1 where id="+_lisGroup;
// InstanceForm.BDatabase.DoCommand(sSql);
// }
}
catch (Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
// database.Close();
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "取消医技检查错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source + "\n\n数据已经回滚，请检查后重新执行！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
myDataGrid1.DataSource = null;
return;
}
// database.Close();
MessageBox.Show("取消成功！");
myDataGrid1.DataSource = null;
}
void btnSave_Click(object sender, EventArgs e)
{
try
{
decimal d = 0M;
if (!decimal.TryParse(txtJexz.Text.Trim(), out d))
{
txtJexz.Focus();
MessageBox.Show("金额限制 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtCfsl.Text.Trim(), out d))
{
txtCfsl.Focus();
MessageBox.Show("处方数量 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtCfslM.Text.Trim(), out d))
{
txtCfslM.Focus();
MessageBox.Show("月处方数量 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtRJcje.Text.Trim(), out d))
{
txtRJcje.Focus();
MessageBox.Show("日检查金额 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtRZlje.Text.Trim(), out d))
{
txtRZlje.Focus();
MessageBox.Show("日治疗金额 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (MessageBox.Show("确定操作吗？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.Cancel)
{
return;
}
FrmMdiMain.Database.BeginTransaction();
string id = "";
string strSql = "";
int iReturn = 0;
if (_isAdd)//新增
{
//strSql = string.Format(@"select count(1) as NUM from jc_gf_sflb where sflb='{0}'", txtCode.Text);
//DataTable dt = FrmMdiMain.Database.GetDataTable(strSql);
//if (dt == null || dt.Rows.Count <= 0)
//{
// FrmMdiMain.Database.RollbackTransaction();
// return;
//}
//if (int.Parse(dt.Rows[0]["NUM"].ToString()) > 0)
//{
// FrmMdiMain.Database.RollbackTransaction();
// MessageBox.Show(txtCode.Text + "的类别编码已存在，请重新命名！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
// txtCode.Focus();
// return;
//}
//id = TrasenClasses.GeneralClasses.PubStaticFun.NewGuid().ToString();
strSql = string.Format(@"insert into jc_gf_WrkUnit( name, pym, wbm, Wrk_Unit, fzr, bank, pay_id, tel_no, wrk_addr, del_bit, cfsl_xz, cfslM_xz, je_xz, jcje_xz, zlje_xz, memo, opr_date, opr_man)
VALUES('{0}','{1}',{2},'{3}','{4}','{5}','{6}','{7}',{8},'{9}','{10}','{11}','{12}','{13}',{14},'{15}','{16}','{17}')",
txtWrkUnit.Text.Replace("'", ""),
txtPym.Text.Replace("'", ""),
txtWbm.Text.Replace("'", ""),
cmbZone.SelectedValue.ToString(),
txtFzr.Text.Replace("'", ""),
txtKhyh.Text.Replace("'", ""),
txtFkzh.Text.Replace("'", ""),
txtTel.Text.Replace("'", ""),
txtAddr.Text.Replace("'", ""),
chkDel.Checked ? "1" : "0",
txtCfsl.Text.Replace("'", ""),
txtCfslM.Text.Replace("'", ""),
txtJexz.Text.Replace("'", ""),
txtRJcje.Text.Replace("'", ""),
txtRZlje.Text.Replace("'", ""),
txtMemo.Text.Replace("'", ""),
DateManager.ServerDateTimeByDBType(InstanceForm._database),
InstanceForm._currentUser.EmployeeId);
iReturn = FrmMdiMain.Database.DoCommand(strSql);
}
else//修改
{
if (this.dataGridView1.CurrentRow == null)
{
FrmMdiMain.Database.RollbackTransaction();
return;
}
id = this.dataGridView1.CurrentRow.Cells["ID"].Value.ToString();
//strSql = string.Format(@"select count(1) as NUM from jc_gf_sflb where sflb='{0}' and ID<>'{1}'", txtCode.Text, id);
//DataTable dt = FrmMdiMain.Database.GetDataTable(strSql);
//if (dt == null || dt.Rows.Count <= 0)
//{
// FrmMdiMain.Database.RollbackTransaction();
// return;
//}
//if (int.Parse(dt.Rows[0]["NUM"].ToString()) > 0)
//{
// FrmMdiMain.Database.RollbackTransaction();
// MessageBox.Show(txtCode.Text + "的类别编码已存在，请重新命名！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
// return;
//}
strSql = string.Format(@"update [jc_gf_WrkUnit] set
[name] = '{0}',
[pym] = '{1}',
[wbm] = '{2}',
[Wrk_Unit] = '{3}',
[fzr] = '{4}',
[bank] = '{5}',
[pay_id] = '{6}',
[tel_no] = '{7}',
[wrk_addr] = '{8}',
[del_bit] = '{9}',
[cfsl_xz] = {10},
[cfslM_xz] = '{11}',
[je_xz] = '{12}' ,
[jcje_xz] = '{13}' ,
[zlje_xz] = '{14}' ,
[Mod_date] = '{15}' ,
[Mod_man] = '{16}' ,
[memo] = '{17}'
where ID='{18}'",
txtWrkUnit.Text.Replace("'", ""),
txtPym.Text.Replace("'", ""),
txtWbm.Text.Replace("'", ""),
cmbZone.SelectedValue.ToString(),
txtFzr.Text.Replace("'", ""),
txtKhyh.Text.Replace("'", ""),
txtFkzh.Text.Replace("'", ""),
txtTel.Text.Replace("'", ""),
txtAddr.Text.Replace("'", ""),
chkDel.Checked ? "1" : "0",
txtCfsl.Text.Replace("'", ""),
txtCfslM.Text.Replace("'", ""),
txtJexz.Text.Replace("'", ""),
txtRJcje.Text.Replace("'", ""),
txtRZlje.Text.Replace("'", ""),
txtMemo.Text.Replace("'", ""),
DateManager.ServerDateTimeByDBType(InstanceForm._database),
InstanceForm._currentUser.EmployeeId,
id);
iReturn = FrmMdiMain.Database.DoCommand(strSql);
if (!this.dataGridView1.CurrentRow.Cells["del_bit"].Value.ToString().Equals(chkDel.Checked ? "1" : "0"))
{
//删除状态变更写日志 信息科要求
SystemLog _systemLog = new SystemLog(-1, InstanceForm._currentDept.DeptId, InstanceForm._currentUser.EmployeeId, "更新公费单位信息的删除状态", "将单位" + cmbZone.Text + "_" + txtWrkUnit.Text + " 的删除状态更新为 " + (chkDel.Checked ? "删除" : "正常") + " " + InstanceForm._currentUser.EmployeeId, DateManager.ServerDateTimeByDBType(InstanceForm._database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
}
}
if (iReturn <= 0)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show("操作失败！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
FrmMdiMain.Database.CommitTransaction();
_isAdd = false;
DoQuery();
//DoGetFocus(txtCode.Text);
MessageBox.Show("操作成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex)
{
MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
}
void btnSave_Click(object sender, EventArgs e)
{
try
{
decimal d = 0M;
if (!decimal.TryParse(txtJexz.Text.Trim(), out d))
{
txtJexz.Focus();
MessageBox.Show("日金额限制 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtMje.Text.Trim(), out d))
{
txtMje.Focus();
MessageBox.Show("月金额限制 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtCfsl.Text.Trim(), out d))
{
txtCfsl.Focus();
MessageBox.Show("处方数量 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtCfslM.Text.Trim(), out d))
{
txtCfslM.Focus();
MessageBox.Show("月处方数量 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (!decimal.TryParse(txtZfbl.Text.Trim(), out d))
{
txtZfbl.Focus();
MessageBox.Show("自费比例 请输入数值型数据", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (string.IsNullOrEmpty(txtYlzh.Text.Trim()))
{
txtYlzh.Focus();
MessageBox.Show("医疗证号不能为空，请输入", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (string.IsNullOrEmpty(txtName.Text.Trim()))
{
txtName.Focus();
MessageBox.Show("姓名不能为空，请输入", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
if (MessageBox.Show("确定操作吗？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.Cancel)
{
return;
}
string strZone = "";//insurecentral
DataRow[] drZones = _dtYblx.Select("id='" + cmbGflx.SelectedValue.ToString().Trim() + "'");
if (drZones.Length <= 0)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show("医保类型:" + cmbGflx.Text + " 未对应区域,请联系管理员", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
strZone = drZones[0]["insurecentral"].ToString().Trim();
FrmMdiMain.Database.BeginTransaction();
string id = "";
string strSql = "";
int iReturn = 0;
if (_isAdd)//新增
{
strSql = string.Format(@"select count(1) as NUM from jc_gf_patrec where ylzh='{0}' and gflx='{1}'", txtYlzh.Text.Trim(), cmbGflx.SelectedValue.ToString());
DataTable dt = FrmMdiMain.Database.GetDataTable(strSql);
if (dt == null || dt.Rows.Count <= 0)
{
FrmMdiMain.Database.RollbackTransaction();
return;
}
if (int.Parse(dt.Rows[0]["NUM"].ToString()) > 0)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show(txtYlzh.Text + "的医疗证号已存在于：" + cmbGflx.Text + "，请重新确认后该病人的医疗证号是否重号或输错！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
txtYlzh.Focus();
return;
}
string strRDWBH, strDWBH, strRRYLB, strRGRBH;
strRDWBH = strDWBH = strRRYLB = strRGRBH = "";
if (cmbGflx.SelectedValue.ToString().Trim().Equals(_strWhsGf))
{
try
{
strRDWBH = txtYlzh.Text.Replace("'", "").Substring(0, 3);
strDWBH = txtYlzh.Text.Replace("'", "").Substring(3, 2);
strRRYLB = txtYlzh.Text.Replace("'", "").Substring(5, 1);
strRGRBH = txtYlzh.Text.Replace("'", "").Substring(6, 4);
}
catch { }
}
strSql = string.Format(@"insert into jc_gf_patrec( id, ylzh,ylzh1,ylzh2, name, pym, wbm, gflx, gfzlx, qy, brlx, del_bit, cfsl_xz, cfslM_xz, je_xz, yje_xz,
GRJB, RZQK, ZFBL, RDWBH, DWBH, RRYLB, RGRBH, SFZH, xb ,memo, DM,lxdh, memo_1,memo_2,memo_3, opr_date, opr_man,jcje_xz,zlje_xz)
VALUES('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}','{8}','{9}','{10}','{11}','{12}','{13}','{14}','{15}','{16}','{17}',
'{18}','{19}','{20}','{21}','{22}','{23}','{24}','{25}','{26}','{27}','{28}','{29}','{30}','{31}','{32}','{33}','{34}')",
txtYlzh.Text.Replace("'", "") + strZone,
txtYlzh.Text.Replace("'", "").Trim(),
txtYlzh.Text.Replace("'", "").Replace("-", "").Trim(),
txtYlzh.Text.Replace("'", "").Replace("-", "").Trim(),
txtName.Text.Replace("'", "").Trim(),
txtPym.Text.Replace("'", ""),
txtWbm.Text.Replace("'", ""),
cmbGflx.SelectedValue.ToString(),
Convertor.IsNull(cmbGfzlx.SelectedValue, ""),
strZone, //cmbZone.SelectedValue.ToString(),
_strYbjklx,
chkDel.Checked ? "1" : "0",
txtCfsl.Text.Replace("'", ""),
txtCfslM.Text.Replace("'", ""),
txtJexz.Text.Replace("'", ""),
txtMje.Text.Replace("'", ""),
cmbGrjb.Text,
string.IsNullOrEmpty(cmbRzqk.Text.Trim()) ? cmbGfzlx.Text : cmbRzqk.Text.Trim(),
txtZfbl.Text.Replace("'", ""),
strRDWBH,
strDWBH,
strRRYLB,
strRGRBH,
"", "",
txtMemo.Text.Replace("'", ""),
"2",
txtTel.Text.Replace("'", ""),
txtWrkUnit.Text.Trim(),
cmbGrjb.Text,
string.IsNullOrEmpty(cmbRzqk.Text.Trim()) ? cmbGfzlx.Text : cmbRzqk.Text.Trim(),
DateManager.ServerDateTimeByDBType(InstanceForm._database),
InstanceForm._currentUser.EmployeeId, 200, 200);
iReturn = FrmMdiMain.Database.DoCommand(strSql);
}
else//修改
{
if (this.dataGridView1.CurrentRow == null)
{
FrmMdiMain.Database.RollbackTransaction();
return;
}
id = this.dataGridView1.CurrentRow.Cells["ID"].Value.ToString();
strSql = string.Format(@"select count(1) as NUM from jc_gf_patrec where ylzh='{0}' and gflx='{1}' and ID<>'{2}'", txtYlzh.Text.Trim(), cmbGflx.SelectedValue.ToString(), id);
DataTable dt = FrmMdiMain.Database.GetDataTable(strSql);
if (dt == null || dt.Rows.Count <= 0)
{
FrmMdiMain.Database.RollbackTransaction();
return;
}
if (int.Parse(dt.Rows[0]["NUM"].ToString()) > 0)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show(txtYlzh.Text + "的医疗证号已存在于：" + cmbGflx.Text + "，请重新确认后该病人的医疗证号是否重号或输错！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
txtYlzh.Focus();
return;
}
string strRDWBH, strDWBH, strRRYLB, strRGRBH;
strRDWBH = strDWBH = strRRYLB = strRGRBH = "";
if (cmbGflx.SelectedValue.ToString().Trim().Equals(_strWhsGf))
{
try
{
strRDWBH = txtYlzh.Text.Replace("'", "").Substring(0, 3);
strDWBH = txtYlzh.Text.Replace("'", "").Substring(3, 2);
strRRYLB = txtYlzh.Text.Replace("'", "").Substring(5, 1);
strRGRBH = txtYlzh.Text.Replace("'", "").Substring(6, 4);
}
catch { }
}
//id, ylzh,ylzh1,ylzh2, name, pym, wbm, gflx, gfzlx, qy, brlx, del_bit, cfsl_xz, cfslM_xz, je_xz, yje_xz,
//GRJB, RZQK, ZFBL, RDWBH, DWBH, RRYLB, RGRBH, SFZH, xb ,memo, DM,lxdh, memo_1,memo_2,memo_3, opr_date, opr_man
strSql = string.Format(@"update [jc_gf_patrec] set
[name] = '{0}',
[pym] = '{1}',
[wbm] = '{2}',
[gfzlx] = '{3}',
[del_bit] = '{4}',
[cfsl_xz] = {5},
[cfslM_xz] = '{6}',
[je_xz] = '{7}' ,
[yje_xz] = '{8}' ,
[GRJB] = '{9}',
[RZQK] = '{10}',
[ZFBL] = '{11}',
[lxdh] = '{12}',
[Mod_date] = '{13}',
[Mod_man] = '{14}' ,
[memo_1] = '{15}' ,
[memo_2] = '{16}' ,
[memo_3] = '{17}' ,
[memo] = '{18}'
where ID='{19}'",
txtName.Text.Replace("'", ""),
txtPym.Text.Replace("'", ""),
txtWbm.Text.Replace("'", ""),
cmbGfzlx.Text,
chkDel.Checked ? "1" : "0",
txtCfsl.Text.Replace("'", ""),
txtCfslM.Text.Replace("'", ""),
txtJexz.Text.Replace("'", ""),
txtMje.Text.Replace("'", ""),
cmbGrjb.Text,
cmbRzqk.Text,
txtZfbl.Text.Replace("'", ""),
txtTel.Text.Replace("'", ""),
DateManager.ServerDateTimeByDBType(InstanceForm._database),
InstanceForm._currentUser.EmployeeId,
txtMemo.Text.Replace("'", ""),
txtWrkUnit.Text.Replace("'", "").Trim(),
cmbGrjb.Text,
cmbRzqk.Text,
id);
iReturn = FrmMdiMain.Database.DoCommand(strSql);
if (!this.dataGridView1.CurrentRow.Cells["del_bit"].Value.ToString().Equals(chkDel.Checked ? "1" : "0"))
{
//删除状态变更写日志 信息科要求
SystemLog _systemLog = new SystemLog(-1, InstanceForm._currentDept.DeptId, InstanceForm._currentUser.EmployeeId, "更新公费 病员档案 信息的删除状态", "将医疗证号" + txtYlzh.Text.Replace("'", "") + "_" + strZone + " 的删除状态更新为 " + (chkDel.Checked ? "删除" : "正常") + " " + InstanceForm._currentUser.EmployeeId, DateManager.ServerDateTimeByDBType(InstanceForm._database), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
}
}
if (iReturn <= 0)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show("操作失败！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
FrmMdiMain.Database.CommitTransaction();
_isAdd = false;
DoQuery();
DoGetFocus(txtYlzh.Text.Replace("'", "") + strZone);
try
{
if (treeView1.SelectedNode == null)
{
treeView1.SelectedNode = treeView1.Nodes[0];//.Nodes[Convertor.IsNull(cmbGflx.SelectedValue, "")];
}
}
catch { }
MessageBox.Show("操作成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
catch (Exception ex)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
}
private void btnSave_Click(object sender, System.EventArgs e)
{
if (MessageBox.Show("是否确定保存静脉采血相关费用？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No)
{
return;
}
IsSave = true;
string sSql = "";
string strSql = "";
DataTable myTempTb = new DataTable();
bool IsErr = false;
DataTable myTb = (DataTable)myDataGrid1.DataSource;
//取静脉采血费
sSql = @"Select a.order_id,a.order_name,a.order_unit,a.order_type " +
"from jc_hoitemdiction a,jc_CONFIG b " +
"where a.order_id=convert(bigint,b.config) and b.id=7015 ";
DataTable myJTb = InstanceForm.BDatabase.GetDataTable(sSql);
//取静脉采血管费
sSql = @"Select a.order_id,a.order_name,a.order_unit,a.order_type " +
"from jc_hoitemdiction a,jc_CONFIG b " +
"where a.order_id=convert(bigint,b.config) and b.id=7016";
DataTable myGTb = InstanceForm.BDatabase.GetDataTable(sSql);
//如果没有设置静脉采血费代码，将不插入煎药费
if (myJTb.Rows.Count == 0 || myJTb == null)
{
MessageBox.Show("没有设置静脉采血费代码，请手工输入静脉采血费！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop);
IsErr = true;
}
else if (myGTb.Rows.Count == 0 || myGTb == null)
{
MessageBox.Show("没有设置静脉采血管代码，请手工输入静脉采血管费！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop);
IsErr = true;
}
else
{
decimal v_hoitem_id = Convert.ToDecimal(myJTb.Rows[0]["order_id"].ToString());
string v_order_context = myJTb.Rows[0]["order_name"].ToString().Trim();
string v_unit = myJTb.Rows[0]["order_unit"].ToString().Trim();
int v_order_type = Convert.ToInt32(myJTb.Rows[0]["order_type"].ToString().Trim());
decimal v_hoitem_id1 = Convert.ToDecimal(myGTb.Rows[0]["order_id"].ToString());
string v_order_context1 = myGTb.Rows[0]["order_name"].ToString().Trim();
string v_unit1 = myGTb.Rows[0]["order_unit"].ToString().Trim();
int v_order_type1 = Convert.ToInt32(myGTb.Rows[0]["order_type"].ToString().Trim());
int i = 0;
int iYZH = 0;
// //生成数据访问对象
// RelationalDatabase database=RelationalDatabase.GetDatabase(DatabaseType.IbmDb2ZY);
// database.Initialize("");
// database.Open();
// //开始一个事物
// database.BeginTransaction();
InstanceForm.BDatabase.BeginTransaction();
try
{
for (i = 0; i < myTb.Rows.Count; i++)
{
if (myTb.Rows[i]["采血费次数"].ToString().Trim() != "0" && myTb.Rows[i]["采血费次数"].ToString().Trim() != "")
{
//取组号
sSql = @"select max(Group_Id) as YZH " +
" from Zy_OrderRecord " +
" where inpatient_id='" + myTb.Rows[i]["inpatient_id"].ToString().Trim() + "'" +
" and baby_id=" + myTb.Rows[i]["baby_id"].ToString().Trim(); //+
// " and mngtype=3";
myTempTb.Clear();
myTempTb = InstanceForm.BDatabase.GetDataTable(sSql);
if (myTempTb.Rows[0]["YZH"].ToString().Trim() == "")
{
iYZH = 0;
}
else
{
iYZH = Convert.ToInt32(myTempTb.Rows[0]["YZH"]) + 1;
}
//插入医嘱记录表
strSql = @"INSERT INTO ZY_ORDERRECORD( " +
"order_id,jgbm,xmly,INPATIENT_ID,Baby_ID,WARD_ID,DEPT_BR,DEPT_ID, " +
"MNGTYPE,ORDER_BDATE,GROUP_ID,NTYPE, " +
"HOITEM_ID,ORDER_CONTEXT,NUM,DOSAGE,UNIT,ORDER_USAGE,FREQUENCY, " +
"EXEC_DEPT,FIRST_TIMES,STATUS_FLAG, " +
"AUDITING_USER,AUDITING_DATE,OPERATOR,BOOK_DATE,SERIAL_NO ) " +
"VALUES('" + PubStaticFun.NewGuid() + "'," + FrmMdiMain.Jgbm + ",2, '" +
myTb.Rows[i]["inpatient_id"].ToString().Trim() + "'," + Convert.ToDecimal(myTb.Rows[i]["baby_id"].ToString().Trim()) +
",'" + InstanceForm.BCurrentDept.WardId + "'," + Convert.ToDecimal(myTb.Rows[i]["dept_br"].ToString().Trim()) + "," + Convert.ToDecimal(myTb.Rows[i]["dept_id"].ToString().Trim()) +
",3,getdate()," + iYZH.ToString() + "," + v_order_type + "," +
v_hoitem_id + ",'" + v_order_context + "'," + myTb.Rows[i]["采血费次数"] + ",1,'" + v_unit + "','',''," +
Convert.ToDecimal(myTb.Rows[i]["dept_br"].ToString().Trim()) + ", 1,2," +
InstanceForm.BCurrentUser.EmployeeId + ",getdate() ," + InstanceForm.BCurrentUser.EmployeeId + ",getdate(),0)";
InstanceForm.BDatabase.DoCommand(strSql);
}
//Add By Tany 2004-11-13
if (myTb.Rows[i]["采血管次数"].ToString().Trim() != "0" && myTb.Rows[i]["采血管次数"].ToString().Trim() != "")
{
//取组号
sSql = @"select max(Group_Id) as YZH " +
" from Zy_OrderRecord " +
" where inpatient_id='" + myTb.Rows[i]["inpatient_id"].ToString().Trim() + "'" +
" and baby_id=" + myTb.Rows[i]["baby_id"].ToString().Trim(); //+
// " and mngtype=3";
myTempTb.Clear();
myTempTb = InstanceForm.BDatabase.GetDataTable(sSql);
if (myTempTb.Rows[0]["YZH"].ToString().Trim() == "")
{
iYZH = 0;
}
else
{
iYZH = Convert.ToInt32(myTempTb.Rows[0]["YZH"]) + 1;
}
//插入医嘱记录表
strSql = @"INSERT INTO ZY_ORDERRECORD( " +
"order_id,jgbm,xmly,INPATIENT_ID,Baby_ID,WARD_ID,DEPT_BR,DEPT_ID, " +
"MNGTYPE,ORDER_BDATE,GROUP_ID,NTYPE, " +
"HOITEM_ID,ORDER_CONTEXT,NUM,DOSAGE,UNIT,ORDER_USAGE,FREQUENCY, " +
"EXEC_DEPT,FIRST_TIMES,STATUS_FLAG, " +
"AUDITING_USER,AUDITING_DATE,OPERATOR,BOOK_DATE,SERIAL_NO ) " +
"VALUES( '" + PubStaticFun.NewGuid() + "'," + FrmMdiMain.Jgbm + ",2,'" +
myTb.Rows[i]["inpatient_id"].ToString().Trim() + "'," + myTb.Rows[i]["baby_id"].ToString().Trim() +
",'" + InstanceForm.BCurrentDept.WardId + "'," + Convert.ToDecimal(myTb.Rows[i]["dept_br"].ToString().Trim()) + "," + Convert.ToDecimal(myTb.Rows[i]["dept_id"].ToString().Trim()) +
",3,getdate()," + iYZH.ToString() + "," + v_order_type1 + "," +
v_hoitem_id1 + ",'" + v_order_context1 + "'," + myTb.Rows[i]["采血管次数"] + ",1,'" + v_unit1 + "','',''," +
Convert.ToDecimal(myTb.Rows[i]["dept_br"].ToString().Trim()) + ", 1,2," +
InstanceForm.BCurrentUser.EmployeeId + ",getdate() ," + InstanceForm.BCurrentUser.EmployeeId + ",getdate(),0)";
InstanceForm.BDatabase.DoCommand(strSql);
}
}
InstanceForm.BDatabase.CommitTransaction();
}
catch (Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "保存静脉采血费用错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：将静脉采血相关费用插入临时账单错误，请手工生成静脉采血相关费用！\n系统：" + err.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop);
IsErr = true;
}
// database.Close();
}
if (IsErr == false)
{
MessageBox.Show("已经成功生成静脉采血相关费用临时账单！", "成功", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
this.Close();
}
//系统对账 月末结存
private void button1_Click(object sender, System.EventArgs e)
{
if (_menuTag.Function_Name.Trim() != "Fun_ts_yk_unymjz")
{
#region 系统对账
//系统对账
this.Text = "正在进行系统对账.....";
try
{
ParameterEx[] parameters = new ParameterEx[2];
parameters[0].Text = "@jsrq";
parameters[0].Value = dtp1.Value.ToString();
parameters[1].Text = "@deptid";
parameters[1].Value = InstanceForm.BCurrentDept.DeptId;
DataTable tb = InstanceForm.BDatabase.GetDataTable("SP_YK_XTDZ", parameters, 30);
tb.TableName = "myTb";
if (tb.Rows.Count > 0)
{
this.Close();
Frmxtdzmx f = new Frmxtdzmx(_menuTag, _chineseName, _mdiParent);
f.MdiParent = _mdiParent;
f.Show();
f.FillData(tb);
return;
}
if (_menuTag.Function_Name.Trim() == "Fun_ts_yk_xtdz")
{
MessageBox.Show("系统对帐完成");
this.Text = _chineseName.Trim();
this.Close();
return;
}
}
catch (System.Exception err)
{
MessageBox.Show("出错" + err.Message);
return;
}
#endregion
}
#region 取消上次月结
//取消上次月结
if (_menuTag.Function_Name.Trim() == "Fun_ts_yk_unymjz" && MessageBox.Show("您确定要取消 [" + txtbz.Text + "] 这次月结吗 ？", "询问窗", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.Yes)
{
this.Text = "正在取消上次月结.....";
try
{
int err_code = -1;
string err_text = "";
InstanceForm.BDatabase.BeginTransaction();
ParameterEx[] parameters = new ParameterEx[5];
parameters[0].Text = "@deptid";
parameters[0].Value = InstanceForm.BCurrentDept.DeptId;
parameters[1].Text = "@djsj";
parameters[1].Value = DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString();
parameters[2].Text = "@djy";
parameters[2].Value = InstanceForm.BCurrentUser.EmployeeId;
parameters[3].Text = "@err_code";
parameters[3].ParaDirection = ParameterDirection.Output;
parameters[3].DataType = System.Data.DbType.Int32;
parameters[3].ParaSize = 100;
parameters[4].Text = "@err_text";
parameters[4].ParaDirection = ParameterDirection.Output;
parameters[4].ParaSize = 100;
InstanceForm.BDatabase.DoCommand("sp_yk_UNymjc", parameters, 30);
err_code = Convert.ToInt32(parameters[3].Value);
err_text = Convert.ToString(parameters[4].Value);
if (err_code != 0)
{
throw new System.Exception(err_text);
}
InstanceForm.BDatabase.CommitTransaction();
this.Text = _chineseName.Trim();
#region 日志记录
string str_old = "";
str_old = InstanceForm.BCurrentUser.Name + "取消月结.上次月结时间是" + dtp1.Value.ToString() + " 到:" + dtp2.Value.ToString();
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "取消月结", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
#endregion
MessageBox.Show(err_text);
this.Close();
return;
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
this.butok.Enabled = true;
MessageBox.Show(err.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
#endregion
#region 月未结账
if (_menuTag.Function_Name.Trim() != "Fun_ts_yk_ymjz")
{
return;
}
//月未结帐
this.Text = "正在进行月未结帐.....";
try
{
if (dtp2.Value < dtp1.Value)
{
MessageBox.Show("月结止日期不能小于开始日期", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (dtp2.Value > DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase))
{
MessageBox.Show("月结止日期不能大于系统当前时间", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
this.butok.Enabled = false;
int err_code = -1;
string err_text = "";
InstanceForm.BDatabase.BeginTransaction();
string ssql = "select dept_id,name from jc_dept_property where dept_id in(select deptid from yp_yjks_gx where p_deptid=" + InstanceForm.BCurrentDept.DeptId + ")";
DataTable tb = InstanceForm.BDatabase.GetDataTable(ssql);
if (tb.Rows.Count == 0)
{
ssql = "select dept_id,name from jc_dept_property where dept_id=" + InstanceForm.BCurrentDept.DeptId + " ";
}
tb = InstanceForm.BDatabase.GetDataTable(ssql);
for (int xxx = 0; xxx <= tb.Rows.Count - 1; xxx++)
{
#region 执行月结
int _deptID = Convert.ToInt32(tb.Rows[xxx]["dept_id"]);
ParameterEx[] parameters = new ParameterEx[9];
parameters[0].Text = "@year";
parameters[0].Value = _year;
parameters[1].Text = "@month";
parameters[1].Value = _month;
parameters[2].Text = "@deptid";
parameters[2].Value = _deptID;
parameters[3].Text = "@ksrq";
parameters[3].Value = dtp1.Value.ToString();// dtp1.Value.ToShortDateString();
parameters[4].Text = "@jsrq";
parameters[4].Value = dtp2.Value.ToString();// dtp2.Value.ToShortDateString();
parameters[5].Text = "@djsj";
parameters[5].Value = DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString();
parameters[6].Text = "@djy";
parameters[6].Value = InstanceForm.BCurrentUser.EmployeeId;
parameters[7].Text = "@err_code";
parameters[7].ParaDirection = ParameterDirection.Output;
parameters[7].DataType = System.Data.DbType.Int32;
parameters[7].ParaSize = 100;
parameters[8].Text = "@err_text";
parameters[8].ParaDirection = ParameterDirection.Output;
parameters[8].ParaSize = 100;
InstanceForm.BDatabase.DoCommand("sp_Yk_ymjc", parameters, 30);
err_code = Convert.ToInt32(parameters[7].Value);
err_text = Convert.ToString(parameters[8].Value);
if (err_code != 0)
{
throw new System.Exception(err_text);
}
#endregion
}
InstanceForm.BDatabase.CommitTransaction();
YMJC ymjc = new YMJC(InstanceForm.BDatabase);
string message = "";
for (int xxx = 0; xxx <= tb.Rows.Count - 1; xxx++)
{
#region 生成月结中间表数据
int _deptID = Convert.ToInt32(tb.Rows[xxx]["dept_id"]);
string _name = tb.Rows[xxx]["name"].ToString().Trim();
if (ymjc.GenerateDetailData(_deptID, _year, _month, out message) == false)
{
MessageBox.Show(_name + "月结成功，但生成中间表数据失败，请联系管理员处理", "", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
#endregion
}
this.Text = _chineseName.Trim();
MessageBox.Show(err_text);
butok.Enabled = true;
this.Close();
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
this.butok.Enabled = true;
MessageBox.Show(err.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
#endregion
}
private void butusc_Click(object sender, EventArgs e)
{
#region 权限确认
try
{
string dlgvalue = DlgPW.Show();
string pwStr = dlgvalue; //YS.Password;
bool bOk = InstanceForm.BCurrentUser.CheckPassword(pwStr);
if (!bOk)
{
FrmMessageBox.Show("你没有通过权限确认！", new Font("宋体", 12f), Color.Red, "Sorry！", MessageBoxButtons.OK, MessageBoxIcon.Warning);
Cursor = Cursors.Default;
return;
}
}
catch (System.Exception err)
{
MessageBox.Show(err.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
#endregion
#region 如果是删除盘点帐存表
try
{
if (MessageBox.Show("删除 [" + InstanceForm.BCurrentDept.DeptName + "] 盘点帐存表的操作不可恢复，您确定要这样做吗？", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Warning) == DialogResult.No)
{
return;
}
DataTable tab = (DataTable)dataGridView1.DataSource;
InstanceForm.BDatabase.BeginTransaction();
for (int xxx = 0; xxx <= tab.Rows.Count - 1; xxx++)
{
//仓库id
int deptid = Convert.ToInt32(tab.Rows[xxx]["deptid"]);
string ssql = "select * from yf_pdcs where bdelete=0 and shbz=0 and deptid=" + deptid + "";
DataTable tb = InstanceForm.BDatabase.GetDataTable(ssql);
if (tb.Rows.Count != 0)
{
throw new Exception("盘点录入操作已经开始了,您现在不能取消帐存表数据");
}
ssql = "delete yf_pdtemp where shbz=0 and deptid=" + deptid + "";
int iii = InstanceForm.BDatabase.DoCommand(ssql);
//if (iii == 0) throw new Exception("没有可删除的帐存数据,可能还没有生成");
string str_old = "删除盘点帐存表";
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "删除盘点帐存表", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
}
InstanceForm.BDatabase.CommitTransaction();
MessageBox.Show("删除成功");
bool b = BegionPd();
return;
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
MessageBox.Show(err.ToString(), "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
#endregion
}
private void btnSave_Click(object sender, System.EventArgs e)
{
string msg;
int i_jobtime = 1;
DataTable myTb = new DataTable();
DataTable myTb1 = new DataTable();
try
{
switch (lblJobtime.Text)
{
case "白班":
i_jobtime = 1;
break;
case "晚班":
i_jobtime = 2;
break;
case "夜班":
i_jobtime = 3;
break;
}
if (rtbShow.Text.Trim() == "")
{
msg = MessageBox.Show(this, "特殊交班记录为空，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question).ToString();
if (msg.ToUpper() == "NO")
{
rtbShow.Focus();
return;
}
}
msg = MessageBox.Show(this, "交班记录一旦保存将不能修改，是否继续？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question).ToString();
if (msg.ToUpper() == "NO")
{
rtbShow.Focus();
return;
}
sqlStr = "select 1 from zy_wardjbjl where jb_date='" + DtpbeginDate.Value.Date + "' and ward_id='" + InstanceForm.BCurrentDept.WardId +
"' and jobtime=" + i_jobtime;
myTb1 = InstanceForm.BDatabase.GetDataTable(sqlStr);
if (myTb1.Rows.Count > 0)
{
MessageBox.Show("该时段的交班报告已经存在，请核对！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Stop);
this.Close();
return;
}
sqlStr = "INSERT INTO ZY_WARDJBJL(WARD_ID,JB_DATE,BOOK_USER,BOOK_DATE,JOBTIME,FORMERLY,GOOUT,TRANSOUT,DEATH," +
"COMEIN,TRANSIN,NOW,OPERATION,CHILDBIRTH,TERMINALLYILL,HEAVYILL,GOAWAY,SPECIALTEND,FIRSTTEND,JB_TEXT,jgbm) VALUES" +
"('" + InstanceForm.BCurrentDept.WardId + "','" + DtpbeginDate.Value.Date + "'," + InstanceForm.BCurrentUser.EmployeeId + ",getdate()," +
i_jobtime + "," + Convert.ToInt32(jbjlTb.Rows[0]["原有"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["出院"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["转出"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["死亡"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["入院"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["转入"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["现有"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["手术"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["分娩"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["病危"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["病重"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["外出"].ToString()) +
"," + Convert.ToInt32(jbjlTb.Rows[0]["特护"].ToString()) + "," + Convert.ToInt32(jbjlTb.Rows[0]["一级护理"].ToString()) +
",'" + rtbShow.Text + "'," + FrmMdiMain.Jgbm + ")";
InstanceForm.BDatabase.DoCommand(sqlStr);
sqlStr = "select id from ZY_WARDJBJL where book_user="******" and JB_DATE='" + DtpbeginDate.Value.Date + "'" +
" and jobtime=" + i_jobtime + " and ward_id='" + InstanceForm.BCurrentDept.WardId + "'";
myTb = InstanceForm.BDatabase.GetDataTable(sqlStr);
for (int i = 0; i < brdtTb.Rows.Count; i++)
{
sqlStr = "INSERT INTO ZY_WARDJBJL_BRDT(JB_ID,ITEM,BED_NO,NAME,DIAGNOSES,TIME,jgbm) VALUES (" + Convert.ToInt32(myTb.Rows[0]["id"].ToString()) + "," +
"'" + brdtTb.Rows[i]["项目"].ToString() + "','" + brdtTb.Rows[i]["床号"].ToString() + "','" + brdtTb.Rows[i]["姓名"].ToString() + "'," +
"'" + brdtTb.Rows[i]["诊断"].ToString() + "','" + brdtTb.Rows[i]["时间"].ToString() + "'," + FrmMdiMain.Jgbm + ")";
InstanceForm.BDatabase.DoCommand(sqlStr);
}
MessageBox.Show(this, "保存成功！", "保存", MessageBoxButtons.OK, MessageBoxIcon.Information);
this.Close();
}
catch (Exception err)
{
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "保存交班记录错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
//取消作废 Modify By zp 2013-11-14 如果办卡金额不为0 则需要收取办卡金额
private void toolStripMenuItem7_Click(object sender, EventArgs e)
{
if (dataGridView2.DataSource == null)
{
return;
}
if (dataGridView2.CurrentCell == null)
{
return;
}
Guid _kdjid = new Guid(dataGridView2[kdjid.Name, dataGridView2.CurrentCell.RowIndex].Value.ToString());
DataRow drKxx = InstanceForm.BDatabase.GetDataRow("select * from yy_kdjb where kdjid='" + _kdjid.ToString() + "'");
DataTable cfmxtb = new DataTable();
int sfxmid = 0;
if (_menuTag.Function_Name == "Fun_ts_mz_kgl_jhk_tf")
{
sfxmid = Convert.ToInt32(Convertor.IsNull(InstanceForm.BDatabase.GetDataResult("select sfxmid from jc_klx where klx=" + drKxx["klx"]), "0"));
cfmxtb = InstanceForm.BDatabase.GetDataTable("select * from JC_HSITEM where delete_bit=0 and item_id=" + sfxmid.ToString());
if (cfmxtb.Rows.Count != 1)
{
MessageBox.Show("收费项目错误,卡费用关联ID不止1个或者为空。", "提示");
return;
}
string Msg = "重新启用这张作废卡需要收取卡押金：" + Convert.ToDecimal(cfmxtb.Rows[0]["RETAIL_PRICE"]).ToString() + "元，确定要 [重新启用] 这张作废的卡吗?";
ts_mz_class.Frmtf f = new ts_mz_class.Frmtf(_menuTag, _chineseName, _mdiParent);
f.lblbz.Text = Msg;
f.ShowDialog();
if (f.Bok == false)
{
return;
}
}
else
{
if (MessageBox.Show("确定要 [重新启用] 这张作废的卡吗?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) == DialogResult.No)
{
return;
}
}
if (TrasenFrame.Classes.WorkStaticFun.CheckCurrentUserPassword() == true)
{
string djsj = DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString();
string bkje = "0";
FrmMdiMain.Database.BeginTransaction();
try
{
#region//Add by zp 2013-11-14 作废时候把办卡金额退给病人,启用卡后却没有收取办卡金额
if (_menuTag.Function_Name == "Fun_ts_mz_kgl_jhk_tf")
{
#region
bkje = drKxx["bkje"].ToString();
string ghsj = djsj;
Guid NewGhxxid = Guid.Empty;
int err_code = -1;
string err_text = "";
Guid brxxid = new Guid(Convertor.IsNull(drKxx["brxxid"], Guid.Empty.ToString()));
int ghlx = 1;
string mzh = Fun.GetNewMzh(InstanceForm.BDatabase);
int ghks = 0;
int ghys = 0;
int ghjb = 0;
string _ghck = "";
int _pdxh = 0;//排队序号
long Jgbm = TrasenFrame.Forms.FrmMdiMain.Jgbm;
long _dnlsh = Convert.ToInt64(Fun.GetNewDnlsh(InstanceForm.BDatabase));
int _zxksdm = Convert.ToInt32(_cfg1079.Config);
string _ksmc = _zxksdm != 0 ? Fun.SeekDeptName(_zxksdm, InstanceForm.BDatabase) : "";
//挂号登记
mz_ghxx.GhxxDj(Guid.Empty, brxxid, ghlx, _kdjid, mzh, ghks, ghys, ghjb, 0, InstanceForm.BCurrentUser.EmployeeId, 1, _ghck, ref _pdxh, _dnlsh, "0", Jgbm, out NewGhxxid, out err_code, out err_text, 0, 0, 0, "", "", "", 0, "", "", ghsj, InstanceForm.BDatabase);
if (NewGhxxid == Guid.Empty || err_code != 0)
{
throw new Exception(err_text);
}
//产生收费处方
Guid NewCfid = Guid.Empty;
mz_cf.SaveCf(Guid.Empty, brxxid, NewGhxxid, mzh, _ghck, Convert.ToDecimal(bkje), ghsj, InstanceForm.BCurrentUser.EmployeeId, InstanceForm.BCurrentUser.Name, _ghck, Guid.Empty, _zxksdm,
_ksmc, 0, "", 0, _zxksdm, _ksmc, 2, 0, 2, 0, 1, Jgbm, out NewCfid, out err_code, out err_text, InstanceForm.BDatabase);
if (err_code != 0)
{
throw new Exception(err_text);
}
//修改处方收费状态
int Nrows = 0;
mz_cf.UpdateCfsfzt(NewCfid, InstanceForm.BCurrentUser.EmployeeId, InstanceForm.BCurrentUser.Name, ghsj, "", _dnlsh, "0", out Nrows, out err_code, out err_text, InstanceForm.BDatabase);
if (Nrows != 1)
{
throw new Exception("在更新处方的收费状态时,没有更新到处方头表,请和管理员联系");
}
string _pym = Convertor.IsNull(cfmxtb.Rows[0]["py_code"], "");
string _bm = "";
string _pm = Convertor.IsNull(cfmxtb.Rows[0]["item_name"], "");
string _spm = Convertor.IsNull(cfmxtb.Rows[0]["item_name"], "");
string _gg = "";
string _cj = "";
decimal _dj = Convert.ToDecimal(Convertor.IsNull(cfmxtb.Rows[0]["RETAIL_PRICE"], "0"));
decimal _sl = 1;
string _tjdxmdm = Convertor.IsNull(cfmxtb.Rows[0]["statitem_code"], "");
string _dw = Convertor.IsNull(cfmxtb.Rows[0]["item_unit"], "");
Guid _NewCfmxid = Guid.Empty;
//产生处方明细
mz_cf.SaveCfmx(Guid.Empty, NewCfid, _pym, _bm, _pm, _spm, _gg, _cj, _dj, _sl, _dw, 0, 1, Convert.ToDecimal(bkje), _tjdxmdm, sfxmid, Guid.Empty, _bm, 0, 0,
Guid.Empty, 0, "", "", 0, 0, "", 0, 0, Guid.Empty, 0, 0, 0, out _NewCfmxid, out err_code, out err_text, InstanceForm.BDatabase);
if ((_NewCfmxid == Guid.Empty) || err_code != 0)
{
throw new Exception(err_text);
}
//保存收银信息
Guid NewJsid = Guid.Empty;
mz_sf.SaveJs(Guid.Empty, brxxid, NewGhxxid, ghsj, InstanceForm.BCurrentUser.EmployeeId, (Convert.ToDecimal(bkje)), 0, 0, 0, 0, 0, 0, 0, (Convert.ToDecimal(bkje)), 0, 0, 0, 0, 1, 0, TrasenFrame.Forms.FrmMdiMain.Jgbm, out NewJsid, out err_code, out err_text, InstanceForm.BDatabase);
if (NewJsid == Guid.Empty || err_code != 0)
{
throw new Exception(err_text);
}
//保存发票
Guid NewFpid = Guid.Empty;
mz_sf.SaveFp(Guid.Empty, brxxid, NewGhxxid, mzh, dataGridView2.CurrentRow.Cells["name"].Value.ToString(), ghsj, InstanceForm.BCurrentUser.EmployeeId, "", _dnlsh, "0",
Convert.ToDecimal(bkje), 0, 0, 0, 0, 0, 0, 0, Convert.ToDecimal(bkje), 0, 0, Guid.Empty, "", NewJsid, 2, _zxksdm, 0, 0, _zxksdm, 0, "", 0, _kdjid, Jgbm, Guid.Empty, "", out NewFpid, out err_code, out err_text, InstanceForm.BDatabase);
if (NewFpid == Guid.Empty || err_code != 0)
{
throw new Exception(err_text);
}
//产生发票明细费
mz_sf.SaveFpmx(NewFpid, _tjdxmdm, _spm, Convert.ToDecimal(bkje), 0, out err_code, out err_text, InstanceForm.BDatabase);
if (err_code != 0)
{
throw new Exception(err_text);
}
//产生发票大项目费
mz_sf.SaveFpdxmmx(NewFpid, _tjdxmdm, _spm, Convert.ToDecimal(bkje), 0, out err_code, out err_text, InstanceForm.BDatabase);
if (err_code != 0)
{
throw new Exception(err_text);
}
//取消挂号 并且修改发票
int i = InstanceForm.BDatabase.DoCommand("update mz_ghxx set byhbz=0,bqxghbz=1,qxghsj='" + ghsj + "',qxghczy=" + InstanceForm.BCurrentUser.EmployeeId + " where ghxxid='" + NewGhxxid + "' and bqxghbz=0 ");
if (i != 1)
{
throw new Exception("执行 DelRegisterRecord 方法时出错");
}
i = InstanceForm.BDatabase.DoCommand("update mz_fpb set bghpbz=2 where ghxxid='" + NewGhxxid + "' and bghpbz=2 ");
if (i != 1)
{
throw new Exception("执行 DelRegisterRecord 方法时出错");
}
#endregion
}
#endregion
string sql = "update yy_kdjb set sdbz=0,zfbz=0,zfsj=null,zfdjy=0 where klx=" + Convert.ToInt32(drKxx["klx"]) + " and kh='" + Convertor.IsNull(drKxx["kh"], "") + "' ";
int ret = InstanceForm.BDatabase.DoCommand(sql);
if (ret == 0)
{
throw new Exception("没有这张卡,请重新选择");
}
if (ret > 1)
{
throw new Exception("有" + ret.ToString() + "张卡号相同的有效卡存在,您不能重新启用");
}
sql = "update yy_brxx set bscbz=0 where brxxid='" + drKxx["brxxid"].ToString() + "'";
ret = InstanceForm.BDatabase.DoCommand(sql);
if (ret == 0)
{
throw new Exception("没有更新到和行");
}
string Contents = "卡号：" + drKxx["KH"].ToString().Trim() + ",卡登记ID：" + drKxx["KDJID"].ToString().Trim();
long OperatorID = FrmMdiMain.CurrentUser.EmployeeId;
string OperatorType = "重新启用作废卡";
int ModuleID = FrmMdiMain.CurrentSystem.SystemId;
int ErrLevel = 0;
string WorkStation = TrasenClasses.GeneralClasses.PubStaticFun.GetMacAddress();
int deptId = FrmMdiMain.CurrentDept.DeptId;
TrasenFrame.Classes.SystemLog log = new SystemLog(0, deptId, OperatorID, OperatorType, Contents, DateManager.ServerDateTimeByDBType(FrmMdiMain.Database)
, ErrLevel, WorkStation, ModuleID);
log.Save();
FrmMdiMain.Database.CommitTransaction();
MessageBox.Show("卡启用成功！");
}
catch (Exception err)
{
FrmMdiMain.Database.RollbackTransaction();
MessageBox.Show(err.Message, "", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
}
butcx_Click(sender, e);
}
public static void update_DeleteDj(ts_HospData_Share.ts_update_log ts, RelationalDatabase LocalDatabase)
{
string ssql = "";
string sql_insert = "";
string sql_update = "";
string sql_delete = "";
DataTable tb = null;
if (ts.Ymc.ToLower() != "yf_dj")
{
throw new Exception("源名称必须是Yf_DJ");
}
returnSql(LocalDatabase, ts.Ymc, ts.Ylm, ts.Yzj, out sql_insert, out sql_update, out sql_delete, out tb);
string sDate = DateManager.ServerDateTimeByDBType(LocalDatabase).ToString();
using (TransactionScope scope = new TransactionScope())
{
//目标服务器的链接
RelationalDatabase MB_DB = TrasenFrame.Classes.WorkStaticFun.GetJgbmDb(Convert.ToInt32(ts.MbjgbM));
//本地服务器的链接
RelationalDatabase BD_DB = TrasenFrame.Classes.WorkStaticFun.GetJgbmDb(Convert.ToInt32(ts.Djjgbm));
int err_code = -1;
string err_text = "";
int n = 0;
//删除目标单据
ssql = "select * from yf_dj where ydjid='" + ts.Yzj + "' and shbz=0 ";
DataTable tb_yfdj = MB_DB.GetDataTable(ssql);
if (tb_yfdj.Rows.Count > 0)
{
ssql = "delete from yf_djmx where djid in(select id from yf_dj where ydjid='" + ts.Yzj + "') ";
n = MB_DB.DoCommand(ssql);
ssql = "delete from yf_dj where ydjid='" + ts.Yzj + "' and shbz=0 ";
n = MB_DB.DoCommand(ssql);
if (n <= 0)
{
throw new Exception("删除目标单据时错误,可能已审核");
}
//删除本地单据
YpClass.YF_DJ_DJMX.UpdateKcDrt(new Guid(ts.Yzj), BD_DB);
YpClass.YF_DJ_DJMX.AddUpdateKcmx(new Guid(ts.Yzj), out err_code, out err_text, ts.Djjgbm, BD_DB);
if (err_code != 0)
{
throw new Exception(err_text);
}
YpClass.YF_DJ_DJMX.DeleteDj(new Guid(ts.Yzj), BD_DB);
SystemLog systemLog = new SystemLog(-1, 0, ts.Djy, "删除药房单据", "删除药房单据 YF_DJ.ID='" + ts.Yzj.ToString() + "'",
DateManager.ServerDateTimeByDBType(BD_DB), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
}
ssql = "select * from yk_dj where ydjid='" + ts.Yzj + "' and shbz=0 ";
DataTable tb_ykdj = MB_DB.GetDataTable(ssql);
if (tb_ykdj.Rows.Count > 0)
{
ssql = "delete from yk_djmx where djid in(select id from yk_dj where ydjid='" + ts.Yzj + "') ";
n = MB_DB.DoCommand(ssql);
ssql = "delete from yk_dj where ydjid='" + ts.Yzj + "' and shbz=0 ";
n = MB_DB.DoCommand(ssql);
if (n <= 0)
{
throw new Exception("删除目标单据时错误,可能已审核");
}
//删除本地单据
YpClass.YF_DJ_DJMX.UpdateKcDrt(new Guid(ts.Yzj), BD_DB);
YpClass.YF_DJ_DJMX.AddUpdateKcmx(new Guid(ts.Yzj), out err_code, out err_text, ts.Djjgbm, BD_DB);
if (err_code != 0)
{
throw new Exception(err_text);
}
YpClass.YF_DJ_DJMX.DeleteDj(new Guid(ts.Yzj), BD_DB);
SystemLog systemLog = new SystemLog(-1, 0, ts.Djy, "删除药房单据", "删除药房单据 YF_DJ.ID='" + ts.Yzj.ToString() + "'",
DateManager.ServerDateTimeByDBType(BD_DB), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
}
BD_DB.DoCommand("UPDATE ts_update_log set bwcbz=1,wcsj='" + sDate + "',wcczy=" + TrasenFrame.Forms.FrmMdiMain.CurrentUser.EmployeeId + " where id='" + ts.Id + "' and bwcbz=0");
scope.Complete();
}
}
private void btnCancel_Click(object sender, System.EventArgs e)
{
int nrow = myDataGrid1.CurrentCell.RowNumber;
DataTable tab = (DataTable)this.myDataGrid1.DataSource;
if (myDataGrid1[nrow, 0].ToString().Trim() != "药品" && myDataGrid1[nrow, 0].ToString().Trim() != "费用")
{
return;
}
//Modify By Tany 2010-06-08 是否使用密码确认 0=使用 1=不使用
if (new SystemCfg(7066).Config == "0")
{
frmInPassword f1 = new frmInPassword();
f1.ShowDialog();
if (f1.isLogin == false)
{
return;
}
}
if (!myFunc.IsHSZ(InstanceForm.BCurrentUser.EmployeeId))
{
MessageBox.Show("对不起，只有护士长能够取消费用和药品！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
string sSql = "";
if (Convert.ToDecimal(Convertor.IsNull(tab.Rows[nrow]["数量"], "0")) > 0)
{
//Modify By Tany 2015-03-20 只要有冲账，就不能取消
sSql = "select * from zy_fee_speci where cz_id='" + myDataGrid1[nrow, 9].ToString() + "' and discharge_bit=0 and delete_bit=0";//and charge_bit=0
DataTable tb = InstanceForm.BDatabase.GetDataTable(sSql);
if (tb.Rows.Count > 0)
{
MessageBox.Show("对不起，该记录已被冲正，请先取消相应的冲正记录，才能取消该记录！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
}
//Modify by jchl【校验该费用如果是检查或者检验 需要同步删除检查、检验申请】
string feeid = myDataGrid1[nrow, 9].ToString();
sSql = string.Format(@"select b.INPATIENT_ID,b.GROUP_ID,b.NTYPE from ZY_FEE_SPECI a
inner join ZY_ORDERRECORD b on a.ORDER_ID=b.ORDER_ID and b.DELETE_BIT=0
where a.ID='{0}' and a.DELETE_BIT=0", feeid);
DataTable dt = InstanceForm.BDatabase.GetDataTable(sSql);
if (dt.Rows.Count <= 0)
{
MessageBox.Show("该费用对应的医嘱不存在有效记录", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
InstanceForm.BDatabase.BeginTransaction();
try
{
string NTYPE = dt.Rows[0]["NTYPE"].ToString().Trim();
//医技特殊处理
if (NTYPE.Trim().Equals("5"))
{
//医技的取消需要同步删除zy_jy_print或zy_jc_apply
string InpId = dt.Rows[0]["INPATIENT_ID"].ToString().Trim();
string GrpId = dt.Rows[0]["GROUP_ID"].ToString().Trim();
sSql = string.Format(@"select COUNT(1) as num from ZY_JC_RECORD where INPATIENT_ID='{0}' and GROUP_ID='{1}' and DELETE_BIT=0", InpId, GrpId);
int iRet = Convert.ToInt32(InstanceForm.BDatabase.GetDataResult(sSql).ToString());
if (iRet > 0)
{
sSql = string.Format(@"update ZY_JC_RECORD set DELETE_BIT=1 where INPATIENT_ID='{0}' and GROUP_ID='{1}' and DELETE_BIT=0 ", InpId, GrpId);
InstanceForm.BDatabase.DoCommand(sSql);
}
else
{
//如果确定是检查 就不可能是检验了
sSql = string.Format(@"select COUNT(1) as num from zy_jy_print where INPATIENT_ID='{0}' and GROUP_ID='{1}' and DELETE_BIT=0", InpId, GrpId);
iRet = Convert.ToInt32(InstanceForm.BDatabase.GetDataResult(sSql).ToString());
if (iRet > 0)
{
sSql = string.Format(@"update zy_jy_print set DELETE_BIT=1 where INPATIENT_ID='{0}' and GROUP_ID='{1}' and DELETE_BIT=0 ", InpId, GrpId);
InstanceForm.BDatabase.DoCommand(sSql);
}
}
sSql = string.Format(@"update zy_fee_speci set delete_bit=1
from zy_fee_speci a inner join ZY_ORDERRECORD b on a.ORDER_ID=b.ORDER_ID and b.INPATIENT_ID='{0}' and b.GROUP_ID='{1}'
where a.DISCHARGE_BIT=0 and a.charge_bit=0", InpId, GrpId);
InstanceForm.BDatabase.DoCommand(sSql);
}
else
{
sSql = "update zy_fee_speci set delete_bit=1 where discharge_bit=0 and charge_bit=0 and id='" + myDataGrid1[nrow, 9].ToString() + "'";
InstanceForm.BDatabase.DoCommand(sSql);
}
InstanceForm.BDatabase.CommitTransaction();
}
catch (Exception ex)
{
InstanceForm.BDatabase.RollbackTransaction();
MessageBox.Show(ex.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
ShowData(_inpatinet_id, _baby_id);
return;
}
//写日志 Add By Tany 2005-10-08
SystemLog _systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "删除费用记录", "将 " + _inpatinet_id + " 病人的 ZY_FEE_SPECI.ID=" + myDataGrid1[nrow, 9].ToString().Trim() + " 的记录删除", DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
ShowData(_inpatinet_id, _baby_id);
MessageBox.Show("取消成功！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
private void btOK_Click(object sender, System.EventArgs e)
{
try
{
if (txtNewPwd.TextPass.Trim() != txtAffirmPwd.TextPass.Trim())
{
MessageBox.Show("新密码两次输入不一致！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
//2013-1-15 修改 使用公共的过程验证 空密码与密码长度
bool passwordlength = CheckPasswordLength(txtNewPwd.TextPass.Trim());
if (passwordlength == false)
{
return;
}
//SystemCfg cfgAllowEmptyPwd = new SystemCfg(16);
//SystemCfg cfgPwdMinLength = new SystemCfg(17);
//if (cfgAllowEmptyPwd.Config == "1" && txtNewPwd.TextPass.Trim() == "")
//{
// MessageBox.Show("系统设置不允许设置空密码,请重新设置您的密码", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
// return;
//}
//if (cfgAllowEmptyPwd.Config == "1")
//{
// int length = Convertor.IsInteger(cfgPwdMinLength.Config) ? Convert.ToInt32(cfgPwdMinLength.Config) : 0;
// if (txtNewPwd.TextPass.Trim().Length < length && length != 0)
// {
// MessageBox.Show("您设置的密码长度过短，系统要求密码长度不低于" + cfgPwdMinLength.Config + "位", "", MessageBoxButtons.OK, MessageBoxIcon.Error);
// return;
// }
//}
//不是emr传入用户，就是用FrmMdiMain.CurrentUser 2012-11-16 增加
if (UserPwdModify == null)
{
UserPwdModify = FrmMdiMain.CurrentUser;
}
#region // jianqg 2012-10月 emr-his框架整合 增加，增加 用户公用密码与私有密码 不能相同的判断
string SqlTmp = "select Public_pwd from dict_user_emr where EMPLOYEE_ID=" + UserPwdModify.EmployeeId.ToString();
DataTable dt_dict_user_emr = FrmMdiMain.Database.GetDataTable(SqlTmp);
if (dt_dict_user_emr.Rows.Count > 0)
{
string strPublicPwd = dt_dict_user_emr.Rows[0]["Public_pwd"].ToString();
if (Crypto.Instance().Decrypto(strPublicPwd) == txtNewPwd.TextPass.Trim())
{
//
MessageBox.Show("该用户新密码与电子病历中的公用密码相同，本次修改无效，请重新设置新密码！！！");
return;
}
}
#endregion
////更新数据库密码
//FrmMdiMain.CurrentUser.ChangePassword(txtOldPwd.TextPass.Trim(), txtNewPwd.TextPass.Trim());
////写入日志 Add By jianqg 2012-8-25
//SystemLog systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "修改用户密码", FrmMdiMain.CurrentUser.Name + " 修改【" + FrmMdiMain.CurrentUser.Name + "(EmployeeId：" + FrmMdiMain.CurrentUser.EmployeeId + ")】密码", DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 0, "主机名：" + System.Environment.MachineName, (int)SystemModule.系统公共参数);
// jianqg 2012-11-16 修改 使用UserPwdModify
//更新数据库密码
UserPwdModify.ChangePassword(txtOldPwd.TextPass.Trim(), txtNewPwd.TextPass.Trim());
//写入日志 Add By jianqg 2012-8-25
SystemLog systemLog = new SystemLog(-1, FrmMdiMain.CurrentDept.DeptId, FrmMdiMain.CurrentUser.EmployeeId, "修改用户密码", FrmMdiMain.CurrentUser.Name + " 修改【" + UserPwdModify.Name + "(EmployeeId：" + UserPwdModify.EmployeeId + ")】密码", DateManager.ServerDateTimeByDBType(FrmMdiMain.Database), 0, "主机名：" + System.Environment.MachineName, (int)SystemModule.系统公共参数);
systemLog.Save();
systemLog = null;
if (btnOk_Login == null)
{
MessageBox.Show("密码修改成功！重新启动程序后密码将生效！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else
{
btnOk_Login.Tag = "ok";//修改了密码
MessageBox.Show("密码修改成功！使用新密码登陆！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
allowCancel = true;
this.Close();
}
catch (Exception err)
{
MessageBox.Show(err.Message, "错误", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
}
private void btOK_Click(object sender, System.EventArgs e)
{
string sSql = "";
int i = 0;
string _outmsg = "";
sSql = @"select bed_id from zy_BedDiction " +
" where ward_id='" + InstanceForm.BCurrentDept.WardId + "'" +
" and rtrim(bed_no)='" + this.comboBox1.Text.Trim() + "'";
DataTable tempTab1 = InstanceForm.BDatabase.GetDataTable(sSql);
if (tempTab1.Rows.Count < 1)
{
return;
}
string OperType = "";
string OperContens = "";
if (isBC)
{
//床位有效性判断
//Add By Tany 2005-02-24
string isInuse = Convertor.IsNull(InstanceForm.BDatabase.GetDataResult("select isinuse from zy_beddiction where bed_id='" + tempTab1.Rows[0]["bed_id"].ToString() + "'"), "");
if (isInuse == "1")
{
MessageBox.Show("该张床位已经被停用，请退出后重新选择！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
//包床
if (MessageBox.Show(this, "确认包" + this.comboBox1.Text.Trim() + "号床吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
_outmsg = myFunc.ChangeBed("", 5, this.old_bed_id, new Guid(tempTab1.Rows[0]["bed_id"].ToString()), InstanceForm.BCurrentUser.EmployeeId, FrmMdiMain.Jgbm);
OperType = "包床";
OperContens = _outmsg + old_bed_id.ToString() + "床包" + this.comboBox1.Text.Trim() + "号床";
}
else
{
//取消包床
if (MessageBox.Show(this, "确认不包" + this.comboBox1.Text.Trim() + "号床吗？", "确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.No)
{
return;
}
_outmsg = myFunc.ChangeBed("", 6, this.old_bed_id, new Guid(tempTab1.Rows[0]["bed_id"].ToString()), InstanceForm.BCurrentUser.EmployeeId, FrmMdiMain.Jgbm);
OperType = "取消包床";
OperContens = _outmsg + old_bed_id.ToString() + "床不包" + this.comboBox1.Text.Trim() + "号床";
}
if (_outmsg.Trim() != "")
{
MessageBox.Show(_outmsg);
}
//写日志 Add By Tany 2005-01-12
SystemLog _systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, OperType, OperContens, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemLog.Save();
_systemLog = null;
this.Close();
}
private void Error(object sender, EventArgs e)
{
SessionContext sessionContext = null;
if (PersistenceContext.IsExisting)
{
if (PersistenceContext.SessionContext.IsDiagnosis)
{
string loginName = User.Current.LoginName;
StringBuilder stringBuilder = new StringBuilder();
stringBuilder.Append(loginName).Append(" ObjetkFrameworkWebAdapter ").Append("PersitentContextAutoFinish(Failure:Discard) ")
.Append(PersistenceContext.GetString());
diagnosis.Info(stringBuilder);
}
sessionContext = PersistenceContext.SessionContext;
if (!PersistenceContext.IsTransaction)
{
try
{
PersistenceContext.Discard();
}
catch (Exception exception)
{
log.Warn("未处理异常检查，自动结束（Discard）当前持久化上下文出错。", exception);
}
}
else
{
PersistenceContext.Discard();
}
}
string message = httpApplication.Server.GetLastError().Message;
string stackTrace = httpApplication.Server.GetLastError().StackTrace;
log.Error(message + stackTrace);
try
{
if (sessionContext == null)
{
sessionContext = new SessionContext("Web未处理异常", ObjektFactory.Find <User>("e2c4e2f4ecec4d6d8dce2fe6c831352e@User"));
}
if (!PersistenceContext.IsExisting)
{
PersistenceContext.BeginTransaction(sessionContext);
}
Objekt value = ObjektFactory.Find("3c757b8d46364133a2061a455394d640@Value");
Objekt value2 = ObjektFactory.Find("97dff0c8a32542bc8c28e5c10c9cc3c9@Value");
string value3 = $"{message}发生在{HttpContext.Current.Request.RawUrl},错误堆栈{stackTrace}";
SystemLog systemLog = new SystemLog();
systemLog.SetProperty("type", value);
systemLog.SetProperty("logType", value2);
systemLog.SetProperty("abstract", message);
systemLog.SetProperty("detail", value3);
systemLog.Save();
PersistenceContext.Accept();
}
catch
{
PersistenceContext.Discard();
}
}
private void InitView(int bit, int pxlx)//bit=0 图标 bit=1 床头卡 pxlx 0=床位号，1=病人姓名
{
string S_Data = "";
string sSql = "";
try
{
if (bit == 1)
{
int x = 9;
int y = 9;
//Modify by Tany 2005-02-24
//增加停用标志
this.panelBed.Controls.Clear();
if (Environment.OSVersion.Platform == PlatformID.Win32NT)
{
SetProcessWorkingSetSize(System.Diagnostics.Process.GetCurrentProcess().Handle, -1, -1);
}
stagArr = new string[BedTb.Rows.Count];
if (BedTb.Rows.Count == 0)
{
return;
}
for (int i = 0; i <= BedTb.Rows.Count - 1; i++)
{
Button bt = new Button();
bt.AllowDrop = true;
bt.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(217)), ((System.Byte)(227)), ((System.Byte)(236)));
bt.FlatStyle = System.Windows.Forms.FlatStyle.Popup;
bt.Font = new System.Drawing.Font("宋体", 9F, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, ((System.Byte)(134)));
bt.Size = new System.Drawing.Size(120, 185 + 30);//80,105
bt.TextAlign = System.Drawing.ContentAlignment.TopLeft;
bt.Location = new System.Drawing.Point(x, y);
bt.Click += new EventHandler(bt_Click);
string ypfy = BedTb.Rows[i]["ypfy"].ToString();
string ypbl = " ";
try
{
if (BedTb.Rows[i]["inpatient_id"].ToString().Trim() != "" && BedTb.Rows[i]["zfy"].ToString().Trim() != "0")
{
ypbl = (Convert.ToDecimal(Convert.ToDouble(BedTb.Rows[i]["ypfy"].ToString()) * 100 / Convert.ToDouble(BedTb.Rows[i]["zfy"].ToString()))).ToString("0.00") + "%";
}
else
{
ypbl = "0%";
}
}
catch {
// MessageBox.Show(BedTb.Rows[i]["ypfy"].ToString() + " :" + BedTb.Rows[i]["zfy"].ToString());
}
bt.Name = "bt" + i.ToString() + "," + BedTb.Rows[i]["WARD_NAME"].ToString() + "," + BedTb.Rows[i]["OUT_DATE"].ToString() + ","
+ BedTb.Rows[i]["OUT_DIAGNOSIS"].ToString() + "," + BedTb.Rows[i]["zfy"].ToString() + "," + BedTb.Rows[i]["ye"].ToString()
+ "," + BedTb.Rows[i]["ryts"].ToString() + "," + "(" + BedTb.Rows[i]["BF_NO"].ToString().Trim() + "床 )"
+ "," + ypfy.ToString() + "," + ypbl + "," + BedTb.Rows[i]["inpatient_id"].ToString();
bt.Paint += new System.Windows.Forms.PaintEventHandler(button_Paint);
//bt.Click += new EventHandler(bt_Click);
// bt.DoubleClick += new EventHandler(bt_DoubleClick);
// bt.MouseDown += new MouseEventHandler(bt_MouseDown);
// bt.MouseHover += new EventHandler(bt_Click);
if (x + 249 >= this.panelBed.Width)
{
y = y + 114 + 80 + 30;
x = this.panelBed.Location.X + 9 - 3;
}
else
{
x = x + 129;
}
int ll = 0;
//床号10位
if (BedTb.Rows[i]["bed_no"].ToString().Trim().Length <= 10)
{
ll = 10 - BedTb.Rows[i]["bed_no"].ToString().Trim().Length;
bt.Tag = BedTb.Rows[i]["bed_no"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["bed_no"].ToString().Trim().Substring(0, 10);
}
//姓名6位
if (BedTb.Rows[i]["name"].ToString().Trim().Length <= 6)
{
ll = 6 - BedTb.Rows[i]["name"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["name"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["name"].ToString().Trim().Substring(0, 6);
}
//性别2位
if (BedTb.Rows[i]["sex_name"].ToString().Trim().Length <= 2)
{
ll = 2 - BedTb.Rows[i]["sex_name"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["sex_name"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["sex_name"].ToString().Trim().Substring(0, 2);
}
//年龄3位
if (BedTb.Rows[i]["age"].ToString().Trim().Length <= 3)
{
ll = 3 - BedTb.Rows[i]["age"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["age"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["age"].ToString().Trim().Substring(0, 3);
}
//费用类别6位
if (BedTb.Rows[i]["jsfs_name"].ToString().Trim().Length <= 6)
{
ll = 6 - BedTb.Rows[i]["jsfs_name"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["jsfs_name"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["jsfs_name"].ToString().Trim().Substring(0, 6);
}
//住院号10位
if (BedTb.Rows[i]["inpatient_no"].ToString().Trim().Length <= 10)
{
ll = 10 - BedTb.Rows[i]["inpatient_no"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["inpatient_no"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["inpatient_no"].ToString().Trim().Substring(0, 10);
}
//病情10位
string s_bq = "";
if (BedTb.Rows[i]["order_bw"].ToString() != "0" && BedTb.Rows[i]["order_bw"].ToString() != "" && BedTb.Rows[i]["inpatient_no"].ToString() != "")
{
s_bq = s_bq + "*" + "病危";
}
if (BedTb.Rows[i]["order_bz"].ToString() != "0" && BedTb.Rows[i]["order_bz"].ToString() != "" && BedTb.Rows[i]["inpatient_no"].ToString() != "")
{
s_bq = s_bq + "△" + "病重";
}
if (s_bq.Length <= 10)
{
ll = 10 - s_bq.Length;
bt.Tag = bt.Tag + s_bq + Space(ll);
}
else
{
bt.Tag = bt.Tag += BedTb.Rows[i]["inpatient_no"].ToString().Trim().Substring(0, 10);
}
//护理10位
string s_hl = "";
switch (BedTb.Rows[i]["TENDLEVEL"].ToString())
{
case "4":
s_hl = "特级护理";
break;
case "3":
s_hl = "一级护理";
break;
case "2":
s_hl = "二级护理";
break;
case "1":
s_hl = "三级护理";
break;
}
if (s_hl.Length <= 10)
{
ll = 10 - s_hl.Length;
bt.Tag = bt.Tag + s_hl + Space(ll);
}
else
{
//bt.Tag = bt.Tag + BedTb.Rows[i]["in_diagnosis"].ToString().Trim().Substring(0, 10);
//Modify by Tany 2010-03-17 入院诊断名称
bt.Tag = bt.Tag + BedTb.Rows[i]["ryzd"].ToString().Trim().Substring(0, 10);
}
//诊断10位
if (BedTb.Rows[i]["ryzd"].ToString().Trim().Length <= 10)
{
ll = 10 - BedTb.Rows[i]["ryzd"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["ryzd"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["ryzd"].ToString().Trim().Substring(0, 10);
}
//入院时间10位
if (BedTb.Rows[i]["in_date"].ToString().Trim().Length <= 10)
{
ll = 10 - BedTb.Rows[i]["in_date"].ToString().Trim().Length;
bt.Tag = bt.Tag + BedTb.Rows[i]["in_date"].ToString().Trim() + Space(ll);
}
else
{
bt.Tag = bt.Tag + BedTb.Rows[i]["in_date"].ToString().Trim().Substring(0, 10);
}
//母婴同室6位
string s_myts = "";
if (BedTb.Rows[i]["ismyts"].ToString() == "1")
{
s_myts = "(母婴同室)";
}
else
{
s_myts = Space(6);
}
bt.Tag = bt.Tag + s_myts;
//包房3位
string s_bf = "";
if (BedTb.Rows[i]["isbf"].ToString() == "1")
{
s_bf = "(包)";
}
else
{
s_bf = Space(3);
}
bt.Tag = bt.Tag + s_bf;
//出院状态6位
string s_cy = "";
if (BedTb.Rows[i]["FLAG"].ToString() == "4")
{
s_cy = "(申请出院)";
}
else
{
s_cy = Space(6);
}
bt.Tag = bt.Tag + s_cy;
if (BedTb.Rows[i]["inpatient_id"].ToString().Trim() == "" || BedTb.Rows[i]["inpatient_no"].ToString().Trim() == "")
{
bt.TabIndex = 0;
bt.BackColor = System.Drawing.Color.WhiteSmoke; //System.Drawing.Color.FromArgb(((System.Byte)(217)), ((System.Byte)(227)), ((System.Byte)(236)));
if (BedTb.Rows[i]["IsQj"].ToString().Trim() == "1")
{
bt.BackColor = System.Drawing.Color.Red;
}
if (BedTb.Rows[i]["ISPLUS"].ToString().Trim() == "1")
{
bt.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(152)), ((System.Byte)(251)), ((System.Byte)(152)));
}
}
else
{
if (BedTb.Rows[i]["IsQj"].ToString().Trim() == "1")
{
bt.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(160)), ((System.Byte)(122)));
}
if (BedTb.Rows[i]["ISPLUS"].ToString().Trim() == "1")
{
bt.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(255)), ((System.Byte)(255)));
}
if (this.maskedTextBox1.Text.Trim() != "")
{
if (Convert.ToDecimal(BedTb.Rows[i]["zfy"].ToString()) >= Convert.ToDecimal(this.maskedTextBox1.Text.Trim()))
{
bt.BackColor = System.Drawing.Color.Gold;
}
}
int m = 0; //护理级别
int n = 0; //图片位置
int _type = 0; //类型
if (BedTb.Rows[i]["FLAG"].ToString() == "4") //申请出院
{
//死亡
if (Convert.ToInt32(BedTb.Rows[i]["OUT_MODE"]) == 4)
{
_type = 1;
}
else
{
_type = 2;
}
n = GetBedImgNO(BedTb.Rows[i]["SEX_NAME"].ToString().Trim(), Convert.ToInt32(BedTb.Rows[i]["AGE"]), _type, Convert.ToInt32(BedTb.Rows[i]["ISMYTS"]));
bt.TabIndex = n;
}
else
{
m = (Convert.ToString(BedTb.Rows[i]["TENDLEVEL"]).Trim() == "" ? 0 : Convert.ToInt32(BedTb.Rows[i]["TENDLEVEL"])); // 护理级别
switch (m)
{
case 0: //普通
_type = 0;
break;
case 1: //三级
_type = 5;
break;
case 2: //二级
_type = 4;
break;
case 3: //一级
_type = 3;
break;
case 4: //特级
_type = 6;
break;
default:
_type = 0;
break;
}
n = GetBedImgNO(BedTb.Rows[i]["SEX_NAME"].ToString().Trim(), Convert.ToInt32(BedTb.Rows[i]["AGE"]), _type, Convert.ToInt32(BedTb.Rows[i]["ISMYTS"]));
bt.TabIndex = n;
}
}
this.toolTip1.SetToolTip(bt, "床 号：" + bt.Tag.ToString().Substring(0, 10).Trim() +
bt.Tag.ToString().Substring(77, 6).Trim() + bt.Tag.ToString().Substring(83, 3).Trim() + bt.Tag.ToString().Substring(86, 6).Trim() + "\n" +
"姓 名：" + bt.Tag.ToString().Substring(10, 6) + "\n" +
"性 别：" + bt.Tag.ToString().Substring(16, 2) + "\n" +
"年 龄：" + bt.Tag.ToString().Substring(18, 3) + "\n" +
"费用类别：" + bt.Tag.ToString().Substring(21, 6) + "\n" +
"住 院 号：" + bt.Tag.ToString().Substring(27, 10) + "\n" +
"病 情：" + bt.Tag.ToString().Substring(37, 10) + "\n" +
"护理级别：" + bt.Tag.ToString().Substring(47, 10) + "\n" +
"入院诊断：" + bt.Tag.ToString().Substring(57, 10) + "\n" +
"入院日期：" + bt.Tag.ToString().Substring(67, 10));
stagArr[i] = BedTb.Rows[i]["stag"].ToString();
this.panelBed.Controls.Add(bt);
}
}
// rtbMsg.Text = ShowMsgText();
}
catch (Exception err)
{
//写错误日志 Add By Tany 2005-01-12
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
// PostMessage(this.listView1.Handle.ToInt32(), 0x020A, 0, 0);
}
private void button1_Click(object sender, System.EventArgs e)
{
if (Yp.是否药库(InstanceForm.BCurrentDept.DeptId, InstanceForm.BDatabase) == true)
{
MessageBox.Show("您现在进入的是药房系统，请核实您当前登陆的科室是否正确", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
#region 先上传发药明细
butsc_Click(sender, e);
#endregion
string stext = "";
if (_menuTag.Function_Name.Trim() != "Fun_ts_yf_unymjz")
{
#region 系统对账
//系统对账
this.Text = "正在进行系统对账.....";
try
{
this.Cursor = PubStaticFun.WaitCursor();
ParameterEx[] parameters = new ParameterEx[2];
parameters[0].Text = "@jsrq";
parameters[1].Text = "@deptid";
parameters[0].Value = dtp1.Value.ToString();// dtp1.Value.ToShortDateString();
parameters[1].Value = InstanceForm.BCurrentDept.DeptId;
DataTable tb = InstanceForm.BDatabase.GetDataTable("SP_YF_XTDZ", parameters, 60);
tb.TableName = "myTb";
if (tb.Rows.Count > 0)
{
this.Close();
Frmxtdzmx f = new Frmxtdzmx(_menuTag, _chineseName, _mdiParent);
f.MdiParent = _mdiParent;
f.Show();
f.FillData(tb);
return;
}
if (_menuTag.Function_Name.Trim() == "Fun_ts_yf_xtdz")
{
MessageBox.Show("系统对帐完成");
this.Text = stext;
this.Close();
return;
}
}
catch (System.Exception err)
{
MessageBox.Show("出错" + err.Message);
return;
}
finally
{
this.Cursor = Cursors.Arrow;
}
#endregion
}
#region 取消上次月结
//取消上次月结
if (_menuTag.Function_Name.Trim() == "Fun_ts_yf_unymjz" &&
MessageBox.Show("您确定要取消 [" + txtbz.Text + "] 这次月结吗 ？", "询问窗", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) == DialogResult.Yes)
{
this.Cursor = PubStaticFun.WaitCursor();
this.Text = "正在取消上次月结.....";
try
{
int err_code = -1;
string err_text = "";
InstanceForm.BDatabase.BeginTransaction();
ParameterEx[] parameters = new ParameterEx[5];
parameters[0].Text = "@deptid";
parameters[0].Value = InstanceForm.BCurrentDept.DeptId;
parameters[1].Text = "@djsj";
parameters[1].Value = DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString();
parameters[2].Text = "@djy";
parameters[2].Value = InstanceForm.BCurrentUser.EmployeeId;
parameters[3].Text = "@err_code";
parameters[3].ParaDirection = ParameterDirection.Output;
parameters[3].DataType = System.Data.DbType.Int32;
parameters[3].ParaSize = 100;
parameters[4].Text = "@err_text";
parameters[4].ParaDirection = ParameterDirection.Output;
parameters[4].ParaSize = 100;
InstanceForm.BDatabase.DoCommand("sp_Yf_unymjc", parameters, 60);
err_code = Convert.ToInt32(parameters[3].Value);
err_text = Convert.ToString(parameters[4].Value);
if (err_code != 0)
{
throw new Exception(err_text);
}
InstanceForm.BDatabase.CommitTransaction();
this.Text = stext;
#region 日志记录
string str_old = "";
str_old = InstanceForm.BCurrentUser.Name + "取消月结.上次月结时间是" + dtp1.Value.ToString() + " 到:" + dtp2.Value.ToString();
SystemLog systemLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "取消月结", str_old, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 0, "主机名：" + System.Environment.MachineName, 8);
systemLog.Save();
systemLog = null;
#endregion
MessageBox.Show(err_text);
this.Close();
return;
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
this.butok.Enabled = true;
MessageBox.Show(err.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
}
finally
{
this.Cursor = Cursors.Arrow;
}
}
#endregion
#region 月未结账
if (_menuTag.Function_Name.Trim() != "Fun_ts_yf_ymjz")
{
return;
}
//月未结帐
this.Text = "正在进行月未结帐.....";
try
{
if (dtp2.Value < dtp1.Value)
{
MessageBox.Show("月结止日期不能小于开始日期", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
if (dtp2.Value > DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase))
{
MessageBox.Show("月结止日期不能大于系统当前时间", "提示", MessageBoxButtons.OK, MessageBoxIcon.Error);
return;
}
butok.Enabled = false;
this.Cursor = PubStaticFun.WaitCursor();
int err_code = -1;
string err_text = "";
InstanceForm.BDatabase.BeginTransaction();
ParameterEx[] parameters = new ParameterEx[9];
parameters[0].Text = "@year";
parameters[0].Value = _year;
parameters[1].Text = "@month";
parameters[1].Value = _month;
parameters[2].Text = "@deptid";
parameters[2].Value = InstanceForm.BCurrentDept.DeptId;
parameters[3].Text = "@ksrq";
parameters[3].Value = dtp1.Value.ToString();//dtp1.Value.ToShortDateString();;
parameters[4].Text = "@jsrq";
parameters[4].Value = dtp2.Value.ToString(); //dtp2.Value.ToShortDateString();
parameters[5].Text = "@djsj";
parameters[5].Value = DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString();
parameters[6].Text = "@djy";
parameters[6].Value = InstanceForm.BCurrentUser.EmployeeId;
parameters[7].Text = "@err_code";
parameters[7].ParaDirection = ParameterDirection.Output;
parameters[7].DataType = System.Data.DbType.Int32;
parameters[7].ParaSize = 100;
parameters[8].Text = "@err_text";
parameters[8].ParaDirection = ParameterDirection.Output;
parameters[8].ParaSize = 100;
InstanceForm.BDatabase.DoCommand("sp_YF_ymjc", parameters, 60);
err_code = Convert.ToInt32(parameters[7].Value);
err_text = Convert.ToString(parameters[8].Value);
if (err_code != 0)
{
throw new System.Exception(err_text);
}
InstanceForm.BDatabase.CommitTransaction();
YMJC ymjc = new YMJC(InstanceForm.BDatabase);
string message = "";
bool bOk = ymjc.GenerateDetailData(InstanceForm.BCurrentDept.DeptId, _year, _month, out message);
if (!bOk)
{
this.Text = stext;
MessageBox.Show("月结成功，但生成中间表数据失败，请联系管理员处理", "", MessageBoxButtons.OK, MessageBoxIcon.Warning);
butok.Enabled = true;
this.Close();
return;
}
this.Text = stext;
MessageBox.Show(err_text);
butok.Enabled = true;
this.Close();
}
catch (System.Exception err)
{
InstanceForm.BDatabase.RollbackTransaction();
this.butok.Enabled = true;
MessageBox.Show(err.Message, "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
finally
{
this.Cursor = Cursors.Arrow;
}
#endregion
}
private void buttzx_Click(object sender, EventArgs e)
{
bool _qfExeCurDeptOrder = false;//欠费是否能够发送本科室医嘱
if (ClassStatic.Current_BinID == null || ClassStatic.Current_BinID == Guid.Empty)
{
MessageBox.Show("没有找到病人信息，请重新确认！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
decimal _orderfee = 0;
int GroupID = -999;
int iMNGType = 0;
int iSelectRows = 0;
DataTable myTb = (DataTable)myDataGrid1.DataSource;
DateTime ExecDate = Convert.ToDateTime(Convertor.IsNull(((Button)sender).Tag, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase).ToString()));
#region 效性判断
for (int i = 0; i <= myTb.Rows.Count - 1; i++)
{
if (myTb.Rows[i]["选"].ToString() == "True")
{
iSelectRows += 1;
}
}
if (iSelectRows == 0)
{
MessageBox.Show(this, "对不起，没有选择医嘱！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning);
return;
}
#endregion
iMNGType = GetMNGType();
progressBar1.Maximum = myTb.Rows.Count;
progressBar1.Value = 0;
for (int i = 0; i <= myTb.Rows.Count - 1; i++)
{
//如果是选择发送
if (myTb.Rows[i]["选"].ToString() == "True")
{
//如果组号与上一条医嘱相同，则不执行
if (GroupID == Convert.ToInt32(myTb.Rows[i]["Group_ID"]))
{
if (_orderfee > 0)
{
myTb.Rows[i]["选"] = false;
}
continue;
}
GroupID = Convert.ToInt32(myTb.Rows[i]["Group_ID"]);
_orderfee = myFunc.GetOrderFee(ClassStatic.Current_BinID, ClassStatic.Current_BabyID, iMNGType, GroupID, ExecDate, ExecDate);
progressBar1.Value += 1;
if (_orderfee > 0)
{
myTb.Rows[i]["选"] = false;
}
}
}
try
{
string[] rtnSql = ts_zyhs_classes.BaseFunc.GetBrzt(ClassStatic.Current_BinID);
int BrJgbm = Convert.ToInt32(rtnSql[1]);
//发送
myFunc.ExecOrdersWithData(this.myDataGrid1, iMNGType, 1, this.progressBar1, ClassStatic.Current_BinID, Convert.ToInt64(ClassStatic.Current_BabyID), ExecDate, ExecDate, _qfExeCurDeptOrder, BrJgbm);
//myFunc.ExecOrdersWithData(this.myDataGrid1, 2, 1, this.progressBar1, ClassStatic.Current_BinID, Convert.ToInt64(ClassStatic.Current_BabyID), ExecDate, ExecDate, _qfExeCurDeptOrder, BrJgbm);
MessageBox.Show("发送完毕！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information);
//刷新界面
this.tabControl1_SelectedIndexChanged(sender, e);
}
catch (Exception err)
{
SystemLog _systemErrLog = new SystemLog(-1, InstanceForm.BCurrentDept.DeptId, InstanceForm.BCurrentUser.EmployeeId, "程序错误", "医嘱执行错误：" + err.Message + " Source：" + err.Source, DateManager.ServerDateTimeByDBType(InstanceForm.BDatabase), 1, "主机名：" + System.Environment.MachineName, 39);
_systemErrLog.Save();
_systemErrLog = null;
MessageBox.Show("错误：" + err.Message + "\n" + "Source：" + err.Source + "\n\n数据已经回滚，请检查后重新执行！", "错误", MessageBoxButtons.OK, MessageBoxIcon.Error);
progressBar1.Value = 0;
return;
}
}