private void butOk_Click(object sender, System.EventArgs e)
{
if (!kiemtra())
{
return;
}
s_mmyy = mm.Value.ToString().PadLeft(2, '0') + yyyy.Value.ToString().PadLeft(4, '0').Substring(2, 2);
if (!d.bMmyy(s_mmyy))
{
MessageBox.Show(lan.Change_language_MessageText("Số liệu ") + nhom.Text + lan.Change_language_MessageText(" tháng ") + mm.Value.ToString() + "/" + yyyy.Value.ToString() + lan.Change_language_MessageText(" chưa tạo !"), LibMedi.AccessData.Msg);
mm.Focus();
return;
}
i_nhom = int.Parse(nhom.SelectedValue.ToString());
Cursor = Cursors.WaitCursor;
s_manguon = d.get_data("select nguon from " + user + ".d_dmphieu where id=" + i_loai).Tables[0].Rows[0][0].ToString();
s_makp = ""; s_makho = "";
s_ngay = ngay.Text.Substring(0, 10);
s_tenkp = makp.Text;
s_phieu = phieu.Text;
s_tennhom = nhom.Text;
i_somay = 1;
i_buoi = 0;
i_makp = int.Parse(makp.SelectedValue.ToString());
if (i_loai == 2)
{
i_macstt = int.Parse(matutruc.SelectedValue.ToString());
}
else
{
i_macstt = 0;
}
i_phieu = int.Parse(phieu.SelectedValue.ToString());
r = d.getrowbyid(dtmakp, "id=" + i_makp);
if (r != null)
{
s_makp = r["makp"].ToString();
DataRow r1 = m.getrowbyid(dtkp, "loai=1 and makp='" + s_makp + "'");
if (r1 != null)
{
s_makp = "";
}
i_somay = int.Parse(r["somay"].ToString());
}
for (int i = 0; i < makho.Items.Count; i++)
{
s_makho += dtkho.Rows[i]["id"].ToString() + ",";
}
dt = d.get_data("select a.id,a.makp,b.ten from " + user + s_mmyy + ".d_duyet a," + user + ".d_duockp b where a.makp=b.id and a.nhom=" + i_nhom + " and to_char(a.ngay,'dd/mm/yyyy')='" + ((s_ngay.Length > 10)?s_ngay.Substring(0, 10):s_ngay) + "'" + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu + " and a.makhoa=" + i_makp).Tables[0];
if (dt.Rows.Count != 0)
{
l_duyet = long.Parse(dt.Rows[0][0].ToString());
if (i_loai == 2 && int.Parse(dt.Rows[0]["makp"].ToString()) != int.Parse(matutruc.SelectedValue.ToString()))
{
MessageBox.Show(lan.Change_language_MessageText("Khoa :") + " " + makp.Text + lan.Change_language_MessageText(" ngày : ") + " " + ngay.Text.Substring(0, 10) + " " + lan.Change_language_MessageText("phiếu : ") + " " + phieu.Text + "\n" + lan.Change_language_MessageText("đã chọn tủ trực :") + " " + dt.Rows[0]["ten"].ToString(), LibMedi.AccessData.Msg);
matutruc.SelectedValue = dt.Rows[0]["makp"].ToString();
matutruc.Focus();
return;
}
}
else
{
l_duyet = 0;
}
if (i_benhnhan == 0 && s_makp == "")
{
s_makp = "xx";
}
r = d.getrowbyid(dtphieu, "id=" + i_phieu);
if (r != null)
{
i_buoi = int.Parse(r["buoi"].ToString());
}
if (d.bKiemtra_duyet(i_nhom))
{
d.upd_tonkho(s_mmyy, i_nhom, 0);
}
Cursor = Cursors.Default;
string ngayt = m.DateToString("dd/MM/yyyy", m.StringToDate("01/" + mm.Value.ToString().PadLeft(2, '0') + "/" + yyyy.Value.ToString().PadLeft(4, '0')).AddMonths(-1));
string mmyyt = m.mmyy(ngayt);
if (i_loai == 2)
{
if (d.bMmyy(mmyyt))
{
sql = "select a.* from " + user + mmyyt + ".d_xtutrucll a," + user + mmyyt + ".d_duyet b ";
sql += " where a.idduyet=b.id ";
sql += " and nhom=" + i_nhom + " and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and loai=" + i_loai + " and phieu=" + i_phieu + " and makhoa=" + i_makp;
if (d.get_data(sql).Tables[0].Rows.Count > 0)
{
MessageBox.Show(lan.Change_language_MessageText("Đã nhập trong tháng") + " " + mmyyt.Substring(0, 2) + lan.Change_language_MessageText(" năm 20") + mmyyt.Substring(2, 2), LibMedi.AccessData.Msg);
mm.Value = decimal.Parse(mmyyt.Substring(0, 2));
yyyy.Value = decimal.Parse("20" + mmyyt.Substring(2, 2));
mm.Focus();
return;
}
}
}
else if (i_loai == 1)
{
if (d.bMmyy(mmyyt))
{
sql = "select a.* from " + user + mmyyt + ".d_dutrull a," + user + mmyyt + ".d_duyet b ";
sql += " where a.idduyet=b.id ";
sql += " and nhom=" + i_nhom + " and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and loai=" + i_loai + " and phieu=" + i_phieu + " and makhoa=" + i_makp;
if (d.get_data(sql).Tables[0].Rows.Count > 0)
{
MessageBox.Show(lan.Change_language_MessageText("Đã nhập trong tháng") + " " + mmyyt.Substring(0, 2) + " " + lan.Change_language_MessageText("năm 20") + mmyyt.Substring(2, 2), LibMedi.AccessData.Msg);
mm.Value = decimal.Parse(mmyyt.Substring(0, 2));
yyyy.Value = decimal.Parse("20" + mmyyt.Substring(2, 2));
mm.Focus();
return;
}
}
}
this.Close();
}
private void butOk_Click(object sender, System.EventArgs e)
{
bOk = true;
bool bChieu_sang = m.bChieu_sang;
if (bChieu_sang)
{
DataRow r1, r2;
r2 = d.getrowbyid(dtphieu, "id=" + int.Parse(phieu.SelectedValue.ToString()));
if (r2 != null)
{
if (r2["buoi"].ToString() == "0")
{
r1 = d.getrowbyid(dtkp, "id=" + int.Parse(makp.SelectedValue.ToString()));
if (r1 != null)
{
if (d.get_ttngay(s_ngay, r1["makp"].ToString()))
{
MessageBox.Show(lan.Change_language_MessageText("Ngày") + " " + s_ngay + " " + lan.Change_language_MessageText("viện phí đã in danh sách thu tiền") + "\n" + lan.Change_language_MessageText("Yêu cầu chọn phiếu buổi chiều !"), d.Msg);
return;
}
}
}
}
}
if (makp.SelectedIndex == -1 || phieu.SelectedIndex == -1)
{
if (makp.SelectedIndex == -1)
{
makp.Focus();
}
else
{
phieu.Focus();
}
return;
}
i_makp = int.Parse(makp.SelectedValue.ToString());
i_phieu = int.Parse(phieu.SelectedValue.ToString());
DataTable tmp = d.get_data("select * from " + xxx + ".d_daduyet where nhom=" + i_nhom + " and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "' and makp=" + i_makp + " and loai=" + i_loai + " and phieu=" + i_phieu + " and makp=" + i_makp).Tables[0];
if (tmp.Select("done=1").Length > 0)
{
MessageBox.Show(lan.Change_language_MessageText("Phiếu này đã đánh dấu phát") + "\n" + lan.Change_language_MessageText("Không cho phép hủy ?"), d.Msg);
makp.Focus();
return;
}
try
{
bDuyettreole = tmp.Select("duyettreole=1").Length > 0;
}
catch { bDuyettreole = false; }
string tenfile = (i_loai == 2 || bBuhaophi)?"d_bucstt":"d_xuatsdct";
sql = "select distinct a.mabn,a.maql";
if (!bIntheocstt)
{
sql += ",a.makhoa";
}
sql += ",b.mabd";
sql += " from " + xxx + ".d_xuatsdll a," + xxx + "." + tenfile + " b where a.id=b.id and to_char(a.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.nhom=" + i_nhom + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu;
if (i_loai == 2)
{
if (bIntheocstt)
{
sql += " and a.makp=" + i_makp;
}
else
{
sql += " and a.makhoa=" + i_makp;
}
}
else
{
sql += " and a.makhoa=" + i_makp;
}
sql += " and a.thuoc=" + i_thuoc;
if (bBuhaophi || i_loai == 4 || bThua || i_thuoc == 2)
{
sql += " and a.maql=0";
}
else
{
sql += " and a.maql<>0";
}
tmp = d.get_data(sql).Tables[0];
if (tmp.Rows.Count == 0)
{
if (kiemtra())
{
MessageBox.Show(lan.Change_language_MessageText("Đã thu hồi xong."), lan.Change_language_MessageText("Thu hồi"), MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
d.close(); this.Close();
return;
}
MessageBox.Show(lan.Change_language_MessageText("Không có số liệu !"), d.Msg);
f_thuhoi_phieu_biloi(s_mmyy, s_ngay, i_makp, i_nhom, i_phieu);
makp.Focus();
return;
}
string s_makhoa = "";
if (!bIntheocstt)
{
foreach (DataRow r in tmp.Select("true", "makhoa"))
{
if (s_makhoa.IndexOf(r["makhoa"].ToString().Trim() + ",") == -1)
{
s_makhoa += r["makhoa"].ToString().Trim() + ",";
}
}
}
bool bFound = false;
if (i_loai == 1 || i_loai == 3)
{
string s_id = "";
sql = "select distinct a.id";
sql += " from " + xxx + ".d_xuatsdll a," + xxx + "." + tenfile + " b where a.id=b.id and to_char(a.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.nhom=" + i_nhom + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu;
sql += " and a.makhoa=" + i_makp;
sql += " and a.thuoc=" + i_thuoc;
sql += " and a.maql<>0";
foreach (DataRow r in d.get_data(sql).Tables[0].Rows)
{
s_id += r["id"].ToString().Trim() + ",";
}
if (s_id != "")
{
string _mabn = "";
foreach (DataRow r in d.get_data("select a.mabn,b.hoten from " + xxx + ".d_tienthuoc a," + user + ".btdbn b where a.mabn=b.mabn and a.id in (" + s_id.Substring(0, s_id.Length - 1) + ") and a.done=1 order by a.mabn").Tables[0].Rows)
{
if (_mabn.IndexOf(r["mabn"].ToString() + " " + r["hoten"].ToString().Trim()) == -1)
{
_mabn += r["mabn"].ToString() + " " + r["hoten"].ToString().Trim() + "\n";
}
}
if (_mabn != "")
{
MessageBox.Show(lan.Change_language_MessageText("Những người bệnh sau :\n" + _mabn + " đã thanh toán, không được thu hồi !"), d.Msg);
makp.Focus();
return;
}
}
}
if (i_loai == 1)
{
string s_mabd = "", s_maql = "";
foreach (DataRow r in tmp.Select("true", "maql"))
{
if (s_maql.IndexOf(r["maql"].ToString().Trim() + ",") == -1)
{
s_maql += r["maql"].ToString().Trim() + ",";
}
}
sql = "select distinct c.mabd, b.mabn, to_char(a.ngay,'dd/mm/yyyy') as ngay, d.ten as phieu from xxx.d_duyet a,xxx.d_hoantrall b,xxx.d_hoantract c," + user + ".d_loaiphieu d where a.id=b.idduyet and b.id=c.id and a.phieu=d.id";
sql += " and a.done=2 and c.slthuc>0 and a.nhom=" + i_nhom + " and a.loai=3 and to_char(c.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.makp=" + i_makp;
if (s_maql != "")
{
sql += " and b.maql in (" + s_maql.Substring(0, s_maql.Length - 1) + ")";
}
string s_ptra = "";
foreach (DataRow r in d.get_data_mmyy(sql, s_ngay, s_ngay, true).Tables[0].Rows)
{
s_mabd += r["mabd"].ToString().PadLeft(7, '0') + ",";
s_ptra = "Ngày: " + r["ngay"].ToString() + "- Phiếu: " + r["phieu"].ToString() + "- MSBN: " + r["mabn"].ToString();
}
if (s_mabd != "")
{
foreach (DataRow r in tmp.Rows)
{
if (s_mabd.IndexOf(r["mabd"].ToString().PadLeft(7, '0')) != -1)
{
bFound = true;
break;
}
}
if (bFound)
{
MessageBox.Show(phieu.Text + " có hoàn trả, không được thu hồi.\nPhải thu hồi phiếu hoàn trả trước !.\n" + s_ptra, d.Msg);
makp.Focus();
return;
}
}
}
else if (i_loai == 2 && d.bThuhoi_kiemtra_tutruc(i_nhom))
{
bFound = false;
DataRow r1;
sql = "select a.makp, b.sttt,b.makho,sum(b.soluong) as soluong from " + xxx + ".d_xuatsdll a," + xxx + ".d_thucbucstt b where a.id=b.id and to_char(a.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.nhom=" + i_nhom + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu;
if (bIntheocstt)
{
sql += " and a.makp=" + i_makp;
}
else
{
sql += " and a.makhoa=" + i_makp;
}
sql += " and a.thuoc=" + i_thuoc;
if (bBuhaophi || i_loai == 4 || bThua || i_thuoc == 2)
{
sql += " and a.maql=0";
}
else
{
sql += " and a.maql<>0";
}
sql += " group by b.sttt,b.makho,a.makp";
//
DataSet lds = d.get_data(sql);
string s_makp_tt = ",";
foreach (DataRow dr in lds.Tables[0].Rows)
{
s_makp_tt += (s_makp_tt.IndexOf("," + dr["makp"].ToString() + ",") < 0) ? dr["makp"].ToString() + "," : "";
}
if (s_makp_tt.Trim().Trim(',') == "")
{
s_makp_tt = i_makp.ToString();
}
else
{
s_makp_tt = s_makp_tt.Trim().Trim(',');
}
//
tmp = d.get_data("select makp,makho,stt,sum(tondau+slnhap-slxuat) as soluong from " + xxx + ".d_tutrucct where makp in (" + s_makp_tt.Trim().Trim(',') + ") group by makho,stt,makp").Tables[0];
foreach (DataRow r in lds.Tables[0].Rows)
{
r1 = d.getrowbyid(tmp, "makho=" + int.Parse(r["makho"].ToString()) + " and stt=" + decimal.Parse(r["sttt"].ToString()) + " and makp=" + r["makp"].ToString());
if (r1 != null)
{
if (decimal.Parse(r["soluong"].ToString()) > decimal.Parse(r1["soluong"].ToString()))
{
bFound = true;
break;
}
}
}
if (bFound)
{
MessageBox.Show(phieu.Text + " có xuất, không được thu hồi.\nPhải thu hồi phiếu xuất tủ trực trước !", d.Msg);
makp.Focus();
return;
}
}
if (bKiemtra)
{
if (i_loai == 1 || (i_loai == 3 && i_thuoc == 1 && !bThua))
{
bFound = false;
DataRow r2;
DataTable dthoten = new DataTable();
string s_ravien = "";
r2 = d.getrowbyid(dtkp, "id=" + int.Parse(makp.SelectedValue.ToString()));
if (r2 != null)
{
sql = "select maql from " + user + ".xuatvien where makp='" + r2["makp"].ToString() + "'";
dthoten = d.get_data(sql).Tables[0];
bFound = true;
}
if (bFound)
{
foreach (DataRow r in tmp.Rows)
{
r2 = d.getrowbyid(dthoten, "maql=" + decimal.Parse(r["maql"].ToString()));
if (r2 != null)
{
s_ravien += r["mabn"].ToString() + "\n";
}
}
}
if (s_ravien != "")
{
MessageBox.Show(lan.Change_language_MessageText("Người bệnh đã ra viện") + "\n" + s_ravien + lan.Change_language_MessageText("không được thu hồi !"), d.Msg);
return;
}
}
}
Cursor = Cursors.WaitCursor;
if (i_loai == 2 && d.bBucstt_tronso(i_nhom))
{
if (s_makhoa != "")
{
sql = "select idduyet from " + xxx + ".d_ngayduyet where nhom=" + i_nhom + " and loai=" + i_loai + " and phieu=" + i_phieu + " and makp in (" + s_makhoa.Substring(0, s_makhoa.Length - 1) + ") and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "'";
}
else
{
sql = "select idduyet from " + xxx + ".d_ngayduyet where nhom=" + i_nhom + " and loai=" + i_loai + " and phieu=" + i_phieu + " and makp=" + i_makp + " and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "'";
}
if (s_makho != "")
{
sql += " and makho='" + s_makho + "'";
}
tmp = d.get_data(sql).Tables[0];
string sid = "";
foreach (DataRow r in tmp.Rows)
{
sid += r["idduyet"].ToString() + ",";
}
string sql1 = "select to_char(a.ngay,'dd/mm/yyyy') as ngay,c.ten from xxx.d_xuatsdll a,xxx.d_bucstt b," + user + ".d_loaiphieu c where a.id=b.id and a.phieu=c.id and b.sltreo>0 ";
if (sid != "")
{
sql1 += " and a.idduyet in (" + sid.Substring(0, sid.Length - 1) + ")";
}
sql1 += " and a.makp=" + i_makp + " and a.nhom=" + i_nhom;
sid = "";
////Binh 23032012: comment --> chua hieu kiem tra de lam gi???
////foreach(DataRow r in d.get_data_mmyy(sql1, s_ngay, s_ngay, 30).Tables[0].Rows)
////{
//// sid = "Ngày " + r["ngay"].ToString() + "\nPhiếu " + r["ten"].ToString() + " có duyệt treo\nPhải thu hồi phiếu này trước !";
//// break;
////}
////if (sid != "")
////{
//// MessageBox.Show(sid, d.Msg);
//// Cursor = Cursors.Default;
//// return;
////}
foreach (DataRow r in tmp.Rows)
{
sql = "select b.* from xxx.d_xtutrucll a," + user + ".d_treoduyet b where a.id=b.id and a.idduyet=" + decimal.Parse(r["idduyet"].ToString());
foreach (DataRow r1 in d.get_data_mmyy(sql, s_ngay, s_ngay, 30).Tables[0].Rows)
{
if (d.get_data("select a.* from " + xxx + ".d_xuatsdll a," + xxx + ".d_bucstt b where a.id=b.id and a.idduyet=" + decimal.Parse(r1["id"].ToString()) + " and b.sttduyet=" + int.Parse(r1["stt"].ToString())).Tables[0].Rows.Count == 0)
{
d.execute_data("update " + user + ".d_treoduyet set slthuc=0 where id=" + decimal.Parse(r1["id"].ToString()) + " and stt=" + int.Parse(r1["stt"].ToString()));
}
}
}
}
d.upd_duyet(s_mmyy, i_makp, i_nhom, i_loai, i_phieu, s_ngay, (bNguoiduyet_nguoithuhoi ? s_makho : ""));//s_makho
d.upd_theodoiduyet(s_mmyy, s_ngay, i_nhom, i_loai, i_makp, 1);
d.upd_thuhoi(s_mmyy, i_nhom, s_ngay, i_loai, i_makp, i_userid, i_phieu);
sql = "select distinct a.id, to_char(a.ngayylenh,'dd/mm/yyyy') as ngayylenh from " + xxx + ".d_xuatsdll a," + xxx + "." + tenfile + " b where a.id=b.id and to_char(a.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.nhom=" + i_nhom + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu;
if (i_loai == 2)
{
if (bIntheocstt)
{
sql += " and a.makp=" + i_makp;
}
else
{
sql += " and a.makhoa=" + i_makp;
}
}
else
{
sql += " and a.makhoa=" + i_makp;
}
sql += " and a.thuoc=" + i_thuoc;
if (b1kho)
{
sql += " and a.lydo=" + int.Parse(s_makho.Substring(0, s_makho.Length - 1));
}
if (bBuhaophi || i_loai == 4 || bThua || i_thuoc == 2)
{
sql += " and a.maql=0";
}
else
{
sql += " and a.maql<>0";
}
foreach (DataRow r in d.get_data(sql).Tables[0].Rows)
{
d.del(s_mmyy, tenfile, decimal.Parse(r["id"].ToString()), dtll, i_loai, bBuhaophi, i_nhom, i_phieu, s_ngay, i_userid, bDuyettreole, r["ngayylenh"].ToString());
}
//
string file = (i_loai == 2) ? "d_thucbucstt" : "d_thucxuat";
sql = "select distinct a.id from " + xxx + ".d_xuatsdll a," + xxx + "." + file + " b where a.id=b.id and to_char(a.ngay,'dd/mm/yyyy')='" + s_ngay + "'";
sql += " and a.nhom=" + i_nhom + " and a.loai=" + i_loai + " and a.phieu=" + i_phieu;
if (i_loai == 2)
{
if (bIntheocstt)
{
sql += " and a.makp=" + i_makp;
}
else
{
sql += " and a.makhoa=" + i_makp;
}
}
else
{
sql += " and a.makhoa=" + i_makp;
}
sql += " and a.thuoc=" + i_thuoc;
if (b1kho)
{
sql += " and a.lydo=" + int.Parse(s_makho.Substring(0, s_makho.Length - 1));
}
if (bBuhaophi || i_loai == 4 || bThua || i_thuoc == 2)
{
sql += " and a.maql=0";
}
else
{
sql += " and a.maql<>0";
}
foreach (DataRow r in d.get_data(sql).Tables[0].Rows)
{
d.execute_data("delete from " + xxx + "." + file + " where id=" + decimal.Parse(r["id"].ToString()));
}
//
dtct.Clear();
sql = "select * from " + user + ".d_dmkho where nhom=" + i_nhom;
if (s_makho != "")
{
sql += " and id in (" + s_makho.Substring(0, s_makho.Length - 1) + ")";
}
foreach (DataRow r in d.get_data(sql).Tables[0].Rows)
{
d.execute_data("delete from " + xxx + ".d_daduyet where nhom=" + i_nhom + " and to_char(ngay,'dd/mm/yyyy')='" + s_ngay + "' and makp=" + i_makp + " and loai=" + i_loai + " and phieu=" + i_phieu + " and makho=" + int.Parse(r["id"].ToString()));
}
if (d.bKiemtra_duyet(i_nhom))
{
d.upd_tonkho(s_mmyy, i_nhom, 0);
}
int itable = d.tableid(s_mmyy, "d_ngayduyet");
d.upd_eve_tables(s_mmyy, itable, i_userid, "del");
d.upd_eve_upd_del(s_mmyy, itable, i_userid, "del", i_nhom.ToString() + "^" + i_loai.ToString() + "^" + i_makp.ToString() + "^" + s_ngay + "^0^" + i_phieu.ToString() + "^" + s_makho + "^0");
Cursor = Cursors.Default;
if (d.bTinnhan(i_nhom))
{
DataRow r = d.getrowbyid(dtkp, "id=" + int.Parse(makp.SelectedValue.ToString()));
if (r != null)
{
if (r["computer"].ToString() != "")
{
d.netsend(d.sDomain(i_nhom), r["computer"].ToString().Trim(), s_noidung + " KHOA " + m.khongdau(makp.Text) + " PHIEU " + m.khongdau(phieu.Text) + " DA THU HOI !");
}
}
}
//
MessageBox.Show(lan.Change_language_MessageText("Đã thu hồi xong."), lan.Change_language_MessageText("Thu hồi"), MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
d.close(); this.Close();
}
