protected void save_Click(object sender, EventArgs e)
{
DateTime Dari = Convert.ToDateTime(dari.Text);
DateTime Sampai = Convert.ToDateTime(sampai.Text);
string strSql = "SELECT * FROM MS_KONTRAK WHERE TglKontrak >= '" + Dari + "' and TglKontrak <= '" + Sampai + "' and Status='A' AND FlagKomisi=1";
DataTable rs = Db.Rs(strSql);
for (int i = 0; i < rs.Rows.Count; i++)
{
DataTable rsBef = Db.Rs("SELECT CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' - '+ NamaPenerima + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + rs.Rows[i]["NoKontrak"] + "' ORDER BY NoUrut");
Db.Execute("DELETE FROM MS_KOMISI"
+ " WHERE NilaiBayar = '0' AND NoKontrak = '" + rs.Rows[i]["NoKontrak"] + "'"
+ " AND SudahBayar='0'");
Db.Execute("UPDATE MS_KONTRAK SET FlagKomisi=0 WHERE NoKontrak = '" + rs.Rows[i]["NoKontrak"] + "'");
DataTable rsAft = Db.Rs("SELECT CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' - '+ NamaPenerima + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + rs.Rows[i]["NoKontrak"] + "' ORDER BY NoUrut");
string Ket = Cf.LogList(rsBef, rsAft, "JADWAL KOMISI");
Db.Execute("EXEC spLogKontrak"
+ " 'RK'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + rs.Rows[i]["NoKontrak"] + "'"
);
}
Response.Redirect("KomisiClearancePeriode.aspx?done=1");
}
private bool Save()
{
if (valid())
{
DataTable rsBef = Db.Rs("SELECT * "
//+ "CONVERT(VARCHAR,Baris) + '. ('+Tipe+') ' + CONVERT(VARCHAR,NilaiBayar,1) "
+ "FROM MS_KOMISI_TERM WHERE NoKomisi ='" + NoKomisi + "'");
for (int i = 0; i < rs.Rows.Count; i++)
{
TextBox nilaibayar = (TextBox)list.FindControl("nilaibayar_" + i);
decimal NB1 = Convert.ToDecimal(nilaibayar.Text);
//Db.Execute("EXEC spKomisiEditDetail "
// + " '" + NoKontrak + "'"
// + ", " + NB1
// );
Db.Execute("UPDATE MS_KOMISI_TERM SET NilaiCair = '" + NB1 + "' WHERE NoKomisi = '" + NoKomisi + "' AND SN = '" + rs.Rows[i]["SN"] + "'");
decimal total = Db.SingleDecimal("SELECT SUM(ISNULL(NilaiCair,0)) FROM MS_KOMISI_TERM WHERE NoKomisi = '" + NoKomisi + "' AND NoAgent = '" + rs.Rows[i]["NoAgent"] + "'");
Db.Execute("UPDATE MS_KOMISI_DETAIL SET Nilai = '" + total + "' WHERE NoKomisi = '" + NoKomisi + "' AND NoAgent = '" + rs.Rows[i]["NoAgent"] + "'");
}
DataTable rsAft = Db.Rs("SELECT * "
//+ "CONVERT(VARCHAR,Baris) + '. ('+Tipe+') ' + CONVERT(VARCHAR,NilaiBayar,1) "
+ "FROM MS_KOMISI_DETAIL WHERE NoKomisi = '" + NoKomisi + "'");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ "<br>---EDIT KOMISI---<br>"
+ Cf.LogList(rsBef, rsAft, "KOMISI");
Db.Execute("EXEC spLogKontrak"
+ " 'EJK'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
return(true);
}
else
{
return(false);
}
}
protected void SaveDetil(string CFID, string NoAgent, string NamaAgent, string PotongKomisi, decimal NilaiKomisi, bool Terakhir)
{
if (NilaiKomisi > 0)
{
bool potong = PotongKomisi == "YA" ? true : false;
Db.Execute("EXEC spKomisiCFDetil"
+ " '" + CFID + "'"
+ ",'" + NoAgent + "'"
+ ",'" + NamaAgent + "'"
+ ",'" + potong + "'"
+ ", " + NilaiKomisi
);
}
if (Terakhir)
{
DataTable rsHeader = Db.Rs("SELECT "
+ " NoCF"
+ ",CONVERT(varchar,Tgl,106) AS [Tgl. Generate]"
+ ",NoSkema AS [No. Skema CF]"
+ ",NamaSkema AS [Nama Skema CF]"
+ ",SalesTipe AS [Tipe Sales]"
+ ",NoKontrak AS [No. Kontrak]"
+ ",NoAgent AS [No. Agent]"
+ ",NamaAgent AS [Nama Agent]"
+ ",NoCustomer AS [No. Customer]"
+ ",NamaCust AS [Nama Customer]"
+ ",NoUnit AS [No. Unit]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_CF "
+ " WHERE NoCF = '" + CFID + "'");
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + NamaAgent + ' (' + CONVERT(VARCHAR, NoAgent) + ') '"
+ " + ' ' + CONVERT(VARCHAR, Nilai, 1) "
+ " + ' ' + CONVERT(VARCHAR,PotongKomisi)"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_CF_DETAIL WHERE NoCF = '" + CFID + "'");
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "DETAIL");
Db.Execute("EXEC spLogKomisiCF"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + CFID + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KOMISI_CF_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE MS_KOMISI_CF_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
}
}
protected void Page_Load(object sender, EventArgs e)
{
DataTable rsTagihan = Db.Rs("SELECT * FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut='" + NoUrut + "' AND NoKontrak = '" + NoKontrak + "'");
decimal Sisa = Convert.ToDecimal(rsTagihan.Rows[0]["Denda"]) - Convert.ToDecimal(rsTagihan.Rows[0]["DendaReal"]) - Convert.ToDecimal(rsTagihan.Rows[0]["NilaiPutihDenda"]);
//Response.Write("UPDATE ISC064_MARKETINGJUAL..MS_TAGIHAN SET "
//+ " Denda=0,NilaiPutihDenda = " + Convert.ToDecimal(Sisa, CultureInfo.CreateSpecificCulture("id-ID").NumberFormat) + " "
//+ " WHERE NoKontrak = '" + NoKontrak + "' "
//+ " and NoUrut = '" + NoUrut + "' ");
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_TAGIHAN SET "
+ " NilaiPutihDenda = " + Convert.ToDecimal(Sisa, CultureInfo.CreateSpecificCulture("id-ID").NumberFormat) + " "
+ " ,PutihDenda = '1'"
+ " WHERE NoKontrak = '" + NoKontrak + "' "
+ " and NoUrut = '" + NoUrut + "' ");
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) +' '+CONVERT(VARCHAR,NilaiPutihDenda,1) "
+ "FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = '" + NoUrut + "' ORDER BY NoUrut");
DataTable rs = Db.Rs("SELECT"
+ " ISC064_MARKETINGJUAL..MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",ISC064_MARKETINGJUAL..MS_KONTRAK.NoUnit AS [Unit]"
+ ",ISC064_MARKETINGJUAL..MS_CUSTOMER.Nama AS [Customer]"
+ ",ISC064_MARKETINGJUAL..MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",ISC064_MARKETINGJUAL..MS_KONTRAK.Skema AS [Skema]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK INNER JOIN ISC064_MARKETINGJUAL..MS_CUSTOMER"
+ " ON ISC064_MARKETINGJUAL..MS_KONTRAK.NoCustomer = ISC064_MARKETINGJUAL..MS_CUSTOMER.NoCustomer"
+ " WHERE ISC064_MARKETINGJUAL..MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rs)
+ "<br>---PEMUTIHAN DENDA---<br>"
+ Cf.LogList(rsAft, "JADWAL TAGIHAN")
;
Db.Execute("EXEC ISC064_MARKETINGJUAL..spLogPutihDenda "
+ " 'PD'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_PUTIHDENDA_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_PUTIHDENDA_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("PemutihanDenda1.aspx?done=" + NoKontrak);
}
private bool Save()
{
if (valid())
{
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + Nama + ' ('+Jabatan+') '"
+ "FROM REF_SIGN WHERE Dokumen = '" + Dokumen + "' ORDER BY SN");
for (int i = 0; i < rs.Rows.Count; i++)
{
TextBox nama = (TextBox)list.FindControl("nama_" + i);
TextBox jabatan = (TextBox)list.FindControl("jabatan_" + i);
int NoUrut = Convert.ToInt32(rs.Rows[i]["SN"]);
string Nama = nama.Text;
string Jabatan = jabatan.Text;
Db.Execute("EXEC spRefSignEdit "
+ " '" + Dokumen + "'"
+ ", " + NoUrut
+ ",'" + Nama + "'"
+ ",'" + Jabatan + "'"
);
}
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + Nama + ' ('+Jabatan+') '"
+ "FROM REF_SIGN WHERE Dokumen = '" + Dokumen + "' ORDER BY SN");
string Ket = Dokumen + "<br>"
+ "<br>---EDIT TANDA TANGAN---<br>"
+ Cf.LogList(rsBef, rsAft, "TANDA TANGAN");
Db.Execute("EXEC spLogRefSign"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Dokumen + "'"
);
return(true);
}
else
{
return(false);
}
}
private bool Save()
{
string addq = "";
if (Modul != "")
{
addq = " AND Halaman IN "
+ "(SELECT Halaman FROM PAGE WHERE Modul = '" + Modul + "')";
}
DataTable rsBef = Db.Rs("SELECT PAGE.Modul + ' ' + PAGE.Nama + ' ' + PAGE.Halaman"
+ " FROM PAGESEC INNER JOIN PAGE ON PAGESEC.Halaman = PAGE.Halaman "
+ " WHERE Kode = '" + Kode + "' ORDER BY Modul,Nama");
Db.Execute("DELETE FROM PAGESEC WHERE Kode = '" + Kode + "'"
+ addq);
for (int i = 0; i < rs.Rows.Count; i++)
{
if (!Response.IsClientConnected)
{
break;
}
CheckBox cb = (CheckBox)list.FindControl("p_" + i);
if (cb.Checked)
{
Db.Execute("INSERT INTO PAGESEC (Kode,Halaman) "
+ "VALUES ('" + Kode + "','" + rs.Rows[i]["Halaman"] + "')");
}
}
DataTable rsAft = Db.Rs("SELECT PAGE.Modul + ' ' + PAGE.Nama + ' ' + PAGE.Halaman"
+ " FROM PAGESEC INNER JOIN PAGE ON PAGESEC.Halaman = PAGE.Halaman "
+ " WHERE Kode = '" + Kode + "' ORDER BY Modul,Nama");
string KetLog = Cf.LogList(rsBef, rsAft, "KONFIGURASI SECURITY");
Db.Execute("EXEC spLogSeclevel"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + Kode + "'"
);
return(true);
}
protected void save_Click(object sender, System.EventArgs e)
{
int n1 = Convert.ToInt32(del.Text);
int n2 = Convert.ToInt32(simpan.Text);
string NamaHapus = nama1.Text.Replace("'", "''");
string NamaSimpan = nama2.Text.Replace("'", "''");
DataTable rsHapus = Db.Rs("SELECT * FROM MS_CUSTOMER WHERE NoCustomer = " + n1);
DataTable kontrakHapus = Db.Rs("SELECT NoKontrak FROM MS_KONTRAK WHERE NoCustomer = " + n1 + " AND Project IN(" + Act.ProjectListSql + ")");
//Hati-hati, n1 dan n2 terbalik di susunan stored procedure
Db.Execute("EXEC spCustomerGabung "
+ " " + n2
+ "," + n1
);
string KetHapus = "Data dipindahkan ke customer : " + NamaSimpan
+ "<br>"
+ Cf.LogList(kontrakHapus, "DAFTAR KONTRAK")
+ "<br>"
+ Cf.LogCapture(rsHapus)
;
Db.Execute("EXEC spLogCustomer "
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetHapus + "'"
+ ",'" + n1.ToString().PadLeft(5, '0') + "'"
);
DataTable kontrakSimpan = Db.Rs("SELECT NoKontrak FROM MS_KONTRAK WHERE NoCustomer = " + n2 + " AND Project IN(" + Act.ProjectListSql + ")");
string Ket = "Gabungan data dari customer : " + NamaHapus
+ "<br>"
+ Cf.LogList(kontrakSimpan, "DAFTAR KONTRAK")
;
Db.Execute("EXEC spLogCustomer "
+ " 'GABUNG'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + n2.ToString().PadLeft(5, '0') + "'"
);
Response.Redirect("CustomerGabung.aspx?done=" + n2);
}
protected void save_Click(object sender, System.EventArgs e)
{
DataTable rsHeaderBef = Db.Rs("SELECT "
+ " SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
);
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% (' + Jadwal + ') ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
SaveKomisi();
DataTable rsHeaderAft = Db.Rs("SELECT "
+ " SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
);
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% (' + Jadwal + ') ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ Cf.LogCompare(rsHeaderBef, rsHeaderAft)
+ Cf.LogList(rsBef, rsAft, "JADWAL KOMISI");
Db.Execute("EXEC spLogKontrak"
+ " 'RK'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
Response.Redirect("KomisiReset.aspx?done=" + NoKontrak);
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs("SELECT * FROM SECLEVEL WHERE Kode = '" + Kode + "'");
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
DataTable rsDetil = Db.Rs("SELECT PAGE.Modul + ' ' + PAGE.Nama + ' ' + PAGE.Halaman"
+ " FROM PAGESEC INNER JOIN PAGE ON PAGESEC.Halaman = PAGE.Halaman "
+ " WHERE Kode = '" + Kode + "' ORDER BY Modul,Nama");
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs)
+ Cf.LogList(rsDetil, "KONFIGURASI SECURITY");
Db.Execute("EXEC spSecLevelDel '" + Kode + "'");
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM SECLEVEL WHERE Kode = '" + Kode + "'");
if (c == 0)
{
//Log
Db.Execute("EXEC spLogSeclevel "
+ " 'DEL'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Kode + "'"
);
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
//generate komisi
Func.GenerateKomisi(NoKontrak, special);
DataTable rs = Db.Rs("SELECT "
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_AGENT.Nama + ' ' + MS_AGENT.Principal AS [Agent]"
+ ",MS_KONTRAK.SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " INNER JOIN MS_AGENT ON MS_KONTRAK.NoAgent = MS_AGENT.NoAgent"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
);
DataTable rsKomisi = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% (' + Jadwal + ') ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
string Ket = Cf.LogCapture(rs)
+ Cf.LogList(rsKomisi, "JADWAL KOMISI");
Db.Execute("EXEC spLogKontrak"
+ " 'KOMISI'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
if (dariReminder.Checked)
{
Response.Redirect("ReminderKom.aspx?done=" + NoKontrak);
}
else if (dariDaftar.Checked)
{
Response.Redirect("KontrakDaftar3.aspx?done=1&NoKontrak=" + NoKontrak);
}
else
{
Response.Redirect("KomisiGen.aspx?done=" + NoKontrak);
}
}
private void save()
{
DateTime TglBayar = Convert.ToDateTime(tbTglBayarClosing.Text);
decimal NilaiCF = Convert.ToDecimal(tbNilai.Text);
DataTable rsBef = Db.Rs("SELECT Max(ClosingFee) FROM MS_KOMISI_DETAIL WHERE NoKontrak = '" + NoKontrak + "' AND BarisTermin = '" + Baris + "'");
string strSql = "UPDATE MS_KOMISI_DETAIL "
+ " SET TglBayarClosingFee = '" + TglBayar + "'"
+ ", NilaiBayarCF = " + NilaiCF
+ ", FlagClosingFee = 1 "
+ " WHERE NoKontrak = '" + NoKontrak + "'"
+ " AND BarisTermin = " + Baris;
Db.Execute(strSql);
DataTable rsAft = Db.Rs("SELECT Max(ClosingFee) FROM MS_KOMISI_DETAIL WHERE NoKontrak = '" + NoKontrak + "' AND BarisTermin = '" + Baris + "'");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ "<br>---EDIT KOMISI (Closing Fee)---<br>"
+ Cf.LogList(rsBef, rsAft, "KOMISI (Closing Fee)");
Db.Execute("EXEC spLogKontrak"
+ " 'EDIT KOMISI (Closing Fee)'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
Response.Redirect("KontrakJadwalKomisi.aspx?Nokontrak=" + NoKontrak);
}
private void SaveLog(int Nomor)
{
DataTable rsHeader = Db.Rs("SELECT "
+ " Nomor"
+ ",Nama"
+ ",Project"
+ ",Diskon"
+ ",DiskonKet AS [Keterangan Diskon]"
+ ",Bunga"
+ ",BungaKet AS [Keterangan Bunga]"
+ ",RThousand AS [Pembulatan Nilai]"
+ ",Status"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA "
+ " WHERE Nomor = " + Nomor);
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, Baris) "
+ " + '. ' + Nama + ' (' + Tipe + ') ' "
+ " + TipeNominal + CONVERT(VARCHAR, Nominal, 1) + ' ' "
+ " + TipeJadwal + '(' + CONVERT(VARCHAR, IntJadwal) + ')' + "
+ " ISNULL(CONVERT(VARCHAR, TglFix, 106), 'NULL') + ' ' "
+ " + 'REF:' + CONVERT(VARCHAR,RefJadwal) + ' ' "
+ " + 'BF:' + CONVERT(VARCHAR, BF)"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA_DETAIL WHERE Nomor = " + Nomor);
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "RUMUS");
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogSkema"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Nomor.ToString().PadLeft(3, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM REF_SKEMA_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE REF_SKEMA_LOG SET Project = '" + project.Text + "' WHERE LogID = " + LogID);
}
protected void ok_Click(object sender, System.EventArgs e)
{
if (valid())
{
string Kode = Cf.Pk(kode.Text);
string Nama = Cf.Str(nama.Text);
Db.Execute("EXEC spSecLevelDaftar"
+ " '" + Kode + "'"
+ ",'" + Nama + "'"
+ ",'" + copyconfig.SelectedValue + "'"
);
DataTable rs = Db.Rs("SELECT "
+ " Kode"
+ ",Nama"
+ ",'" + copyconfig.SelectedValue + "' AS [Konfigurasi Copy]"
+ " FROM SECLEVEL "
+ " WHERE Kode = '" + Kode + "'");
DataTable rsDetil = Db.Rs("SELECT PAGE.Modul + ' ' + PAGE.Nama + ' ' + PAGE.Halaman"
+ " FROM PAGESEC INNER JOIN PAGE ON PAGESEC.Halaman = PAGE.Halaman "
+ " WHERE Kode = '" + Kode + "' ORDER BY Modul,Nama");
string KetLog = Cf.LogCapture(rs)
+ Cf.LogList(rsDetil, "KONFIGURASI SECURITY");
Db.Execute("EXEC spLogSeclevel"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + Kode + "'"
);
Response.Redirect("SecLevel.aspx?done=" + Kode);
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (valid())
{
DateTime TglKontrak = Convert.ToDateTime(tglkontrak.Text);
string Project = Db.SingleString("SELECT Project FROM MS_UNIT WHERE NoStock = '" + NoStock + "'");
//Numerator
nokontrak.Text = Numerator.SuratPesanan(TglKontrak.Month, TglKontrak.Year, Project);
decimal nilaitagihan = Db.SingleDecimal("SELECT Netto FROM MS_RESERVASI WHERE NoReservasi = '" + NoReservasi + "'");
DateTime TargetST = Convert.ToDateTime(targetst.Text);
string Skema = Cf.Str(carabayar.SelectedItem.Text);
decimal surcharge = Convert.ToDecimal(Surcharge.Text);
Db.Execute("EXEC spKontrakDaftar"
+ " '" + NoKontrak + "'"
+ ",'" + NoStock + "'"
+ ",'" + TglKontrak + "'"
+ ",'" + Skema + "'"
+ ",'" + TargetST + "'"
);
int KPR = 0;
if (carabayar2.SelectedValue == "KPR")
{
KPR = 1;
}
else
{
KPR = 0;
}
//Manual update
string sSQL = "UPDATE MS_KONTRAK"
+ " SET JenisPPN = '" + JenisPPN.SelectedItem.Text + "'"
+ ", JenisKPR = " + KPR
+ ", CaraBayar = '" + carabayar2.SelectedValue + "'"
+ ", RefSkema = '" + carabayar.SelectedValue + "'"
+ ", Surcharge='" + surcharge + "'"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
;
Db.Execute(sSQL);
//Update Status Reservasi
Db.Execute("UPDATE MS_RESERVASI SET Status='C' WHERE NoReservasi='" + NoReservasi + "'");
int c = Db.SingleInteger("SELECT COUNT(NoKontrak) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
if (c == 0)
{
nokontrak.Text = "#AUTO#";
Js.Alert(
this
, "Unit Tidak Valid.\\n\\n"
+ "Kemungkinan Sebab :\\n"
+ "1. Unit sudah dijual kepada customer lain.\\n"
, "document.getElementById('tglkontrak').focus();"
+ "document.getElementById('tglkontrak').select();"
);
}
else
{
SaveTagihan();
int Count = Db.SingleInteger("SELECT COUNT(*) FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "'");
if (Count == 0)
{
}
else
{
SaveFO();
}
DataTable rs = Db.Rs("SELECT "
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_AGENT.Nama + ' ' + MS_AGENT.Principal AS [Agent]"
+ ",CONVERT(varchar,MS_KONTRAK.TglKontrak,106) AS [Tanggal Kontrak]"
+ ",MS_KONTRAK.NoStock AS [No. Stock]"
+ ",MS_KONTRAK.Luas AS [Luas]"
+ ",MS_KONTRAK.Gross AS [Nilai Gross]"
+ ",MS_KONTRAK.DiskonRupiah AS [Diskon dalam Rupiah]"
+ ",MS_KONTRAK.DiskonPersen AS [Diskon dalam Persen]"
+ ",MS_KONTRAK.DiskonKet AS [Keterangan Diskon]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.Skema"
+ ",CONVERT(varchar,MS_KONTRAK.TargetST,106) AS [Jadwal Serah Terima]"
+ ", MS_KONTRAK.JenisPPN AS [PPN Ditanggung]"
+ ", CASE MS_KONTRAK.JenisKPR"
+ " WHEN 0 THEN 'KPR'"
+ " WHEN 1 THEN 'NON-KPR'"
+ " END AS [Jenis KPR]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " INNER JOIN MS_AGENT ON MS_KONTRAK.NoAgent = MS_AGENT.NoAgent"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
);
DataTable rsTagihan = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
//Logfile
string Ket = Cf.LogCapture(rs)
+ Cf.LogList(rsTagihan, "JADWAL TAGIHAN");
Db.Execute("EXEC spLogKontrak"
+ " 'DAFTAR'"
+ ",'" + 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);
//floor plan
string Peta = Db.SingleString("SELECT Peta "
+ " FROM MS_UNIT INNER JOIN MS_KONTRAK ON MS_UNIT.NoStock = MS_KONTRAK.NoStock "
+ " WHERE NoKontrak = '" + NoKontrak + "'");
Func.GenerateFP(Peta);
Response.Redirect("KontrakDaftar3.aspx?NoKontrak=" + NoKontrak);
}
}
}
private bool Save()
{
if (validbaru() && validedit() && validnew())
{
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
for (int i = 0; i < rs.Rows.Count; i++)
{
TextBox namatagihan = (TextBox)list.FindControl("nama_" + i);
TextBox tgljt = (TextBox)list.FindControl("tgl_" + i);
TextBox nilailumpsum = (TextBox)list.FindControl("nilailumpsum_" + i);
TextBox nilaipersen = (TextBox)list.FindControl("nilaipersen_" + i);
DropDownList tipe = (DropDownList)list.FindControl("tipe_" + i);
RadioButtonList tipetarif = (RadioButtonList)list.FindControl("tipetarif_" + i);
int NoUrut = Convert.ToInt32(rs.Rows[i]["NoUrut"]);
string Tipe = tipe.SelectedValue.ToString();
string Nama = Cf.Str(namatagihan.Text);
DateTime TglJT = Convert.ToDateTime(tgljt.Text);
decimal Lumpsum = Convert.ToDecimal(nilailumpsum.Text);
decimal Persen = Convert.ToDecimal(nilaipersen.Text);
string TipeTarif = tipetarif.SelectedValue;
string strSqlAnomali = "SELECT"
+ " NamaTagihan AS [Nama Tagihan]"
+ ", TglJT AS [Tgl. Jatuh Tempo]"
+ ", Tipe AS [Tipe]"
+ ", NilaiTagihan AS [Nilai Lumpsum]"
+ ", NilaiTagihanPersen AS [Nilai Persen]"
+ " FROM MS_TAGIHAN_KPA"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
+ " AND NoUrut = " + NoUrut
;
DataTable AnomaliBef = Db.Rs(strSqlAnomali);
Db.Execute("EXEC spTagihanEditKPA "
+ " '" + NoKontrak + "'"
+ ", " + NoUrut
+ ",'" + Nama + "'"
+ ",'" + TglJT + "'"
+ ", " + Lumpsum
+ ",'" + Tipe + "'"
+ ",'" + TipeTarif + "'"
+ ",'" + Persen + "'"
);
}
Tambah();
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) + ' ' + CONVERT(VARCHAR,NilaiTagihanPersen,1) "
+ " FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.Skema AS [Skema]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ "<br>---EDIT TAGIHAN KPR---<br>"
+ Cf.LogList(rsBef, rsAft, "JADWAL TAGIHAN");
Db.Execute("EXEC spLogKontrak"
+ " 'EJT-KPA'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
return(true);
}
else
{
return(false);
}
}
protected void Page_Load(object sender, System.EventArgs e)
{
Act.Pass();
Act.NoCache();
Act.CekInt("NoUrut");
DataTable rs = Db.Rs(
"SELECT * FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "'"
+ " AND NoUrut = " + NoUrut);
int totalkomisi = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "'"
);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% (' + Jadwal + ') ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
Db.Execute("EXEC spKomisiDel "
+ " '" + NoKontrak + "'"
+ ", " + NoUrut
);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "'"
);
if (c != totalkomisi)
{
//Log
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaKomisi + ' ('+Tipe+') CAIR:' + CONVERT(VARCHAR,TermCair,1) + '% (' + Jadwal + ') ' + CONVERT(VARCHAR,NilaiKomisi,1) "
+ "FROM MS_KOMISI WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.SkemaKomisi AS [Skema Komisi]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ "<br>---DELETE KOMISI---<br>"
+ Cf.LogList(rsBef, rsAft, "JADWAL KOMISI");
Db.Execute("EXEC spLogKontrak"
+ " 'EJK'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
Response.Redirect("KomisiEdit.aspx?NoKontrak=" + NoKontrak + "&done=1");
}
else
{
//Tidak bisa dihapus
nodel.Visible = true;
}
}
}
protected void Page_Load(object sender, System.EventArgs e)
{
Act.Pass();
Act.NoCache();
Act.CekInt("NoTTS");
DataTable rs = Db.Rs("SELECT * FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS + " AND Status = 'BARU' AND Acc <> '' AND Acc <> '0'");
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
DataTable rsHeader = Db.Rs("SELECT "
+ " CONVERT(varchar, TglTTS, 106) AS [Tanggal]"
+ ",Tipe"
+ ",Ref AS [Ref.]"
+ ",Unit"
+ ",Customer"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Ket AS [Keterangan]"
+ ",NoSlip AS [Slip Setoran]"
+ ",NoBG AS [No. BG]"
+ ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]"
+ ",Titip AS [Pengelola BG]"
+ ",Total"
+ ",NoFPS AS [No. Faktur Pajak]"
+ " FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS);
string StatusLama = rs.Rows[0]["Status"].ToString();
#region logfile
string Tipe = Db.SingleString("SELECT Tipe FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS);
string Tb = Sc.MktTb(Tipe);
string strSql = "";
if (Tipe != "TENANT")
{
strSql = "SELECT "
+ " CASE NoTagihan"
+ " WHEN 0 THEN 'UNALLOCATED ' + CONVERT(varchar,NilaiPelunasan,1)"
+ " ELSE (SELECT NamaTagihan FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut = l.NoTagihan AND NoKontrak = l.NoKontrak)"
+ " + ' ' + CONVERT(varchar,NilaiPelunasan,1)"
+ " END AS NamaTagihan"
+ " FROM ISC064_MARKETINGJUAL..MS_PELUNASAN AS l "
+ " WHERE NoTTS = " + NoTTS;
}
else
{
strSql = "SELECT "
+ " NamaTagihan + ' ' + CONVERT(varchar,NilaiTagihan,1) "
+ " FROM ISC064_MARKETINGJUAL..MS_TAGIHAN AS l "
+ " WHERE NoTTS = " + NoTTS;
}
#endregion
DataTable rsDetil = Db.Rs(strSql);
string NoBKM = AutoID;
Db.Execute("EXEC ISC064_FINANCEAR..spPostingTTS " + NoTTS + ",'" + NoBKM + "','" + TglBKM + "'");
Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET ManualBKM = ManualTTS WHERE NoTTS = " + NoTTS);
//Ambil Stok No. FP
DataTable fp = Db.Rs("SELECT * FROM ISC064_FINANCEAR..REF_FP WHERE Status = 0");
if (fp.Rows.Count > 0)
{
Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET"
+ " NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'"
+ " WHERE NoTTS = " + NoTTS);
Db.Execute("UPDATE ISC064_FINANCEAR..REF_FP SET"
+ " Status = 1"
+ " WHERE NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'");
}
//Log
string KetLog = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetil, "ALOKASI PELUNASAN")
;
Db.Execute("EXEC ISC064_FINANCEAR..spLogTTS"
+ " 'POST'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'***BUKA KWITANSI***<br>" + KetLog + "'"
+ ",'" + NoTTS.ToString().PadLeft(7, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = (SELECT Ref FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE NoTTS = '" + NoTTS + "')");
Db.Execute("UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("TTSEdit.aspx?NoTTS=" + NoTTS + "&done=1");
}
}
protected void save_Click(object sender, EventArgs e)
{
if (valid())
{
DateTime Tgl = Convert.ToDateTime(tgl.Text);
string RRID = LibKom.RRID(Tgl.Month, Tgl.Year);
Db.Execute("EXEC spKomisiRewardRDaftar"
+ " '" + RRID + "'"
+ ",'" + Tgl + "'"
+ ",'" + Request.QueryString["id"] + "'"
+ ",'" + Cf.Str(ket.Text) + "'"
);
Db.Execute("UPDATE MS_KOMISI_REWARD_R SET "
+ " Project = '" + Project + "'"
+ " WHERE NoRR = '" + RRID + "'");
int index = 0;
foreach (Control tr in list.Controls)
{
CheckBox cb = (CheckBox)list.FindControl("cb_" + index);
if (cb.Checked)
{
DataTable dd = Db.Rs("SELECT * FROM MS_KOMISI_REWARD_P_DETAIL WHERE NoReward = '" + cb.Attributes["title"] + "'");
if (dd != null)
{
Db.Execute("EXEC spKomisiRewardRDetil"
+ " '" + RRID + "'"
+ ",'" + dd.Rows[0]["NoReward"].ToString() + "'"
+ ",'" + dd.Rows[0]["Reward"].ToString() + "'"
);
}
}
index++;
}
DataTable rsHeader = Db.Rs("SELECT "
+ " NoRR"
+ ",CONVERT(varchar,Tgl,106) AS [Tgl. Realisasi]"
+ ",Ket AS [Keterangan]"
+ ",NoRP AS [Kode Pengajuan]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_REWARD_R "
+ " WHERE NoRR = '" + RRID + "'");
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + NoReward"
+ " + ' ' + Reward "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_REWARD_R_DETAIL a WHERE NoRR = '" + RRID + "'");
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "DETAIL");
Db.Execute("EXEC spLogKomisiRewardR"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + RRID + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KOMISI_REWARD_R_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE MS_KOMISI_REWARD_R_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("RewardRRegis1.aspx?id=" + RRID);
}
}
protected void Save()
{
DateTime Dari = Convert.ToDateTime(dari.Text);
DateTime Sampai = Convert.ToDateTime(sampai.Text);
if (Dari > Sampai)
{
DateTime x = Sampai;
Sampai = Dari;
Dari = x;
}
string Nama = Cf.Str(nama.Text);
int SalesTipe = Convert.ToInt32(tipe.SelectedValue);
string Rumus = rumus.SelectedValue;
string DasarHitung = dasarhitung.SelectedValue;
Db.Execute("EXEC spSkomCFBaru"
+ " '" + Nama + "'"
+ ", " + SalesTipe
+ ",'" + Dari + "'"
+ ",'" + Sampai + "'"
+ ",'" + Rumus + "'"
+ ",'" + DasarHitung + "'"
);
int Nomor = Db.SingleInteger("SELECT TOP 1 NoSkema FROM REF_SKOM_CF"
+ " ORDER BY NoSkema DESC"
);
Db.Execute("UPDATE REF_SKOM_CF SET "
+ " Project = '" + project.SelectedValue + "'"
+ " WHERE NoSkema = '" + Nomor + "'");
if (Rumus == "UNIT")
{
SaveRumus(Nomor);
}
else
{
SaveRumus2(Nomor);
}
DataTable rsHeader = Db.Rs("SELECT "
+ " NoSkema"
+ ",SalesTipe"
+ ",Nama"
+ ",Project"
+ ",CONVERT(varchar,Dari,106) AS [Periode Dari]"
+ ",CONVERT(varchar,Sampai,106) AS [Periode Sampai]"
+ ",Rumus AS [Rumus Komisi]"
+ ",DasarHitung AS [Dasar Perhitungan]"
+ ",Inaktif AS [Status Inaktif]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_CF "
+ " WHERE NoSkema = " + Nomor);
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' '"
+ " + ' ' + CONVERT(VARCHAR, Nilai, 1) + TipeTarif "
+ " + ' ' + CONVERT(VARCHAR,PotongKomisi)"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_CF_DETAIL WHERE NoSkema = " + Nomor);
DataTable rsDetail2 = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' '"
+ " + ' ' + CONVERT(VARCHAR, TargetBawah, 1) + ' - ' + CONVERT(VARCHAR, TargetAtas, 1) + TipeTarget + ' '"
+ " + ' ' + CONVERT(VARCHAR, Nilai, 1) + TipeTarif "
+ " + ' ' + CONVERT(VARCHAR,PotongKomisi)"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_CF_DETAIL2 WHERE NoSkema = " + Nomor);
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "RUMUS UNIT")
+ Cf.LogList(rsDetail2, "RUMUS KUMULATIF");
Db.Execute("EXEC spLogSkomCF"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Nomor.ToString().PadLeft(5, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM REF_SKOM_CF_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE REF_SKOM_CF_LOG SET Project = '" + project.SelectedValue + "' WHERE LogID = " + LogID);
Response.Redirect("SkemaCF.aspx?done=" + Nomor);
}
void EditLoger(string Nomor)
{
DataTable rsHeader = Db.Rs("SELECT "
+ " NoTermin"
+ ",Nama"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Inaktif AS [Status Inaktif]"
+ ",SalesTipe"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM "
+ " WHERE NoTermin = " + Nomor);
DataTable rsSkemaBef = Db.Rs("SELECT "
+ " NoTermin"
+ ",Nama"
+ ",CaraBayar AS [Cara Bayar]"
+ ",(SELECT Tipe FROM REF_AGENT_TIPE WHERE ID = SalesTipe) AS [Tipe Sales] "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM "
+ " WHERE NoTermin = " + Nomor);
DataTable rsDetailBef = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + Nama + ' '"
+ " + ' ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' '"
+ " + ' Cair ' + CONVERT(VARCHAR, PersenCair, 1) + ' % ' "
+ " + ' Lunas ' + CONVERT(VARCHAR, PersenLunas, 1) + ' % ' "
+ " + ' BF ' + CONVERT(VARCHAR, PersenBF, 1) + ' % ' "
+ " + ' DP ' + CONVERT(VARCHAR, PersenDP, 1) + ' % ' "
+ " + ' ANG ' + CONVERT(VARCHAR, PersenANG, 1) + ' % ' "
+ " + ' Syarat Cair (' + CONVERT(VARCHAR,TipeCair) + ') ' "
+ " + ' PPJB (' + CONVERT(VARCHAR, PPJB) + ') ' "
+ " + ' AJB (' + CONVERT(VARCHAR, AJB) + ') ' "
+ " + ' AKAD (' + CONVERT(VARCHAR, AKAD) + ') ' "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM_DETAIL WHERE NoTermin = " + Nomor);
UpdateSkema();
DataTable rsSkemaAft = Db.Rs("SELECT "
+ " NoTermin"
+ ",Nama"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Inaktif AS [Status Inaktif]"
+ ",(SELECT Tipe FROM REF_AGENT_TIPE WHERE ID = SalesTipe) AS [Tipe Sales] "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM "
+ " WHERE NoTermin = " + Nomor);
UpdateSkemaDetail();
DataTable rsDetailAft = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + Nama + ' '"
+ " + ' ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' '"
+ " + ' Cair ' + CONVERT(VARCHAR, PersenCair, 1) + ' % ' "
+ " + ' BF ' + CONVERT(VARCHAR, PersenBF, 1) + ' % ' "
+ " + ' DP ' + CONVERT(VARCHAR, PersenDP, 1) + ' % ' "
+ " + ' ANG ' + CONVERT(VARCHAR, PersenANG, 1) + ' % ' "
+ " + ' Syarat Cair (' + CONVERT(VARCHAR,TipeCair) + ') ' "
+ " + ' PPJB (' + CONVERT(VARCHAR, PPJB) + ') ' "
+ " + ' AJB (' + CONVERT(VARCHAR, AJB) + ') ' "
+ " + ' AKAD (' + CONVERT(VARCHAR, AKAD) + ') ' "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM_DETAIL WHERE NoTermin = " + Nomor);
string Ket = Cf.LogCapture(rsHeader)
+ "<br>---EDIT SKEMA---<br>"
+ Cf.LogCompare(rsSkemaBef, rsSkemaAft)
+ "<br>---EDIT DETAIL---<br>"
+ Cf.LogList(rsDetailBef, rsDetailAft, "RUMUS UNIT");
Db.Execute("EXEC spLogSkomTerm"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Nomor.PadLeft(5, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM REF_SKOM_TERM_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM REF_SKOM_TERM WHERE NoTermin = " + Nomor);
Db.Execute("UPDATE REF_SKOM_TERM_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
}
void EditLoger(string Nomor)
{
DataTable rsHeader = Db.Rs("SELECT "
+ " NoSkema"
+ ",SalesTipe"
+ ",Nama"
+ ",CONVERT(varchar,Dari,106) AS [Periode Dari]"
+ ",CONVERT(varchar,Sampai,106) AS [Periode Sampai]"
+ ",Rumus AS [Rumus Komisi]"
+ ",DasarHitung AS [Dasar Perhitungan]"
+ ",Inaktif AS [Status Inaktif]"
+ ",NoTermin AS [No. Termin]"
+ ",(SELECT Nama FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM_TERM WHERE REF_SKOM_TERM.NoTermin = REF_SKOM.NoTermin) AS [Nama Termin]"
+ ",CaraBayar AS [Cara Bayar]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKOM "
+ " WHERE NoSkema = " + Nomor);
DataTable rsSkemaBef = Db.Rs("SELECT [Nama] as [Nama Komisi] "
+ " ,case when [Inaktif]=0 then 'Aktif' else 'Inaktif' end as [Status] "
+ " ,(SELECT Tipe FROM REF_AGENT_TIPE WHERE ID = SalesTipe) AS [Tipe Sales] "
+ " ,[Dari] "
+ " ,[Sampai]"
+ " ,[Rumus]"
+ " ,[DasarHitung]"
+ " FROM REF_SKOM where NoSkema = " + Nomor);
DataTable rsDetailBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' ' + CONVERT(VARCHAR,Nilai,1) + ' ' + TipeTarif "
+ "FROM REF_SKOM_DETAIL WHERE NoSkema = '" + Nomor + "' ORDER BY SN");
DataTable rsDetailBef2 = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' ' + CONVERT(VARCHAR,TargetBawah,1) + ' - ' + CONVERT(VARCHAR,TargetAtas,1) + ' (' + TipeTarget + ') ' + CONVERT(VARCHAR,Nilai,1) + ' ' + TipeTarif "
+ "FROM REF_SKOM_DETAIL2 WHERE NoSkema = '" + Nomor + "' ORDER BY SN");
UpdateSkema();
DataTable rsSkemaAft = Db.Rs("SELECT [Nama] as [Nama Komisi] "
+ " ,CASE WHEN [Inaktif]=0 THEN 'Aktif' ELSE 'Inaktif' END AS [Status] "
+ " ,(SELECT Tipe FROM REF_AGENT_TIPE WHERE ID = SalesTipe) AS [Tipe Sales] "
+ " ,[Dari] "
+ " ,[Sampai]"
+ " ,[Rumus]"
+ " ,[DasarHitung]"
+ " FROM REF_SKOM WHERE NoSkema = " + Nomor);
if (rumus.SelectedValue == "UNIT")
{
UpdateSkemaDetail();
}
else
{
UpdateSkemaDetail2();
}
DataTable rsDetailAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' ' + CONVERT(VARCHAR,Nilai,1) + ' ' + TipeTarif "
+ "FROM REF_SKOM_DETAIL WHERE NoSkema = '" + Nomor + "' ORDER BY SN");
DataTable rsDetailAft2 = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,SN) + '. ' + (SELECT Nama FROM REF_AGENT_LEVEL WHERE LevelID = SalesLevel) + ' ' + CONVERT(VARCHAR,TargetBawah,1) + ' - ' + CONVERT(VARCHAR,TargetAtas,1) + ' (' + TipeTarget + ') ' + CONVERT(VARCHAR,Nilai,1) + ' ' + TipeTarif "
+ "FROM REF_SKOM_DETAIL2 WHERE NoSkema = '" + Nomor + "' ORDER BY SN");
string Ket = Cf.LogCapture(rsHeader)
+ "<br>---EDIT SKEMA---<br>"
+ Cf.LogCompare(rsSkemaBef, rsSkemaAft)
+ "<br>---EDIT RUMUS---<br>"
+ Cf.LogList(rsDetailBef, rsDetailAft, "RUMUS UNIT")
+ Cf.LogList(rsDetailBef2, rsDetailAft2, "RUMUS KUMULATIF/PROGRESIF");
Db.Execute("EXEC spLogSkom"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Nomor.PadLeft(5, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM REF_SKOM_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM REF_SKOM WHERE NoSkema = " + Nomor);
Db.Execute("UPDATE REF_SKOM_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
}
protected void save_Click(object sender, System.EventArgs e)
{
if (datavalid())
{
if (filevalid())
{
DateTime Tgl = Convert.ToDateTime(tgl.Text);
decimal Nilai = Convert.ToDecimal(tagihandenda.Text);
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
Db.Execute("UPDATE MS_TAGIHAN SET DendaReal = Denda WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("EXEC spTagihanDaftar"
+ " '" + NoKontrak + "'"
+ ", 'BIAYA DENDA'"
+ ", '" + Tgl + "'"
+ ", " + Nilai
+ ", 'ADM'"
);
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
DataTable rs = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.Skema AS [Skema]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rs)
+ "<br>---REALISASI DENDA---<br>"
+ Cf.LogList(rsBef, rsAft, "JADWAL TAGIHAN")
;
Db.Execute("EXEC spLogKontrak "
+ " 'RD'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
/*Insert jurnal kontrak*/
string strKetJurnal = "KONTRAK REALISASI DENDA<br />" + Cf.Str(baru.Text);
Db.Execute("EXEC spJurnalKontrak "
+ " '" + Act.UserID + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + strKetJurnal + "'"
);
if (file.PostedFile.FileName.Length != 0)
{
long JurnalID = Db.SingleLong("SELECT TOP 1 JurnalID FROM MS_KONTRAK_JURNAL ORDER BY JurnalID DESC");
string path = Request.PhysicalApplicationPath
+ "JurnalKontrak\\" + JurnalID + ".jpg";
Dfc.UploadFile(".jpg", path, file);
}
/***********************/
Response.Redirect("RealisasiDenda.aspx?done=" + NoKontrak);
}
}
}
protected void SaveDetil(string RewardID, string NoAgent, string Rumus, DateTime Dari, DateTime Sampai, string NoKontrak)
{
string strSql = "";
if (Rumus == "UNIT")
{
strSql = "SELECT a.*, b.Nama FROM MS_KONTRAK a"
+ " INNER JOIN MS_CUSTOMER b ON a.NoCustomer = b.NoCustomer"
+ " WHERE a.Status = 'A'"
+ " AND a.NoKontrak = '" + NoKontrak + "'"
+ " AND a.RewardID = ''"
+ " AND CONVERT(VARCHAR, a.TglKontrak,112) >= '" + Cf.Tgl112(Dari) + "' AND CONVERT(VARCHAR, a.TglKontrak,112) <= '" + Cf.Tgl112(Sampai) + "'";
}
//Kumulatif
else
{
strSql = "SELECT a.*, b.Nama FROM MS_KONTRAK a"
+ " INNER JOIN MS_CUSTOMER b ON a.NoCustomer = b.NoCustomer"
+ " WHERE a.Status = 'A'"
+ " AND a.NoAgent = '" + NoAgent + "'"
+ " AND CONVERT(VARCHAR, a.TglKontrak,112) >= '" + Cf.Tgl112(Dari) + "' AND CONVERT(VARCHAR, a.TglKontrak,112) <= '" + Cf.Tgl112(Sampai) + "'";
}
DataTable rs = Db.Rs(strSql);
for (int i = 0; i < rs.Rows.Count; i++)
{
Db.Execute("EXEC spKomisiRewardDetil"
+ " '" + RewardID + "'"
+ ",'" + rs.Rows[i]["NoKontrak"].ToString() + "'"
+ ",'" + rs.Rows[i]["NoUnit"].ToString() + "'"
+ ", " + Convert.ToInt32(rs.Rows[i]["NoCustomer"])
+ ",'" + rs.Rows[i]["Nama"].ToString() + "'"
);
string strSql2 = "UPDATE MS_KONTRAK SET RewardID = '" + RewardID + "' WHERE NoKontrak = '" + rs.Rows[i]["NoKontrak"].ToString() + "'";
Db.Execute(strSql2);
}
DataTable rsHeader = Db.Rs("SELECT "
+ " NoReward"
+ ",CONVERT(varchar,Tgl,106) AS [Tgl. Generate]"
+ ",NoAgent AS [No. Agent]"
+ ",NamaAgent AS [Nama Agent]"
+ ",NoSkema AS [No. Skema CF]"
+ ",NamaSkema AS [Nama Skema CF]"
+ ",Rumus"
+ ",CONVERT(varchar,PeriodeDari,106) AS [Periode Dari]"
+ ",CONVERT(varchar,PeriodeSampai,106) AS [Periode Sampai]"
+ ",Reward"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_REWARD "
+ " WHERE NoReward = '" + RewardID + "'");
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + NoKontrak "
+ " + ' ' + NoUnit "
+ " + ' ' + NamaCust + ' (' + CONVERT(VARCHAR, NoCustomer) + ') '"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISI_REWARD_DETAIL WHERE NoReward = '" + RewardID + "'");
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "DETAIL");
Db.Execute("EXEC spLogKomisiReward"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + RewardID + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KOMISI_REWARD_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE MS_KOMISI_REWARD_LOG SET Project = '" + project.SelectedValue + "' WHERE LogID = " + LogID);
}
private bool Save()
{
DataTable rsBef = Db.Rs(
"SELECT Kode FROM PAGESEC WHERE Halaman = '" + Halaman + "' ORDER BY Kode");
DataTable rsBefGrant = Db.Rs(
"SELECT UserID FROM PAGEDENY WHERE Halaman = '" + Halaman + "' AND Sifat = 0 ORDER BY UserID");
DataTable rsBefDeny = Db.Rs(
"SELECT UserID FROM PAGEDENY WHERE Halaman = '" + Halaman + "' AND Sifat = 1 ORDER BY UserID");
Db.Execute("DELETE FROM PAGESEC WHERE Halaman = '" + Halaman + "'");
Db.Execute("DELETE FROM PAGEDENY WHERE Halaman = '" + Halaman + "'");
for (int i = 0; i < rs.Rows.Count; i++)
{
if (!Response.IsClientConnected)
{
break;
}
CheckBox cb = (CheckBox)list.FindControl("sl_" + i);
if (cb.Checked)
{
Db.Execute("INSERT INTO PAGESEC (Kode,Halaman) "
+ "VALUES ('" + rs.Rows[i]["Kode"] + "','" + Halaman + "')");
}
}
for (int i = 0; i < rsKhusus.Rows.Count; i++)
{
if (!Response.IsClientConnected)
{
break;
}
RadioButton grant = (RadioButton)list2.FindControl("grant_" + i);
RadioButton deny = (RadioButton)list2.FindControl("deny_" + i);
if (grant.Checked)
{
Db.Execute("INSERT INTO PAGEDENY (UserID,Halaman,Sifat) "
+ "VALUES ('" + rsKhusus.Rows[i]["UserID"] + "','" + Halaman + "',0)");
}
if (deny.Checked)
{
Db.Execute("INSERT INTO PAGEDENY (UserID,Halaman,Sifat) "
+ "VALUES ('" + rsKhusus.Rows[i]["UserID"] + "','" + Halaman + "',1)");
}
}
DataTable rsAft = Db.Rs(
"SELECT Kode FROM PAGESEC WHERE Halaman = '" + Halaman + "' ORDER BY Kode");
DataTable rsAftGrant = Db.Rs(
"SELECT UserID FROM PAGEDENY WHERE Halaman = '" + Halaman + "' AND Sifat = 0 ORDER BY UserID");
DataTable rsAftDeny = Db.Rs(
"SELECT UserID FROM PAGEDENY WHERE Halaman = '" + Halaman + "' AND Sifat = 1 ORDER BY UserID");
DataTable rsHeader = Db.Rs("SELECT "
+ " Modul"
+ ",Nama AS Keterangan"
+ ",Halaman "
+ " FROM PAGE WHERE Halaman = '" + Halaman + "'");
string KetLog = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsBef, rsAft, "KONFIGURASI SECURITY")
+ Cf.LogList(rsBefGrant, rsAftGrant, "KONFIGURASI KHUSUS - GRANTED")
+ Cf.LogList(rsBefDeny, rsAftDeny, "KONFIGURASI KHUSUS - DENIED");
Db.Execute("EXEC spLogSeclevel"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",''"
);
return(true);
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA WHERE Nomor = " + Nomor);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else if (!Act.AksesProject(rs.Rows[0]["Project"].ToString()))
{
Response.Redirect("/CustomError/SecLevel.html");
}
else
{
DataTable rsHeader = Db.Rs("SELECT "
+ " Nomor"
+ ",Nama"
+ ",Diskon"
+ ",RThousand AS [Pembulatan Nilai]"
+ ",Status"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA "
+ " WHERE Nomor = " + Nomor);
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, Baris) "
+ " + '. ' + Nama + ' (' + Tipe + ') ' "
+ " + TipeNominal + CONVERT(VARCHAR, Nominal, 1) + ' ' "
+ " + TipeJadwal + '(' + CONVERT(VARCHAR, IntJadwal) + ')' + "
+ " ISNULL(CONVERT(VARCHAR, TglFix, 106), 'NULL') + ' ' "
+ " + 'REF:' + CONVERT(VARCHAR,RefJadwal) + ' ' "
+ " + 'BF:' + CONVERT(VARCHAR, BF)"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA_DETAIL WHERE Nomor = " + Nomor);
int cekdigunakan = Db.SingleInteger("select COUNT(distinct(RefSkema)) from " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK inner join " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA on " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA.Nomor = MS_KONTRAK.RefSkema"
+ " where " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA.Nomor = " + Nomor);
if (cekdigunakan == 0)
{
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaDel "
+ Nomor
);
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "RUMUS");
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA WHERE Nomor = " + Nomor);
if (c == 0)
{
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogSkema"
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Nomor.PadLeft(3, '0') + "'"
);
Js.Close(this);
}
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
protected void Page_Load(object sender, System.EventArgs e)
{
Act.Pass();
Act.NoCache();
Act.CekInt("NoTTS");
DataTable rs = Db.Rs("SELECT * FROM MS_TTS WHERE NoTTS = " + NoTTS);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
DataTable rsHeader = Db.Rs("SELECT "
+ " CONVERT(varchar, TglTTS, 106) AS [Tanggal]"
+ ",Tipe"
+ ",Ref AS [Ref.]"
+ ",Unit"
+ ",Customer"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Ket AS [Keterangan]"
+ ",NoSlip AS [Slip Setoran]"
+ ",NoBG AS [No. BG]"
+ ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]"
+ ",Titip AS [Pengelola BG]"
+ ",Total"
+ ",NoFPS"
+ " FROM MS_TTS WHERE NoTTS = " + NoTTS);
string StatusLama = rs.Rows[0]["Status"].ToString();
decimal NilaiKembali = Convert.ToDecimal(rs.Rows[0]["Total"]);
#region logfile
string Tipe = Db.SingleString("SELECT Tipe FROM MS_TTS WHERE NoTTS = " + NoTTS);
string Tb = Sc.MktTb(Tipe);
string strSql = "";
if (Tipe != "TENANT")
{
strSql = "SELECT "
+ " CASE NoTagihan"
+ " WHEN 0 THEN 'UNALLOCATED ' + CONVERT(varchar,NilaiPelunasan,1)"
+ " ELSE (SELECT NamaTagihan FROM "+ Tb + "..MS_TAGIHAN WHERE NoUrut = l.NoTagihan AND NoKontrak = l.NoKontrak)"
+ " + ' ' + CONVERT(varchar,NilaiPelunasan,1)"
+ " END AS NamaTagihan"
+ " FROM " + Tb + "..MS_PELUNASAN AS l "
+ " WHERE NoTTS = " + NoTTS;
}
else
{
strSql = "SELECT "
+ " NamaTagihan + ' ' + CONVERT(varchar,NilaiTagihan,1) "
+ " FROM " + Tb + "..MS_TAGIHAN AS l "
+ " WHERE NoTTS = " + NoTTS;
}
#endregion
DataTable rsDetil = Db.Rs(strSql);
Db.Execute("EXEC spTTSVoid " + NoTTS);
Db.Execute("UPDATE MS_TTS SET Total2 = 0 WHERE NoTTS = " + NoTTS);
string StatusBaru = Db.SingleString(
"SELECT Status FROM MS_TTS WHERE NoTTS = " + NoTTS);
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_PELUNASAN_KPA SET STATUS='VOID', NilaiPelunasan = 0 WHERE NoTTS=" + NoTTS);
if (StatusLama != "VOID" && StatusBaru == "VOID")
{
string logr = "";
if (Request.QueryString["r"] != null)
{
logr = "REIMBURSE<br>";
Db.Execute("UPDATE MS_TTS SET NilaiKembali = " + NilaiKembali + " WHERE NoTTS = " + NoTTS);
}
if (Request.QueryString["fp"] != null)
{
string nofp = Db.SingleString("SELECT NoFPS FROM MS_TTS WHERE NoTTS = " + NoTTS);
logr = "BATAL FP<br>";
Db.Execute("UPDATE MS_TTS SET NoFPS = '', PrintFPS = 0 WHERE NoTTS = " + NoTTS);
Db.Execute("UPDATE REF_FP SET Status = 0 WHERE NoFPS = '" + nofp + "'");
}
/*Update status Akunting*/
int Akunting = Db.SingleInteger("SELECT Akunting FROM MS_TTS WHERE NoTTS = " + NoTTS);
if (Akunting == 1)
{
string NoVoucher = Db.SingleString("SELECT NoVoucher FROM MS_TTS WHERE NoTTS = '" + NoTTS + "'");
Akun.InsertAnomali("TTS", NoTTS, "", "", "VOID TTS", "", NoVoucher);
}
/************************/
//Log
string KetLog = logr
+ Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetil, "ALOKASI PELUNASAN")
;
Db.Execute("EXEC spLogTTS"
+ " 'VOID'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + NoTTS.ToString().PadLeft(7, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_TTS_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak = (SELECT Ref FROM MS_TTS WHERE NoTTS = '" + NoTTS + "')");
Db.Execute("UPDATE MS_TTS_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("TTSEdit.aspx?NoTTS=" + NoTTS + "&done=1");
}
else
{
//Tidak bisa dihapus
nodel.Visible = true;
}
}
}
private void Save()
{
if (valid())
{
AutoID();
if (nilaiBunga.Text == "")
{
nilaiBunga.Text = "0";
}
string LokKontrak = lokasikontrak.SelectedValue;
DateTime TglKontrak = Convert.ToDateTime(tglKontrak.Text);
string Skema = Cf.Str(skema.SelectedItem.Text);
int NoAgent = Convert.ToInt32(agent.SelectedValue);
DateTime TargetST = TglKontrak.AddMonths(36);//??
decimal surcharge = Convert.ToDecimal(Surcharge.Text);
decimal pl = Convert.ToDecimal(Pricelist.Text);
string Tujuan = ddlTujuan.SelectedValue;
string SumberDana = ddlSumberDana.SelectedValue;
string SumberDanaLainnya = "";
if (lainnya.Text != "")
{
SumberDanaLainnya = lainnya.Text;
}
string NoHold = Cf.Str(nohold.Text);
string ReffAgent1 = "", ReffAgent2 = "";
Db.Execute("EXEC spKontrakDaftar4"
+ " '" + NoKontrak + "'"
+ ",'" + NoStock + "'"
+ ",'" + TglKontrak + "'"
+ ",'" + Skema + "'"
+ ",'" + TargetST + "'"
+ ",'" + NoCustomer + "'"
+ ",'" + NoAgent + "'"
+ ", " + pl
);
int KPR;
if (carabayar2.SelectedValue == "KPR")
{
KPR = 1;
}
else
{
KPR = 0;
}
string sSQL = "UPDATE MS_KONTRAK"
+ " SET JenisKPR = '" + KPR + "'"
+ ", CaraBayar = '" + carabayar2.SelectedValue + "'"
+ ", RefSkema = " + skema.SelectedValue
+ ", jenisPPN = '" + JenisPPN.SelectedValue + "'"
+ ", LokasiKontrak = " + LokKontrak
+ ", BungaNominal = " + Math.Round(Convert.ToDecimal(nilaiBunga.Text))
+ ", BungaPersen = '" + Convert.ToDecimal(bunga2.Text) + "'"
+ ", SumberDana='" + SumberDana + "'"
+ ", SumberDanaLainnya='" + Cf.Str(SumberDanaLainnya) + "'"
+ ", TujuanKontrak = '" + Tujuan + "'"
+ ", NoRefferatorAgent = '" + ReffAgent1 + "'"
+ ", NoRefferatorCustomer = '" + ReffAgent2 + "'"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
;
Db.Execute(sSQL);
LogCs();
SaveTagihan();
DataTable rs = Db.Rs("SELECT "
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_AGENT.Nama + ' ' + MS_AGENT.Principal AS [Agent]"
+ ",CONVERT(varchar,MS_KONTRAK.TglKontrak,106) AS [Tanggal Kontrak]"
+ ",MS_KONTRAK.NoStock AS [No. Stock]"
+ ",MS_KONTRAK.Luas AS [Luas]"
+ ",MS_KONTRAK.Gross AS [Nilai Gross]"
+ ",MS_KONTRAK.DiskonRupiah AS [Diskon dalam Rupiah]"
+ ",MS_KONTRAK.DiskonPersen AS [Diskon dalam Persen]"
+ ",MS_KONTRAK.DiskonKet AS [Keterangan Diskon]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.BungaPersen AS [Bunga dalam Persen]"
+ ",MS_KONTRAK.BungaNominal AS [Bunga dalam Rupiah]"
+ ",MS_KONTRAK.Skema"
+ ",MS_KONTRAK.DiskonTambahan"
+ ",CONVERT(varchar,MS_KONTRAK.TargetST,106) AS [Jadwal Serah Terima]"
+ ", MS_KONTRAK.JenisPPN AS [PPN Ditanggung]"
+ ", CASE MS_KONTRAK.JenisKPR"
+ " WHEN 0 THEN 'KPR'"
+ " WHEN 1 THEN 'NON-KPR'"
+ " END AS [Jenis KPR]"
+ ",MS_KONTRAK.SumberDana AS [Sumber Dana]"
+ ",MS_KONTRAK.SumberDanaLainnya AS [Sumber Dana Lainnya]"
+ ",MS_KONTRAK.TujuanKontrak AS [Tujuan Transaksi]"
+ ",MS_KONTRAK.NUP"
+ ",MS_KONTRAK.NoRefferatorAgent"
+ ",MS_KONTRAK.NoRefferatorCustomer"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " INNER JOIN MS_AGENT ON MS_KONTRAK.NoAgent = MS_AGENT.NoAgent"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
);
DataTable rsTagihan = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
//Logfile
string Ket = Cf.LogCapture(rs)
+ Cf.LogList(rsTagihan, "JADWAL TAGIHAN");
Db.Execute("UPDATE MS_HOLD SET Status='C' , NoKontrak='" + NoKontrak + "' WHERE NoHold='" + NoHold + "'");
DataTable rsHold = Db.Rs("SELECT A.NoHold,A.TglHold,A.TglHoldExpired,B.Nama,C.Nama,D.NoUnit FROM MS_HOLD A"
+ " INNER JOIN MS_CUSTOMER B ON A.NoCustomer = B.NoCustomer"
+ " INNER JOIN MS_AGENT C ON A.NoAgent = C.NoAgent"
+ " INNER JOIN MS_UNIT D ON A.NoStock = D.NoStock WHERE A.NoHold='" + NoHold + "'"
);
string Ket2 = Cf.LogCapture(rsHold)
+ Environment.NewLine
+ " Closing Unit : "
+ Ket
;
Db.Execute("EXEC spLogHold"
+ " 'CLOSE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket2 + "'"
+ ",'" + NoHold + "'"
);
Db.Execute("EXEC spLogKontrak"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("TabelStok4.aspx?NoKontrak=" + NoKontrak + "&NoTTS=" + 0);
}
}
protected void Page_Load(object sender, System.EventArgs e)
{
Act.Pass();
Act.NoCache();
Act.CekInt("NoUrut");
DataTable rs = Db.Rs(
"SELECT * FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "'"
+ " AND NoUrut = " + NoUrut);
int totaltagihan = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "'"
);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
DataTable rsBef = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
Db.Execute("EXEC spTagihanDelKPA "
+ " '" + NoKontrak + "'"
+ ", " + NoUrut
);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "'"
);
if (c != totaltagihan)
{
//Log
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN_KPA WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut");
DataTable rsDetail = Db.Rs("SELECT"
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.Skema AS [Skema]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
string Ket = Cf.LogCapture(rsDetail)
+ "<br>---DELETE TAGIHAN KPR---<br>"
+ Cf.LogList(rsBef, rsAft, "JADWAL TAGIHAN");
Db.Execute("EXEC spLogKontrak"
+ " 'EJT-KPA'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("TagihanEdit.aspx?NoKontrak=" + NoKontrak + "&done=1");
}
else
{
//Tidak bisa dihapus
nodel.Visible = true;
}
}
}
protected void save_Click(object sender, EventArgs e)
{
if (valid())
{
DateTime Tgl = Convert.ToDateTime(tgl.Text);
string KRID = LibKom.KRID(Tgl.Month, Tgl.Year);
Db.Execute("EXEC spKomisiRDaftar"
+ " '" + KRID + "'"
+ ",'" + Tgl + "'"
+ ",'" + Request.QueryString["id"] + "'"
+ ",'" + Cf.Str(ket.Text) + "'"
);
Db.Execute("UPDATE MS_KOMISIR SET Project = '" + Project + "'"
+ " WHERE NoKomisiR = '" + KRID + "'");
int index = 0;
foreach (Control tr in list.Controls)
{
CheckBox cb = (CheckBox)list.FindControl("cb_" + index);
string[] aa = cb.Attributes["title"].Split(';');
if (cb.Checked)
{
DataTable dd = Db.Rs("SELECT * FROM MS_KOMISIP_DETAIL WHERE NoKomisi = '" + aa[0] + "' AND SN_KomisiTermin = " + Convert.ToInt32(aa[1]));
if (dd != null)
{
Db.Execute("EXEC spKomisiRDetil"
+ " '" + KRID + "'"
+ ",'" + dd.Rows[0]["NoKomisi"].ToString() + "'"
+ ", " + Convert.ToInt32(dd.Rows[0]["SN_KomisiTermin"])
+ ", " + Convert.ToDecimal(dd.Rows[0]["Nilai"])
);
Db.Execute("UPDATE MS_KOMISIR_DETAIL SET NoAgent = '" + Convert.ToInt32(aa[2]) + "' WHERE NoKomisiR = '" + KRID + "' AND SN_KomisiTermin = " + Convert.ToInt32(dd.Rows[0]["SN_KomisiTermin"]));
}
}
index++;
}
DataTable rs = Db.Rs("SELECT * FROM MS_KOMISIP_DETAIL a"
+ " INNER JOIN MS_KOMISI b ON a.NoKomisi = b.NoKomisi"
+ " WHERE (SELECT COUNT(*) FROM MS_KOMISIR_DETAIL WHERE NoKomisi = a.NoKomisi AND SN_KomisiTermin = a.SN_KomisiTermin) = 0"
+ " AND a.NoKomisiP = '" + Request.QueryString["id"] + "'"
);
if (rs.Rows.Count == 0)
{
Db.Execute("UPDATE MS_KOMISIP SET Realisasi = 1 WHERE NoKomisiP = '" + Request.QueryString["id"] + "'");
}
DataTable rsHeader = Db.Rs("SELECT "
+ " NoKomisiR"
+ ",CONVERT(varchar,Tgl,106) AS [Tgl. Realisasi]"
+ ",Ket AS [Keterangan]"
+ ",NoKomisiP AS [Kode Pengajuan]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISIR "
+ " WHERE NoKomisiR = '" + KRID + "'");
DataTable rsDetail = Db.Rs("SELECT "
+ " CONVERT(VARCHAR, SN) "
+ " + '. ' + (SELECT NamaAgent FROM MS_KOMISI_DETAIL WHERE NoKomisi = a.NoKomisi AND SN = a.SN_KomisiTermin)"
+ " + ' ' + CONVERT(VARCHAR, Nilai, 1) "
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KOMISIR_DETAIL a WHERE NoKomisiR = '" + KRID + "'");
string Ket = Cf.LogCapture(rsHeader)
+ Cf.LogList(rsDetail, "DETAIL");
Db.Execute("EXEC spLogKomisiR"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + KRID + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KOMISIR_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE MS_KOMISIR_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Response.Redirect("KomisiRRegis1.aspx?id=" + KRID);
}
}
private void SaveApproval(string NoKontrak, DateTime Tgl, string lvl)
{
int Lvl = Convert.ToInt16(lvl);
int MaxApp = Db.SingleByte("SELECT TOP 1 Lvl FROM " + Mi.DbPrefix + "SECURITY..REF_APPROVAL WHERE Tipe = 4 AND Project='" + Project + "' ORDER BY Lvl DESC");
string Note = note.Text;
string Ket = "";
if (Lvl < MaxApp)
{
//update status approval jadi proses
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_APPROVAL SET Status = 'PROCESS',TglApproval = '" + DateTime.Today + "' WHERE NoApproval = '" + NoApproval + "'");
//update detail approval dari user yang approve
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_APPROVAL_DETAIL SET Approve = 1,Note = '" + Note + "',TglApproval = '" + DateTime.Today + "' WHERE NoApproval = '" + NoApproval + "' AND UserID = '" + Act.UserID + "' AND Lvl = '" + Lvl + "'");
Ket = "Tgl Approval : " + Cf.Day(Convert.ToDateTime(Tgl));
}
else
{
DataTable rsapp = Db.Rs("SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK_APPROVAL WHERE NoKontrak = '" + NoKontrak + "'");
for (int i = 0; i < rsapp.Rows.Count; i++)
{
DateTime TglKontrak = Convert.ToDateTime(rsapp.Rows[i]["TglKontrak"].ToString());
DateTime TglApproveDiskon = Convert.ToDateTime(DateTime.Today);
string Skema = rsapp.Rows[i]["Skema"].ToString();
string RefSkema = rsapp.Rows[i]["RefSkema"].ToString();
string JenisPPN = rsapp.Rows[i]["JenisPPN"].ToString();
string CaraBayar = rsapp.Rows[i]["CaraBayar"].ToString();
string KPR = rsapp.Rows[i]["JenisKPR"].ToString();
string NoStock = rsapp.Rows[i]["NoStock"].ToString();
string NoCustomer = rsapp.Rows[i]["NoCustomer"].ToString();
int NoAgent = Convert.ToInt32(rsapp.Rows[i]["NoAgent"].ToString());
DateTime TargetST = Convert.ToDateTime(rsapp.Rows[i]["TargetST"].ToString());
decimal gross = Convert.ToDecimal(rsapp.Rows[i]["Gross"].ToString());
decimal pl = Convert.ToDecimal(rsapp.Rows[i]["NilaiKontrak"].ToString());
String BungaPersen = rsapp.Rows[i]["BungaPersen"].ToString();
string BungaNominal = rsapp.Rows[i]["BungaNominal"].ToString();
decimal DiskonRp = Convert.ToDecimal(rsapp.Rows[i]["DiskonRupiah"].ToString());
string DiskonPersen = rsapp.Rows[i]["DiskonPersen"].ToString();
string DiskonTambahan = rsapp.Rows[i]["DiskonTambahan"].ToString();
string SumberDana = rsapp.Rows[i]["SumberDana"].ToString();
string SumberDanaLainnya = rsapp.Rows[i]["SumberDanaLainnya"].ToString();
string TujuanKontrak = rsapp.Rows[i]["TujuanKontrak"].ToString();
string NamaProject = rsapp.Rows[i]["NamaProject"].ToString();
string Pers = rsapp.Rows[i]["Pers"].ToString();
string PPN = rsapp.Rows[i]["PPN"].ToString();
string NamaPers = rsapp.Rows[i]["NamaPers"].ToString();
string NoKontrakAft = Numerator.SuratPesanan(TglKontrak.Month, TglKontrak.Year, Project);
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spKontrakDaftar4"
+ " '" + NoKontrakAft + "'"
+ ",'" + NoStock + "'"
+ ",'" + TglKontrak + "'"
+ ",'" + Skema + "'"
+ ",'" + TargetST + "'"
+ ",'" + NoCustomer + "'"
+ ",'" + NoAgent + "'"
+ ", " + pl
);
string sSQL = "UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK"
+ " SET JenisKPR = '" + KPR + "'"
+ ", CaraBayar = '" + CaraBayar + "'"
+ ", RefSkema = " + RefSkema + ""
+ ", Gross = " + gross + ""
+ ", PPN = '" + PPN + "'"
+ ", jenisPPN = '" + JenisPPN + "'"
+ ", SumberDana ='" + SumberDana + "'"
+ ", SumberDanaLainnya ='" + Cf.Str(SumberDanaLainnya) + "'"
+ ", TujuanKontrak = '" + TujuanKontrak + "'"
+ ", TglApproveDiskon = '" + TglApproveDiskon + "'"
+ ", DiskonRupiah = '" + DiskonRp + "'"
+ ", DiskonPersen = '" + DiskonPersen + "'"
+ ", DiskonTambahan = '" + DiskonTambahan + "'"
+ ", BungaPersen = '" + BungaPersen + "'"
+ ", BungaNominal = '" + BungaNominal + "'"
+ ", Project = '" + Project + "'"
+ ", NamaProject = '" + NamaProject + "'"
+ ", Pers = '" + Pers + "'"
+ ", NamaPers = '" + NamaPers + "'"
+ " WHERE NoKontrak = '" + NoKontrakAft + "'"
;
Db.Execute(sSQL);
SaveKontrakAgent(NoKontrakAft, NoAgent, 1);
SaveTagihan(NoKontrakAft);
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT SET Status = 'B' WHERE NoStock = '" + NoStock + "'");
DataTable rs = Db.Rs("SELECT "
+ " MS_KONTRAK.NoKontrak AS [No. Kontrak]"
+ ",MS_KONTRAK.NoUnit AS [Unit]"
+ ",MS_CUSTOMER.Nama AS [Customer]"
+ ",MS_AGENT.Nama + ' ' + MS_AGENT.Principal AS [Agent]"
+ ",CONVERT(varchar,MS_KONTRAK.TglKontrak,106) AS [Tanggal Kontrak]"
+ ",MS_KONTRAK.NoStock AS [No. Stock]"
+ ",MS_KONTRAK.Luas AS [Luas]"
+ ",MS_KONTRAK.Gross AS [Nilai Gross]"
+ ",MS_KONTRAK.DiskonRupiah AS [Diskon dalam Rupiah]"
+ ",MS_KONTRAK.DiskonPersen AS [Diskon dalam Persen]"
+ ",MS_KONTRAK.DiskonKet AS [Keterangan Diskon]"
+ ",MS_KONTRAK.NilaiKontrak AS [Nilai Kontrak]"
+ ",MS_KONTRAK.BungaPersen AS [Bunga dalam Persen]"
+ ",MS_KONTRAK.BungaNominal AS [Bunga dalam Rupiah]"
+ ",MS_KONTRAK.Skema"
+ ",MS_KONTRAK.DiskonTambahan"
+ ",CONVERT(varchar,MS_KONTRAK.TargetST,106) AS [Jadwal Serah Terima]"
+ ", MS_KONTRAK.JenisPPN AS [PPN Ditanggung]"
+ ", CASE MS_KONTRAK.JenisKPR"
+ " WHEN 0 THEN 'KPA'"
+ " WHEN 1 THEN 'NON-KPA'"
+ " END AS [Jenis KPA]"
+ ",MS_KONTRAK.SumberDana AS [Sumber Dana]"
+ ",MS_KONTRAK.SumberDanaLainnya AS [Sumber Dana Lainnya]"
+ ",MS_KONTRAK.TujuanKontrak AS [Tujuan Transaksi]"
+ ",MS_KONTRAK.TujuanLainnya AS [Tujuan Transaksi Lainnya]"
+ ",MS_KONTRAK.NUP"
+ ",MS_KONTRAK.NoRefferatorAgent"
+ ",MS_KONTRAK.NoRefferatorCustomer"
+ ", CASE MS_KONTRAK.TitipJual"
+ " WHEN 0 THEN 'Non Titip Jual'"
+ " WHEN 1 THEN 'Titip Jual'"
+ " END AS [Status Titip Jual]"
+ ", CASE MS_KONTRAK.PaketInvestasi"
+ " WHEN 0 THEN 'TIDAK'"
+ " WHEN 1 THEN 'YA'"
+ " END AS [Status Paket Investasi]"
+ ", TglPaketInvestasi AS [Tanggal Berakhir Paket Investasi]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK AS MS_KONTRAK INNER JOIN ISC064_MARKETINGJUAL..MS_CUSTOMER AS MS_CUSTOMER ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " INNER JOIN ISC064_MARKETINGJUAL..MS_AGENT AS MS_AGENT ON MS_KONTRAK.NoAgent = MS_AGENT.NoAgent"
+ " WHERE NoKontrak = '" + NoKontrakAft + "'"
);
DataTable rsTagihan = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrakAft + "' ORDER BY NoUrut");
//Logfile
string KetLog = Cf.LogCapture(rs)
+ Cf.LogList(rsTagihan, "JADWAL TAGIHAN");
Db.Execute("EXEC ISC064_MARKETINGJUAL..spLogKontrak "
+ " 'APR-DISKON'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + NoKontrakAft + "'"
);
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);
//update nokontrak after
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_APPROVAL_DISKON SET NoKontrakAfter = '" + NoKontrakAft + "' WHERE NoApproval = '" + NoApproval + "'");
//floor plan
string Peta = Db.SingleString("SELECT Peta "
+ " FROM ISC064_MARKETINGJUAL..MS_UNIT AS MS_UNIT INNER JOIN ISC064_MARKETINGJUAL..MS_KONTRAK AS MS_KONTRAK ON MS_UNIT.NoStock = MS_KONTRAK.NoStock "
+ " WHERE NoKontrak = '" + NoKontrakAft + "'");
Func.GenerateFP(Peta);
}
//update detail approval dari user yang approve
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_APPROVAL_DETAIL SET Approve = 1,Note = '" + Note + "',TglApproval = '" + DateTime.Today + "' WHERE NoApproval = '" + NoApproval + "' AND UserID = '" + Act.UserID + "'");
//ganti status done ke approval tsb
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_APPROVAL SET Status = 'DONE'"
+ ",TglApproval = '" + DateTime.Today + "'"
+ " WHERE NoApproval = '" + NoApproval + "'"
);
}
if (HakApp().Rows.Count > 0)
{
Db.Execute("EXEC ISC064_MARKETINGJUAL..spLogKontrakApp "
+ " '" + NoKontrak + "'"
+ ",'" + Act.UserID + "'"
+ "," + 1
+ ",'" + Convert.ToDateTime(Cf.Date(Tgl)) + "'"
+ "," + Lvl
+ "," + 4
+ ",'" + Note + "'"
);
}
}
