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);
}
}
}
