protected void clk_submit(object sender, EventArgs e)
{
if (Tk_mula.Text != "" && Tk_akhir.Text != "")
{
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty, sqry = string.Empty, py_fdate = string.Empty, py_ldate = string.Empty, curr_yr = string.Empty, prev_yr = string.Empty;
int min_val = 1;
string fmdate = string.Empty, tmdate = string.Empty, tmdate1 = string.Empty;
string var_fmdate = string.Empty, var_tmdate = string.Empty, var_tmdate1 = string.Empty;
DateTime fd, td;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
if (Tk_akhir.Text != "")
{
string tdate = Tk_akhir.Text;
td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
tmdate = td.ToString("yyyy-MM-dd");
}
py_fdate = fmdate;
py_ldate = tmdate;
qry1 = "select c.Ref_nama_syarikat,c.Ref_no_syarikat,c.Ref_no_telefone,Ref_alamat,pel_bandar,s4.Decription pel_negeri,Ref_email,s3.Bank_Name,pel_bank_accno,pel_credit_lmt,a.no_invois,a.perkera,Format(a.tarikh_invois, 'dd/MM/yyyy') tarikh_invois,case when (ISNULL(DATEDIFF(day, b.tarikh_resit, a.tarikh_invois),'0') - ISNULL(a.Terma,'0')) > '0' then (ISNULL(DATEDIFF(day, b.tarikh_resit, a.tarikh_invois),'0') - ISNULL(a.Terma,'0')) else '0' end as overdue , "
+ " case when (ISNULL(b.Overall,'0.00') - a.Overall) = '0.00' then 'CLOSE' else 'OPEN' end as Status, A.overall amaun,ISNULL(b.Overall,'0.00') payment, (ISNULL(b.Overall,'0.00') - a.Overall) baki "
+ " from KW_Penerimaan_invois as a outer apply (select * from kw_penerimaan_resit s1 where s1.no_invois=a.no_invois and s1.nama_pelanggan_code=a.nama_pelanggan_code) as b "
+ " outer apply(SELECT * FROM KW_Ref_Pelanggan s2 where s2.Ref_no_syarikat=a.nama_pelanggan_code and s2.Status='A') as c left join ref_nama_bank s3 on s3.Bank_Code=pel_bank_cd left join Ref_Negeri s4 on s4.Decription_Code=pel_negeri where c.Ref_no_syarikat='" + ddpro.SelectedValue + "' "
+ " and b.tarikh_resit>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and b.tarikh_resit<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) ";
DataSet ds = new DataSet();
DataTable dt = new DataTable();
dt = DBCon.Ora_Execute_table(qry1);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable get_pfl = new DataTable();
get_pfl = DBCon.Ora_Execute_table("select syar_logo,fin_year from KW_Profile_syarikat m1 inner join kw_financial_year s1 on s1.fin_kod_syarikat=kod_syarikat and s1.Status='1' where cur_sts='1' and m1.Status='A'");
string imagePath = string.Empty;
if (get_pfl.Rows[0]["syar_logo"].ToString() != "")
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/" + get_pfl.Rows[0]["syar_logo"].ToString() + "")).AbsoluteUri;
}
else
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/user.png")).AbsoluteUri;
}
Rptviwerlejar.LocalReport.EnableExternalImages = true;
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_penyata_deb.rdlc";
ReportDataSource rds = new ReportDataSource("penyata_deb", dt);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("d1", ""),
new ReportParameter("d2", ""),
new ReportParameter("d3", Tk_mula.Text),
new ReportParameter("d4", Tk_akhir.Text),
new ReportParameter("d5", get_pfl.Rows[0]["fin_year"].ToString()),
new ReportParameter("d6", ""),
new ReportParameter("v1", imagePath)
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
Rptviwerlejar.LocalReport.DisplayName = "PENYATA_DEBTOR_" + ddpro.SelectedItem.Text + "_" + DateTime.Now.ToString("yyyyMMdd");
Rptviwerlejar.LocalReport.Refresh();
System.Threading.Thread.Sleep(1);
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod Tidak Dijumpai.',{'type': 'warning','title': 'Warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_prnt(object sender, EventArgs e)
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty;
fin_details();
dt = DBCon.Ora_Execute_table("select * from ( "
+ " select ROW_NUMBER() OVER(ORDER BY cyp.kod_akaun) AS RowNum,'1' sno,'K' as a,cyp.kod_akaun a1,cyp.nama_akaun a2, "
+ " (((sum(ISNULL(cast(s2.opn_kredit_amt as money), '0.00')) - sum(ISNULL(cast(s2.opn_debit_amt as money), '0.00'))) + (isnull(sum(cast(s2_1.KW_kredit_amt as money)), '0.00') - isnull(sum(cast(s2_1.KW_Debit_amt as money)), '0.00'))) + isnull(sum(cast(s1.KW_kredit_amt as money)), '0.00')) - isnull(sum(cast(s1.KW_Debit_amt as money)), '0.00') as a3 "
+ " ,(((sum(ISNULL(cast(s2.opn_kredit_amt as money), '0.00')) - sum(ISNULL(cast(s2.opn_debit_amt as money), '0.00'))) + (isnull(sum(cast(s2_1.KW_kredit_amt as money)), '0.00') - isnull(sum(cast(s2_1.KW_Debit_amt as money)), '0.00'))) + isnull(sum(cast(s1.KW_kredit_amt as money)), '0.00')) - isnull(sum(cast(s1.KW_Debit_amt as money)), '0.00') as a4 from "
+ " KW_Ref_Carta_Akaun m1 left join KW_Opening_Balance s2 on s2.set_sts = '1' and s2.kod_akaun = m1.kod_akaun and '" + Tahun_kew.SelectedValue + "' between YEAR(s2.start_dt)and YEAR(s2.end_dt) left join KW_General_Ledger s2_1 on s2_1.kod_akaun = m1.kod_akaun and YEAR(s2_1.GL_post_dt) = '" + Tahun_kew.SelectedValue + "' and s2_1.GL_post_dt <= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) left join KW_General_Ledger s1 on s1.kod_akaun = m1.kod_akaun and s1.GL_post_dt >= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and s1.GL_post_dt <= DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) and s1.GL_sts = 'L' left join KW_Kategori_akaun kk on kk.kat_cd = m1.kat_akaun and kat_type = '01' inner join kw_ref_report_1 s5 on s5.kat_cd = kk.kat_rpt_kk and kat_rpt_cd = '02' left join KW_Ref_Carta_Akaun cyp on cyp.ca_cyp = '1' left join KW_Kategori_akaun kk1 on kk1.kat_cd = cyp.kat_akaun where m1.jenis_akaun_type != '1' and m1.Status = 'A' group by kk1.kat_cd, cyp.nama_akaun, cyp.kod_akaun "
+ " union all select ROW_NUMBER() OVER(ORDER BY tmp_kod_akaun) AS RowNum,'2' sno,'D' as a,tmp_kod_akaun a1,tmp_descript a2,tmp_jum_amt a3,('0.00' - tmp_jum_amt) a4 from KW_Ref_Pembahagian where tmp_tahun_kewangan='" + Tahun_kew.SelectedValue + "') as a order by sno ");
//dt1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable get_pfl = new DataTable();
get_pfl = DBCon.Ora_Execute_table("select syar_logo from KW_Profile_syarikat where cur_sts='1' and Status='A'");
string imagePath = string.Empty;
if (get_pfl.Rows[0]["syar_logo"].ToString() != "")
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/" + get_pfl.Rows[0]["syar_logo"].ToString() + "")).AbsoluteUri;
}
else
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/user.png")).AbsoluteUri;
}
Rptviwerlejar.LocalReport.EnableExternalImages = true;
Rptviwerlejar.LocalReport.ReportPath = "kewengan/KW_akb.rdlc";
ReportDataSource rds = new ReportDataSource("kwakb", dt);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("d1", imagePath),
new ReportParameter("d2", Tahun_kew.SelectedValue),
new ReportParameter("d3", cyp_txt.Text)
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.Refresh();
Warning[] warnings;
string[] streamids;
string mimeType;
string encoding;
string extension;
byte[] bytes = Rptviwerlejar.LocalReport.Render("PDF", null, out mimeType, out encoding, out extension, out streamids, out warnings);
Response.Buffer = true;
Response.Clear();
Response.ContentType = mimeType;
Response.AddHeader("content-disposition", "attatchment; filename=Akaun_Pembahagian_." + extension);
Response.BinaryWrite(bytes);
Response.Flush();
Response.End();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'Warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (Tk_mula.Text != "" && Tk_akhir.Text != "")
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
get_values();
sqry1 = "select c.*,b.*,a.* from (select project_kod,GL_type,Format(GL_post_dt, 'dd/MM/yyyy') post_dt,GL_post_dt, [kod_akaun], [GL_journal_no], [GL_desc1], [GL_invois_no],sum( [KW_Debit_amt]) as deb_amt, sum([KW_kredit_amt]) kre_amt from KW_General_Ledger where GL_sts='L' GROUP BY project_kod,GL_type,[GL_post_dt], [kod_akaun], [GL_journal_no], [GL_desc1], [GL_invois_no]) as a "
+ "outer apply(select jur_desc from KW_ref_jurnal_type where jur_type_cd=GL_type) as b "
+ "outer apply(select Ref_Projek_name from KW_Ref_Projek where Ref_Projek_code=project_kod) as c "
+ "where GL_post_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and GL_post_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) " + ss1 + ""
+ "order by project_kod,GL_type";
dt = DBCon.Ora_Execute_table(sqry1);
//dt1 = DBCon.Ora_Execute_table(sqry2);
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
string vs1 = string.Empty, vs2 = string.Empty, vs3 = string.Empty, vs4 = string.Empty, vs5 = string.Empty, vs6 = string.Empty;
if (dd_projek.SelectedValue != "")
{
vs1 = dd_projek.SelectedItem.Text;
}
else
{
vs1 = "SEMUA";
}
if (dd_invois.SelectedValue != "")
{
vs2 = dd_invois.SelectedItem.Text;
}
else
{
vs2 = "SEMUA";
}
if (Tk_mula.Text != "")
{
vs3 = Tk_mula.Text;
}
else
{
vs3 = "-";
}
if (Tk_akhir.Text != "")
{
vs4 = Tk_akhir.Text;
}
else
{
vs4 = "-";
}
if (DropDownList1.SelectedValue != "")
{
vs5 = DropDownList1.SelectedItem.Text;
}
else
{
vs5 = "SEMUA";
}
if (txt_jno.Text != "")
{
vs6 = txt_jno.Text;
}
else
{
vs6 = "SEMUA";
}
Rptviwerlejar.Reset();
Rptviwerlejar.LocalReport.Refresh();
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
Button2.Visible = true;
DataTable get_pfl = new DataTable();
get_pfl = DBCon.Ora_Execute_table("select syar_logo from KW_Profile_syarikat where cur_sts='1' and Status='A'");
string imagePath = string.Empty;
if (get_pfl.Rows[0]["syar_logo"].ToString() != "")
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/" + get_pfl.Rows[0]["syar_logo"].ToString() + "")).AbsoluteUri;
}
else
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/user.png")).AbsoluteUri;
}
Rptviwerlejar.LocalReport.ReportPath = "kewengan/KW_lep_journal.rdlc";
Rptviwerlejar.LocalReport.EnableExternalImages = true;
ReportDataSource rds = new ReportDataSource("kwjurnal_new", dt);
//ReportDataSource rds1 = new ReportDataSource("kwlegar1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", vs1),
new ReportParameter("s2", vs2),
new ReportParameter("s3", Tk_mula.Text),
new ReportParameter("s4", Tk_akhir.Text),
new ReportParameter("S5", imagePath),
new ReportParameter("S6", vs5),
new ReportParameter("S7", vs6)
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.DisplayName = "JURNAL_" + DateTime.Now.ToString("yyyyMMdd");
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (dd_type.SelectedValue != "")
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty;
string fmdate = string.Empty, tmdate = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
//if (Tk_akhir.Text != "")
//{
// string tdate = Tk_akhir.Text;
// DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
// tmdate = td.ToString("yyyy-MM-dd");
//}
int min_val = 1;
int curr_yr = Int32.Parse(DateTime.Now.Year.ToString());
int prev_yr = (Int32.Parse(DateTime.Now.Year.ToString()) - min_val);
val1 = "KREDITOR AGEING";
val6 = "select * from (select a.Ref_nama_syarikat v11,s1.syar_logo as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarikh_invois,'dd/MM/yyyy', 'en-us') as v4,a.Overall as v5, case when a.Overall = ISNULL(b.pay_amt,'') "
+ " then '0.00' else a.Overall end as v5_1,DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'), '" + fmdate + "') as diff_day, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', "
+ " 'en-us'),'" + fmdate + "') < '31' then (((a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) - ISNULL(c.pay_amt,'0.00'))+ ISNULL(d.pay_amt,'0.00')) else '' end as v6, case when DATEDIFF(day, FORMAT(a.tarikh_invois, "
+ " 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then "
+ " (((a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) - ISNULL(c.pay_amt,'0.00'))+ ISNULL(d.pay_amt,'0.00')) else '' end as v7, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and "
+ " DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'), '" + fmdate + "') < '90' then (((a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) - ISNULL(c.pay_amt,'0.00'))+ ISNULL(d.pay_amt,'0.00')) else '' "
+ " end as v8, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then (((a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) - ISNULL(c.pay_amt,'0.00'))+ ISNULL(d.pay_amt,'0.00')) "
+ " else '' end as v9 from(select m3.Ref_nama_syarikat,'' untuk_akaun, m1.no_invois, m2.tarikh_invois, m2.Overall from KW_Pembayaran_invoisBil_item m1 "
+ " left join KW_Pembayaran_invois m2 on m2.no_invois = m1.no_invois left join KW_Ref_Pembekal m3 on m3.Ref_no_syarikat=m2.Bayar_kepada and m3.Status='A') as a left join (select p1.no_invois, SUM(ISNULL(p1.Overall, '0.00')) as pay_amt from KW_Pembayaran_Pay_voucer p1 "
+ " where p1.tarkih_pv >= DATEADD(day, DATEDIFF(day, 0, '" + curr_yr + "-01-01'), 0) and p1.tarkih_pv <= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as b on "
+ " b.no_invois = a.no_invois "
+ " left join (select p1.no_invois, SUM(ISNULL(p1.Overall, '0.00')) as pay_amt from KW_Pembayaran_Credit p1 where p1.tarikh_kredit >= DATEADD(day, DATEDIFF(day, 0, '" + curr_yr + "-01-01'), 0) and "
+ " p1.tarikh_kredit <= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as c on c.no_invois = a.no_invois "
+ " left join (select p1.no_invois, SUM(ISNULL(p1.Overall, '0.00')) as pay_amt from KW_Pembayaran_Dedit p1 where p1.tarikh_debit >= DATEADD(day, DATEDIFF(day, 0, '" + curr_yr + "-01-01'), 0) and "
+ " p1.tarikh_debit <= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as d on d.no_invois = a.no_invois "
+ " left join KW_Profile_syarikat s1 on s1.Status = 'A' and s1.cur_sts = '1' where a.Overall != ISNULL(b.pay_amt, '')"
+ " union all "
+ " select a.Ref_nama_syarikat v11,s1.syar_logo as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarikh_invois,'dd/MM/yyyy', 'en-us') as v4,a.Overall as v5, case when a.Overall = ISNULL(b.pay_amt,'') "
+ " then '0.00' else a.Overall end as v5_1,DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'), '" + fmdate + "') as diff_day, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', "
+ " 'en-us'),'" + fmdate + "') < '31' then(a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) else '' end as v6, case when DATEDIFF(day, FORMAT(a.tarikh_invois, "
+ " 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then(a.Overall - case when ISNULL(b.pay_amt, '') "
+ " = '' then '0.00' else b.pay_amt end) else '' end as v7, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and "
+ " DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'), '" + fmdate + "') < '90' then(a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt end) else '' "
+ " end as v8, case when DATEDIFF(day, FORMAT(a.tarikh_invois, 'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then(a.Overall - case when ISNULL(b.pay_amt, '') = '' then '0.00' else b.pay_amt "
+ " end) else '' end as v9 from(select m3.Ref_nama_syarikat,'' untuk_akaun, m1.mhn_no_permohonan no_invois, m2.tarkih_permohonan tarikh_invois, m2.jumlah Overall from KW_Pembayaran_mohon_item m1 "
+ " left join KW_Pembayaran_mohon m2 on m2.no_permohonan = m1.mhn_no_permohonan left join KW_Ref_Pembekal m3 on m3.Ref_no_syarikat=m1.mhn_byr_kepada and m3.Status='A') as a left join (select p1.no_invois, SUM(ISNULL(p1.Overall, '0.00')) as pay_amt from KW_Pembayaran_Pay_voucer p1 "
+ " where p1.tarkih_pv >= DATEADD(day, DATEDIFF(day, 0, '" + curr_yr + "-01-01'), 0) and p1.tarkih_pv <= DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as b on "
+ " b.no_invois = a.no_invois left join KW_Profile_syarikat s1 on s1.Status = 'A' and s1.cur_sts = '1' where a.Overall != ISNULL(b.pay_amt, '') ) as a order by a.v4 desc";
dt = DBCon.Ora_Execute_table(val6);
//dt1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
//DataTable sel_gst1 = new DataTable();
//sel_gst1 = DBCon.Ora_Execute_table(val5);
string imagePath = string.Empty;
if (dt.Rows[0]["v1"].ToString() != "")
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/" + dt.Rows[0]["v1"].ToString() + "")).AbsoluteUri;
}
else
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/user.png")).AbsoluteUri;
}
Rptviwerlejar.LocalReport.EnableExternalImages = true;
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/kw_kre_ageing.rdlc";
ReportDataSource rds = new ReportDataSource("KWreceivable", dt);
//ReportDataSource rds1 = new ReportDataSource("kwpl1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("d1", val1),
new ReportParameter("d2", imagePath),
new ReportParameter("d3", ""),
new ReportParameter("d4", ""),
new ReportParameter("d5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (Tk_mula.Text != "" && Tk_akhir.Text != "")
{
string rcount = string.Empty, rcount1 = string.Empty;
int count = 0, count1 = 1, pyr = 0;
string ss1 = string.Empty;
foreach (ListItem li in dd_select2.Items)
{
if (li.Selected == true)
{
count++;
}
rcount = count.ToString();
}
string selectedValues = string.Empty;
foreach (ListItem li in dd_select2.Items)
{
if (li.Selected == true)
{
if (Int32.Parse(rcount) > count1)
{
ss1 = ",";
}
else
{
ss1 = "";
}
selectedValues += li.Value + ss1;
count1++;
}
rcount1 = count1.ToString();
}
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty;
string fmdate = string.Empty, tmdate = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
if (Tk_akhir.Text != "")
{
string tdate = Tk_akhir.Text;
DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
tmdate = td.ToString("yyyy-MM-dd");
}
//int min_val = 1;
//int curr_yr = Int32.Parse(DateTime.Now.Year.ToString());
//int sel_mnth = Int32.Parse(Tk_mula.Text);
//int prev_yr = (Int32.Parse(DateTime.Now.Year.ToString()) - min_val);
//string srdate = curr_yr + "-01-01";
//string crdate = DateTime.Now.Year.ToString() + "-" + Tk_mula.Text + "-" + DateTime.DaysInMonth(curr_yr, sel_mnth);
//string crdate1 = DateTime.DaysInMonth(curr_yr, sel_mnth) + "/" + Tk_mula.Text + "/" + DateTime.Now.Year.ToString();
if (selectedValues != "")
{
val6 = "select m1.kod_barang,s1.jenis_barang,s1.nama_barang,FORMAT(m1.tarikh,'dd/MM/yyyy', 'en-us') as tarikh,m1.nama_syarikat,cast(m1.qty_masuk as int) qty_masuk,cast(m1.qty_keluar as int) qty_keluar,cast(m1.qty_baki as int) qty_baki,cast(m1.qty as int) qty,m1.harga_kos,m1.jumlah_kos,m1.seq_no from KW_inv_lep_kad_stok m1 left join KW_INVENTORI_BARANG s1 on s1.kod_barang=m1.kod_barang where m1.tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) and s1.jenis_barang IN ('" + selectedValues.Replace(",", "','") + "') order by m1.kod_barang,m1.seq_no Asc";
val5 = "select sum(jumlah_baki) as jum from KW_kemasukan_inventori where do_tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and do_tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) and jenis_barang IN ('" + selectedValues.Replace(",", "','") + "')";
}
else if (selectedValues == "")
{
val6 = "select m1.kod_barang,s1.jenis_barang,s1.nama_barang,FORMAT(m1.tarikh,'dd/MM/yyyy', 'en-us') as tarikh,m1.nama_syarikat,cast(m1.qty_masuk as int) qty_masuk,cast(m1.qty_keluar as int) qty_keluar,cast(m1.qty_baki as int) qty_baki,cast(m1.qty as int) qty,m1.harga_kos,m1.jumlah_kos,m1.seq_no from KW_inv_lep_kad_stok m1 left join KW_INVENTORI_BARANG s1 on s1.kod_barang=m1.kod_barang where m1.tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) order by m1.kod_barang,m1.seq_no Asc";
val5 = "select sum(jumlah_baki) as jum from KW_kemasukan_inventori where do_tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and do_tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1)";
}
//else if (Tahun_kew.SelectedValue == "" && dd_select2.SelectedValue != "")
//{
// val6 = "select m1.kod_barang,s1.jenis_barang,s1.nama_barang,FORMAT(m1.tarikh,'dd/MM/yyyy', 'en-us') as tarikh,m1.nama_syarikat,cast(m1.qty_masuk as int) qty_masuk,cast(m1.qty_keluar as int) qty_keluar,cast(m1.qty_baki as int) qty_baki,cast(m1.qty as int) qty,m1.harga_kos,m1.jumlah_kos,m1.seq_no from KW_inv_lep_kad_stok m1 inner join KW_INVENTORI_BARANG s1 on s1.kod_barang=m1.kod_barang where s1.jenis_barang='" + dd_select2.SelectedValue + "' order by m1.kod_barang,m1.tarikh Asc";
//}
else
{
val6 = "select m1.kod_barang,s1.jenis_barang,s1.nama_barang,FORMAT(m1.tarikh,'dd/MM/yyyy', 'en-us') as tarikh,m1.nama_syarikat,cast(m1.qty_masuk as int) qty_masuk,cast(m1.qty_keluar as int) qty_keluar,cast(m1.qty_baki as int) qty_baki,cast(m1.qty as int) qty,m1.harga_kos,m1.jumlah_kos,m1.seq_no from KW_inv_lep_kad_stok m1 left join KW_INVENTORI_BARANG s1 on s1.kod_barang=m1.kod_barang where m1.tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) order by m1.kod_barang,m1.seq_no Asc";
val5 = "select ISNULL(sum(jumlah_baki),'0.00') as jum from KW_kemasukan_inventori where do_tarikh>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and do_tarikh<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1)";
}
dt = DBCon.Ora_Execute_table(val6);
//dt1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
string sem_val = string.Empty;
if (dd_select2.SelectedValue != "")
{
sem_val = dd_select2.SelectedValue;
}
else
{
sem_val = "SEMUA";
}
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable get_rec = new DataTable();
get_rec = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_lep_inventori_stok.rdlc";
ReportDataSource rds = new ReportDataSource("kwinvstk_lep", dt);
//ReportDataSource rds1 = new ReportDataSource("kwpl1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", Tk_mula.Text),
new ReportParameter("s2", sem_val),
new ReportParameter("s3", double.Parse(get_rec.Rows[0]["jum"].ToString()).ToString("C").Replace("$", "").Replace("RM", "")),
new ReportParameter("s4", Tk_akhir.Text),
new ReportParameter("s5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (dd_type.SelectedValue != "")
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty;
string fmdate = string.Empty, tmdate = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
//if (Tk_akhir.Text != "")
//{
// string tdate = Tk_akhir.Text;
// DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
// tmdate = td.ToString("yyyy-MM-dd");
//}
int min_val = 1;
int curr_yr = Int32.Parse(DateTime.Now.Year.ToString());
int prev_yr = (Int32.Parse(DateTime.Now.Year.ToString()) - min_val);
if (dd_type.SelectedValue == "01")
{
val1 = "RECEIVABLE";
//val6 = "select a.untuk_akaun as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarikh_invois,'dd/MM/yyyy', 'en-us') as v4, FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') as v4_1,a.Overall as v5, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') = '01/01/1900' then DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') else DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') end as diff_day, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then (case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) else (case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end )end as v6,case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then ( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') > '31' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) else ( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') > '31' and DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) end as v7, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then (case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') > '61' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end) else (case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') > '61' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end) end as v8,case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end) else ( case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'"+ fmdate +"') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end) end as v9 from (select untuk_akaun,no_invois,tarikh_invois,Overall from KW_Penerimaan_invois) as a left join (select p1.no_invois,SUM(ISNULL(p1.jumlah,'0.00')) as pay_amt from KW_Penerimaan_payment p1 where p1.tarikh_Payment>=DATEADD(day, DATEDIFF(day, 0, '"+ DateTime.Now.Year +"-01-01'), 0) and p1.tarikh_Payment<=DATEADD(day, DATEDIFF(day, 0, '"+ fmdate +"'), +1) group by p1.no_invois) as b on b.no_invois=a.no_invois left join (select top(1) p1.no_invois,jumlah,tarikh_Payment from KW_Penerimaan_payment p1 where p1.tarikh_Payment>=DATEADD(day, DATEDIFF(day, 0, '"+ DateTime.Now.Year +"-01-01'), 0) and p1.tarikh_Payment<=DATEADD(day, DATEDIFF(day, 0, '"+ fmdate +"'), +1) order by tarikh_Payment desc) as c on c.no_invois=a.no_invois left join KW_Profile_syarikat s1 on s1.kod_syarikat=a.untuk_akaun";
val6 = "select a.untuk_akaun as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarikh_invois,'dd/MM/yyyy', 'en-us') as v4,a.Overall as v5, case when a.Overall = ISNULL(b.pay_amt,'') then '0.00' else a.Overall end as v5_1,DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') as diff_day, case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end as v6, case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end as v7, case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end as v8, case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end as v9 from (select untuk_akaun,no_invois,tarikh_invois,Overall from KW_Penerimaan_invois) as a left join (select p1.no_invois,SUM(ISNULL(p1.jumlah,'0.00')) as pay_amt from KW_Penerimaan_payment p1 where p1.tarikh_Payment>=DATEADD(day, DATEDIFF(day, 0, '" + DateTime.Now.Year + "-01-01'), 0) and p1.tarikh_Payment<=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as b on b.no_invois=a.no_invois left join KW_Profile_syarikat s1 on s1.kod_syarikat=a.untuk_akaun where a.Overall != ISNULL(b.pay_amt,'')";
}
else
{
val1 = "PAYABLE";
//val6 = "select a.untuk_akaun as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarikh_invois,'dd/MM/yyyy', 'en-us') as v4, FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') as v4_1,a.Overall as v5, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') = '01/01/1900' then DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') else DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') end as diff_day, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then (case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) else (case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end )end as v6,case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then ( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) else ( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end) end as v7, case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then (case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end) else (case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end) end as v8,case when FORMAT(ISNULL(c.tarikh_Payment,''),'dd/MM/yyyy', 'en-us') ='01/01/1900' then( case when DATEDIFF(day,FORMAT(a.tarikh_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end) else ( case when DATEDIFF(day,FORMAT(c.tarikh_Payment,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end) end as v9 from (select untuk_akaun,no_invois,tarikh_invois,Overall from KW_Penerimaan_invois) as a left join (select p1.no_invois,SUM(ISNULL(p1.jumlah,'0.00')) as pay_amt from KW_Penerimaan_payment p1 where p1.tarikh_Payment>=DATEADD(day, DATEDIFF(day, 0, '" + DateTime.Now.Year + "-01-01'), 0) and p1.tarikh_Payment<=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as b on b.no_invois=a.no_invois left join (select top(1) p1.no_invois,jumlah,tarikh_Payment from KW_Penerimaan_payment p1 where p1.tarikh_Payment>=DATEADD(day, DATEDIFF(day, 0, '" + DateTime.Now.Year + "-01-01'), 0) and p1.tarikh_Payment<=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) order by tarikh_Payment desc) as c on c.no_invois=a.no_invois left join KW_Profile_syarikat s1 on s1.kod_syarikat=a.untuk_akaun";
val6 = "select a.untuk_akaun as v1,s1.nama_syarikat as v2,a.no_invois as v3,FORMAT(a.tarkih_invois,'dd/MM/yyyy', 'en-us') as v4,a.Overall as v5, case when a.Overall = ISNULL(b.pay_amt,'') then '0.00' else a.Overall end as v5_1,DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') as diff_day, case when DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '31' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end as v6, case when DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '31' and DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '61' then (a.Overall - case when ISNULL(b.pay_amt,'') ='' then '0.00' else b.pay_amt end) else '' end as v7, case when DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') > '61' and DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') < '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end) else '' end as v8, case when DATEDIFF(day,FORMAT(a.tarkih_invois,'yyyy-MM-dd', 'en-us'),'" + fmdate + "') >= '90' then (a.Overall - case when ISNULL(b.pay_amt,'') = '' then '0.00' else b.pay_amt end ) else '' end as v9 from (select untuk_akaun,no_invois,tarkih_invois,Overall from KW_Pembayaran_invoisBil_item) as a left join (select p1.no_invois,SUM(ISNULL(p1.jumlah,'0.00')) as pay_amt from KW_Pembayaran_Pay_voucer p1 where p1.tarkih_pv>=DATEADD(day, DATEDIFF(day, 0, '" + DateTime.Now.Year + "-01-01'), 0) and p1.tarkih_pv<=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), +1) group by p1.no_invois) as b on b.no_invois=a.no_invois left join KW_Profile_syarikat s1 on s1.kod_syarikat=a.untuk_akaun where a.Overall != ISNULL(b.pay_amt,'')";
}
dt = DBCon.Ora_Execute_table(val6);
//dt1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
//DataTable sel_gst1 = new DataTable();
//sel_gst1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_receivable.rdlc";
ReportDataSource rds = new ReportDataSource("KWreceivable", dt);
//ReportDataSource rds1 = new ReportDataSource("kwpl1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("d1", val1),
new ReportParameter("d2", ""),
new ReportParameter("d3", ""),
new ReportParameter("d4", ""),
new ReportParameter("d5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (Tk_mula.Text != "" && Tk_akhir.Text != "")
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string fmdate = string.Empty, fmday = string.Empty, fmonth = string.Empty, pyear = string.Empty, fyear = string.Empty, stdate = string.Empty, tmdate = string.Empty, pre_day = string.Empty;
string sqry2 = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
pre_day = fd.AddDays(-1).ToString("yyyy-MM-dd");
fmonth = fd.ToString("MM");
fyear = fd.ToString("yyyy");
pyr = (Convert.ToInt32(fyear) - 1);
stdate = pyr + "-01-01";
}
if (Tk_akhir.Text != "")
{
string tdate = Tk_akhir.Text;
DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
tmdate = td.ToString("yyyy-MM-dd");
}
get_data();
if (zero_bal.Checked == true)
{
sqry1 = "select * from (select m1.project_kod,s1.kat_akaun kcd,s11.kat_akuan kname,s1.kod_akaun,s1.nama_akaun,case when ISNULL(s2.opn_debit_amt,'0.00')='0.00' then (ISNULL(s2.opn_kredit_amt,'0.00') + (ISNULL(m1_1.KW_kredit_amt,'0.00')-ISNULL(m1_1.KW_Debit_amt,'0.00'))) else (-1 * (ISNULL(s2.opn_debit_amt,'0.00') + (ISNULL(m1_1.KW_kredit_amt,'0.00')-ISNULL(m1_1.KW_Debit_amt,'0.00')))) end as opening_amt,m1.GL_invois_no as no_invois,m1.GL_post_dt,Format(m1.GL_post_dt, 'dd/MM/yyyy') tarikh_invois "
+ " ,ISNULL(m1.GL_desc1, '') as rjkn1,'' as rjkn2,ISNULL(m1.KW_Debit_amt, '') as KW_Debit_amt,ISNULL(m1.KW_kredit_amt, '') as KW_kredit_amt,m1.ref2,m1.GL_journal_no"
+ ", m1.Gl_jenis_no as no1"
+ " ,(case "
+ " when m1.ref2 = '01' then(select '' v1 from KW_Pembayaran_invois where no_invois = m1.GL_invois_no)"
+ " when m1.ref2 = '02' then(select no_cek v1 from KW_Penerimaan_resit where no_resit = m1.GL_invois_no)"
+ " when m1.ref2 = '03' then(select '' v1 from KW_Pembayaran_mohon where no_permohonan = m1.GL_invois_no)"
+ " when m1.ref2 = '04' then(select No_cek v1 from KW_Pembayaran_Pay_voucer where Pv_no = m1.GL_invois_no)"
+ " when m1.ref2 = '05' then(select '' v1 from KW_Pembayaran_Credit where no_Rujukan = m1.GL_invois_no)"
+ " when m1.ref2 = '06' then(select '' v1 from KW_Pembayaran_Dedit where no_Rujukan = m1.GL_invois_no)"
+ " when m1.ref2 = '09' then(select '' v1 from KW_Penerimaan_invois where no_invois = m1.GL_invois_no)"
+ " when m1.ref2 = '10' then(select '' v1 from KW_Penerimaan_Credit where no_notakredit = m1.GL_invois_no)"
+ " when m1.ref2 = '11' then(select '' v1 from KW_Penerimaan_Debit where no_notadebit = m1.GL_invois_no)"
+ " when m1.ref2 IN ('12', '13', '14', '15', '16', '17', '18', '19', '20', '21') then(select '' v1 from KW_jurnal_inter where no_permohonan = m1.GL_invois_no)"
+ " end) as no2, s3.Ref_doc_name dc_name from KW_Ref_Carta_Akaun s1"
+ " left join KW_Opening_Balance s2 on s2.set_sts = '1' and s2.kod_akaun = s1.kod_akaun and '" + fmdate + "' between s2.start_dt and s2.end_dt "
+ " left join KW_General_Ledger m1_1 on s1.kod_akaun = m1_1.kod_akaun and m1_1.GL_sts='L' and YEAR(m1_1.GL_post_dt)='" + fyear + "' and m1_1.GL_post_dt < DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) "
+ " left join KW_General_Ledger m1 on s1.kod_akaun = m1.kod_akaun and m1.GL_sts='L' and m1.GL_post_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.GL_post_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) "
+ " left join KW_Kategori_akaun s11 on s11.kat_type='01' and s11.kat_cd=s1.kat_akaun "
+ " left join KW_Ref_Doc_kod s3 on s3.Ref_doc_code = m1.ref2"
+ " where s1.Status = 'A' and s1.jenis_akaun_type !='1' and ISNULL(ca_cyp,'') !='1' ) as a "
+ " " + qry2 + " "
+ " order by a.kod_akaun";
sqry2 = " select sum(a.opening_amt) open_amt from (select distinct s1.kat_akaun kcd,s11.kat_akuan kname,s1.kod_akaun,s1.nama_akaun, "
+ " case when ISNULL(s2.opn_debit_amt,'0.00')='0.00' then (ISNULL(s2.opn_kredit_amt,'0.00' ) + (ISNULL(m1_1.KW_kredit_amt,'0.00') - ISNULL(m1_1.KW_Debit_amt,'0.00'))) else ((ISNULL(s2.opn_debit_amt,'0.00') + (ISNULL(m1_1.KW_Debit_amt,'0.00') - ISNULL(m1_1.KW_kredit_amt,'0.00')))) end as opening_amt "
+ " from KW_Ref_Carta_Akaun s1 left join KW_Opening_Balance s2 on s2.set_sts = '1' and s2.kod_akaun = s1.kod_akaun and '" + fmdate + "' between s2.start_dt and s2.end_dt "
+ " outer apply(select ISNULL(sum(m1_1.KW_kredit_amt),'0.00') KW_kredit_amt,ISNULL(sum(m1_1.KW_kredit_amt),'0.00') KW_Debit_amt from KW_General_Ledger m1_1 where s1.kod_akaun = m1_1.kod_akaun and m1_1.GL_sts='L' and YEAR(m1_1.GL_post_dt)='" + fyear + "' and m1_1.GL_post_dt < DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0)) as m1 "
+ " outer apply(select sum(ISNULL(m1.KW_kredit_amt,'0.00')) KW_kredit_amt,sum(ISNULL(m1.KW_Debit_amt,'0.00')) KW_Debit_amt from KW_General_Ledger m1 where s1.kod_akaun = m1.kod_akaun and m1.GL_sts='L' and m1.GL_post_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.GL_post_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) " + qry3 + ") as m1_1 "
+ " left join KW_Kategori_akaun s11 on s11.kat_type='01' and s11.kat_cd=s1.kat_akaun left join KW_Ref_Doc_kod s3 on s3.Ref_doc_code = '' where s1.Status = 'A' " + qry4 + " "
+ " and s1.jenis_akaun_type !='1' and ISNULL(ca_cyp,'') !='1' ) as a ";
}
else
{
sqry1 = "select * from (select m1.project_kod,s1.kat_akaun kcd,s11.kat_akuan kname,s1.kod_akaun,s1.nama_akaun,case when ISNULL(s2.opn_debit_amt,'0.00')='0.00' then (ISNULL(s2.opn_kredit_amt,'0.00') + (ISNULL(m1_1.KW_kredit_amt,'0.00')-ISNULL(m1_1.KW_Debit_amt,'0.00'))) else (-1 * (ISNULL(s2.opn_debit_amt,'0.00') + (ISNULL(m1_1.KW_kredit_amt,'0.00')-ISNULL(m1_1.KW_Debit_amt,'0.00')))) end as opening_amt,m1.GL_invois_no as no_invois,m1.GL_post_dt,Format(m1.GL_post_dt, 'dd/MM/yyyy') tarikh_invois "
+ " ,ISNULL(m1.GL_desc1, '') as rjkn1,'' as rjkn2,ISNULL(m1.KW_Debit_amt, '') as KW_Debit_amt,ISNULL(m1.KW_kredit_amt, '') as KW_kredit_amt,m1.ref2,m1.GL_journal_no"
+ ", m1.Gl_jenis_no as no1"
+ " ,(case "
+ " when m1.ref2 = '01' then(select '' v1 from KW_Pembayaran_invois where no_invois = m1.GL_invois_no)"
+ " when m1.ref2 = '02' then(select no_cek v1 from KW_Penerimaan_resit where no_resit = m1.GL_invois_no)"
+ " when m1.ref2 = '03' then(select '' v1 from KW_Pembayaran_mohon where no_permohonan = m1.GL_invois_no)"
+ " when m1.ref2 = '04' then(select No_cek v1 from KW_Pembayaran_Pay_voucer where Pv_no = m1.GL_invois_no)"
+ " when m1.ref2 = '05' then(select '' v1 from KW_Pembayaran_Credit where no_Rujukan = m1.GL_invois_no)"
+ " when m1.ref2 = '06' then(select '' v1 from KW_Pembayaran_Dedit where no_Rujukan = m1.GL_invois_no)"
+ " when m1.ref2 = '09' then(select '' v1 from KW_Penerimaan_invois where no_invois = m1.GL_invois_no)"
+ " when m1.ref2 = '10' then(select '' v1 from KW_Penerimaan_Credit where no_notakredit = m1.GL_invois_no)"
+ " when m1.ref2 = '11' then(select '' v1 from KW_Penerimaan_Debit where no_notadebit = m1.GL_invois_no)"
+ " when m1.ref2 IN ('12', '13', '14', '15', '16', '17', '18', '19', '20', '21') then(select '' v1 from KW_jurnal_inter where no_permohonan = m1.GL_invois_no)"
+ " end) as no2, s3.Ref_doc_name dc_name from KW_Ref_Carta_Akaun s1"
+ " left join KW_Opening_Balance s2 on s2.set_sts = '1' and s2.kod_akaun = s1.kod_akaun and '" + fmdate + "' between s2.start_dt and s2.end_dt "
+ " left join KW_General_Ledger m1_1 on s1.kod_akaun = m1_1.kod_akaun and m1_1.GL_sts='L' and YEAR(m1_1.GL_post_dt)='" + fyear + "' and m1_1.GL_post_dt < DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) "
+ " left join KW_General_Ledger m1 on s1.kod_akaun = m1.kod_akaun and m1.GL_sts='L' and m1.GL_post_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.GL_post_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) "
+ " left join KW_Kategori_akaun s11 on s11.kat_type='01' and s11.kat_cd=s1.kat_akaun "
+ " left join KW_Ref_Doc_kod s3 on s3.Ref_doc_code = m1.ref2"
+ " where s1.Status = 'A' and s1.jenis_akaun_type !='1' and ISNULL(ca_cyp,'') !='1' and (opening_amt != '0.00' or m1.KW_Debit_amt != '0.00' or m1.KW_kredit_amt !='0.00')) as a "
+ " " + qry2 + " "
+ " order by a.kod_akaun";
sqry2 = " select sum(a.opening_amt) open_amt from (select distinct s1.kat_akaun kcd,s11.kat_akuan kname,s1.kod_akaun,s1.nama_akaun, "
+ " case when ISNULL(s2.opn_debit_amt,'0.00')='0.00' then (ISNULL(s2.opn_kredit_amt,'0.00' ) + (ISNULL(m1_1.KW_kredit_amt,'0.00') - ISNULL(m1_1.KW_Debit_amt,'0.00'))) else ((ISNULL(s2.opn_debit_amt,'0.00') + (ISNULL(m1_1.KW_Debit_amt,'0.00') - ISNULL(m1_1.KW_kredit_amt,'0.00')))) end as opening_amt "
+ "from KW_Ref_Carta_Akaun s1 left join KW_Opening_Balance s2 on s2.set_sts = '1' and s2.kod_akaun = s1.kod_akaun and '" + fmdate + "' between s2.start_dt and s2.end_dt "
+ " outer apply(select ISNULL(sum(m1_1.KW_kredit_amt),'0.00') KW_kredit_amt,ISNULL(sum(m1_1.KW_kredit_amt),'0.00') KW_Debit_amt from KW_General_Ledger m1_1 where s1.kod_akaun = m1_1.kod_akaun and m1_1.GL_sts='L' and YEAR(m1_1.GL_post_dt)='" + fyear + "' and m1_1.GL_post_dt < DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0)) as m1 "
+ " outer apply(select sum(ISNULL(m1.KW_kredit_amt,'0.00')) KW_kredit_amt,sum(ISNULL(m1.KW_Debit_amt,'0.00')) KW_Debit_amt from KW_General_Ledger m1 where s1.kod_akaun = m1.kod_akaun and m1.GL_sts='L' and m1.GL_post_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and m1.GL_post_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) " + qry3 + ") as m1_1 "
+ " left join KW_Kategori_akaun s11 on s11.kat_type='01' and s11.kat_cd=s1.kat_akaun left join KW_Ref_Doc_kod s3 on s3.Ref_doc_code = '' where s1.Status = 'A' " + qry4 + " "
+ " and s1.jenis_akaun_type !='1' and ISNULL(ca_cyp,'') !='1' and (opening_amt != '0.00' or m1.KW_Debit_amt != '0.00' or m1.KW_kredit_amt !='0.00')) as a ";
}
dt = DBCon.Ora_Execute_table(sqry1);
dt1 = DBCon.Ora_Execute_table(sqry2);
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
string vs1 = string.Empty, vs2 = string.Empty, vs3 = string.Empty, vs4 = string.Empty, vs5 = string.Empty, vs6 = string.Empty;
if (DropDownList1.SelectedValue != "")
{
vs1 = DropDownList1.SelectedItem.Text;
}
else
{
vs1 = "SEMUA PILIH";
}
if (Tk_mula.Text != "")
{
vs3 = Tk_mula.Text;
}
else
{
vs3 = "-";
}
if (Tk_akhir.Text != "")
{
vs4 = Tk_akhir.Text;
}
else
{
vs4 = "-";
}
if (zero_bal.Checked == true)
{
vs6 = "YES";
}
else
{
vs6 = "NO";
}
Rptviwerlejar.Reset();
Rptviwerlejar.LocalReport.Refresh();
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable get_pfl = new DataTable();
get_pfl = DBCon.Ora_Execute_table("select syar_logo from KW_Profile_syarikat where cur_sts='1' and Status='A'");
string imagePath = string.Empty;
if (get_pfl.Rows[0]["syar_logo"].ToString() != "")
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/" + get_pfl.Rows[0]["syar_logo"].ToString() + "")).AbsoluteUri;
}
else
{
imagePath = new Uri(Server.MapPath("~/FILES/Profile_syarikat/user.png")).AbsoluteUri;
}
DataTable cnt_open = new DataTable();
cnt_open = DBCon.Ora_Execute_table(sqry2);
Rptviwerlejar.LocalReport.EnableExternalImages = true;
if (rpt_type.SelectedValue == "01")
{
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_Leger.rdlc";
}
else
{
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_Leger_ls.rdlc";
}
ReportDataSource rds = new ReportDataSource("kwlegar", dt);
//ReportDataSource rds1 = new ReportDataSource("kwlegar1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", vs1),
new ReportParameter("s2", vs6),
new ReportParameter("s3", vs3),
new ReportParameter("s4", vs4),
new ReportParameter("S5", double.Parse(dt1.Rows[0]["open_amt"].ToString()).ToString("C").Replace("RM", "").Replace("$", "")),
new ReportParameter("v1", imagePath)
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.DisplayName = "LEJER_AM_" + DateTime.Now.ToString("yyyyMMdd");
Rptviwerlejar.LocalReport.Refresh();
System.Threading.Thread.Sleep(1);
//Warning[] warnings;
//string[] streamids;
//string mimeType;
//string encoding;
//string extension;
//string fname = DateTime.Now.ToString("dd_MM_yyyy");
//string devinfo = "<DeviceInfo><ColorDepth>32</ColorDepth><DpiX>350</DpiX><DpiY>350</DpiY><OutputFormat>PDF</OutputFormat>" +
// " <PageWidth>12.20in</PageWidth>" +
// " <PageHeight>8.27in</PageHeight>" +
// " <MarginTop>0.1in</MarginTop>" +
// " <MarginLeft>0.5in</MarginLeft>" +
// " <MarginRight>0in</MarginRight>" +
// " <MarginBottom>0in</MarginBottom>" +
// "</DeviceInfo>";
//byte[] bytes = Rptviwerlejar.LocalReport.Render("PDF", null, out mimeType, out encoding, out extension, out streamids, out warnings);
//Response.Buffer = true;
//Response.Clear();
//Response.ContentType = mimeType;
//Response.AddHeader("content-disposition", "Attatchment; filename=Lejar_AM" + DateTime.Now.ToString("ddMMyyyy") +"." + extension);
//Response.BinaryWrite(bytes);
//Response.Flush();
//Response.End();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
if (tah_kewangan.SelectedValue != "")
{
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string val1 = string.Empty, val2 = string.Empty, val3 = string.Empty, val4 = string.Empty, val5 = string.Empty, val6 = string.Empty, pre_day = string.Empty, pre_year = string.Empty;
string fmdate = string.Empty, tmdate = string.Empty;
//if (Tk_mula.Text != "")
//{
string fdate = "01/01/" + tah_kewangan.SelectedValue;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
pre_day = fd.AddDays(-1).ToString("yyyy-MM-dd");
pre_year = fd.AddYears(-1).ToString("yyyy");
//}
//if (Tk_akhir.Text != "")
//{
// string tdate = Tk_akhir.Text;
// DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
// tmdate = td.ToString("yyyy-MM-dd");
//}
int min_val = 1;
int curr_yr = Int32.Parse(DateTime.Now.Year.ToString());
int prev_yr = (Int32.Parse(DateTime.Now.Year.ToString()) - min_val);
if (tah_kewangan.SelectedValue != "")
{
val6 = "select a.ref_kumpulan,a.Ref_kat_bajet,cast(ISNULL(replace(a.Ref_jumlah_bajet, ',',''),'0.00') as money) Ref_jumlah_bajet,cast(ISNULL(replace(a1.Ref_jumlah_bajet, ',',''),'0.00') as money) as Ref_jumlah_bajet1,case when ISNULL(sum(b.kamt),'0.00') = '' then '0.00' else sum(b.kamt) end as kreamt,case when ISNULL(sum(b.damt),'0.00') = '' then '0.00' else sum(b.damt) end as debamt,((case when ISNULL(sum(b.kamt),'0.00') = '' then '0.00' else sum(b.kamt) end) - case when ISNULL(sum(b.damt),'0.00') = '' then '0.00' else sum(b.damt) end) as jumlah,((case when ISNULL(sum(b1.kamt),'0.00') = '' then '0.00' else sum(b1.kamt) end) - case when ISNULL(sum(b1.damt),'0.00') = '' then '0.00' else sum(b1.damt) end) as jumlah1 from (select * from KW_Ref_Bajet where ref_bjt_year = '" + tah_kewangan.SelectedValue + "') as a left join (select * from KW_Ref_Bajet where ref_bjt_year = '" + pre_year + "') as a1 on a1.Ref_kat_bajet=a.Ref_kat_bajet left join (select kod_akaun,sum(cast(KW_Debit_amt as money)) as damt,sum(cast(KW_kredit_amt as money)) as kamt,GL_process_dt from KW_General_Ledger group by kod_akaun,GL_process_dt) as b on b.kod_akaun=a.Ref_kod_akaun and year(b.GL_post_dt) = '" + tah_kewangan.SelectedValue + "' left join(select * from KW_Opening_Balance where set_sts='1' and opening_year = '" + tah_kewangan.SelectedValue + "') as c on c.kod_akaun=a.Ref_kod_akaun left join (select kod_akaun,sum(cast(KW_Debit_amt as money)) as damt,sum(cast(KW_kredit_amt as money)) as kamt,GL_process_dt from KW_General_Ledger group by kod_akaun,GL_process_dt) as b1 on b1.kod_akaun=a.Ref_kod_akaun and year(b1.GL_post_dt) = '" + prev_yr + "' left join(select * from KW_Opening_Balance where set_sts='1' and opening_year= '" + pre_year + "') as c1 on c1.kod_akaun=a.Ref_kod_akaun left join KW_Ref_Carta_Akaun ss1 on ss1.kod_akaun=a.Ref_kod_akaun group by a.Ref_kat_bajet,a.Ref_jumlah_bajet,a1.Ref_jumlah_bajet,a.ref_kumpulan";
}
else
{
val6 = "select a.ref_kumpulan,a.Ref_kat_bajet,cast(ISNULL(replace(a.Ref_jumlah_bajet, ',',''),'0.00') as money) Ref_jumlah_bajet,cast(ISNULL(replace(a1.Ref_jumlah_bajet, ',',''),'0.00') as money) as Ref_jumlah_bajet1,case when ISNULL(sum(b.kamt),'0.00') = '' then '0.00' else sum(b.kamt) end as kreamt,case when ISNULL(sum(b.damt),'0.00') = '' then '0.00' else sum(b.damt) end as debamt,((case when ISNULL(sum(b.kamt),'0.00') = '' then '0.00' else sum(b.kamt) end) - case when ISNULL(sum(b.damt),'0.00') = '' then '0.00' else sum(b.damt) end) as jumlah,((case when ISNULL(sum(b1.kamt),'0.00') = '' then '0.00' else sum(b1.kamt) end) - case when ISNULL(sum(b1.damt),'0.00') = '' then '0.00' else sum(b1.damt) end) as jumlah1 from (select * from KW_Ref_Bajet where ref_bjt_year = '" + tah_kewangan.SelectedValue + "') as a left join (select * from KW_Ref_Bajet where ref_bjt_year = '" + pre_year + "') as a1 on a1.Ref_kat_bajet=a.Ref_kat_bajet left join (select kod_akaun,sum(cast(KW_Debit_amt as money)) as damt,sum(cast(KW_kredit_amt as money)) as kamt,GL_process_dt from KW_General_Ledger group by kod_akaun,GL_process_dt) as b on b.kod_akaun=a.Ref_kod_akaun and year(b.GL_post_dt) = '" + tah_kewangan.SelectedValue + "' left join(select * from KW_Opening_Balance where set_sts='1' and opening_year = '" + tah_kewangan.SelectedValue + "') as c on c.kod_akaun=a.Ref_kod_akaun left join (select kod_akaun,sum(cast(KW_Debit_amt as money)) as damt,sum(cast(KW_kredit_amt as money)) as kamt,GL_process_dt from KW_General_Ledger group by kod_akaun,GL_process_dt) as b1 on b1.kod_akaun=a.Ref_kod_akaun and year(b1.GL_post_dt) = '" + prev_yr + "' left join(select * from KW_Opening_Balance where set_sts='1' and opening_year='" + pre_year + "') as c1 on c1.kod_akaun=a.Ref_kod_akaun left join KW_Ref_Carta_Akaun ss1 on ss1.kod_akaun=a.Ref_kod_akaun group by a.Ref_kat_bajet,a.Ref_jumlah_bajet,a1.Ref_jumlah_bajet,a.ref_kumpulan";
}
dt = DBCon.Ora_Execute_table(val6);
//dt1 = DBCon.Ora_Execute_table(val5);
Rptviwerlejar.Reset();
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_bajet.rdlc";
ReportDataSource rds = new ReportDataSource("kwbajet", dt);
//ReportDataSource rds1 = new ReportDataSource("kwpl1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", ""),
new ReportParameter("s2", Convert.ToString(prev_yr)),
new ReportParameter("s3", ""),
new ReportParameter("s4", ""),
new ReportParameter("S5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Sila Masukan Input Carian.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
string rcount = string.Empty, rcount1 = string.Empty;
int count = 0, count1 = 1;
string ss1 = string.Empty;
//foreach (ListItem li in DropDownList2.Items)
//{
// if (li.Selected == true)
// {
// count++;
// }
// rcount = count.ToString();
//}
//string selectedValues = string.Empty;
//foreach (ListItem li in DropDownList2.Items)
//{
// if (li.Selected == true)
// {
// if (Int32.Parse(rcount) > count1)
// {
// ss1 = ",";
// }
// else
// {
// ss1 = "";
// }
// selectedValues += li.Value + ss1;
// count1++;
// }
// rcount1 = count1.ToString();
//}
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string fmdate = string.Empty, tmdate = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
if (Tk_akhir.Text != "")
{
string tdate = Tk_akhir.Text;
DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
tmdate = td.ToString("yyyy-MM-dd");
}
if (fmdate != "" && tmdate != "")
{
sqry1 = "select * from(select * from (select 'ITEM 5A & 5B - OUTPUT TAX' as tname,'01' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('SR','DS','AJS') and m1.KW_Debit_amt='0.00') as a union all select * from (select 'ITEM 6A & 6B - INPUT TAX' as tname,'02' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX','TX-CG','TX-IES','TX-RE','IM','AJP') and m1.KW_kredit_amt='0.00' ) as b union all select * from (select 'ITEM 10 - Local Zero-Rated Supplies' as tname,'03' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRL','ZDA') and m1.KW_Debit_amt='0.00') as c union all select * from (select 'ITEM 11 - Export Supplies' as tname,'04' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRE') and m1.KW_Debit_amt='0.00') as d union all select * from (select 'ITEM 12 - Exempt Supplies' as tname,'05' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ES','IES') and m1.KW_Debit_amt='0.00') as e union all select * from (select 'ITEM 13 - Supplies Granted GST Relief' as tname,'06' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('RS','GS') and m1.KW_Debit_amt='0.00') as f union all select * from (select 'ITEM 14 - Goods Imported Under Approved Trader Scheme' as tname,'07' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('IS') and m1.KW_kredit_amt='0.00' ) as g union all select * from (select 'ITEM 16 - Capital Goods Acquired' as tname,'08' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX-CG') and m1.KW_kredit_amt='0.00' ) as h ) as a1 where a1.GL_process_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and a1.GL_process_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) order by a1.tid,a1.GL_process_dt,a1.doc_no";
sqry2 = "select case when a.Tax_type = 'RJS' then 'O' else 'S' end as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,KW_kredit_amt as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where GL_process_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and GL_process_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) and Tax_type IN ('SR','ZRL','ZDA','ZRE','ES','IES','RS','GS','DS','AJS') and KW_Debit_amt='0.00') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type left join KW_Ref_Carta_Akaun s3 on s3.kod_akaun=s2.Ref_kod_akaun order by a.Tax_type desc";
}
else if (fmdate == "" && tmdate == "")
{
sqry1 = "select * from(select * from (select 'ITEM 5A & 5B - OUTPUT TAX' as tname,'01' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('SR','DS','AJS') and m1.KW_Debit_amt='0.00') as a union all select * from (select 'ITEM 6A & 6B - INPUT TAX' as tname,'02' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX','TX-CG','TX-IES','TX-RE','IM','AJP') and m1.KW_kredit_amt='0.00' ) as b union all select * from (select 'ITEM 10 - Local Zero-Rated Supplies' as tname,'03' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRL','ZDA') and m1.KW_Debit_amt='0.00') as c union all select * from (select 'ITEM 11 - Export Supplies' as tname,'04' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRE') and m1.KW_Debit_amt='0.00') as d union all select * from (select 'ITEM 12 - Exempt Supplies' as tname,'05' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ES','IES') and m1.KW_Debit_amt='0.00') as e union all select * from (select 'ITEM 13 - Supplies Granted GST Relief' as tname,'06' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('RS','GS') and m1.KW_Debit_amt='0.00') as f union all select * from (select 'ITEM 14 - Goods Imported Under Approved Trader Scheme' as tname,'07' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('IS') and m1.KW_kredit_amt='0.00' ) as g union all select * from (select 'ITEM 16 - Capital Goods Acquired' as tname,'08' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX-CG') and m1.KW_kredit_amt='0.00' ) as h ) as a1 order by a1.tid,a1.GL_process_dt,a1.doc_no";
sqry2 = "select case when a.Tax_type = 'RJS' then 'O' else 'S' end as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,KW_kredit_amt as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type IN ('SR','ZRL','ZDA','ZRE','ES','IES','RS','GS','DS','AJS') and KW_Debit_amt='0.00') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type left join KW_Ref_Carta_Akaun s3 on s3.kod_akaun=s2.Ref_kod_akaun order by a.Tax_type desc";
}
else
{
sqry1 = "select * from(select * from (select 'ITEM 5A & 5B - OUTPUT TAX' as tname,'01' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('SR','DS','AJS') and m1.KW_Debit_amt='0.00') as a union all select * from (select 'ITEM 6A & 6B - INPUT TAX' as tname,'02' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX','TX-CG','TX-IES','TX-RE','IM','AJP') and m1.KW_kredit_amt='0.00' ) as b union all select * from (select 'ITEM 10 - Local Zero-Rated Supplies' as tname,'03' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRL','ZDA') and m1.KW_Debit_amt='0.00') as c union all select * from (select 'ITEM 11 - Export Supplies' as tname,'04' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ZRE') and m1.KW_Debit_amt='0.00') as d union all select * from (select 'ITEM 12 - Exempt Supplies' as tname,'05' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('ES','IES') and m1.KW_Debit_amt='0.00') as e union all select * from (select 'ITEM 13 - Supplies Granted GST Relief' as tname,'06' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,Tax_type as ttype,s2.Ref_kadar as trate,(Tot_Amt - m1.KW_kredit_amt) as Amt1,m1.KW_kredit_amt as Amt2,Tot_Amt as Amt3 from KW_General_Ledger m1 left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('RS','GS') and m1.KW_Debit_amt='0.00') as f union all select * from (select 'ITEM 14 - Goods Imported Under Approved Trader Scheme' as tname,'07' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('IS') and m1.KW_kredit_amt='0.00' ) as g union all select * from (select 'ITEM 16 - Capital Goods Acquired' as tname,'08' as tid,m1.GL_process_dt,FORMAT(ISNULL(GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,GL_invois_no as doc_no,s1.nama_akaun as com_name,m1.GL_desc1 as descript,m1.Tax_type as ttype,s2.Ref_kadar as trate,(case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end - m1.KW_Debit_amt) as Amt1,m1.KW_Debit_amt as Amt2,case when ISNULL(m2.Overall,'0.00') = '0.00' then m1.Tot_Amt else ISNULL(m2.Overall,'0.00') end as Amt3 from KW_General_Ledger m1 left join KW_Pembayaran_invoisBil_item m2 on m2.no_invois =m1.GL_invois_no left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=m1.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=m1.Tax_type where m1.Tax_type IN ('TX-CG') and m1.KW_kredit_amt='0.00' ) as h ) as a1 order by a1.tid,a1.GL_process_dt,a1.doc_no";
sqry2 = "select case when a.Tax_type = 'RJS' then 'O' else 'S' end as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,KW_kredit_amt as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type IN ('SR','ZRL','ZDA','ZRE','ES','IES','RS','GS','DS','AJS') and KW_Debit_amt='0.00') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type left join KW_Ref_Carta_Akaun s3 on s3.kod_akaun=s2.Ref_kod_akaun order by a.Tax_type desc";
}
dt = DBCon.Ora_Execute_table(sqry1);
dt1 = DBCon.Ora_Execute_table(sqry2);
ds.Tables.Add(dt);
ds1.Tables.Add(dt1);
string vs1 = string.Empty, vs2 = string.Empty, vs3 = string.Empty, vs4 = string.Empty, vs5 = string.Empty, vs6 = string.Empty;
Rptviwerlejar.Reset();
Rptviwerlejar.LocalReport.Refresh();
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable cnt_open = new DataTable();
cnt_open = DBCon.Ora_Execute_table(sqry2);
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_GST_Ring.rdlc";
ReportDataSource rds = new ReportDataSource("kwgstring", dt);
ReportDataSource rds1 = new ReportDataSource("kwgstring1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", Tk_mula.Text),
new ReportParameter("s2", Tk_akhir.Text),
new ReportParameter("s3", ""),
new ReportParameter("s4", ""),
new ReportParameter("S5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.DisplayName = "GST-03_Listing_" + DateTime.Now.ToString("yyyyMMdd");
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
protected void clk_submit(object sender, EventArgs e)
{
string rcount = string.Empty, rcount1 = string.Empty;
int count = 0, count1 = 1;
string ss1 = string.Empty;
foreach (ListItem li in DropDownList2.Items)
{
if (li.Selected == true)
{
count++;
}
rcount = count.ToString();
}
string selectedValues = string.Empty;
foreach (ListItem li in DropDownList2.Items)
{
if (li.Selected == true)
{
if (Int32.Parse(rcount) > count1)
{
ss1 = ",";
}
else
{
ss1 = "";
}
selectedValues += li.Value + ss1;
count1++;
}
rcount1 = count1.ToString();
}
DataSet ds = new DataSet();
DataSet ds1 = new DataSet();
DataTable dt = new DataTable();
DataTable dt1 = new DataTable();
string fmdate = string.Empty, tmdate = string.Empty;
if (Tk_mula.Text != "")
{
string fdate = Tk_mula.Text;
DateTime fd = DateTime.ParseExact(fdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
fmdate = fd.ToString("yyyy-MM-dd");
}
if (Tk_akhir.Text != "")
{
string tdate = Tk_akhir.Text;
DateTime td = DateTime.ParseExact(tdate, "dd/MM/yyyy", CultureInfo.InvariantCulture);
tmdate = td.ToString("yyyy-MM-dd");
}
if (DropDownList2.SelectedValue != "" && fmdate == "" && tmdate == "")
{
sqry1 = "select a.GL_type as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,case when KW_Debit_amt = '0.00' then KW_kredit_amt else KW_kredit_amt end as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type != '') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type where a.Tax_type='" + DropDownList2.SelectedValue + "' order by s2.Ref_kod_cukai";
}
else if (DropDownList2.SelectedValue == "" && fmdate != "" && tmdate != "")
{
sqry1 = "select a.GL_type as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,case when KW_Debit_amt = '0.00' then KW_kredit_amt else KW_kredit_amt end as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type != '') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type where a.GL_process_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and a.GL_process_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) order by s2.Ref_kod_cukai";
}
else if (DropDownList2.SelectedValue != "" && fmdate != "" && tmdate != "")
{
sqry1 = "select a.GL_type as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,case when KW_Debit_amt = '0.00' then KW_kredit_amt else KW_kredit_amt end as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type != '') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type where a.Tax_type='" + DropDownList2.SelectedValue + "' and a.GL_process_dt>=DATEADD(day, DATEDIFF(day, 0, '" + fmdate + "'), 0) and a.GL_process_dt<=DATEADD(day, DATEDIFF(day, 0, '" + tmdate + "'), +1) order by s2.Ref_kod_cukai";
}
else
{
sqry1 = "select a.GL_type as tname,FORMAT(ISNULL(a.GL_process_dt,''),'dd/MM/yyyy', 'en-us') as inv_dt,a.GL_invois_no as doc_no,s1.nama_akaun as com_name,s2.Ref_nama_cukai as descript,a.Tax_type as ttype,s2.Ref_kadar as trate,(a.tamt -a.gst_amt ) as Amt1,a.gst_amt as Amt2, a.tamt as Amt3 from (select Tax_type,GL_invois_no,case when KW_Debit_amt = '0.00' then KW_kredit_amt else KW_kredit_amt end as gst_amt,Tot_Amt as tamt,GL_process_dt,GL_type,GL_nama_kod from KW_General_Ledger where Tax_type != '') as a left join KW_Ref_Carta_Akaun s1 on s1.kod_akaun=a.GL_nama_kod left join KW_Ref_Tetapan_cukai s2 on s2.Ref_kod_cukai=a.Tax_type order by s2.Ref_kod_cukai";
}
dt = DBCon.Ora_Execute_table(sqry1);
//dt1 = DBCon.Ora_Execute_table(sqry2);
ds.Tables.Add(dt);
//ds1.Tables.Add(dt1);
string vs1 = string.Empty, vs2 = string.Empty, vs3 = string.Empty, vs4 = string.Empty, vs5 = string.Empty, vs6 = string.Empty;
Rptviwerlejar.Reset();
Rptviwerlejar.LocalReport.Refresh();
List <DataRow> listResult = dt.AsEnumerable().ToList();
listResult.Count();
int countRow = 0;
countRow = listResult.Count();
Rptviwerlejar.LocalReport.DataSources.Clear();
if (countRow != 0)
{
DataTable cnt_open = new DataTable();
cnt_open = DBCon.Ora_Execute_table(sqry2);
Rptviwerlejar.LocalReport.ReportPath = "Kewengan/KW_GST_sen.rdlc";
ReportDataSource rds = new ReportDataSource("kwgstsen", dt);
//ReportDataSource rds1 = new ReportDataSource("kwlegar1", dt1);
ReportParameter[] rptParams = new ReportParameter[] {
new ReportParameter("s1", Tk_mula.Text),
new ReportParameter("s2", Tk_akhir.Text),
new ReportParameter("s3", ""),
new ReportParameter("s4", ""),
new ReportParameter("S5", "")
};
Rptviwerlejar.LocalReport.SetParameters(rptParams);
Rptviwerlejar.LocalReport.DataSources.Add(rds);
//Rptviwerlejar.LocalReport.DataSources.Add(rds1);
Rptviwerlejar.LocalReport.DisplayName = "LEJAR_AM_" + DateTime.Now.ToString("yyyyMMdd");
Rptviwerlejar.LocalReport.Refresh();
}
else
{
ScriptManager.RegisterStartupScript(this, GetType(), "alertMessage", "$.Zebra_Dialog('Rekod tidak dijumpai. Sila Pastikan Semua Maklumat Dimasukkan Dengan Betul.',{'type': 'warning','title': 'warning','auto_close': 2000});", true);
}
}
