private void btnGotur_Click(object sender, EventArgs e)
{
ICD10HastalikReport rprprotokoldefteri = new ICD10HastalikReport();
rprprotokoldefteri.DataSource = GetHastalikDataTable();
rprprotokoldefteri.DataMember = "Table";
rprprotokoldefteri.xrSubreport1.ReportSource.DataSource = Transaction.Instance.ExecuteSql(@"
set dateformat dmy;
SELECT
T.Kodu as [Teşhis Kodu]
,T.Adi as [Teşhis Adı]
,max(TckNo) as [Tc Kimlik No]
,max(H.Adi) as [Adı]
,max(H.Soyadi) as [Soyadı]
,max(H.Cinsiyeti) as [Cinsiyeti]
,max(H.DogumTarihi) AS [Doğum Tarihi]
,max(MT.IzlemTarihi) AS [Teşhis Tarihi]
,(Select Adi+' '+Soyadi From Doktor where Doktor.Id=dbo.iszero(M.VekilDoktor_Id,M.Doktor_Id) and Doktor.Aktif=1) AS [Doktor Adı]
,'(" + dateEditBasTarih.DateTime.ToShortDateString() + " - " + dateEditBitTarih.DateTime.ToShortDateString() + ")' as Tarih" +
@" FROM
Hasta H
INNER JOIN Muayene AS M ON M.Hasta_Id=H.Id AND M.Aktif=1
INNER JOIN MuayeneTeshis AS MT ON MT.Hasta_Id=H.Id AND MT.Muayene_Id=M.Id AND MT.Aktif=1
INNER JOIN Teshis AS T ON T.Id=MT.Teshis_Id AND T.Aktif=1
WHERE m.IsAutoImport=0 and mt.IsAutoImport=0 and
dbo.iszero(MT.VekilDoktor_Id,MT.Doktor_Id)= " + Current.AktifDoktorId.ToString()
+" AND M.MuayeneKapalimi=1 "
+ " AND M.MuayeneTarihi BETWEEN '" + dateEditBasTarih.DateTime.ToShortDateString() + "' AND '" + dateEditBitTarih.DateTime.ToShortDateString() + "'"
+ " Group By T.Kodu ,T.Adi,TckNo,M.VekilDoktor_Id,M.Doktor_Id "
+" Order By T.Kodu ,T.Adi");
rprprotokoldefteri.xrSubreport1.ReportSource.DataMember = "Table";
rprprotokoldefteri.ShowPreview();
}
private void btnGotur_Click(object sender, EventArgs e)
{
ICD10HastalikReport rprprotokoldefteri = new ICD10HastalikReport();
rprprotokoldefteri.DataSource = GetHastalikDataTable();
rprprotokoldefteri.DataMember = "Table";
rprprotokoldefteri.xrSubreport1.ReportSource.DataSource = Transaction.Instance.ExecuteSql(@"
set dateformat dmy;
SELECT
T.Kodu as [Teşhis Kodu]
,T.Adi as [Teşhis Adı]
,max(TckNo) as [Tc Kimlik No]
,max(H.Adi) as [Adı]
,max(H.Soyadi) as [Soyadı]
,max(H.Cinsiyeti) as [Cinsiyeti]
,max(H.DogumTarihi) AS [Doğum Tarihi]
,max(MT.IzlemTarihi) AS [Teşhis Tarihi]
,(Select Adi+' '+Soyadi From Doktor where Doktor.Id=dbo.iszero(M.VekilDoktor_Id,M.Doktor_Id) and Doktor.Aktif=1) AS [Doktor Adı]
,'(" + dateEditBasTarih.DateTime.ToShortDateString() + " - " + dateEditBitTarih.DateTime.ToShortDateString() + ")' as Tarih" +
@" FROM
Hasta H
INNER JOIN Muayene AS M ON M.Hasta_Id=H.Id AND M.Aktif=1
INNER JOIN MuayeneTeshis AS MT ON MT.Hasta_Id=H.Id AND MT.Muayene_Id=M.Id AND MT.Aktif=1
INNER JOIN Teshis AS T ON T.Id=MT.Teshis_Id AND T.Aktif=1
WHERE m.IsAutoImport=0 and mt.IsAutoImport=0 and
dbo.iszero(MT.VekilDoktor_Id,MT.Doktor_Id)= " + Current.AktifDoktorId.ToString()
+ " AND M.MuayeneKapalimi=1 "
+ " AND M.MuayeneTarihi BETWEEN '" + dateEditBasTarih.DateTime.ToShortDateString() + "' AND '" + dateEditBitTarih.DateTime.ToShortDateString() + "'"
+ " Group By T.Kodu ,T.Adi,TckNo,M.VekilDoktor_Id,M.Doktor_Id "
+ " Order By T.Kodu ,T.Adi");
rprprotokoldefteri.xrSubreport1.ReportSource.DataMember = "Table";
rprprotokoldefteri.ShowPreview();
}
