private void bgWork_DoWork(object sender, DoWorkEventArgs e)
{
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = true);
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Text = "Loading Database");
dtpFilterTgl1.SafeControlInvoke(DateTimePicker => dtpFilterTgl1.Enabled = false);
dtpFilterTgl2.SafeControlInvoke(DateTimePicker => dtpFilterTgl2.Enabled = false);
txtHari.SafeControlInvoke(TextBox => txtHari.Enabled = false);
txtNomor.SafeControlInvoke(TextBox => txtNomor.Enabled = false);
cmbKode.SafeControlInvoke(ComboBox => cmbKode.Enabled = false);
btnCari.SafeControlInvoke(Button => btnCari.Enabled = false);
this.strErr = "";
C4Module.MainModule.strRegKey = halamanUtama.FULL_REG_CONN;
SqlConnection conn = modDb.pbconnKoneksiSQL(ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_CON, modMsg.TITLE_ERR);
return;
}
this.strQuerySQL = "Select Idbl_Norek,Uraianrek,Dipakai " +
"FROM BL_NOREK With (nolock) " +
"WHERE IDBL_NOREK <> '-' order by IDBL_NOREK";
SqlDataReader reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstNOREK itemNorek = new lstNOREK();
itemNorek.strIdBl_NoRek = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemNorek.strUraianRek = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemNorek.strDipakai = modMain.pbstrgetCol(reader, 2, ref strErr, "");
grpNorek.Add(itemNorek);
}
}
reader.Close();
this.strQuerySQL = "SELECT Idbl_keltarip,Urutan,Lapjp,Rekapjp " +
"FROM BL_KELTARIP WITH (NOLOCK) " +
"WHERE lapjp <> '-' " +
"ORDER BY lapjp, urutan";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKelTarip itemKelTarip = new lstKelTarip();
itemKelTarip.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKelTarip.intUrutan = Convert.ToInt32(modMain.pbstrgetCol(reader, 1, ref strErr, ""));
itemKelTarip.strLapJP = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKelTarip.strRekapJP = modMain.pbstrgetCol(reader, 3, ref strErr, "");
grpKelTarip.Add(itemKelTarip);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_TARIP.Idbl_keltarip, "+ //0
"BL_TARIP.pisahsetor, "+ //1
"BL_TRANSAKSI_1.idmr_tsmf, " + //2
"BL_TARIP.idbl_norek, "+ //3
"BL_TARIP.uraianrek, " + //4
"BL_TRANSAKSIDETAIL_1.idbl_komponen, "+ //5
"BL_KOMPONEN.Lapurut, " + //6
"BL_TRANSAKSIDETAIL_1.nilai - BL_TRANSAKSIDETAIL_1.Ringan AS TUNAINYA, " + //7
"BL_TRANSAKSIDETAIL_1.nilai, "+ //8
"BL_TRANSAKSIDETAIL_1.Ringan, " + //9
"BL_TRANSAKSI_1.TUNAI, "+ //10
"BL_TRANSAKSIDETAIL_1.idbl_transaksi " + //11
"FROM BL_TRANSAKSI_1 With (nolock) "+
"INNER JOIN BL_TRANSAKSIDETAIL_1 "+
"ON BL_TRANSAKSI_1.idbl_transaksi = BL_TRANSAKSIDETAIL_1.idbl_transaksi " +
"INNER JOIN BL_TARIP "+
"ON BL_TRANSAKSI_1.idbl_tarip = BL_TARIP.IdBl_tarip " +
"INNER JOIN BL_KASUMUM "+
"ON BL_TRANSAKSI_1.idbl_pembayaran = BL_KASUMUM.Idbl_Pembayaran "+
"AND BL_TRANSAKSI_1.idmr_mutasipasien = BL_KASUMUM.idmr_mutasipasien " +
"INNER JOIN BL_KOMPONEN "+
"ON BL_TRANSAKSIDETAIL_1.idbl_komponen = BL_KOMPONEN.idbl_komponen " +
"WHERE "+
"BL_KASUMUM.Batal = '' "+
"AND BL_TRANSAKSI_1.batal = '' " +
"AND BL_KASUMUM.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
"AND BL_TRANSAKSI_1.idmr_tsmf <> 'DARAH' "+
"AND BL_TRANSAKSI_1.idmr_tsmf <> 'PENDORONG' " +
"AND BL_TRANSAKSI_1.idmr_tsmf <> 'DEPO FARMASI' " +
"AND BL_TRANSAKSI_1.idmr_tsmf <> 'OBAT/ALKES-KPRI' " +
"AND BL_TARIP.pisahsetor = ''";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKasum itemKasum = new lstKasum();
itemKasum.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKasum.strPisahSetor = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKasum.strIdMR_TSMF = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKasum.strIdBl_Norek = modMain.pbstrgetCol(reader, 3, ref strErr, "");
itemKasum.strUraianRek = modMain.pbstrgetCol(reader, 4, ref strErr, "");
itemKasum.strIdBl_Komponen = modMain.pbstrgetCol(reader, 5, ref strErr, "");
itemKasum.intLapUrut = Convert.ToInt32(modMain.pbstrgetCol(reader, 6, ref strErr, ""));
itemKasum.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKasum.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKasum.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 9, ref strErr, ""));
itemKasum.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 10, ref strErr, ""));
itemKasum.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 11, ref strErr, "");
grpKasum.Add(itemKasum);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_KASASKES.JUMLAH + BL_KASASKES.nonrs AS TUNAI, "+
"MR_SJASKES.idmr_tstatus "+
"FROM BL_KASASKES With (nolock) "+
"INNER JOIN MR_SJASKES "+
"ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien "+
"WHERE BL_KASASKES.Batal = '' AND MR_SJASKES.Batal = '' "+
"AND MR_SJASKES.idmr_tstatus = 'ASKES' "+
"AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "'";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKasAskes itemKasAskes = new lstKasAskes();
itemKasAskes.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 0, ref strErr, ""));
itemKasAskes.strIdMR_Status = modMain.pbstrgetCol(reader, 1, ref strErr, "");
grpKasAskes.Add(itemKasAskes);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_KASASKES.Idmr_mutasipasien, "+
"BL_TRANSAKSI.JUMLAH, "+
"BL_TARIP.Idbl_keltarip, "+
"BL_TARIP.pisahsetor "+
"FROM BL_KASASKES With (nolock) "+
"INNER JOIN BL_TRANSAKSI "+
"ON BL_KASASKES.Idmr_mutasipasien = BL_TRANSAKSI.idmr_mutasipasien "+
"INNER JOIN BL_TARIP "+
"ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip "+
"INNER JOIN MR_SJASKES "+
"ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien "+
"WHERE BL_KASASKES.Batal = '' "+
"AND BL_TRANSAKSI.batal = '' "+
"AND BL_TRANSAKSI.idmr_tsmf = 'ADMINISTRASI' "+
"AND BL_TARIP.pisahsetor <> '' "+
"AND MR_SJASKES.Batal = '' "+
"AND MR_SJASKES.idmr_tstatus = 'ASKES' "+
"AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' ";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstAdmAskes itemAdmAskes = new lstAdmAskes();
itemAdmAskes.strIdMR_Mutasipasien = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemAdmAskes.dblJumlah = Convert.ToDouble(modMain.pbstrgetCol(reader, 1, ref strErr, ""));
itemAdmAskes.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemAdmAskes.strPisahSetor = modMain.pbstrgetCol(reader, 3, ref strErr, "");
grpAdmAkses.Add(itemAdmAskes);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_TARIP.Idbl_keltarip, "+
"BL_TARIP.pisahsetor,"+
"BL_TRANSAKSI.idmr_tsmf, "+
"BL_TRANSAKSIDETAIL.idbl_komponen, "+
"BL_KOMPONEN.Lapurut, "+
"BL_TRANSAKSIDETAIL.nilai - BL_TRANSAKSIDETAIL.Ringan AS TUNAINYA,"+
"BL_TRANSAKSIDETAIL.nilai, "+
"BL_TRANSAKSIDETAIL.Ringan, "+
"BL_TRANSAKSI.JUMLAH AS TUNAI, "+
"BL_TRANSAKSIDETAIL.idbl_transaksi "+
"FROM BL_TRANSAKSI With (nolock) "+
"INNER JOIN BL_TRANSAKSIDETAIL "+
"ON BL_TRANSAKSI.idbl_transaksi = BL_TRANSAKSIDETAIL.idbl_transaksi "+
"INNER JOIN BL_TARIP "+
"ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip "+
"INNER JOIN BL_KASASKES "+
"ON BL_TRANSAKSI.idbl_pembayaran = BL_KASASKES.Idbl_Pembayaran "+
"AND BL_TRANSAKSI.idmr_mutasipasien = BL_KASASKES.idmr_mutasipasien "+
"INNER JOIN BL_KOMPONEN "+
"ON BL_TRANSAKSIDETAIL.idbl_komponen = BL_KOMPONEN.idbl_komponen "+
"INNER JOIN MR_SJASKES "+
"ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien "+
"WHERE BL_KASASKES.Batal = '' "+
"AND BL_TRANSAKSI.batal = '' "+
"AND MR_SJASKES.Batal = '' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'DARAH' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'PENDORONG' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'DEPO FARMASI' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-KPRI' "+
"AND BL_TARIP.pisahsetor = '' "+
"AND BL_KASASKES.jumlah > 0 "+
"AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
"AND MR_SJASKES.idmr_tstatus = 'ASKESGAKIN'";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKasAskin itemKasAskin = new lstKasAskin();
itemKasAskin.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKasAskin.strPisahSetor = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKasAskin.strIdMR_TSMF = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKasAskin.strIdBl_Komponen = modMain.pbstrgetCol(reader, 3, ref strErr, "");
itemKasAskin.intLapUrut = Convert.ToInt32(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKasAskin.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKasAskin.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 6, ref strErr, ""));
itemKasAskin.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKasAskin.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKasAskin.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 9, ref strErr, "");
grpKasAskin.Add(itemKasAskin);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_TARIP.Idbl_keltarip, "+
"BL_TARIP.pisahsetor,"+
"BL_TRANSAKSI.idmr_tsmf, "+
"BL_TRANSAKSIDETAIL.idbl_komponen, "+
"BL_KOMPONEN.Lapurut, "+
"BL_TRANSAKSIDETAIL.nilai - BL_TRANSAKSIDETAIL.Ringan AS TUNAINYA, "+
"BL_TRANSAKSIDETAIL.nilai, "+
"BL_TRANSAKSIDETAIL.Ringan, "+
"BL_TRANSAKSI.JUMLAH AS TUNAI, "+
"BL_TRANSAKSIDETAIL.idbl_transaksi "+
"FROM BL_TRANSAKSI With (nolock) "+
"INNER JOIN BL_TRANSAKSIDETAIL "+
"ON BL_TRANSAKSI.idbl_transaksi = BL_TRANSAKSIDETAIL.idbl_transaksi "+
"INNER JOIN BL_TARIP "+
"ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip "+
"INNER JOIN BL_KASASKES "+
"ON BL_TRANSAKSI.idbl_pembayaran = BL_KASASKES.Idbl_Pembayaran "+
"AND BL_TRANSAKSI.idmr_mutasipasien = BL_KASASKES.idmr_mutasipasien "+
"INNER JOIN BL_KOMPONEN "+
"ON BL_TRANSAKSIDETAIL.idbl_komponen = BL_KOMPONEN.idbl_komponen "+
"INNER JOIN MR_SJASKES "+
"ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien "+
"WHERE BL_KASASKES.Batal = '' "+
"AND BL_TRANSAKSI.batal = '' "+
"AND MR_SJASKES.Batal = '' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'DARAH' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'PENDORONG' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'DEPO FARMASI' "+
"AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-KPRI' "+
"AND BL_TARIP.pisahsetor = '' and BL_KASASKES.jumlah > 0 "+
"AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
"AND MR_SJASKES.idmr_tstatus = 'ASKESJAMKESMAS'";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKasJamkesmas itemKasJamkesmas = new lstKasJamkesmas();
itemKasJamkesmas.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKasJamkesmas.strPisahSetor = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKasJamkesmas.strIdMR_TSMF = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKasJamkesmas.strIdBl_Komponen = modMain.pbstrgetCol(reader, 3, ref strErr, "");
itemKasJamkesmas.intLapUrut = Convert.ToInt32(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKasJamkesmas.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKasJamkesmas.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 6, ref strErr, ""));
itemKasJamkesmas.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKasJamkesmas.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKasJamkesmas.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 9, ref strErr, "");
grpKasJamkesmas.Add(itemKasJamkesmas);
}
}
reader.Close();
this.strQuerySQL = "SELECT "+
"BL_TARIP.Idbl_keltarip, "+
"BL_TRANSLAIN.idmr_tsmf, "+
"BL_TRANSLAINDET.idbl_komponen, "+
"BL_KOMPONEN.Lapurut, "+
"BL_TRANSLAINDET.nilai AS TUNAINYA, "+
"BL_TRANSLAINDET.nilai, "+
"BL_TRANSLAIN.jumlah, "+
"BL_TRANSLAINDET.idbl_translain "+
"FROM BL_TRANSLAIN With (nolock) "+
"INNER JOIN BL_TRANSLAINDET "+
"ON BL_TRANSLAIN.idbl_translain = BL_TRANSLAINDET.idbl_translain "+
"INNER JOIN BL_TARIP "+
"ON BL_TRANSLAIN.idbl_tarip = BL_TARIP.IdBl_tarip "+
"INNER JOIN BL_KASLAIN "+
"ON BL_TRANSLAIN.idbl_kaslain = BL_KASLAIN.Idbl_kaslain "+
"INNER JOIN BL_KOMPONEN "+
"ON BL_TRANSLAINDET.idbl_komponen = BL_KOMPONEN.idbl_komponen "+
"WHERE BL_KASLAIN.Batal = '' "+
"AND BL_TRANSLAIN.Batal = '' "+
"AND BL_KASLAIN.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
"AND BL_TRANSLAIN.idmr_tsmf <> 'DARAH' "+
"AND BL_TRANSLAIN.idmr_tsmf <> 'PENDORONG' "+
"AND BL_TRANSLAIN.idmr_tsmf <> 'DEPO FARMASI' "+
"AND BL_TRANSLAIN.idmr_tsmf <> 'OBAT/ALKES-KPRI' "+
"ORDER BY BL_TARIP.Idbl_keltarip, BL_TRANSLAINDET.idbl_komponen";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKasLain itemKasLain = new lstKasLain();
itemKasLain.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKasLain.strIdMR_TSMF = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKasLain.strIdBl_Komponen = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKasLain.intLapUrut = Convert.ToInt32(modMain.pbstrgetCol(reader, 3, ref strErr, ""));
itemKasLain.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKasLain.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKasLain.strIdBl_TransLain = modMain.pbstrgetCol(reader, 6, ref strErr, "");
grpKasLain.Add(itemKasLain);
}
}
reader.Close();
conn.Close();
//MessageBox.Show("OK");
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Text = "");
dtpFilterTgl1.SafeControlInvoke(DateTimePicker => dtpFilterTgl1.Enabled = true);
dtpFilterTgl2.SafeControlInvoke(DateTimePicker => dtpFilterTgl2.Enabled = true);
txtHari.SafeControlInvoke(TextBox => txtHari.Enabled = true);
txtNomor.SafeControlInvoke(TextBox => txtNomor.Enabled = true);
cmbKode.SafeControlInvoke(ComboBox => cmbKode.Enabled = true);
btnCari.SafeControlInvoke(Button => btnCari.Enabled = true);
txtNomor.SafeControlInvoke(TextBox => txtNomor.Focus());
}
private void bgWorkLoadFromDB_DoWork(object sender, DoWorkEventArgs e)
{
/*CLEAN DATA*/
grpLstKASUM.Clear();
//grpLstKASASKIN.Clear();
grpLstKASJKM.Clear();
grpLstKASJKD.Clear();
grpKelTarip.Clear();
grpLstReg.Clear();
grpTransak.Clear();
grpTransaknya.Clear();
grpTind.Clear();
dtpFilterTgl1.SafeControlInvoke(DateTimePicker => dtpFilterTgl1.Enabled = false);
dtpFilterTgl2.SafeControlInvoke(DateTimePicker => dtpFilterTgl2.Enabled = false);
cmbJenisLaporan.SafeControlInvoke(ComboBox => cmbJenisLaporan.Enabled = false);
cmbUnit.SafeControlInvoke(ComboBox => cmbUnit.Enabled = false);
btnCari.SafeControlInvoke(Button => btnCari.Enabled = false);
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = true);
cmbPilihanExport.SafeControlInvoke(ComboBox => cmbPilihanExport.Enabled = false);
btnExport.SafeControlInvoke(Button => btnExport.Enabled = false);
btnTampilkan.SafeControlInvoke(Button => btnTampilkan.Enabled = false);
this.strErr = "";
C4Module.MainModule.strRegKey = halamanUtama.FULL_REG_CONN;
SqlConnection conn = modDb.pbconnKoneksiSQL(ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_CON, modMsg.TITLE_ERR);
return;
}
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Text = "Proses Load - KELOMPOK TARIP");
this.strQuerySQL = "SELECT Idbl_keltarip,Urutan,Lapjp,Rekapjp "+
"FROM BL_KELTARIP WITH (NOLOCK) "+
"WHERE lapjp <> '-' "+
"ORDER BY lapjp, urutan";
SqlDataReader reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKelTarip itemKelTarip = new lstKelTarip();
itemKelTarip.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKelTarip.intUrutan = Convert.ToInt32(modMain.pbstrgetCol(reader, 1, ref strErr, ""));
itemKelTarip.strLapJP = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKelTarip.strRekapJP = modMain.pbstrgetCol(reader, 3, ref strErr, "");
grpKelTarip.Add(itemKelTarip);
}
}
reader.Close();
intWaktuLoad = 0;
intPenandaProses = 1;
tmrWaktuLoad.Enabled = true;
tmrWaktuLoad.Start();
/* QUERY KASUM */
this.strQuerySQL = "SELECT " +
"BL_TRANSAKSI_1.Regbilling, " + //0
"MR_PASIEN.Nama, " + //1
"MR_TRUANGAN.ruangan, " + //2
"BL_TRANSAKSI_1.Jumlah, " + //3
"BL_TRANSAKSI_1.subsidi, " + //4
"BL_TRANSAKSI_1.tunai, " + //5
"BL_TRANSAKSIDETAIL_1.Idbl_komponen, " + //6
"BL_TRANSAKSIDETAIL_1.Nilai, " + //7
"BL_TRANSAKSIDETAIL_1.Ringan, " + //8
"BL_KELTARIP.urutan, " + //9
"BL_KELTARIP.rekapjp," + //10
"BL_TRANSAKSIDETAIL_1.Nilai - BL_TRANSAKSIDETAIL_1.Ringan as tunainya , " + //11
"BL_TRANSAKSIDETAIL_1.Noambil, " + //12
"BL_TRANSAKSIDETAIL_1.tglambil, " + //13
"BL_KELTARIP.Idbl_keltarip, " + //14
"BL_KELTARIP.Lapjp, " + //15
"BL_TRANSAKSI_1.idmr_tsmf, " + //16
"MR_SMFTARIP.idmr_tupf, " + //17
"BL_TRANSAKSI_1.idbl_tarip, " + //18
"BL_TRANSAKSI_1.uraiantarip, " + //19
"BL_TRANSAKSI_1.jml_kasus_tarip, " + //20
"BL_TRANSAKSI_1.idbl_transaksi, " + //21
"BL_KASUMUM.Idbl_Pembayaran, " + //22
"BL_TRANSAKSI_1.Tgltransaksi, " + //23
"BL_KASUMUM.Tanggal, " + //24
"BL_TARIP.Idmr_jeniskelas, " + //25
"BL_TRANSAKSI_1.Idmr_truangan, " + //26
"BL_TRANSAKSIDETAIL_1.idmr_dokter, " + //27
"MR_DOKTER.Nama " + //28
"FROM BL_KELTARIP With (nolock) "+
"INNER JOIN BL_TRANSAKSI_1 " +
"INNER JOIN BL_TRANSAKSIDETAIL_1 "+
"ON BL_TRANSAKSI_1.idbl_transaksi = BL_TRANSAKSIDETAIL_1.Idbl_transaksi "+
"INNER JOIN BL_TARIP "+
"ON BL_TRANSAKSI_1.idbl_tarip = BL_TARIP.IdBl_tarip "+
"ON BL_KELTARIP.Idbl_keltarip = BL_TARIP.Idbl_keltarip "+
"INNER JOIN MR_SMFTARIP "+
"ON BL_TRANSAKSI_1.idmr_tsmf = MR_SMFTARIP.idmr_tsmf "+
"INNER JOIN BL_KASUMUM "+
"ON BL_TRANSAKSI_1.idbl_pembayaran = BL_KASUMUM.Idbl_Pembayaran "+
" AND BL_TRANSAKSI_1.idmr_mutasipasien = BL_KASUMUM.idmr_mutasipasien "+
"INNER JOIN MR_PASIEN "+
"ON BL_KASUMUM.Idmr_pasien = MR_PASIEN.IDMR_PASIEN "+
"INNER JOIN MR_TRUANGAN "+
"ON BL_KASUMUM.Idmr_truangan = MR_TRUANGAN.idmr_truangan "+
"LEFT JOIN MR_DOKTER " +
"ON BL_TRANSAKSIDETAIL_1.idmr_dokter = MR_DOKTER.idmr_dokter " +
"WHERE (BL_TRANSAKSI_1.Batal <> 'Y') " +
"AND (BL_KASUMUM.Batal = '') " +
" AND (BL_TRANSAKSIDETAIL_1.Idbl_komponen <> 'JASA SARANA') "+
" AND BL_KASUMUM.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' "+
" AND BL_TARIP.pisahsetor = '' "+
" AND BL_TRANSAKSIDETAIL_1.noambil <> 999 "+
" AND BL_TRANSAKSI_1.idmr_tsmf <> 'DARAH' "+
" AND BL_TRANSAKSI_1.idmr_tsmf <> 'PENDORONG'"+
" AND BL_TRANSAKSI_1.idmr_tsmf <> 'OBAT/ALKES-FARMASI' "+
" AND BL_TRANSAKSI_1.idmr_tsmf <> 'OBAT/ALKES-KPRI'"+
" AND BL_TRANSAKSI_1.idbl_pembayaran > 0 "+
" AND BL_KELTARIP.Lapjp <> '-'";
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKASUM itemKASUM = new lstKASUM();
itemKASUM.strRegBilling = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKASUM.strNama = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKASUM.strRuangan = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKASUM.dblJumlah = Convert.ToDouble(modMain.pbstrgetCol(reader, 3, ref strErr, ""));
itemKASUM.dblSubsidi = Convert.ToDouble(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKASUM.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKASUM.strIdBl_Komponen = modMain.pbstrgetCol(reader, 6, ref strErr, "");
itemKASUM.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKASUM.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKASUM.dblUrutan = Convert.ToDouble(modMain.pbstrgetCol(reader, 9, ref strErr, ""));
itemKASUM.strRekapJp = modMain.pbstrgetCol(reader, 10, ref strErr, "");
itemKASUM.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 11, ref strErr, ""));
itemKASUM.dblNoAmbil = Convert.ToDouble(modMain.pbstrgetCol(reader, 12, ref strErr, ""));
itemKASUM.dtTglAmbil = Convert.ToDateTime(modMain.pbstrgetCol(reader, 13, ref strErr, ""));
itemKASUM.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 14, ref strErr, "");
itemKASUM.strLapJP = modMain.pbstrgetCol(reader, 15, ref strErr, "");
itemKASUM.strIdMR_TSMF = modMain.pbstrgetCol(reader, 16, ref strErr, "");
itemKASUM.strIdMR_TUPF = modMain.pbstrgetCol(reader, 17, ref strErr, "");
itemKASUM.strIdBl_Tarip = modMain.pbstrgetCol(reader, 18, ref strErr, "");
itemKASUM.strUraianTarip = modMain.pbstrgetCol(reader, 19, ref strErr, "");
itemKASUM.dblJumlahKasusTarip = Convert.ToDouble(modMain.pbstrgetCol(reader, 20, ref strErr, ""));
itemKASUM.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 21, ref strErr, "");
itemKASUM.strIdBl_Pembayaran = modMain.pbstrgetCol(reader, 22, ref strErr, "");
itemKASUM.dtTglTransaksi = Convert.ToDateTime(modMain.pbstrgetCol(reader, 23, ref strErr, ""));
itemKASUM.dtTgl = Convert.ToDateTime(modMain.pbstrgetCol(reader, 24, ref strErr, ""));
itemKASUM.strIdMR_JenisKelas = modMain.pbstrgetCol(reader, 25, ref strErr, "");
itemKASUM.strIdMR_Ruangan = modMain.pbstrgetCol(reader, 26, ref strErr, "");
itemKASUM.strIdMR_Dokter = modMain.pbstrgetCol(reader, 27, ref strErr, "");
itemKASUM.strNamaDokter = modMain.pbstrgetCol(reader, 28, ref strErr, "");
grpLstKASUM.Add(itemKASUM);
}
}
reader.Close();
conn.Close();
if (grpLstKASUM.Count > 0)
{
/*JIKA DITEMUKAN DATA PADA grpLstKASUM maka lakukan perhitungan disini*/
var KasumJP = (from fetch in grpLstKASUM
where (fetch.strIdBl_Komponen == "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var KasumJA = (from fetch in grpLstKASUM
where (fetch.strIdBl_Komponen != "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var reg = (from fetch in grpLstKASUM
select new
{
Regbilling = fetch.strRegBilling,
Nama = fetch.strNama,
Ruangan = fetch.strRuangan,
idmr_tupf = fetch.strIdMR_TUPF,
idmr_tsmf = fetch.strIdMR_TSMF
}).Distinct().OrderBy( a => a.Regbilling).ToList();
if (reg.Count > 0)
{
foreach (var fetch in reg)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetch.Regbilling;
itemTransak.strNama = fetch.Nama;
itemTransak.strRuangan = fetch.Ruangan;
itemTransak.strUnit = fetch.idmr_tupf;
itemTransak.strSMF = fetch.idmr_tsmf;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = 0;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
}
}
if (grpTransak.Count > 0)
{
/*JASA PELAYANAN*/
foreach (var fetchKasumJP in KasumJP)
{
if (fetchKasumJP.LapJP.Substring(0, 1) == "1")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "1"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblKonsul = grpTransak[intUrut].dblKonsul + fetchKasumJP.tunainya;
//fetchTransak.dblKonsul = fetchTransak.dblKonsul + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF if (fetchKasumJP.LapJP.Substring(1, 1) == "1") */
else if (fetchKasumJP.LapJP.Substring(0, 1) == "2")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "2"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblVisite = grpTransak[intUrut].dblVisite + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "2") */
else if (fetchKasumJP.LapJP.Substring(0, 1) == "3")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "3"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblOperasi = grpTransak[intUrut].dblOperasi + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "3") */
else if (fetchKasumJP.LapJP.Substring(0, 1) == "4")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "4"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblTindakan = grpTransak[intUrut].dblTindakan + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "4") */
else if (fetchKasumJP.LapJP.Substring(0, 1) == "5")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "5"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblDiagelect = grpTransak[intUrut].dblDiagelect + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "5") */
else if (fetchKasumJP.LapJP.Substring(0, 1) == "6")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetchKasumJP.regBilling
&& fetchKasumJP.LapJP.Substring(0, 1) == "6"
&& fetchTransak.strRuangan == fetchKasumJP.Ruangan
&& fetchTransak.strSMF == fetchKasumJP.IdMR_TSMF)
{
grpTransak[intUrut].dblPemRK = grpTransak[intUrut].dblPemRK + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "6") */
/* 2 SAMPAI 6 */
} /* EOF foreach (var fetchKasumJP in KasumJP) */
/*JASA ANASTHESI*/
if (KasumJA.Count > 0)
{
foreach (var fetchKasumJA in KasumJA)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetchKasumJA.regBilling;
itemTransak.strNama = fetchKasumJA.Nama;
itemTransak.strRuangan = fetchKasumJA.Ruangan;
itemTransak.strUnit = "ANASTHESI";
itemTransak.strSMF = fetchKasumJA.IdMR_TSMF;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = fetchKasumJA.tunainya;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
} /* EOF foreach (var fetchKasumJA in KasumJA) */
}
} /* EOF if (grpTransak.Count > 0) */
} /* EOF if(grpLstKasum.Count > 0) */
intWaktuLoad = 0;
intPenandaProses = 2;
///* QUERY ASKESGAKIN*/
//this.strQuerySQL = " SELECT " +
// "BL_TRANSAKSI.Regbilling, " + //0
// "MR_PASIEN.Nama, " + //1
// "MR_TRUANGAN.ruangan, " + //2
// "BL_TRANSAKSI.Jumlah, " + //3
// "BL_TRANSAKSI.subsidi, " + //4
// "BL_TRANSAKSI.tunai, " + //5
// "BL_TRANSAKSIDETAIL.Idbl_komponen, " + //6
// "BL_TRANSAKSIDETAIL.Nilai, " + //7
// "BL_TRANSAKSIDETAIL.Ringan, " + //8
// "BL_KELTARIP.urutan, " + //9
// "BL_KELTARIP.rekapjp," + //10
// "BL_TRANSAKSIDETAIL.Nilai - BL_TRANSAKSIDETAIL.Ringan as tunainya , " + //11
// "BL_TRANSAKSIDETAIL.Noambil, " + //12
// "BL_TRANSAKSIDETAIL.tglambil, " + //13
// "BL_KELTARIP.Idbl_keltarip, " + //14
// "BL_KELTARIP.Lapjp, " + //15
// "BL_TRANSAKSI.idmr_tsmf, " + //16
// "MR_SMFTARIP.idmr_tupf, " + //17
// "BL_TRANSAKSI.idbl_tarip, " + //18
// "BL_TRANSAKSI.uraiantarip, " + //19
// "BL_TRANSAKSI.jml_kasus_tarip, " + //20
// "BL_TRANSAKSI.idbl_transaksi, " + //21
// "BL_KASASKES.Idbl_Pembayaran, " + //22
// "BL_TRANSAKSI.Tgltransaksi, " + //23
// "BL_KASASKES.Tanggal, " + //24
// "BL_TARIP.Idmr_jeniskelas, " + //25
// "BL_TRANSAKSI.Idmr_truangan, " + //26
// "BL_TRANSAKSIDETAIL.Idmr_dokter, " + //27
// "MR_DOKTER.Nama " + //28
// " FROM BL_KELTARIP With (nolock) " +
// " INNER JOIN BL_TRANSAKSI " +
// " INNER JOIN BL_TRANSAKSIDETAIL " +
// "ON BL_TRANSAKSI.idbl_transaksi = BL_TRANSAKSIDETAIL.Idbl_transaksi " +
// " INNER JOIN BL_TARIP " +
// "ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip " +
// "ON BL_KELTARIP.Idbl_keltarip = BL_TARIP.Idbl_keltarip " +
// " INNER JOIN MR_SMFTARIP " +
// "ON BL_TRANSAKSI.idmr_tsmf = MR_SMFTARIP.idmr_tsmf " +
// " INNER JOIN BL_KASASKES " +
// "ON BL_TRANSAKSI.idbl_pembayaran = BL_KASASKES.Idbl_Pembayaran " +
// "AND BL_TRANSAKSI.idmr_mutasipasien = BL_KASASKES.idmr_mutasipasien " +
// " INNER JOIN MR_PASIEN " +
// "ON BL_KASASKES.Idmr_pasien = MR_PASIEN.IDMR_PASIEN " +
// " INNER JOIN MR_TRUANGAN " +
// "ON BL_KASASKES.Idmr_truangan = MR_TRUANGAN.idmr_truangan " +
// " INNER JOIN MR_SJASKES " +
// "ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien " +
// "INNER JOIN MR_DOKTER " +
// "ON MR_DOKTER.Idmr_dokter = BL_TRANSAKSIDETAIL.Idmr_dokter " +
// " WHERE (BL_TRANSAKSI.Batal <> 'Y') " +
// " AND (BL_KASASKES.Batal = '') " +
// " AND (MR_SJASKES.BATAL = '') " +
// " AND MR_SJASKES.idmr_tstatus = 'ASKESGAKIN' " +
// " AND (BL_TRANSAKSIDETAIL.Idbl_komponen <> 'JASA SARANA') " +
// " AND BL_KASASKES.Tanggal BETWEEN '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
// "' and '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
// " AND BL_TARIP.pisahsetor = '' AND BL_KASASKES.jumlah > 0 " +
// " AND BL_TRANSAKSIDETAIL.noambil <> 999 " +
// " AND BL_TRANSAKSI.idmr_tsmf <> 'DARAH' and BL_TRANSAKSI.idmr_tsmf <> 'PENDORONG'" +
// " AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-FARMASI' " +
// " AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-KPRI'" +
// " AND BL_TRANSAKSI.idbl_pembayaran > 0 AND BL_KELTARIP.Lapjp <> '-'";
//conn = modDb.pbconnKoneksiSQL(ref strErr);
//if (strErr != "")
//{
// tmrBlink.Enabled = false;
// tmrBlink.Stop();
// lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
// modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_CON, modMsg.TITLE_ERR);
// return;
//}
//reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
//if (strErr != "")
//{
// tmrBlink.Enabled = false;
// tmrBlink.Stop();
// lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
// modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
// conn.Close();
// return;
//}
//if (reader.HasRows)
//{
// while (reader.Read())
// {
// lstKASASKIN itemKASASKIN = new lstKASASKIN();
// itemKASASKIN.strRegBilling = modMain.pbstrgetCol(reader, 0, ref strErr, "");
// itemKASASKIN.strNama = modMain.pbstrgetCol(reader, 1, ref strErr, "");
// itemKASASKIN.strRuangan = modMain.pbstrgetCol(reader, 2, ref strErr, "");
// itemKASASKIN.dblJumlah = Convert.ToDouble(modMain.pbstrgetCol(reader, 3, ref strErr, ""));
// itemKASASKIN.dblSubsidi = Convert.ToDouble(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
// itemKASASKIN.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
// itemKASASKIN.strIdBl_Komponen = modMain.pbstrgetCol(reader, 6, ref strErr, "");
// itemKASASKIN.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
// itemKASASKIN.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
// itemKASASKIN.dblUrutan = Convert.ToDouble(modMain.pbstrgetCol(reader, 9, ref strErr, ""));
// itemKASASKIN.strRekapJp = modMain.pbstrgetCol(reader, 10, ref strErr, "");
// itemKASASKIN.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 11, ref strErr, ""));
// itemKASASKIN.dblNoAmbil = Convert.ToDouble(modMain.pbstrgetCol(reader, 12, ref strErr, ""));
// itemKASASKIN.dtTglAmbil = Convert.ToDateTime(modMain.pbstrgetCol(reader, 13, ref strErr, ""));
// itemKASASKIN.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 14, ref strErr, "");
// itemKASASKIN.strLapJP = modMain.pbstrgetCol(reader, 15, ref strErr, "");
// itemKASASKIN.strIdMR_TSMF = modMain.pbstrgetCol(reader, 16, ref strErr, "");
// itemKASASKIN.strIdMR_TUPF = modMain.pbstrgetCol(reader, 17, ref strErr, "");
// itemKASASKIN.strIdBl_Tarip = modMain.pbstrgetCol(reader, 18, ref strErr, "");
// itemKASASKIN.strUraianTarip = modMain.pbstrgetCol(reader, 19, ref strErr, "");
// itemKASASKIN.dblJumlahKasusTarip = Convert.ToDouble(modMain.pbstrgetCol(reader, 20, ref strErr, ""));
// itemKASASKIN.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 21, ref strErr, "");
// itemKASASKIN.strIdBl_Pembayaran = modMain.pbstrgetCol(reader, 22, ref strErr, "");
// itemKASASKIN.dtTglTransaksi = Convert.ToDateTime(modMain.pbstrgetCol(reader, 23, ref strErr, ""));
// itemKASASKIN.dtTgl = Convert.ToDateTime(modMain.pbstrgetCol(reader, 24, ref strErr, ""));
// itemKASASKIN.strIdMR_JenisKelas = modMain.pbstrgetCol(reader, 25, ref strErr, "");
// itemKASASKIN.strIdMR_Ruangan = modMain.pbstrgetCol(reader, 26, ref strErr, "");
// itemKASASKIN.strIdMR_Dokter = modMain.pbstrgetCol(reader, 27, ref strErr, "");
// itemKASASKIN.strNamaDokter = modMain.pbstrgetCol(reader, 28, ref strErr, "");
// grpLstKASASKIN.Add(itemKASASKIN);
// }
//}
//reader.Close();
//conn.Close();
////MessageBox.Show(grpLstKASASKIN.Count.ToString());
//if (grpLstKASASKIN.Count > 0)
//{
// var KaskinJP = (from fetch in grpLstKASASKIN
// where (fetch.strIdBl_Komponen == "JASA PELAYANAN" && fetch.dblTunainya > 0)
// group fetch by new
// {
// fetch.strRegBilling,
// fetch.strNama,
// fetch.strIdBl_Komponen,
// fetch.strLapJP,
// fetch.strIdMR_TUPF,
// fetch.strIdMR_TSMF,
// fetch.strRuangan
// } into groupData
// select new
// {
// regBilling = groupData.Key.strRegBilling,
// Nama = groupData.Key.strNama,
// Ruangan = groupData.Key.strRuangan,
// TUPF = groupData.Key.strIdMR_TUPF,
// IdBl_Komponen = groupData.Key.strIdBl_Komponen,
// IdMR_TSMF = groupData.Key.strIdMR_TSMF,
// tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
// LapJP = groupData.Key.strLapJP
// }).OrderBy(groupData => groupData.regBilling).ToList();
// var KaskinJA = (from fetch in grpLstKASASKIN
// where (fetch.strIdBl_Komponen != "JASA PELAYANAN" && fetch.dblTunainya > 0)
// group fetch by new
// {
// fetch.strRegBilling,
// fetch.strNama,
// fetch.strIdBl_Komponen,
// fetch.strLapJP,
// fetch.strIdMR_TUPF,
// fetch.strIdMR_TSMF,
// fetch.strRuangan
// } into groupData
// select new
// {
// regBilling = groupData.Key.strRegBilling,
// Nama = groupData.Key.strNama,
// Ruangan = groupData.Key.strRuangan,
// TUPF = groupData.Key.strIdMR_TUPF,
// IdBl_Komponen = groupData.Key.strIdBl_Komponen,
// IdMR_TSMF = groupData.Key.strIdMR_TSMF,
// tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
// LapJP = groupData.Key.strLapJP
// }).OrderBy(groupData => groupData.regBilling).ToList();
// var reg = (from fetch in grpLstKASASKIN
// select new
// {
// Regbilling = fetch.strRegBilling,
// Nama = fetch.strNama,
// Ruangan = fetch.strRuangan,
// idmr_tupf = fetch.strIdMR_TUPF,
// idmr_tsmf = fetch.strIdMR_TSMF
// }).Distinct().OrderBy(a => a.Regbilling).ToList();
// if (reg.Count > 0)
// {
// foreach (var fetch in reg)
// {
// lstTransak itemTransak = new lstTransak();
// itemTransak.strRegbilling = fetch.Regbilling;
// itemTransak.strNama = fetch.Nama;
// itemTransak.strRuangan = fetch.Ruangan;
// itemTransak.strUnit = fetch.idmr_tupf;
// itemTransak.strSMF = fetch.idmr_tsmf;
// itemTransak.dblKonsul = 0;
// itemTransak.dblVisite = 0;
// itemTransak.dblOperasi = 0;
// itemTransak.dblTindakan = 0;
// itemTransak.dblDiagelect = 0;
// itemTransak.dblPemRK = 0;
// grpTransak.Add(itemTransak);
// }
// }
// if (grpTransak.Count > 0)
// {
// /*JASA PELAYANAN*/
// foreach (var fetch in KaskinJP)
// {
// if (fetch.LapJP.Substring(0, 1) == "1")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "1"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblKonsul = grpTransak[intUrut].dblKonsul + fetch.tunainya;
// //fetchTransak.dblKonsul = fetchTransak.dblKonsul + fetchKasumJP.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF if (fetchKasumJP.LapJP.Substring(1, 1) == "1") */
// else if (fetch.LapJP.Substring(0, 1) == "2")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "2"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblVisite = grpTransak[intUrut].dblVisite + fetch.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "2") */
// else if (fetch.LapJP.Substring(0, 1) == "3")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "3"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblOperasi = grpTransak[intUrut].dblOperasi + fetch.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "3") */
// else if (fetch.LapJP.Substring(0, 1) == "4")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "4"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblTindakan = grpTransak[intUrut].dblTindakan + fetch.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "4") */
// else if (fetch.LapJP.Substring(0, 1) == "5")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "5"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblDiagelect = grpTransak[intUrut].dblDiagelect + fetch.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "5") */
// else if (fetch.LapJP.Substring(0, 1) == "6")
// {
// int intUrut = 0;
// foreach (var fetchTransak in grpTransak)
// {
// if (fetchTransak.strRegbilling == fetch.regBilling
// && fetch.LapJP.Substring(0, 1) == "6"
// && fetchTransak.strRuangan == fetch.Ruangan
// && fetchTransak.strSMF == fetch.IdMR_TSMF)
// {
// grpTransak[intUrut].dblPemRK = grpTransak[intUrut].dblPemRK + fetch.tunainya;
// }
// intUrut++;
// } /* EOF foreach (var fetchTransak in grpTransak) */
// } /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "6") */
// /* 2 SAMPAI 6 */
// } /* EOF foreach (var fetchKasumJP in KasumJP) */
// /*JASA ANASTHESI*/
// foreach (var fetch in KaskinJA)
// {
// lstTransak itemTransak = new lstTransak();
// itemTransak.strRegbilling = fetch.regBilling;
// itemTransak.strNama = fetch.Nama;
// itemTransak.strRuangan = fetch.Ruangan;
// itemTransak.strUnit = "ANASTHESI";
// itemTransak.strSMF = fetch.IdMR_TSMF;
// itemTransak.dblKonsul = 0;
// itemTransak.dblVisite = 0;
// itemTransak.dblOperasi = fetch.tunainya;
// itemTransak.dblTindakan = 0;
// itemTransak.dblDiagelect = 0;
// itemTransak.dblPemRK = 0;
// grpTransak.Add(itemTransak);
// } /* EOF foreach (var fetchKasumJA in KasumJA) */
// } /* EOF if (grpTransak.Count > 0) */
//} /* EOF if (grpLstKASASKIN.Count > 0) */
intWaktuLoad = 0;
intPenandaProses = 3;
/* QUERY ASKES JAMKESMAS*/
this.strQuerySQL = "SELECT " +
"BL_TRANSAKSI.Regbilling, " + //0
"MR_PASIEN.Nama, " + //1
"MR_TRUANGAN.ruangan, " + //2
"BL_TRANSAKSI.Jumlah, " + //3
"BL_TRANSAKSI.subsidi, " + //4
"BL_TRANSAKSI.tunai, " + //5
"BL_TRANSAKSIDETAIL.Idbl_komponen, " + //6
"BL_TRANSAKSIDETAIL.Nilai, " + //7
"BL_TRANSAKSIDETAIL.Ringan, " + //8
"BL_KELTARIP.urutan, " + //9
"BL_KELTARIP.rekapjp," + //10
"BL_TRANSAKSIDETAIL.Nilai - BL_TRANSAKSIDETAIL.Ringan as tunainya , " + //11
"BL_TRANSAKSIDETAIL.Noambil," + //12
"BL_TRANSAKSIDETAIL.tglambil, " + //13
"BL_KELTARIP.Idbl_keltarip, " + //14
"BL_KELTARIP.Lapjp, " + //15
"BL_TRANSAKSI.idmr_tsmf, " + //16
"MR_SMFTARIP.idmr_tupf, " + //17
"BL_TRANSAKSI.idbl_tarip, " + //18
"BL_TRANSAKSI.uraiantarip, " + //19
"BL_TRANSAKSI.jml_kasus_tarip, " + //20
"BL_TRANSAKSI.idbl_transaksi, " + //21
"BL_KASASKES.Idbl_Pembayaran, " + //22
"BL_TRANSAKSI.Tgltransaksi, " + //23
"BL_KASASKES.Tanggal, " + //24
"BL_TARIP.Idmr_jeniskelas, " + //25
"BL_TRANSAKSI.Idmr_truangan, " + //26
"MR_DOKTER.Idmr_dokter, " + //27
"MR_DOKTER.Nama " + //28
"FROM BL_KELTARIP With (nolock) " +
"INNER JOIN BL_TRANSAKSI " +
"INNER JOIN BL_TRANSAKSIDETAIL " +
"ON BL_TRANSAKSI.idbl_transaksi = BL_TRANSAKSIDETAIL.Idbl_transaksi " +
"INNER JOIN BL_TARIP " +
"ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip " +
"ON BL_KELTARIP.Idbl_keltarip = BL_TARIP.Idbl_keltarip " +
"INNER JOIN MR_SMFTARIP " +
"ON BL_TRANSAKSI.idmr_tsmf = MR_SMFTARIP.idmr_tsmf " +
"INNER JOIN BL_KASASKES " +
"ON BL_TRANSAKSI.idbl_pembayaran = BL_KASASKES.Idbl_Pembayaran " +
"AND BL_TRANSAKSI.idmr_mutasipasien = BL_KASASKES.idmr_mutasipasien " +
"INNER JOIN MR_PASIEN " +
"ON BL_KASASKES.Idmr_pasien = MR_PASIEN.IDMR_PASIEN " +
"INNER JOIN MR_TRUANGAN " +
"ON BL_KASASKES.Idmr_truangan = MR_TRUANGAN.idmr_truangan " +
"INNER JOIN MR_SJASKES " +
"ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien " +
"INNER JOIN MR_DOKTER " +
"ON MR_DOKTER.Idmr_dokter = BL_TRANSAKSIDETAIL.Idmr_dokter " +
"WHERE (BL_TRANSAKSI.Batal <> 'Y') AND (BL_KASASKES.Batal = '') " +
" AND (MR_SJASKES.BATAL = '') AND MR_SJASKES.idmr_tstatus = 'ASKESJAMKESMAS' " +
" AND (BL_TRANSAKSIDETAIL.Idbl_komponen <> 'JASA SARANA') " +
" AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' AND '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
" AND BL_TARIP.pisahsetor = '' and BL_KASASKES.jumlah > 0 " +
" AND BL_TRANSAKSIDETAIL.noambil <> 999 " +
" AND BL_TRANSAKSI.idmr_tsmf <> 'DARAH' AND BL_TRANSAKSI.idmr_tsmf <> 'PENDORONG'" +
" AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-FARMASI' " +
" AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-KPRI'" +
" AND BL_TRANSAKSI.idbl_pembayaran > 0 and BL_KELTARIP.Lapjp <> '-'";
conn = modDb.pbconnKoneksiSQL(ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_CON, modMsg.TITLE_ERR);
return;
}
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKASJKM itemKASJKM = new lstKASJKM();
itemKASJKM.strRegBilling = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKASJKM.strNama = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKASJKM.strRuangan = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKASJKM.dblJumlah = Convert.ToDouble(modMain.pbstrgetCol(reader, 3, ref strErr, ""));
itemKASJKM.dblSubsidi = Convert.ToDouble(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKASJKM.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKASJKM.strIdBl_Komponen = modMain.pbstrgetCol(reader, 6, ref strErr, "");
itemKASJKM.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKASJKM.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKASJKM.dblUrutan = Convert.ToDouble(modMain.pbstrgetCol(reader, 9, ref strErr, ""));
itemKASJKM.strRekapJp = modMain.pbstrgetCol(reader, 10, ref strErr, "");
itemKASJKM.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 11, ref strErr, ""));
itemKASJKM.dblNoAmbil = Convert.ToDouble(modMain.pbstrgetCol(reader, 12, ref strErr, ""));
itemKASJKM.dtTglAmbil = Convert.ToDateTime(modMain.pbstrgetCol(reader, 13, ref strErr, ""));
itemKASJKM.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 14, ref strErr, "");
itemKASJKM.strLapJP = modMain.pbstrgetCol(reader, 15, ref strErr, "");
itemKASJKM.strIdMR_TSMF = modMain.pbstrgetCol(reader, 16, ref strErr, "");
itemKASJKM.strIdMR_TUPF = modMain.pbstrgetCol(reader, 17, ref strErr, "");
itemKASJKM.strIdBl_Tarip = modMain.pbstrgetCol(reader, 18, ref strErr, "");
itemKASJKM.strUraianTarip = modMain.pbstrgetCol(reader, 19, ref strErr, "");
itemKASJKM.dblJumlahKasusTarip = Convert.ToDouble(modMain.pbstrgetCol(reader, 20, ref strErr, ""));
itemKASJKM.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 21, ref strErr, "");
itemKASJKM.strIdBl_Pembayaran = modMain.pbstrgetCol(reader, 22, ref strErr, "");
itemKASJKM.dtTglTransaksi = Convert.ToDateTime(modMain.pbstrgetCol(reader, 23, ref strErr, ""));
itemKASJKM.dtTgl = Convert.ToDateTime(modMain.pbstrgetCol(reader, 24, ref strErr, ""));
itemKASJKM.strIdMR_JenisKelas = modMain.pbstrgetCol(reader, 25, ref strErr, "");
itemKASJKM.strIdMR_Ruangan = modMain.pbstrgetCol(reader, 26, ref strErr, "");
itemKASJKM.strIdMR_Dokter = modMain.pbstrgetCol(reader, 27, ref strErr, "");
itemKASJKM.strNamaDokter = modMain.pbstrgetCol(reader, 28, ref strErr, "");
grpLstKASJKM.Add(itemKASJKM);
}
}
reader.Close();
conn.Close();
if (grpLstKASJKM.Count > 0)
{
var KasJKMJP = (from fetch in grpLstKASJKM
where (fetch.strIdBl_Komponen == "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var KasJKMJA = (from fetch in grpLstKASJKM
where (fetch.strIdBl_Komponen != "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var reg = (from fetch in grpLstKASJKM
select new
{
Regbilling = fetch.strRegBilling,
Nama = fetch.strNama,
Ruangan = fetch.strRuangan,
idmr_tupf = fetch.strIdMR_TUPF,
idmr_tsmf = fetch.strIdMR_TSMF
}).Distinct().OrderBy(a => a.Regbilling).ToList();
if (reg.Count > 0)
{
foreach (var fetch in reg)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetch.Regbilling;
itemTransak.strNama = fetch.Nama;
itemTransak.strRuangan = fetch.Ruangan;
itemTransak.strUnit = fetch.idmr_tupf;
itemTransak.strSMF = fetch.idmr_tsmf;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = 0;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
}
}
if (grpTransak.Count > 0)
{
/*JASA PELAYANAN*/
foreach (var fetch in KasJKMJP)
{
if (fetch.LapJP.Substring(0, 1) == "1")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "1"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblKonsul = grpTransak[intUrut].dblKonsul + fetch.tunainya;
//fetchTransak.dblKonsul = fetchTransak.dblKonsul + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF if (fetchKasumJP.LapJP.Substring(1, 1) == "1") */
else if (fetch.LapJP.Substring(0, 1) == "2")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "2"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblVisite = grpTransak[intUrut].dblVisite + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "2") */
else if (fetch.LapJP.Substring(0, 1) == "3")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "3"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblOperasi = grpTransak[intUrut].dblOperasi + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "3") */
else if (fetch.LapJP.Substring(0, 1) == "4")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "4"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblTindakan = grpTransak[intUrut].dblTindakan + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "4") */
else if (fetch.LapJP.Substring(0, 1) == "5")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "5"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblDiagelect = grpTransak[intUrut].dblDiagelect + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "5") */
else if (fetch.LapJP.Substring(0, 1) == "6")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "6"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblPemRK = grpTransak[intUrut].dblPemRK + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "6") */
/* 2 SAMPAI 6 */
} /* EOF foreach (var fetchKasumJP in KasumJP) */
/*JASA ANASTHESI*/
foreach (var fetch in KasJKMJA)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetch.regBilling;
itemTransak.strNama = fetch.Nama;
itemTransak.strRuangan = fetch.Ruangan;
itemTransak.strUnit = "ANASTHESI";
itemTransak.strSMF = fetch.IdMR_TSMF;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = fetch.tunainya;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
} /* EOF foreach (var fetch in KasJKMJA) */
} /* EOF if (grpTransak.Count > 0) */
} /* EOF if (grpLstKasJKM.Count > 0) */
intWaktuLoad = 0;
intPenandaProses = 4;
/* QUERY ASKES JAMKESDA*/
this.strQuerySQL = "SELECT " +
"BL_TRANSAKSI.Regbilling, " + //0
"MR_PASIEN.Nama, " + //1
"MR_TRUANGAN.ruangan, " + //2
"BL_TRANSAKSI.Jumlah, " + //3
"BL_TRANSAKSI.subsidi, " + //4
"BL_TRANSAKSI.tunai, " + //5
"BL_TRANSAKSIDETAIL.Idbl_komponen, " + //6
"BL_TRANSAKSIDETAIL.Nilai, " + //7
"BL_TRANSAKSIDETAIL.Ringan, " + //8
"BL_KELTARIP.urutan, " + //9
"BL_KELTARIP.rekapjp," + //10
"BL_TRANSAKSIDETAIL.Nilai - BL_TRANSAKSIDETAIL.Ringan as tunainya , " + //11
"BL_TRANSAKSIDETAIL.Noambil," + //12
"BL_TRANSAKSIDETAIL.tglambil, " + //13
"BL_KELTARIP.Idbl_keltarip, " + //14
"BL_KELTARIP.Lapjp, " + //15
"BL_TRANSAKSI.idmr_tsmf, " + //16
"MR_SMFTARIP.idmr_tupf, " + //17
"BL_TRANSAKSI.idbl_tarip, " + //18
"BL_TRANSAKSI.uraiantarip, " + //19
"BL_TRANSAKSI.jml_kasus_tarip, " + //20
"BL_TRANSAKSI.idbl_transaksi, " + //21
"BL_KASASKES.Idbl_Pembayaran, " + //22
"BL_TRANSAKSI.Tgltransaksi, " + //23
"BL_KASASKES.Tanggal, " + //24
"BL_TARIP.Idmr_jeniskelas, " + //25
"BL_TRANSAKSI.Idmr_truangan, " + //26
"MR_DOKTER.Idmr_dokter, " + //27
"MR_DOKTER.Nama " + //28
" FROM BL_KELTARIP With (nolock) " +
" INNER JOIN BL_TRANSAKSI " +
" INNER JOIN BL_TRANSAKSIDETAIL "+
"ON BL_TRANSAKSI.idbl_transaksi = BL_TRANSAKSIDETAIL.Idbl_transaksi " +
" INNER JOIN BL_TARIP " +
"ON BL_TRANSAKSI.idbl_tarip = BL_TARIP.IdBl_tarip " +
"ON BL_KELTARIP.Idbl_keltarip = BL_TARIP.Idbl_keltarip " +
" INNER JOIN MR_SMFTARIP " +
"ON BL_TRANSAKSI.idmr_tsmf = MR_SMFTARIP.idmr_tsmf " +
" INNER JOIN BL_KASASKES " +
"ON BL_TRANSAKSI.idbl_pembayaran = BL_KASASKES.Idbl_Pembayaran " +
" AND BL_TRANSAKSI.idmr_mutasipasien = BL_KASASKES.idmr_mutasipasien " +
" INNER JOIN MR_PASIEN ON BL_KASASKES.Idmr_pasien = MR_PASIEN.IDMR_PASIEN " +
" INNER JOIN MR_TRUANGAN ON BL_KASASKES.Idmr_truangan = MR_TRUANGAN.idmr_truangan " +
" INNER JOIN MR_SJASKES ON BL_KASASKES.idmr_mutasipasien = MR_SJASKES.idmr_mutasipasien " +
"INNER JOIN MR_DOKTER " +
"ON MR_DOKTER.Idmr_dokter = BL_TRANSAKSIDETAIL.Idmr_dokter " +
" WHERE (BL_TRANSAKSI.Batal <> 'Y') AND (BL_KASASKES.Batal = '') " +
" AND (MR_SJASKES.BATAL = '') and MR_SJASKES.idmr_tstatus = 'ASKESJAMKESDA' " +
" AND (BL_TRANSAKSIDETAIL.Idbl_komponen <> 'JASA SARANA') " +
" AND BL_KASASKES.Tanggal between '" + dtpFilterTgl1.Value.ToString("MM/dd/yyyy 00:00:00") +
"' and '" + dtpFilterTgl2.Value.ToString("MM/dd/yyyy 23:59:59") + "' " +
" AND BL_TARIP.pisahsetor = '' AND BL_KASASKES.jumlah > 0 " +
" AND BL_TRANSAKSIDETAIL.noambil <> 999 " +
" AND BL_TRANSAKSI.idmr_tsmf <> 'DARAH' and BL_TRANSAKSI.idmr_tsmf <> 'PENDORONG'" +
" AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-FARMASI' " +
" AND BL_TRANSAKSI.idmr_tsmf <> 'OBAT/ALKES-KPRI'" +
" AND BL_TRANSAKSI.idbl_pembayaran > 0 and BL_KELTARIP.Lapjp <> '-'";
conn = modDb.pbconnKoneksiSQL(ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_CON, modMsg.TITLE_ERR);
return;
}
reader = modDb.pbreaderSQL(conn, strQuerySQL, ref strErr);
if (strErr != "")
{
tmrBlink.Enabled = false;
tmrBlink.Stop();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Visible = false);
modMsg.pvDlgErr(modMsg.IS_DEV, strErr, modMsg.DB_GET, modMsg.TITLE_ERR);
conn.Close();
return;
}
if (reader.HasRows)
{
while (reader.Read())
{
lstKASJKD itemKASJKD = new lstKASJKD();
itemKASJKD.strRegBilling = modMain.pbstrgetCol(reader, 0, ref strErr, "");
itemKASJKD.strNama = modMain.pbstrgetCol(reader, 1, ref strErr, "");
itemKASJKD.strRuangan = modMain.pbstrgetCol(reader, 2, ref strErr, "");
itemKASJKD.dblJumlah = Convert.ToDouble(modMain.pbstrgetCol(reader, 3, ref strErr, ""));
itemKASJKD.dblSubsidi = Convert.ToDouble(modMain.pbstrgetCol(reader, 4, ref strErr, ""));
itemKASJKD.dblTunai = Convert.ToDouble(modMain.pbstrgetCol(reader, 5, ref strErr, ""));
itemKASJKD.strIdBl_Komponen = modMain.pbstrgetCol(reader, 6, ref strErr, "");
itemKASJKD.dblNilai = Convert.ToDouble(modMain.pbstrgetCol(reader, 7, ref strErr, ""));
itemKASJKD.dblRingan = Convert.ToDouble(modMain.pbstrgetCol(reader, 8, ref strErr, ""));
itemKASJKD.dblUrutan = Convert.ToDouble(modMain.pbstrgetCol(reader, 9, ref strErr, ""));
itemKASJKD.strRekapJp = modMain.pbstrgetCol(reader, 10, ref strErr, "");
itemKASJKD.dblTunainya = Convert.ToDouble(modMain.pbstrgetCol(reader, 11, ref strErr, ""));
itemKASJKD.dblNoAmbil = Convert.ToDouble(modMain.pbstrgetCol(reader, 12, ref strErr, ""));
itemKASJKD.dtTglAmbil = Convert.ToDateTime(modMain.pbstrgetCol(reader, 13, ref strErr, ""));
itemKASJKD.strIdBl_KelTarip = modMain.pbstrgetCol(reader, 14, ref strErr, "");
itemKASJKD.strLapJP = modMain.pbstrgetCol(reader, 15, ref strErr, "");
itemKASJKD.strIdMR_TSMF = modMain.pbstrgetCol(reader, 16, ref strErr, "");
itemKASJKD.strIdMR_TUPF = modMain.pbstrgetCol(reader, 17, ref strErr, "");
itemKASJKD.strIdBl_Tarip = modMain.pbstrgetCol(reader, 18, ref strErr, "");
itemKASJKD.strUraianTarip = modMain.pbstrgetCol(reader, 19, ref strErr, "");
itemKASJKD.dblJumlahKasusTarip = Convert.ToDouble(modMain.pbstrgetCol(reader, 20, ref strErr, ""));
itemKASJKD.strIdBl_Transaksi = modMain.pbstrgetCol(reader, 21, ref strErr, "");
itemKASJKD.strIdBl_Pembayaran = modMain.pbstrgetCol(reader, 22, ref strErr, "");
itemKASJKD.dtTglTransaksi = Convert.ToDateTime(modMain.pbstrgetCol(reader, 23, ref strErr, ""));
itemKASJKD.dtTgl = Convert.ToDateTime(modMain.pbstrgetCol(reader, 24, ref strErr, ""));
itemKASJKD.strIdMR_JenisKelas = modMain.pbstrgetCol(reader, 25, ref strErr, "");
itemKASJKD.strIdMR_Ruangan = modMain.pbstrgetCol(reader, 26, ref strErr, "");
itemKASJKD.strIdMR_Dokter = modMain.pbstrgetCol(reader, 27, ref strErr, "");
itemKASJKD.strNamaDokter = modMain.pbstrgetCol(reader, 28, ref strErr, "");
grpLstKASJKD.Add(itemKASJKD);
}
}
reader.Close();
conn.Close();
if (grpLstKASJKD.Count > 0)
{
var KasJKDJP = (from fetch in grpLstKASJKD
where (fetch.strIdBl_Komponen == "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var KasJKDJA = (from fetch in grpLstKASJKD
where (fetch.strIdBl_Komponen != "JASA PELAYANAN" && fetch.dblTunainya > 0)
group fetch by new
{
fetch.strRegBilling,
fetch.strNama,
fetch.strIdBl_Komponen,
fetch.strLapJP,
fetch.strIdMR_TUPF,
fetch.strIdMR_TSMF,
fetch.strRuangan
} into groupData
select new
{
regBilling = groupData.Key.strRegBilling,
Nama = groupData.Key.strNama,
Ruangan = groupData.Key.strRuangan,
TUPF = groupData.Key.strIdMR_TUPF,
IdBl_Komponen = groupData.Key.strIdBl_Komponen,
IdMR_TSMF = groupData.Key.strIdMR_TSMF,
tunainya = groupData.Sum(fetchKasum => fetchKasum.dblTunainya),
LapJP = groupData.Key.strLapJP
}).OrderBy(groupData => groupData.regBilling).ToList();
var reg = (from fetch in grpLstKASJKD
select new
{
Regbilling = fetch.strRegBilling,
Nama = fetch.strNama,
Ruangan = fetch.strRuangan,
idmr_tupf = fetch.strIdMR_TUPF,
idmr_tsmf = fetch.strIdMR_TSMF
}).Distinct().OrderBy(a => a.Regbilling).ToList();
if (reg.Count > 0)
{
foreach (var fetch in reg)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetch.Regbilling;
itemTransak.strNama = fetch.Nama;
itemTransak.strRuangan = fetch.Ruangan;
itemTransak.strUnit = fetch.idmr_tupf;
itemTransak.strSMF = fetch.idmr_tsmf;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = 0;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
}
}
if (grpTransak.Count > 0)
{
/*JASA PELAYANAN*/
foreach (var fetch in KasJKDJP)
{
if (fetch.LapJP.Substring(0, 1) == "1")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "1"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblKonsul = grpTransak[intUrut].dblKonsul + fetch.tunainya;
//fetchTransak.dblKonsul = fetchTransak.dblKonsul + fetchKasumJP.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF if (fetchKasumJP.LapJP.Substring(1, 1) == "1") */
else if (fetch.LapJP.Substring(0, 1) == "2")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "2"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblVisite = grpTransak[intUrut].dblVisite + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "2") */
else if (fetch.LapJP.Substring(0, 1) == "3")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "3"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblOperasi = grpTransak[intUrut].dblOperasi + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "3") */
else if (fetch.LapJP.Substring(0, 1) == "4")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "4"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblTindakan = grpTransak[intUrut].dblTindakan + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "4") */
else if (fetch.LapJP.Substring(0, 1) == "5")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "5"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblDiagelect = grpTransak[intUrut].dblDiagelect + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "5") */
else if (fetch.LapJP.Substring(0, 1) == "6")
{
int intUrut = 0;
foreach (var fetchTransak in grpTransak)
{
if (fetchTransak.strRegbilling == fetch.regBilling
&& fetch.LapJP.Substring(0, 1) == "6"
&& fetchTransak.strRuangan == fetch.Ruangan
&& fetchTransak.strSMF == fetch.IdMR_TSMF)
{
grpTransak[intUrut].dblPemRK = grpTransak[intUrut].dblPemRK + fetch.tunainya;
}
intUrut++;
} /* EOF foreach (var fetchTransak in grpTransak) */
} /* EOF else if (fetchKasumJP.LapJP.Substring(1, 1) == "6") */
/* 2 SAMPAI 6 */
} /* EOF foreach (var fetchKasumJP in KasumJP) */
/*JASA ANASTHESI*/
foreach (var fetch in KasJKDJA)
{
lstTransak itemTransak = new lstTransak();
itemTransak.strRegbilling = fetch.regBilling;
itemTransak.strNama = fetch.Nama;
itemTransak.strRuangan = fetch.Ruangan;
itemTransak.strUnit = "ANASTHESI";
itemTransak.strSMF = fetch.IdMR_TSMF;
itemTransak.dblKonsul = 0;
itemTransak.dblVisite = 0;
itemTransak.dblOperasi = fetch.tunainya;
itemTransak.dblTindakan = 0;
itemTransak.dblDiagelect = 0;
itemTransak.dblPemRK = 0;
grpTransak.Add(itemTransak);
} /* EOF foreach (var fetch in KasJKMJA) */
} /* EOF if (grpTransak.Count > 0) */
} /* EOF if (grpLstKasJKM.Count > 0) */
tmrWaktuLoad.Stop();
tmrWaktuLoad.Enabled = false;
if (grpTransak.Count > 0)
{
var transaknya = (from x in grpTransak
group x by new
{
x.strRegbilling,
x.strUnit,
x.strRuangan,
x.strNama
} into groupTransak
select new
{
regBilling = groupTransak.Key.strRegbilling,
Nama = groupTransak.Key.strNama,
Ruangan = groupTransak.Key.strRuangan,
Unit = groupTransak.Key.strUnit,
konsul = groupTransak.Sum(x => x.dblKonsul),
visite = groupTransak.Sum(x => x.dblVisite),
operasi = groupTransak.Sum(x => x.dblOperasi),
tindakan = groupTransak.Sum(x => x.dblTindakan),
diagelect = groupTransak.Sum(x => x.dblDiagelect),
pemrk = groupTransak.Sum(x => x.dblPemRK)
}).ToList();
foreach (var fetch in transaknya)
{
lstTransaknya itemTransaknya = new lstTransaknya();
itemTransaknya.strRegBilling = fetch.regBilling;
itemTransaknya.strNama = fetch.Nama;
itemTransaknya.strRuangan = fetch.Ruangan;
itemTransaknya.strUnit = fetch.Unit;
itemTransaknya.dblKonsul = fetch.konsul;
itemTransaknya.dblVisite = fetch.visite;
itemTransaknya.dblOperasi = fetch.operasi;
itemTransaknya.dblTindakan = fetch.tindakan;
itemTransaknya.dblDiagelect = fetch.diagelect;
itemTransaknya.dblPemRK = fetch.pemrk;
grpTransaknya.Add(itemTransaknya);
}
}
if (grpKelTarip.Count > 0)
{
var xsatu = (from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "1"
select x.strLapJP);
var xdua = from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "2"
select x.strLapJP;
var xtiga = from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "3"
select x.strLapJP;
var xempat = from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "4"
select x.strLapJP;
var xlima = from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "5"
select x.strLapJP;
var xenam = from x in grpKelTarip
where x.strIdBl_KelTarip.Substring(1, 1) == "6"
select x.strLapJP;
}
//conn.Close();
lblInfoPencarian.SafeControlInvoke(Label => lblInfoPencarian.Text = "Proses Load - SELESAI");
dtpFilterTgl1.SafeControlInvoke(DateTimePicker => dtpFilterTgl1.Enabled = false);
dtpFilterTgl2.SafeControlInvoke(DateTimePicker => dtpFilterTgl2.Enabled = false);
cmbJenisLaporan.SafeControlInvoke(ComboBox => cmbJenisLaporan.Enabled = true);
cmbUnit.SafeControlInvoke(ComboBox => cmbUnit.Enabled = true);
btnCari.SafeControlInvoke(Button => btnCari.Enabled = true);
btnCari.SafeControlInvoke(Button => btnCari.Text = "Pilih Tanggal");
cmbJenisLaporan.SafeControlInvoke(ComboBox => cmbJenisLaporan.Focus());
cmbPilihanExport.SafeControlInvoke(ComboBox => cmbPilihanExport.Enabled = true);
btnExport.SafeControlInvoke(Button => btnExport.Enabled = true);
btnTampilkan.SafeControlInvoke(Button => btnTampilkan.Enabled = true);
}
