protected void save_Click(object sender, System.EventArgs e) { if (datavalid()) { int c = Db.SingleInteger("SELECT COUNT(*) FROM MS_AJB WHERE NoKontrak = '" + NoKontrak + "'"); DateTime TglAJB = Convert.ToDateTime(tglajb.Text); string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); string status = "D"; // B = Belum, S = Target, D = AJB, T = Tanda Tangan if (c == 0) { string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); if (NoAJB == "") { NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project); } Db.Execute("EXEC spAJB " + " '" + NoKontrak + "'" + ",'" + NoAJB + "'" + ",'" + TglAJB + "'" ); Db.Execute("UPDATE MS_AJB SET Project = '" + Project + "' WHERE NoAJB = '" + NoAJB + "'"); Db.Execute("UPDATE MS_AJB SET" + " AJBu=" + ajbused.SelectedValue + " ,NoAJBm='" + noajbm.Text + "'" + " ,AJB='" + status + "'" + ",TglAJB='" + tglajb.Text + "'" + ",NamaNotaris='" + notaris.Text + "'" + ",KetAJB ='" + keterangan.Text + "'" + ",Biaya ='" + nilaibiaya.Text + "'" + " WHERE NoKontrak = '" + NoKontrak + "'" ); Db.Execute("UPDATE MS_KONTRAK SET AJB = 'D',TglAJB='" + tglajb.Text + "' WHERE NoKontrak = '" + NoKontrak + "'"); decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text); if (NilaiBiaya != 0) { Db.Execute("EXEC spTagihanDaftar " + " '" + NoKontrak + "'" + ",'BIAYA ADM. AJB'" + ",'" + TglAJB + "'" + ", " + NilaiBiaya + ",'ADM'" ); int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC"); Db.Execute("UPDATE MS_TAGIHAN SET Jenis = 'AJB' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut); } DataTable rs = Db.Rs("SELECT" + " A.NoKontrak AS [No. Kontrak]" + ",B.NoUnit AS [Unit]" + ",C.Nama AS [Customer]" + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]" + ",CONVERT(varchar, A.TglAJB, 106) AS [Tanggal AJB]" + ",PersenLunas AS [Prosentase Pelunasan]" + ",A.Biaya" + ",A.KetAJB" + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]" + " FROM MS_AJB A INNER JOIN MS_KONTRAK B" + " ON A.NoKontrak = B.NoKontrak" + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer" + " WHERE A.NoKontrak = '" + NoKontrak + "'"); string ket = Cf.LogCapture(rs) + "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya) ; Db.Execute("EXEC spLogKontrak " + " 'AJB'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + ket + "'" + ",'" + NoKontrak + "'" ); decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC"); Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID); } else { string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); if (NoAJB == "") { NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project); } Db.Execute("UPDATE MS_AJB SET" + " AJBu=" + ajbused.SelectedValue + ",NoAJB= '" + NoAJB + "'" + ",NoAJBm='" + noajbm.Text + "'" + ",TglAJB='" + tglajb.Text + "'" + ",AJB='" + status + "'" + ",NamaNotaris='" + notaris.Text + "'" + ",KetAJB ='" + keterangan.Text + "'" + ",Biaya =" + Convert.ToDecimal(nilaibiaya.Text) + ",Project = '" + Project + "'" + " WHERE NoKontrak = '" + NoKontrak + "'" ); decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text); if (NilaiBiaya != 0) { Db.Execute("EXEC spTagihanDaftar " + " '" + NoKontrak + "'" + ",'BIAYA ADM. AJB'" + ",'" + TglAJB + "'" + ", " + NilaiBiaya + ",'ADM'" ); int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC"); Db.Execute("UPDATE MS_TAGIHAN SET Jenis = 'AJB' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut); } Db.Execute("UPDATE MS_KONTRAK SET AJB = 'D',TglAJB='" + tglajb.Text + "' WHERE NoKontrak = '" + NoKontrak + "'"); DataTable rs = Db.Rs("SELECT" + " A.NoKontrak AS [No. Kontrak]" + ",B.NoUnit AS [Unit]" + ",C.Nama AS [Customer]" + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]" + ",CONVERT(varchar, A.TglAJB, 106) AS [Tanggal AJB]" + ",PersenLunas AS [Prosentase Pelunasan]" + ",A.Biaya" + ",A.KetAJB" + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]" + " FROM MS_AJB A INNER JOIN MS_KONTRAK B" + " ON A.NoKontrak = B.NoKontrak" + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer" + " WHERE A.NoKontrak = '" + NoKontrak + "'"); string ket = Cf.LogCapture(rs) + "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya) ; Db.Execute("EXEC spLogKontrak " + " 'AJB'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + ket + "'" + ",'" + NoKontrak + "'" ); decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC"); Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID); } if (dariReminder.Checked) { Response.Redirect("ReminderAJB.aspx?done=" + NoKontrak + "&project=" + Project); } else { Response.Redirect("KontrakAJB.aspx?done=" + NoKontrak); } } }
protected void save_Click(object sender, System.EventArgs e) { if (datavalid()) { int c = Db.SingleInteger("SELECT COUNT(*) FROM MS_AJB WHERE NoKontrak = '" + NoKontrak + "'"); string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); DateTime TglAJB = Convert.ToDateTime(tgltarget.Text); string status = "S"; // B = Belum, S = Target, D = AJB, T = Tanda Tangan if (c == 0) { string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); if (NoAJB == "") { NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project); } Db.Execute("EXEC spAJB " + " '" + NoKontrak + "'" + ",'" + NoAJB + "'" + ",''" ); Db.Execute("UPDATE MS_AJB SET Project = '" + Project + "' WHERE NoAJB = '" + NoAJB + "'"); Db.Execute("UPDATE MS_AJB SET" //+ " AJBu=" + ajbused.SelectedValue + " AJB='" + status + "'" + " WHERE NoKontrak = '" + NoKontrak + "'" ); if (tgltarget.Text != "") { Db.Execute("UPDATE MS_AJB SET TglTargetAJB='" + Convert.ToDateTime(tgltarget.Text) + "' WHERE NoKontrak = '" + NoKontrak + "'"); } DataTable rs = Db.Rs("SELECT" + " A.NoKontrak AS [No. Kontrak]" + ",B.NoUnit AS [Unit]" + ",C.Nama AS [Customer]" + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]" + ",PersenLunas AS [Prosentase Pelunasan]" + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]" + " FROM MS_AJB A INNER JOIN MS_KONTRAK B" + " ON A.NoKontrak = B.NoKontrak" + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer" + " WHERE A.NoKontrak = '" + NoKontrak + "'"); string ket = Cf.LogCapture(rs) ; Db.Execute("EXEC spLogKontrak " + " 'T-AJB'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + ket + "'" + ",'" + NoKontrak + "'" ); decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC"); Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID); } else { Db.Execute("UPDATE MS_AJB SET" + " AJB='" + status + "'" + " WHERE NoKontrak = '" + NoKontrak + "'" ); if (tgltarget.Text != "") { Db.Execute("UPDATE MS_AJB SET TglTargetAJB='" + Convert.ToDateTime(tgltarget.Text) + "' WHERE NoKontrak = '" + NoKontrak + "'"); } DataTable rs = Db.Rs("SELECT" + " A.NoKontrak AS [No. Kontrak]" + ",B.NoUnit AS [Unit]" + ",C.Nama AS [Customer]" + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]" + ",PersenLunas AS [Prosentase Pelunasan]" + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]" + " FROM MS_AJB A INNER JOIN MS_KONTRAK B" + " ON A.NoKontrak = B.NoKontrak" + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer" + " WHERE A.NoKontrak = '" + NoKontrak + "'"); string ket = Cf.LogCapture(rs) ; Db.Execute("EXEC spLogKontrak " + " 'T-AJB'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + ket + "'" + ",'" + NoKontrak + "'" ); decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC"); Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID); } if (dariReminder.Checked) { Response.Redirect("ReminderAJB.aspx?done=" + NoKontrak); } else { Response.Redirect("KontrakAJBTarget.aspx?done=" + NoKontrak); } } }