private void Tambah()
{
if (barunama.Text != "" || barunilai.Text != "" || barutgl.Text != "")
{
string Tipe = "";
if (barubf.Checked)
{
Tipe = "BF";
}
else if (barudp.Checked)
{
Tipe = "DP";
}
else if (baruang.Checked)
{
Tipe = "ANG";
}
else
{
Tipe = "ADM";
}
string Nama = Cf.Str(barunama.Text);
DateTime TglJT = Convert.ToDateTime(barutgl.Text);
decimal Nilai = Convert.ToDecimal(barunilai.Text);
string Jenis = jenis2.SelectedValue;
Db.Execute("EXEC spTagihanDaftar "
+ " '" + NoKontrak + "'"
+ ",'" + Nama + "'"
+ ",'" + TglJT + "'"
+ ", " + Nilai
+ ",'" + Tipe + "'"
);
//Update manual
int NoUrut = Db.SingleInteger("SELECT ISNULL(MAX(NoUrut), 0) FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "'");
Db.Execute("UPDATE MS_TAGIHAN"
+ " SET "
+ "KPR = " + Cf.BoolToSql(barukpr.Checked)
+ ", Jenis = '" + Jenis + "'"
+ " WHERE NoKontrak = '" + NoKontrak + "'"
+ " AND NoUrut = " + NoUrut
);
}
}
private void Fill()
{
string addq = "";
if (metode.SelectedIndex == 1)
{
addq = " AND Status = 'A'";
}
else if (metode.SelectedIndex == 2)
{
addq = " AND Status = 'I'";
}
string Agent = "";
if (Request.QueryString["status"] == "dari" || Request.QueryString["status"] == "sampai")
{
Agent = "'<a href=\"javascript:callSource(''' + CONVERT(VARCHAR(10), NoAgent) + ''', ''" + Request.QueryString["status"] + "'')\">"
+ "' + Nama + '"
+ " (' + CONVERT(VARCHAR(10), NoAgent) + ')"
+ "</a>' AS Nama"
;
}
else
{
Agent = "'<a href=\"javascript:call(''' + CONVERT(VARCHAR(10), NoAgent) + ''')\">"
+ "' + Nama + '"
+ " (' + CONVERT(VARCHAR(10), NoAgent) + ')"
+ "</a>' AS Nama"
;
}
string strSql = "SELECT "
+ Agent
+ ",Principal"
+ " FROM MS_AGENT "
+ " WHERE Nama + Principal"
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ addq
+ " ORDER BY Nama, NoAgent";
DataTable rs = new DataTable();
tb.DataSource = rs;
tb.DataBind();
}
protected void del_Click(object sender, EventArgs e)
{
int index = 0;
foreach (Control tr in list.Controls)
{
TableCell cfid = (TableCell)list.FindControl("cfid_" + index);
int cfp = Db.SingleInteger("SELECT COUNT(*) FROM MS_KOMISI_CFP_DETAIL WHERE NoCF = '" + cfid.Attributes["title"] + "'");
if (cfp == 0)
{
DataTable rs = Db.Rs("SELECT * FROM MS_KOMISI_CF WHERE NoCF = '" + cfid.Attributes["title"] + "'");
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(alasan.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
Db.Execute("EXEC spKomisiCFDel '" + rs.Rows[0]["NoCF"].ToString() + "'");
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_KOMISI_CF WHERE NoCF = '" + rs.Rows[0]["NoCF"].ToString() + "'");
if (c == 0)
{
//Log
Db.Execute("EXEC spLogKomisiCF "
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + rs.Rows[0]["NoCF"].ToString() + "'"
);
}
}
}
index++;
}
Response.Redirect("CFDel.aspx?done=1");
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs("SELECT * FROM REF_BANKKPA WHERE KodeBank = '" + Acc + "' AND Project = '" + Project + "'");
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
Db.Execute("EXEC spBankKPADel"
+ " '" + Acc + "'"
+ ",'" + Project + "'");
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM REF_BANKKPA WHERE KodeBank = '" + Acc + "' AND Project = '" + Project + "'");
if (c == 0)
{
//Log
Db.Execute("EXEC spLogBankKPA "
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + Acc + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM REF_BANKKPA_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE REF_BANKKPA_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
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 delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM MS_RESERVASI WHERE NoReservasi = " + NoReservasi);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
Db.Execute("EXEC spReservasiDel " + NoReservasi);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_RESERVASI WHERE NoReservasi = " + NoReservasi);
if (c == 0)
{
//Log
Db.Execute("EXEC spLogReservasi "
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoReservasi.ToString().PadLeft(5, '0') + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_RESERVASI_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM MS_UNIT WHERE NoStock = (SELECT NoStock FROM MS_RESERVASI WHERE NoReservasi = '" + NoReservasi + "')");
Db.Execute("UPDATE MS_RESERVASI_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
private void Bind()
{
DataTable rs = Db.Rs("SELECT * FROM MS_UNIT where Nostock = '" + NoStock + "'");
bool SifatPPN = Convert.ToBoolean(rs.Rows[0]["SifatPPN"]);
string Jenis = Cf.Str(rs.Rows[0]["JenisProperti"]);
string JenisProperti = rs.Rows[0]["JenisProperti"].ToString();
DataTable rsCB = Db.Rs("SELECT * FROM REF_SKEMA a WHERE a.Status='A' AND Project IN (" + Act.ProjectListSql + ")");
for (int aa = 0; aa < rsCB.Rows.Count; aa++)
{
carabayar.Items.Add(new ListItem(rsCB.Rows[aa]["Nama"].ToString(), rsCB.Rows[aa]["Nomor"].ToString()));
}
if (rs.Rows.Count == 0)
{
pilih.Visible = false;
noskema.Visible = true;
}
}
private void UpdateSkema()
{
string Nama = Cf.Str(nama.Text);
string CaraBayar = carabayar.SelectedValue;
int SalesTipe = Convert.ToInt32(tipe.SelectedValue);
bool Inaktif = inaktif.Checked ? true : false;
Db.Execute("EXEC spSkomTermEdit"
+ " " + Nomor
+ ",'" + Nama + "'"
+ ",'" + Inaktif + "'"
+ ",'" + CaraBayar + "'"
+ ", " + SalesTipe
);
//Delete all Detail
Db.Execute("DELETE FROM REF_SKOM_TERM_DETAIL WHERE NoTermin = " + Nomor);
}
private void Fill()
{
string addq = "";
if (metode.SelectedIndex == 1)
{
addq = " AND a.Status = 'BARU'";
}
else if (metode.SelectedIndex == 2)
{
addq = " AND a.Status = 'POST'";
}
else if (metode.SelectedIndex == 3)
{
addq = " AND a.Status = 'CANCEL'";
}
string nav = ",'<a href=\"javascript:call(''' + CONVERT(varchar(50),a.NoPengajuan) + ''')\" ' + CASE a.Status WHEN 'CANCEL' THEN 'style = ''text-decoration:line-through''' ELSE '' END + '>'"
+ "+ FORMAT(a.NoPengajuan,'000000#') + '</a><br><i>' + a.Status + '</i>'";
string strSql = "SELECT distinct (a.NoPengajuan) "
+ " AS Pengajuan"
+ nav
+ " AS NoPengajuan"
+ ",CONVERT(VARCHAR,a.TglFormulir,106) + '<br>' + a.UserID AS Tgl"
+ ",a.Keterangan + "
+ "'<br>' + replace(replace((SELECT + '<b>' + Nokontrak + '<br></b>' + Nama + ' - ' + NoUnit + '<br>' FROM " + Mi.DbPrefix + "FINANCEAR..MS_PENGAJUAN_KPA_DETIL WHERE NoPengajuan = a.NoPengajuan FOR XML PATH('')),'<','<'),'>','>') AS Keterangan"
+ ",FORMAT(a.Total,'#,###') AS Total"
+ ",c.NamaProject AS Project"
+ " FROM " + Mi.DbPrefix + "FINANCEAR..MS_PENGAJUAN_KPA a"
+ " INNER JOIN " + Mi.DbPrefix + "FINANCEAR..MS_PENGAJUAN_KPA_DETIL b ON a.NoPengajuan = b.NoPengajuan"
+ " INNER JOIN " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK c ON b.NoKontrak = c.NoKontrak"
+ " WHERE"
+ " b.NoKontrak + b.Nama + b.NoUnit + a.Keterangan + CONVERT(varchar(MAX), a.NoPengajuan)"
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND c.Project = '" + project.SelectedValue + "'"
+ addq
+ " ORDER BY a.NoPengajuan";
DataTable rs = Db.Rs(strSql);
tb.DataSource = rs;
tb.DataBind();
}
private void Fill()
{
DateTime Dari = Convert.ToDateTime(dari.Text);
DateTime Sampai = Convert.ToDateTime(sampai.Text);
if (Dari > Sampai)
{
DateTime x = Sampai;
Sampai = Dari;
Dari = x;
}
string Tipe = "";
if (tipe.SelectedIndex != 0)
{
Tipe = " AND Tipe = '" + Cf.Str(tipe.SelectedValue) + "'";
}
string nav = "'<a href=\"javascript:call('''+ CONVERT(varchar(50),a.NoPJT) +''')\">' + a.NoPJT + '</a>'";
string Project = (project.SelectedIndex == 0) ? " AND b.Project IN(" + Act.ProjectListSql + ")" : " AND b.Project = '" + project.SelectedValue + "'";
string strSql = "SELECT"
+ nav
+ " AS Invoice"
+ ",CONVERT(VARCHAR,TglPJT,106) AS Tgl"
+ ",a.Customer + '<br>Telp. ' + a.NoTelp AS Customer"
+ ",a.Tipe +'No. : '+ a.Ref + '<br>Unit : ' + a.Unit AS Keterangan"
+ ",FORMAT(a.Total,'#,###') AS Nilai "
+ ",(SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..REF_PROJECT WHERE Project = b.Project) AS Project"
+ " FROM MS_PJT a INNER JOIN " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK b ON a.Ref = b.NoKontrak"
+ " WHERE 1=1 "
+ Tipe
+ Project
+ " AND CONVERT(varchar,TglPJT,112) >= '" + Cf.Tgl112(Dari) + "'"
+ " AND CONVERT(varchar,TglPJT,112) <= '" + Cf.Tgl112(Sampai) + "'"
+ " ORDER BY NoPJT";
DataTable rs = Db.Rs(strSql);
tb.DataSource = rs;
tb.DataBind();
}
protected void save_Click(object sender, System.EventArgs e)
{
if (valid())
{
string csExist = Db.SingleString("SELECT B.Nama FROM MS_NUP A INNER JOIN MS_CUSTOMER B ON A.NoCustomer=B.NoCustomer WHERE A.NoNUP='" + NoNUP + "'");
if (csExist != Cf.Str(nama.Text).Trim())
{
trotorisasi.Visible = true;
trsave.Visible = false;
lblotorisasi.Text = "Harus ada otorisasi. Nama sebelumnya : " + csExist;
}
else
{
saveEdit();
Response.Redirect("NUPEdit.aspx?done=1&NoNUP=" + NoNUP);
}
}
}
void SaveRumus(int Nomor)
{
DataTable rs = Db.Rs("Select LevelID,Nama from ms_agent_level where tipe='Internal' order by LevelID asc");
for (int i = 0; i < rs.Rows.Count; i++)
{
var d = rs.Rows[i];
for (int j = 0; j < 1; j++)
{
TextBox tbNominal = (TextBox)tbRumus.FindControl("Nilai_komisi_" + d[0].ToString() + "_" + j);
RadioButtonList rblTipeNomilal = (RadioButtonList)tbRumus.FindControl("rb_tipe_komisi" + d[0].ToString() + "_" + j);
TextBox tbTarget = (TextBox)tbRumus.FindControl("Nilai_target_" + d[0].ToString() + "_" + j);
RadioButtonList rblTipeTarget = (RadioButtonList)tbRumus.FindControl("rb_tipe_target" + d[0].ToString() + "_" + j);
TextBox tbOverriding = (TextBox)tbRumus.FindControl("Nilai_overriding_" + d[0].ToString() + "_" + j);
RadioButtonList rblTipeOverriding = (RadioButtonList)tbRumus.FindControl("rb_tipe_overriding_" + d[0].ToString() + "_" + j);
TableCell Namas = (TableCell)tbRumus.FindControl("Namas_" + d[1].ToString() + "_" + i);
string Namas1 = d[1].ToString();
if (Cf.isMoney(tbTarget))
{
//Response.Write(Nomor +"<br/>"+ d[0] + "<br/>" + JenisSkema.Text +"<br/>"+ tbNominal.Text);
if (Convert.ToDecimal(tbTarget.Text) > 0)
{
Db.Execute("EXEC spSkomTambahIntern "
+ Nomor
+ ",'" + d[0] + "'"
+ ",'" + Cf.Str(Namas1) + "'"
+ ", '" + tbNominal.Text + "'" //Nominal Komisi
+ ",'" + rblTipeNomilal.SelectedValue + "'" // TIpe nominal Komisi
+ ",'" + (j + 1) + "'" // Nomor Target
+ ",'" + tbTarget.Text + "'" //Target Komisi
+ ",'" + rblTipeTarget.SelectedValue + "'" //TIpe Target Komisi
+ ",'" + tbOverriding.Text + "'" //Overriding
+ ",'" + rblTipeOverriding.SelectedValue + "'" // Tipe Overriding
);
}
}
else
{
}
}
}
}
private void Tambah()
{
if (barunama.Text != "" || barutgl.Text != "") //|| barunilai.Text != ""
{
string Nama = Cf.Str(barunama.Text);
DateTime TglJT = Convert.ToDateTime(barutgl.Text);
decimal NilaiLumpsum = 0;
decimal NilaiPersen = 0;
string Tipe = barutipe.SelectedValue.ToString();
string TipeTarif = barutarif.SelectedValue;
if (TipeTarif == "Persen")
{
NilaiLumpsum = Convert.ToDecimal(barunilailumpsum.Text);
NilaiPersen = Convert.ToDecimal(barunilaipersen.Text);
}
else
{
NilaiLumpsum = Convert.ToDecimal(barunilailumpsum.Text);
NilaiPersen = Convert.ToDecimal(barunilaipersen.Text);
}
Db.Execute("EXEC spTagihanDaftarKPA "
//+ " '" + NoKontrak + "'"
//+ ",'" + Nama + "'"
//+ ",'" + TglJT + "'"
//+ ",'" + NilaiLumpsum + "'"
//+ ",'" + Tipe + "'"
//+ ",'" + TipeTarif + "'"
//+ ",'" + NilaiPersen + "'"
//+ ",'' "
+ " '" + NoKontrak + "'"
+ ",'" + Nama + "'"
+ ",'" + TglJT + "'"
+ ",'" + NilaiLumpsum + "'"
+ ",'" + Tipe + "'"
+ ",'" + TipeTarif + "'"
+ ",'" + NilaiPersen + "'"
);
}
}
private void Fill()
{
string strSql = "SELECT *"
+ " FROM MS_KOMISIR"
+ " WHERE NoKomisiR + NoKomisiP + Ket "
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND Project IN (" + Act.ProjectListSql + ")"
+ " ORDER BY NoKomisiR";
DataTable rs = Db.Rs(strSql);
Rpt.NoData(rpt, rs, "Tidak ditemukan data realisasi komisi dengan keyword diatas.");
for (int i = 0; i < rs.Rows.Count; i++)
{
if (!Response.IsClientConnected)
{
break;
}
TableRow r = new TableRow();
TableCell c;
c = new TableCell();
c.Text = "<a href=\"javascript:call('" + rs.Rows[i]["NoKomisiR"] + "')\">"
+ rs.Rows[i]["NoKomisiR"].ToString() + "</a>";
c.Wrap = false;
r.Cells.Add(c);
c = new TableCell();
c.Text = Cf.Day(rs.Rows[i]["Tgl"]);
c.Wrap = false;
r.Cells.Add(c);
c = new TableCell();
c.Text = rs.Rows[i]["Ket"].ToString();
c.Wrap = false;
r.Cells.Add(c);
Rpt.Border(r);
rpt.Rows.Add(r);
}
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB WHERE SN = '" + NoBerkas + "'");
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB WHERE Nama = '" + rs.Rows[0]["Nama"] + "' AND Project = '" + rs.Rows[0]["Project"] + "'");
if (c != 0)
{
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogBerkasPPJB"
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoBerkas + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB_LOG ORDER BY LogID DESC");
string Project = Db.SingleString("SELECT Project FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB WHERE SN = '" + NoBerkas + "'");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Db.Execute("DELETE FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_BERKAS_PPJB WHERE SN = '" + NoBerkas + "'");
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
private bool Save()
{
if (valid())
{
string KodeBaru = Cf.Pk(kode.Text);
string Nama = Cf.Str(nama.Text);
DataTable rsBef = Db.Rs("SELECT "
+ " Kode"
+ ",Nama"
+ " FROM SECLEVEL "
+ " WHERE Kode = '" + Kode + "'");
Db.Execute("EXEC spSecLevelEdit"
+ " '" + Kode + "'"
+ ",'" + KodeBaru + "'"
+ ",'" + Nama + "'"
);
DataTable rsAft = Db.Rs("SELECT "
+ " Kode"
+ ",Nama"
+ " FROM SECLEVEL "
+ " WHERE Kode = '" + KodeBaru + "'");
string KetLog = Cf.LogCompare(rsBef, rsAft);
Db.Execute("EXEC spLogSeclevel"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + KodeBaru + "'"
);
return(true);
}
else
{
return(false);
}
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_FOLLOWUP WHERE No = '" + No + "'");
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
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_FOLLOWUP WHERE NamaGrouping = '" + rs.Rows[0]["NamaGrouping"] + "'");
if (c == 0)
{
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogGrouping"
+ " 'DELETE'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + No + "'"
);
Db.Execute("DELETE FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_FOLLOWUP WHERE No = '" + No + "'");
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
private void Fill()
{
string addq = "";
if (metode.SelectedIndex == 1)
{
addq = " AND MS_RESERVASI.Status = 'A'";
}
else if (metode.SelectedIndex == 2)
{
addq = " AND MS_RESERVASI.Status = 'E'";
}
string nav = "'<a href =\"javascript:call('''+CONVERT(varchar(10), NoReservasi)+''')\">'"
+ " + FORMAT(NoReservasi, '0000#') + "
+ "'</a>'";
string strSql = "SELECT"
+ nav
+ " AS No"
+ ",NoUrut AS NoUrut"
+ ",CONVERT(VARCHAR, Tgl, 106) AS Tgl"
+ ",CONVERT(VARCHAR, TglExpire, 113) AS BatasWaktu"
+ ",MS_RESERVASI.NoUnit AS Unit"
+ ",MS_CUSTOMER.Nama AS Customer"
+ ",(SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..REF_PROJECT WHERE Project = MS_UNIT.Project) AS Project"
+ " FROM MS_RESERVASI INNER JOIN MS_CUSTOMER ON MS_RESERVASI.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " INNER JOIN MS_AGENT ON MS_RESERVASI.NoAgent = MS_AGENT.NoAgent"
+ " INNER JOIN MS_UNIT ON MS_RESERVASI.NoStock = MS_UNIT.NoStock"
+ " WHERE CONVERT(varchar,NoReservasi) + MS_RESERVASI.NoUnit + MS_CUSTOMER.Nama + MS_AGENT.Nama + MS_AGENT.Principal "
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND MS_UNIT.Project = '" + project.SelectedValue + "'"
+ addq
+ " ORDER BY NoReservasi";
DataTable rs = new DataTable();
Db.Fill(rs, strSql);
tb.DataSource = rs;
tb.DataBind();
}
private bool Save(DataTable rs, int i)
{
string Unit = Cf.Str(rs.Rows[i][0]);
if (Db.SingleInteger("SELECT COUNT(*) FROM MS_UNIT WHERE NoUnit = '" + Unit + "'") != 0)
{
string NoStock = Db.SingleString("SELECT NoStock FROM MS_UNIT WHERE NoUnit = '" + Unit + "'");
string Zoning = Cf.Str(rs.Rows[i][1]);
DataTable rsBef = Db.Rs("SELECT "
+ " Zoning "
+ " FROM MS_UNIT "
+ " WHERE NoStock = '" + NoStock + "'");
Db.Execute("UPDATE MS_UNIT "
+ " SET Zoning = '" + Zoning + "'"
+ " WHERE NoStock = '" + NoStock + "'");
DataTable rsAft = Db.Rs("SELECT "
+ " Zoning "
+ " FROM MS_UNIT "
+ " WHERE NoStock = '" + NoStock + "'");
string Ket = "*** UPLOAD ZONING<br>Unit : " + Unit + "<br>"
+ Cf.LogCompare(rsBef, rsAft);
Db.Execute("EXEC spLogUnit"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoStock + "'"
);
return(true);
}
else
{
return(false);
}
}
private void Fill()
{
string addq = "";
if (metode.SelectedIndex == 1)
{
addq = " AND Status = 'A'";
}
else if (metode.SelectedIndex == 2)
{
addq = " AND Status = 'B'";
}
string nav = "'<a href=\"javascript:call(''' + NoStock + ''')\">'"
+ " + NoStock + "
+ "'</a>'"
;
string strSql = "SELECT "
+ nav
+ " AS NoStock"
+ ",NoUnit"
+ ",Luas"
+ ",FORMAT(LuasSG, '#,##0') AS LuasSG"
+ ",FORMAT(LuasNett, '#,##0') AS LuasNett"
+ ",CASE WHEN DefaultPL = 2 THEN FORMAT(PricelistKavling, '#,##0') ELSE FORMAT(PriceList,'#,###') END AS PL"
+ ",(SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..REF_PROJECT WHERE Project = MS_UNIT.Project) AS Project"
+ ",Jenis AS Keterangan"
+ " FROM MS_UNIT "
+ " WHERE NoStock + NoUnit "
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND Project = '" + project.SelectedValue + "'"
+ addq
+ " ORDER BY NoStock";
DataTable rs = new DataTable();
Db.Fill(rs, strSql);
tb.DataSource = rs;
tb.DataBind();
}
private void Fill()
{
nilaibiaya.Attributes["onfocus"] = "tempnum=CalcFocus(this);";
nilaibiaya.Attributes["onkeyup"] = "CalcType(this,tempnum);";
nilaibiaya.Attributes["onblur"] = "CalcBlur(this);";
nilaikpa.Attributes["onfocus"] = "tempnum=CalcFocus(this);";
nilaikpa.Attributes["onkeyup"] = "CalcType(this,tempnum);";
nilaikpa.Attributes["onblur"] = "CalcBlur(this);";
Func.KontrakHeader(NoKontrak, nokontrakl, unit, customer, agent);
string strSql = "SELECT A.NoKontrak,A.PersenLunas,B.*"
+ " FROM MS_KONTRAK A LEFT JOIN MS_PPJB B ON A.NoKontrak = B.NoKontrak "
+ "WHERE A.NoKontrak = '" + NoKontrak + "'";
DataTable rs = Db.Rs(strSql);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
try
{
tglttd.Text = Cf.Day(rs.Rows[0]["TglTTDPPJB"]);
noppjb.Text = rs.Rows[0]["NoPPJB"].ToString();
noppjbm.Text = rs.Rows[0]["NoPPJBm"].ToString();
tglppjb.Text = Cf.Day(rs.Rows[0]["TglPPJB"]);
keterangan.Text = Cf.Str(rs.Rows[0]["KetPPJB"]);
nilaibiaya.Text = Cf.Num(rs.Rows[0]["Biaya"]);
ppjbused.SelectedValue = rs.Rows[0]["PPJBu"].ToString();
}
catch { }
persenlunas.Text = Cf.Num(rs.Rows[0]["PersenLunas"]);
if ((decimal)rs.Rows[0]["PersenLunas"] < 30)
{
lunasinfo.Text = "PELUNASAN BELUM MENCAPAI 30%";
}
}
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM MS_COMPLAIN WHERE NoComplain = " + NoComplain);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ Cf.LogCapture(rs);
Db.Execute("EXEC spComplaintDel " + NoComplain);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_COMPLAIN WHERE NoComplain = " + NoComplain);
if (c == 0)
{
//Log
//Db.Execute("EXEC spLogAgent "
// + " 'DELETE'"
// + ",'" + Act.UserID + "'"
// + ",'" + Act.IP + "'"
// + ",'" + Ket + "'"
// + ",'" + NoComplain.PadLeft(5, '0') + "'"
// );
Js.Close(this);
}
else
{
//Tidak bisa dihapus
frm.Visible = false;
nodel.Visible = true;
}
}
}
protected void ok_Click(object sender, System.EventArgs e)
{
if (valid())
{
string NoVA = Cf.Str(start.Text);
string NoUnit = Cf.Str(nounit.Text);
string Bank = Cf.Str(bank.SelectedValue);
string Project = Db.SingleString("SELECT Project FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT WHERE NoUnit = '" + NoUnit + "'");
string NamaProject = Db.SingleString("SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..REF_PROJECT WHERE Project = '" + Project + "'");
int x = Db.SingleInteger("SELECT COUNT(*) FROM REF_VA WHERE NoVA = '" + NoVA + "'");
if (x == 0)
{
Db.Execute("EXEC spVARegis"
+ " '" + NoVA + "'"
+ ", '" + NoUnit + "'"
+ ", '" + Bank + "'"
);
Db.Execute("UPDATE REF_VA SET Project = '" + Project + "',NamaProject = '" + NamaProject + "' WHERE NoVA = '" + NoVA + "'");
DataTable rs = Db.Rs("SELECT "
+ " NoVA AS [No. VA]"
+ ",NoUnit AS [No. Unit]"
+ ",Bank"
+ " FROM REF_VA "
+ " WHERE NoVA = '" + NoVA + "'");
string KetLog = Cf.LogCapture(rs);
Db.Execute("EXEC spLogVA"
+ " 'REGIS'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + NoVA + "'"
);
}
Response.Redirect("VARegis.aspx?done=1&project=" + project.SelectedValue);
}
}
private void Fill()
{
string nav = "'<a href=\"javascript:call('''+ CONVERT(varchar(50),a.NoSKL) +''')\">' + a.NoSKL + '</a>'";
string strSql = "SELECT"
+ nav
+ " AS System"
+ ",a.NoSKLManual AS Manual"
+ ",CONVERT(VARCHAR,TglSKL,106) AS Tgl"
+ ",a.Ref AS Kontrak"
+ ",(SELECT Nama FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_CUSTOMER WHERE NOCUSTOMER IN(SELECT NOCUSTOMER FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK WHERE NOKONTRAK=a.Ref)) AS Customer"
+ ",b.NamaProject AS Project"
+ " FROM MS_SKL a INNER JOIN " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK b ON a.Ref = b.NoKontrak"
+ " WHERE NoSKL + Ref + NoSKLManual "
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND b.Project = '" + project.SelectedValue + "'"
+ " ORDER BY NoSKL";
DataTable rs = Db.Rs(strSql);
tb.DataSource = rs;
tb.DataBind();
}
protected void Report()
{
lblHeader.Text = Mi.Pt
+ "<br />"
+ "Laporan Revisi NUP"
;
System.Text.StringBuilder x = new System.Text.StringBuilder();
x.Append("<br />Untuk Project : " + Cf.Str(Project));
x.Append("<br /><span style='font-weight: normal;'>Laporan dihasilkan pada hari : " + Cf.IndoWeek(DateTime.Today)
+ ", " + Cf.Date(DateTime.Now)
+ " dari workstation : " + Act.IP
+ " dan username : "******"</span>"
);
lblSubHeader.Text = x.ToString();
Fill();
}
protected void delbtn_Click(object sender, System.EventArgs e)
{
DataTable rs = Db.Rs(
"SELECT * FROM MS_KONTRAK_GIMMICK WHERE NoKontrak = '" + NoKontrak + "' AND SN = " + NoUrut);
if (rs.Rows.Count == 0)
{
Response.Redirect("/CustomError/Deleted.html");
}
else
{
string Ket = "***Alasan Delete :<br>" + Cf.Str(ket.Text)
+ "<br><br>***Data Sebelum Delete :<br>"
+ NoKontrak + " " + NoUrut + " " + rs.Rows[0]["ItemID"].ToString() + " " + rs.Rows[0]["Nama"].ToString() + " " + rs.Rows[0]["Tipe"].ToString() + " "
+ rs.Rows[0]["Satuan"].ToString() + " " + Cf.Num(rs.Rows[0]["Stock"]) + " " + Cf.Num(rs.Rows[0]["HargaSatuan"]) + " " + Cf.Num(rs.Rows[0]["HargaTotal"]);
Db.Execute("DELETE FROM MS_KONTRAK_GIMMICK WHERE NoKontrak = '" + NoKontrak + "' AND SN = " + NoUrut);
int c = Db.SingleInteger(
"SELECT COUNT(*) FROM MS_KONTRAK_GIMMICK WHERE NoKontrak = '" + NoKontrak + "' AND SN = " + NoUrut);
if (c == 0)
{
//Log
Db.Execute("EXEC spLogKontrak "
+ " 'D-Gi'"
+ ",'" + 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);
Js.Close(this);
}
}
}
private void Fill(string Tb, string Ket)
{
string strSql = "";
if (Ket == "TENANT")
{
strSql = "SELECT "
+ " NoPenghuni AS Ref"
+ ",NoUnit"
+ ",Nama AS Cs"
+ ",MS_PENGHUNI.Status"
+ " FROM " + Tb + "..MS_PENGHUNI AS MS_PENGHUNI "
+ " WHERE NoPenghuni + NoUnit + Nama"
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " ORDER BY NoPenghuni";
}
else
{
string nav = "'<a href=\"javascript:EditFU('''+ CONVERT(varchar(50),NoKontrak) +''',''" + Ket + "'')\">' + NoKontrak + '</a>'";
strSql = "SELECT "
+ nav
+ " AS Ref"
+ ",NoUnit AS Unit"
+ ",Nama AS Customer"
+ ",MS_KONTRAK.NamaProject AS Project"
+ ",MS_KONTRAK.Status AS Status"
+ ", '" + Ket + "' AS Tipe"
+ " FROM " + Tb + "..MS_KONTRAK AS MS_KONTRAK INNER JOIN " + Tb + "..MS_CUSTOMER AS MS_CUSTOMER ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer "
+ " WHERE NoKontrak + NoUnit + Nama"
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND MS_KONTRAK.Status = 'A'"
+ " AND MS_KONTRAK.Project = '" + project.SelectedValue + "'"
+ " ORDER BY NoKontrak";
}
DataTable rs = Db.Rs(strSql);
tb.DataSource = rs;
tb.DataBind();
}
private bool Save()
{
if (valid())
{
string Bank = Cf.Str(bank.Text);
DataTable rsBef = Db.Rs("SELECT "
+ " NoVA AS [No. VA]"
+ ",Bank"
+ " FROM REF_VA"
+ " WHERE NoVA = '" + NoVA + "'");
Db.Execute("UPDATE REF_VA"
+ " SET Bank = '" + Cf.Str(bank.Text) + "'"
+ " WHERE NoVA = '" + NoVA + "'"
);
DataTable rsAft = Db.Rs("SELECT "
+ " NoVA AS [No. VA]"
+ ",Bank"
+ " FROM REF_VA"
+ " WHERE NoVA = '" + NoVA + "'");
string KetLog = Cf.LogCompare(rsBef, rsAft);
Db.Execute("EXEC spLogVA"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLog + "'"
+ ",'" + NoVA + "'"
);
return(true);
}
else
{
return(false);
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (valid())
{
int ID = Db.SingleInteger("SELECT ISNULL(MAX(ID),0) AS ID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK WHERE Project = '" + project.SelectedValue + "'");
if (ID == 0)
{
ID = 1;
}
else
{
ID = (ID + 1);
}
string NamaTipe = Cf.Str(Nama.Text);
Db.Execute("INSERT INTO " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK Values(" + ID + ",'" + NamaTipe + "','" + project.SelectedValue + "')");
noid.Text = Db.SingleInteger("SELECT TOP 1 ID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK WHERE Project = '" + project.SelectedValue + "'").ToString();
DataTable rs = Db.Rs("SELECT "
+ "Nama as [Nama Tipe]"
+ ",Project as [Project]"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK"
+ " WHERE ID = " + ID
);
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogTipeGimmick"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Cf.LogCapture(rs) + "'"
+ ",'" + ID + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_TIPE_GIMMICK_LOG SET Project = '" + project.Text + "' WHERE LogID = " + LogID);
Response.Redirect("TipeGimmick.aspx?done=" + ID);
}
}
private void Fill()
{
string nav = "'<a href=\"javascript:call('''+ a.NoVA+''')\">' +a.NoVA+ '</a>'";
string strSql = "SELECT"
+ nav
+ " AS VA"
+ ",a.Bank AS Bank"
+ ",b.NoKontrak AS Kontrak"
+ ",CASE WHEN b.NoCustomer <> '' THEN + (SELECT Nama FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_CUSTOMER WHERE NoCustomer = b.NoCustomer) + '<br>' + ''+ a.NoUnit +'' ELSE ''+a.NoUnit+'' END AS Customer"
+ " FROM REF_VA a"
+ " LEFT JOIN " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK b ON a.NoVA = b.NoVA"
+ " WHERE a.NoVA + Bank"
+ " LIKE '%" + Cf.Str(keyword.Text) + "%'"
+ " AND a.NoUnit = (SELECT NoUnit FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT WHERE NoUnit = a.NoUnit AND Project = '" + project.SelectedValue + "')"
+ " ORDER BY a.NoVA";
DataTable rs = Db.Rs(strSql);
tb.DataSource = rs;
tb.DataBind();
}
