protected void save_Click(object sender, EventArgs e)
{
if (Valid)
{
Db.Execute("update ms_siteplan set Nama='" + nama.Text + "' where ID='" + IDx + "'");
string NamaLama = Db.SingleString("Select Nama from ms_siteplan where id='" + IDx + "'");
string ProjectPeta = Db.SingleString("Select Project from ms_siteplan where Nama = '" + NamaLama + "'");
string ProjectUnit = Db.SingleString("Select DISTINCT Project from ms_unit where Peta = '" + nama.Text + "'");
if (ProjectPeta == ProjectUnit)
{
Db.Execute("update ms_siteplan set Nama='" + nama.Text + "' where ID='" + IDx + "'");
Db.Execute("update ms_unit set Peta='" + nama.Text + "' where Peta='" + NamaLama + "'");
}
string NamaPeta = "PETA_" + IDx;
string pdasar = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\Base\\" + NamaPeta + ".jpg"; //file dasar
string ptransparent = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\Base\\" + NamaPeta + ".png"; //file dasar
string pstatus = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\" + NamaPeta + ".jpg"; //file status
string urlpdasar = @"\marketingjual\FP\Base\" + NamaPeta + ".jpg"; //file dasar
string urlptransparent = @"\marketingjual\FP\Base\" + NamaPeta + ".png"; //file dasar
string urlpstatus = @"\marketingjual\FP\" + NamaPeta + ".jpg"; //file status
if (file1.HasFile)
{
if (File.Exists(pdasar))
{
File.Delete(pdasar);
}
if (File.Exists(pstatus))
{
File.Delete(pstatus);
}
Dfc.UploadFilePeta(".jpg", pdasar, file1);
Dfc.CopyFile(pdasar, pstatus);
Db.Execute("update ms_siteplan set PathGambarDasar='" + urlpdasar + "' where ID='" + IDx + "'");
}
//if (file2.HasFile)
//{
// if (File.Exists(ptransparent))
// File.Delete(ptransparent);
// Dfc.UploadFile(".png", ptransparent, file2);
// Db.Execute("update ms_siteplan set PathGambarTransparent='" + urlptransparent + "' where ID='" + IDx + "'");
//}
Response.Redirect("PetaEdit.aspx?done=1&id=" + IDx);
}
else
{
feed.Text = "<img src='/Media/db.gif' align=absmiddle> "
+ "Proses Gagal...";
}
}
protected void upload_Click(object sender, System.EventArgs e)
{
if (valid)
{
if (!file.PostedFile.FileName.EndsWith(".xls"))
{
Js.Alert(
this
, "Proses Upload Gagal.\\n"
+ "File yang boleh di-upload adalah file dengan extension .xls saja."
, ""
);
}
else
{
string path = Request.PhysicalApplicationPath
+ "Template\\FP_" + Session.SessionID + ".xls";
Dfc.UploadFile(".xls", path, file);
Cek(path);
//Hapus file sementara tersebut dari hard-disk server
Dfc.DeleteFile(path);
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (file.PostedFile.FileName.Length != 0 &&
!file.PostedFile.FileName.EndsWith(".jpg"))
{
Js.Alert(
this
, "Proses Upload Gagal.\\n"
+ "File yang boleh di-upload adalah file dengan extension .jpg saja."
, ""
);
}
else
{
string Ket = Cf.Str(akt.SelectedValue) + "<br>" + Cf.Str(baru.Text);
Db.Execute("EXEC spJurnalPJT "
+ " '" + Act.UserID + "'"
+ ",'" + NoPJT + "'"
+ ",'" + Ket + "'"
);
if (file.PostedFile.FileName.Length != 0)
{
long JurnalID = Db.SingleLong("SELECT TOP 1 JurnalID FROM MS_PJT_JURNAL ORDER BY JurnalID DESC");
string path = Request.PhysicalApplicationPath
+ "JurnalPJT\\" + JurnalID + ".jpg";
Dfc.UploadFile(".jpg", path, file);
}
Response.Redirect("JurnalPJT.aspx?done=1&NoPJT=" + NoPJT);
}
}
protected void ok_Click(object sender, System.EventArgs e)
{
if (filevalid())
{
if (file.PostedFile.FileName.Length != 0)
{
DataTable rsBef = Db.Rs("SELECT "
+ " Foto"
+ " FROM USERNAME WHERE UserID = '" + UserID + "'");
string path = Request.PhysicalApplicationPath + "Foto\\" + UserID + ".png";
string save = "security\\Foto\\" + UserID + ".png";
Dfc.UploadFile(".jpg", path, file);
Db.Execute("UPDATE USERNAME SET Foto ='" + save + "' WHERE UserID = '" + UserID + "'");
DataTable rsAft = Db.Rs("SELECT "
+ " Foto"
+ " FROM USERNAME WHERE UserID = '" + UserID + "'");
string Ket = Cf.LogCompare(rsBef, rsAft);
Db.Execute("EXEC spLogUsername "
+ " 'EDU'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + UserID + "'"
);
}
Js.Close(this);
}
}
protected void save_Click(object sender, EventArgs e)
{
if (Valid)
{
byte aaa = 0;
if (tipe.SelectedIndex == 0)
{
aaa = 1;
}
Db.Execute("EXEC spSitePlanDaftar"
+ " '" + ParentID + "'"
+ ",'" + namapeta.Text + "'"
+ ", " + aaa
+ ",''"
+ ",''"
);
//ExecMkt.spSitePlanDaftar(ParentID, namapeta.Text,tipe.SelectedIndex == 0, "", "");
var ID = Db.SingleInteger("Select ISNULL(Max(ID),0) from MS_Siteplan");
Db.Execute("UPDATE MS_SITEPLAN SET Project='" + project.SelectedValue + "' WHERE ID = '" + ID + "'");
var Project = Db.SingleString("Select Project from MS_Siteplan WHERE ParentID = '" + ParentID + "'");
string NamaPeta = "PETA_" + ID;
string pdasar = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\Base\\" + NamaPeta + ".jpg"; //file dasar
string ptransparent = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\Base\\" + NamaPeta + ".png"; //file dasar
string pstatus = Request.PhysicalApplicationPath.ToLower().Replace("admin", "marketing")
+ "FP\\" + NamaPeta + ".jpg"; //file status
string urlpdasar = @"\marketingjual\FP\Base\" + NamaPeta + ".jpg"; //file dasar
string urlptransparent = @"\marketingjual\FP\Base\" + NamaPeta + ".png"; //file dasar
string urlpstatus = @"\marketingjual\FP\" + NamaPeta + ".jpg"; //file status
if (file1.HasFile)
{
Dfc.UploadFilePeta(".jpg", pdasar, file1);
Dfc.CopyFile(pdasar, pstatus);
Db.Execute("update ms_siteplan set PathGambarDasar='" + urlpdasar + "' where ID='" + ID + "'");
Db.Execute("update ms_siteplan set Project='" + Project + "' where ID='" + ID + "'");
}
//if (file2.HasFile)
//{
// Dfc.UploadFile(".png", ptransparent, file2);
// Db.Execute("update ms_siteplan set PathGambarTransparent='" + urlptransparent + "' where ID='" + ID + "'");
//}
Js.Close(this);
}
}
protected void upload_Click(object sender, System.EventArgs e)
{
if (valid() && filevalid())
{
string path = Request.PhysicalApplicationPath
+ "VA\\VA_" + Session.SessionID + ".xls";
Dfc.UploadFile(".xls", path, file);
Response.Redirect("VAImporMandiri2.aspx?bank=" + bank.SelectedValue + "&path=" + path);
}
}
protected void upload_Click(object sender, System.EventArgs e)
{
namapeta.Text = Cf.FileSafe(namapeta.Text);
if (namapeta.Text == "" ||
!file1.PostedFile.FileName.EndsWith(".jpg"))
{
Js.Alert(
this
, "Proses Upload Gagal.\\n"
+ "1. Nama Peta tidak boleh kosong.\\n"
+ "2. Extension file peta utama hanya boleh JPG.\\n"
//+ "3. Extension file peta nomor hanya boleh PNG\\n"
, "document.getElementById('namapeta').focus();"
+ "document.getElementById('namapeta').select();"
);
}
else
{
string NamaPeta = Cf.FileSafe(namapeta.Text);
string pdasar = Request.PhysicalApplicationPath.Replace("admin", "marketing")
+ "FP\\Base\\" + Tower + "\\" + NamaPeta + ".jpg"; //file dasar
string pstatus = Request.PhysicalApplicationPath.Replace("admin", "marketing")
+ "FP\\" + NamaPeta + ".jpg"; //file status
//string pnomor = Request.PhysicalApplicationPath.Replace("admin", "marketing")
// + "FP\\" + NamaPeta + ".png"; //file nomor
Dfc.UploadFile(".jpg", pdasar, file1);
//Dfc.UploadFile(".png", pnomor, file2);
Dfc.CopyFile(pdasar, pstatus);//Copy dari base ke status
//Logfile
string Ket = "***UPLOAD FLOOR PLAN : " + NamaPeta;
Db.Execute("EXEC spLogUnit"
+ " 'FP'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",''"
);
feed.Text = "<img src='/Media/db.gif' align=absmiddle> "
+ "Upload Berhasil...";
}
}
protected void upload_Click(object sender, System.EventArgs e)
{
if (!file.PostedFile.FileName.EndsWith(".jpg"))
{
Js.Alert(
this
, "Proses Upload Gagal.\\n"
+ "File yang boleh di-upload adalah file dengan extension .jpg saja."
, ""
);
}
else
{
string path = Request.PhysicalApplicationPath
+ "Foto\\" + NoAgent.PadLeft(5, '0') + ".jpg";
Dfc.UploadFile(".jpg", path, file);
//Logfile
DataTable rs = Db.Rs("SELECT "
+ " NoAgent AS [No. Agent]"
+ ",Nama AS [Nama]"
+ " FROM MS_AGENT"
+ " WHERE NoAgent = " + NoAgent
);
string Ket = Cf.LogCapture(rs);
Db.Execute("EXEC spLogAgent"
+ " 'FOTO'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoAgent.PadLeft(5, '0') + "'"
);
Response.Redirect("AgentFoto.aspx?done=1&NoAgent=" + NoAgent);
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (datavalid())
{
for (int i = 0; i < rsTagihan.Rows.Count; i++)
{
TextBox lunas = (TextBox)ph.FindControl("lunas_" + i);
TextBox va = (TextBox)ph.FindControl("va_" + i);
TextBox tgl = (TextBox)ph.FindControl("tgl_" + i);
TextBox nokontrak = (TextBox)ph.FindControl("ref_" + i);
TextBox cs = (TextBox)ph.FindControl("cs_" + i);
TextBox unit = (TextBox)ph.FindControl("unit_" + i);
TextBox tag = (TextBox)ph.FindControl("tag_" + i);
//int z = Db.SingleInteger("SELECT COUNT(NoBKM) FROM MS_TTS WHERE NoBKM != '' AND YEAR(TglBKM) = " + Convert.ToDateTime(tgl.Text).Year);
string c1 = Db.SingleString("SELECT TOP 1 SUBSTRING(NoBKM,5,6) FROM MS_TTS ORDER BY NoBKM DESC");
int z = Convert.ToInt32(c1);
string nobkm = "";
bool hasfound = false;
while (!hasfound)
{
if (!Response.IsClientConnected)
{
break;
}
z += 1;
//nopjt = c.ToString() + "/" + u + "/" + Convert.ToDateTime(tgl.Text).Year;
nobkm = "DMC/" + z.ToString().PadLeft(6, '0') + "/" + Cf.Roman(Convert.ToDateTime(tgl.Text).Month) + "/" + Convert.ToDateTime(tgl.Text).Year + "/RC";
if (isUnique(nobkm))
{
hasfound = true;
}
}
string NoBKM2 = nobkm;
if (lunas.Text != "")
{
Db.Execute("EXEC spTTSRegistrasi"
+ " '" + Convert.ToDateTime(tgl.Text) + "'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'JUAL'"
+ ",'" + Cf.Str(nokontrak.Text) + "'"
+ ",'" + Cf.Str(unit.Text) + "'"
+ ",'" + Cf.Str(cs.Text) + "'"
+ ",'TR'"
+ ",'VA: " + Cf.Str(va.Text) + "'"
);
int NoTTS = Db.SingleInteger("SELECT TOP 1 NoTTS FROM MS_TTS ORDER BY NoTTS DESC");
Db.Execute("UPDATE MS_TTS"
+ " SET Acc = '" + Bank + "'"
+ " WHERE NoTTS = " + NoTTS
);
string[] arr = tag.Text.Split(';');
Db.Execute("EXEC spTTSAlokasi "
+ " " + NoTTS
+ ", " + arr[0]
+ ", " + Convert.ToDecimal(lunas.Text)
);
Db.Execute("EXEC spPostingTTS " + NoTTS + ", '" + NoBKM2 + "', '" + Convert.ToDateTime(tgl.Text) + "'");
Db.Execute("UPDATE MS_TTS"
+ " SET ManualBKM = ManualTTS"
+ ", TanggalUangDiterima = TglBKM"
+ " WHERE NoTTS = " + NoTTS);
//Ambil Stok No. FP
DataTable fp = Db.Rs("SELECT * FROM REF_FP WHERE Status = 0");
if (fp.Rows.Count > 0)
{
Db.Execute("UPDATE MS_TTS SET"
+ " NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'"
+ " WHERE NoTTS = " + NoTTS);
Db.Execute("UPDATE REF_FP SET"
+ " Status = 1"
+ " WHERE NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'");
}
string NoBKM3 = Db.SingleString("SELECT NoBKM FROM MS_TTS WHERE NoTTS = " + NoTTS);
DataTable rsLog = Db.Rs("SELECT "
+ " CONVERT(varchar, TglTTS, 106) AS [Tanggal]"
+ ",Tipe"
+ ",Ref AS [Ref.]"
+ ",Unit"
+ ",Customer"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Ket AS [Keterangan]"
+ ",Total"
+ ",NoBG AS [No. BG]"
+ ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]"
+ ", Acc AS [Rekening Bank]"
+ " FROM MS_TTS WHERE NoTTS = " + NoTTS);
string KetLog = Cf.LogCapture(rsLog)
+ "<br>***ALOKASI PEMBAYARAN:<br>"
+ arr[1] + " (" + arr[2] + ")";
Db.Execute("EXEC spLogTTS"
+ " 'VA'"
+ ",'" + 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);
// Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spDenda");
//Result
TableRow r = new TableRow();
TableCell c;
c = new TableCell();
c.Text = va.Text;
r.Cells.Add(c);
c = new TableCell();
c.Text = Cf.Day(tgl.Text);
r.Cells.Add(c);
c = new TableCell();
c.Text = "<a href=\"javascript:call('" + NoTTS + "')\">"
+ NoTTS.ToString().PadLeft(7, '0') + "</a>"
+ "<br /><i>POST</i>"
+ "<br />BKM: " + NoBKM3;
r.Cells.Add(c);
c = new TableCell();
c.Text = "JUAL No. " + nokontrak.Text
+ "<br />" + unit.Text
+ "<br />" + cs.Text;
r.Cells.Add(c);
c = new TableCell();
c.Text = Cf.Num(lunas.Text);
c.HorizontalAlign = HorizontalAlign.Right;
r.Cells.Add(c);
Rpt.Border(r);
rpt.Rows.Add(r);
}
}
div1.Visible = false;
div2.Visible = true;
feed.Text = "<img src='/Media/db.gif' align=absmiddle> "
+ "Upload Success.."
;
Dfc.DeleteFile(FilePath);
}
}
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 save_Click(object sender, System.EventArgs e)
{
if (datavalid())
{
string c = Db.SingleString("SELECT Value FROM " + Mi.DbPrefix + "SECURITY..REF_PARAM WHERE ParamID = 'ApprovGantiUnit" + Project + "'");
decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text);
int nomor = Db.SingleInteger("SELECT COUNT(*) FROM MS_APPROVAL");
nomor++;
string NoApproval = nomor.ToString().PadLeft(7, '0');
if (c == "True")
{
if (filevalid())
{
DataTable rsBef = Db.Rs("SELECT "
+ " NoStock AS [No. Stock]"
+ ",NoUnit AS [Unit]"
+ ",Luas AS [Luas]"
+ ",Gross AS [Nilai Gross]"
+ " FROM MS_KONTRAK"
+ " WHERE NoKontrak = '" + NoKontrak + "'");
string NoStockOld = Db.SingleString(
"SELECT NoStock FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
//Update TempGU, TempBiayaGU
int count = Db.SingleInteger("SELECT COUNT (*) FROM MS_APPROVAL_GU WHERE UnitBaru ='" + NoStock + "' AND NoApproval IN (SELECT NoApproval FROM MS_APPROVAL WHERE Sumber = '" + Str.Approval("2") + "' AND Status <> 'DONE')");
if (count > 0)
{
nostockc.Text = "Unit Tidak Valid";
Js.Alert(
this
, "Unit Tidak Valid.\\n\\n"
+ "Kemungkinan Sebab :\\n"
+ "1. Unit sudah dijual kepada customer lain.\\n"
, "document.getElementById('nostock').focus();"
+ "document.getElementById('nostock').select();"
);
}
else
{
//INSERT KE MS_APPROVAL
Db.Execute("EXEC spApproval"
+ "'" + NoApproval + "'"
+ ",'" + Str.Approval("2") + "'"//untuk ganti unit
+ ",'" + NoKontrak + "'"
+ ",'" + Convert.ToDateTime(tglgu.Text) + "'"
+ ",'" + Project + "'"
);
//insert siapa aja yang berhak approve ke ms_approval_detil
DataTable rs2 = Db.Rs("SELECT * FROM " + Mi.DbPrefix + "SECURITY..REF_APPROVAL WHERE Tipe = 2 AND Project = '" + Project + "'");
for (int i = 0; i < rs2.Rows.Count; i++)
{
Db.Execute("EXEC spApprovalDetil"
+ "'" + NoApproval + "'"
+ ",'" + (i + 1) + "'"
+ ",'" + rs2.Rows[i]["UserID"].ToString() + "'"//dari Textbox
+ "," + rs2.Rows[i]["Lvl"]
+ ",'" + Db.SingleString("SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..USERNAME WHERE UserID = '" + rs2.Rows[i]["UserID"].ToString() + "'") + "'"
);
}
//insert perubahan unit nya ke ms_approval_gu
Db.Execute("EXEC spKontrakGantiUnitTemp"
+ "'" + NoApproval + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + NoStock + "'"//dari Textbox
+ ",'" + NilaiBiaya + "'"
+ ",'" + Convert.ToDateTime(tglgu.Text) + "'"
+ ",'" + Cf.Str(baru.Text) + "'"
);
string NoStockNew = Db.SingleString(
"SELECT UnitBaru FROM MS_APPROVAL_GU WHERE NoApproval = '" + NoApproval + "'");
if (NoStockNew == NoStockOld)
{
nostockc.Text = "Unit Tidak Valid";
Js.Alert(
this
, "Unit Tidak Valid.\\n\\n"
+ "Kemungkinan Sebab :\\n"
+ "1. Unit sudah dijual kepada customer lain.\\n"
, "document.getElementById('nostock').focus();"
+ "document.getElementById('nostock').select();"
);
}
else
{
//Data Unit Baru dari MS_UNIT
DataTable rsAft = Db.Rs("SELECT "
+ " NoStock AS [No. Stock]"
+ ",NoUnit AS [Unit]"
+ ",Luas AS [Luas]"
+ ",PriceList AS [Nilai Gross]"
+ " FROM MS_UNIT"
+ " WHERE NoStock = '" + NoStockNew + "'");
/*Insert jurnal kontrak*/
string strKetJurnal = "KONTRAK Pindah Unit<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);
}
/***********************/
string Ket = Cf.LogCompare(rsBef, rsAft)
+ "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
+ "<br>Tgl Pindah Unit : " + Cf.Day(tglgu.Text)
;
Db.Execute("EXEC spLogKontrak "
+ " 'GU'"
+ ",'" + 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);
Func.CekKomisi(NoKontrak);
//Push notif ke Approval selanjutnya
string DeptID = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
DataTable rsNextApp = Db.Rs("SELECT * FROM ISC064_SECURITY..REF_APPROVAL WHERE Tipe = 2 "
+ " AND Lvl = 1 AND Project = '" + DeptID + "'");
for (int i = 0; i < rsNextApp.Rows.Count; i++)
{
string UserIDNextApp = rsNextApp.Rows[i]["UserID"].ToString();
LibApi.PushNotif("APR-GU", "Permohonan Approval Pindah Unit " + NoKontrak, UserIDNextApp, NoKontrak, 1);
}
Response.Redirect("KontrakGantiUnit.aspx?done=" + NoKontrak);
}
}
}
}
else
{
if (filevalid())
{
DataTable rsBef = Db.Rs("SELECT "
+ " NoStock AS [No. Stock]"
+ ",NoUnit AS [Unit]"
+ ",Luas AS [Luas]"
+ ",Gross AS [Nilai Gross]"
+ ",NilaiKontrak AS [Nilai Kontrak]"
+ ",DiskonRupiah AS [Diskon dalam Rupiah]"
+ ",DiskonPersen AS [Diskon dalam Persen]"
+ ",NilaiPPN AS [Nilai PPN]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK"
+ " WHERE NoKontrak = '" + NoKontrak + "'");
string NoStockOld = Db.SingleString(
"SELECT NoStock FROM ISC064_MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
decimal biaya = Convert.ToDecimal(nilaibiaya.Text);
//INSERT KE MS_APPROVAL
Db.Execute("INSERT INTO MS_APPROVAL VALUES ("
+ "'" + NoApproval + "'"
+ ",'" + Str.Approval("2") + "'"//untuk ganti unit
+ ",'" + NoKontrak + "'"
+ ",'" + Convert.ToDateTime(tglgu.Text) + "'"
+ ",'DONE'"
+ ",'" + Convert.ToDateTime(tglgu.Text) + "'"
+ ",'" + Project + "')"
);
//insert perubahan unit nya ke ms_approval_gu
Db.Execute("EXEC spKontrakGantiUnitTemp"
+ "'" + NoApproval + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + NoStock + "'"//dari Textbox
+ ",'" + NilaiBiaya + "'"
+ ",'" + Convert.ToDateTime(tglgu.Text) + "'"
+ ",'" + Cf.Str(baru.Text) + "'"
);
//GANTI UNIT NYA
Db.Execute("EXEC ISC064_MARKETINGJUAL..spKontrakGantiUnit "
+ " '" + NoKontrak + "'"
+ ",'" + NoStock + "'"
// + ",'" + Tgl + "'"
);
string NoUnitBaru = Db.SingleString("SELECT NoUnit FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT WHERE NoStock = '" + NoStock + "'");
//update nounit di kontrak
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK SET NoUnit = '" + NoUnitBaru + "' WHERE NoKontrak = '" + NoKontrak + "'");
//Insert tagihan
if (biaya != 0)
{
Db.Execute("EXEC ISC064_MARKETINGJUAL..spTagihanDaftar "
+ " '" + NoKontrak + "'"
+ ",'BIAYA ADM. Pindah Unit'"
+ ",'" + Cf.Day(DateTime.Today) + "'"
+ ", " + biaya
+ ",'ADM'"
);
int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_TAGIHAN SET Jenis = 'Pindah Unit' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut);
}
//UPDATE Nilai PPN , Nilai Kontrak Terbaru, PPNPemerintah, ApprovalGU
decimal GrossBaru = Db.SingleDecimal("SELECT Pricelist FROM MS_UNIT WHERE NoUnit = '" + NoUnitBaru + "'");
decimal DiskonRupiah = Db.SingleDecimal("SELECT DiskonRupiah FROM MS_KONTRAK WHERE NoKOntrak = '" + NoKontrak + "'");
decimal DiskonTambahan = Db.SingleDecimal("SELECT DiskonTambahan FROM MS_KONTRAK WHERE NoKOntrak = '" + NoKontrak + "'");
decimal BungaRupiah = Db.SingleDecimal("SELECT BungaNominal FROM MS_KONTRAK WHERE NoKOntrak = '" + NoKontrak + "'");
string ParamID = "PLIncludePPN" + Project;
decimal DPP = 0, NilaiPPN = 0, NilaiKontrak = 0;
bool includeppn = Db.SingleString("SELECT Value FROM " + Mi.DbPrefix + "SECURITY..REF_PARAM WHERE ParamID = '" + ParamID + "'") == "True";
bool jenisppn = Db.SingleBool("SELECT PPN FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak='" + NoKontrak + "'");
decimal Netto = GrossBaru + BungaRupiah - DiskonRupiah - DiskonTambahan;
if (jenisppn)
{
if (includeppn)
{
DPP = Math.Round(Netto / (decimal)1.1);
NilaiPPN = Netto - DPP;
}
else
{
DPP = Netto;
NilaiPPN = (DPP * (decimal)0.1);
}
}
else
{
DPP = Netto;
}
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK "
+ " SET NilaiPPN='" + NilaiPPN + "'"
+ ", NilaiKontrak='" + NilaiKontrak + "'"
+ ", NilaiDPP='" + DPP + "'"
+ ", Gross='" + GrossBaru + "'"
+ ", ApprovalGU = '" + Convert.ToBoolean(0) + "'"
+ ", Revisi = Revisi + 1"
+ " WHERE NoKontrak='" + NoKontrak + "'"
);
decimal pl = Db.SingleDecimal("SELECT ISNULL(PriceList, 0) FROM MS_UNIT WHERE NoStock = '" + NoStock + "'");
//string RumusDiskon = Db.SingleString("SELECT Diskon FROM REF_SKEMA WHERE Nomor = " + crbyt.SelectedValue);
DataTable rsAft = Db.Rs("SELECT "
+ " NoStock AS [No. Stock]"
+ ",NoUnit AS [Unit]"
+ ",Luas AS [Luas]"
+ ",Gross AS [Nilai Gross]"
+ ",NilaiKontrak AS [Nilai Kontrak]"
+ ",DiskonRupiah AS [Diskon dalam Rupiah]"
+ ",DiskonPersen AS [Diskon dalam Persen]"
+ ",NilaiPPN AS [Nilai PPN]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK"
+ " WHERE NoKontrak = '" + NoKontrak + "'");
/*Ganti nomor unit di MS_TTS*/
string strNoUnit = Cf.Str(Db.SingleString("SELECT NoUnit FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT WHERE NoStock = '" + NoStock + "'"));
string strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS"
+ " SET Unit = '" + strNoUnit + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Ganti nomor unit di MS_MEMO*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_MEMO"
+ " SET Unit = '" + strNoUnit + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Ganti nomor unit di MS_PJT*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_PJT"
+ " SET Unit = '" + strNoUnit + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Ganti nomor unit di MS_TUNGGAKAN*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TUNGGAKAN"
+ " SET Unit = '" + strNoUnit + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
string Ket = Cf.LogCompare(rsBef, rsAft)
+ "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
+ "<br>Tgl Pindah Unit : " + Cf.Day(tglgu.Text)
;
/*Insert jurnal kontrak*/
string strKetJurnal = "KONTRAK Pindah Unit<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);
}
/***********************/
Db.Execute("EXEC spLogKontrak "
+ " 'GU'"
+ ",'" + 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);
Func.CekKomisi(NoKontrak);
//Push notif ke Approval selanjutnya
DataTable rsNextApp = Db.Rs("SELECT * FROM ISC064_SECURITY..REF_APPROVAL WHERE Tipe = 2 "
+ " AND Lvl = 1");
for (int i = 0; i < rsNextApp.Rows.Count; i++)
{
string UserIDNextApp = rsNextApp.Rows[i]["UserID"].ToString();
LibApi.PushNotif("APR-GU", "Permohonan Approval Pindah Unit " + NoKontrak, UserIDNextApp, NoKontrak, 1);
}
Response.Redirect("KontrakGantiUnit.aspx?done=" + NoKontrak);
}
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (valid())
{
//Generate nomor unik
AutoID();
string Jenis = Cf.Pk(jenis.Text);
string SN = Cf.Pk(nojenis.Text);
string NamaJenis = namajenis.Text;
string Project = project.SelectedValue;
string save = "";
if (file.PostedFile.FileName.Length != 0)
{
string path = "D:\\ISC\\ISC064\\app\\settings\\gambar\\" + Act.UserID + ".png";
save = "settings\\gambar\\" + Act.UserID + ".png";
Dfc.UploadFile(".jpg", path, file);
}
int c = Db.SingleInteger("SELECT COUNT(Jenis) FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS WHERE Jenis = '" + Jenis + "' AND Project = '" + Project + "'");
if (c == 1)
{
nojenis.Text = "#AUTO#";
jenisc.Text = "Duplikat";
Js.Alert(
this
, "Unit Tidak Valid.\\n\\n"
+ "Kemungkinan Sebab :\\n"
+ "1. Jenis Unit sudah ada.\\n"
, "document.getElementById('nounit').focus();"
+ "document.getElementById('nounit').select();"
);
// Response.Write(Jenis + NamaJenis + SN);
}
else
{
Db.Execute("INSERT INTO " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS (Jenis,Nama,SN,Project,Gambar) Values('" + Jenis + "','" + NamaJenis + "','" + SN + "','" + Project + "','" + save + "')");
DataTable rs = Db.Rs("SELECT "
+ " Jenis"
+ ",Project"
+ ",Nama"
+ ",SN"
+ ",Gambar"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS "
+ " WHERE SN = '" + SN + "'");
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogJenis"
+ " 'DAFTAR'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Cf.LogCapture(rs) + "'"
+ ",'" + SN + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS_LOG SET Project = '" + project.SelectedValue + "' WHERE LogID = " + LogID);
Response.Redirect("JenisDaftar.aspx?done=" + NoJenis + "&project=" + project.SelectedValue);
}
}
}
protected void save_Click(object sender, EventArgs e)
{
if (datavalid() && ValidNilai())
{
if (filevalid())
{
decimal Nilai = 0;
string NoUrut2 = "";
DataTable rsBef2 = Db.Rs("SELECT * FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' "
+ " AND Denda > 0 AND (Denda - DendaReal) !=0 AND KPR<>1 AND Tipe <> 'ADM'");
for (int i = 0; i < rsBef2.Rows.Count; i++)
{
CheckBox cb = (CheckBox)list.FindControl("ben_" + i);
if (cb.Checked)
{
TextBox Realisasi = (TextBox)list.FindControl("real_" + i);
int NoUrut = Convert.ToInt32(rsBef2.Rows[i]["NoUrut"]);
decimal A = Db.SingleDecimal("SELECT AlokasiBenefit FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut = '" + NoUrut + "' and NoKontrak = '" + NoKontrak + "' ");
decimal AlokasiBenefit = Convert.ToDecimal(Realisasi.Text);
decimal C = A + AlokasiBenefit;
decimal X = AlokasiBenefit;
DataTable be = Db.Rs("SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_TAGIHAN WHERE Benefit > BenefitReal AND NoKontrak = '" + NoKontrak + "'");
for (int j = 0; j < be.Rows.Count; j++)
{
decimal Benefit = Convert.ToDecimal(be.Rows[j]["Benefit"]);
decimal BenefitReal = Convert.ToDecimal(be.Rows[j]["BenefitReal"]);
decimal Sisa = Benefit - BenefitReal;
decimal D = Sisa < AlokasiBenefit ? Sisa : AlokasiBenefit;
decimal E = D + BenefitReal;
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_TAGIHAN SET BenefitReal = '" + E + "' WHERE NoKontrak = '" + be.Rows[j]["NoKontrak"] + "' AND NoUrut = '" + be.Rows[j]["NoUrut"] + "'");
X -= D;
}
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_TAGIHAN Set AlokasiBenefit = '" + C + "' WHERE NoKontrak = '" + NoKontrak + "' and NoUrut = '" + NoUrut + "' ");
}
else
{
TextBox Realisasi = (TextBox)list.FindControl("real_" + i);
int NoUrut = Convert.ToInt32(rsBef2.Rows[i]["NoUrut"]);
decimal A = Db.SingleDecimal("SELECT DendaReal FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut = '" + NoUrut + "' and NoKontrak = '" + NoKontrak + "' ");
decimal DendaReal = Convert.ToDecimal(Realisasi.Text);
if (DendaReal > 0)
{
NoUrut2 += NoUrut.ToString() + ";";
}
decimal C = A + DendaReal;
Nilai += DendaReal;
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_TAGIHAN Set DendaReal = '" + C + "' WHERE NoKontrak = '" + NoKontrak + "' and NoUrut = '" + NoUrut + "' ");
}
}
if (Nilai > 0)
{
DateTime Tgl = Convert.ToDateTime(tgl.Text);
Db.Execute("EXEC ISC064_MARKETINGJUAL..spTagihanDaftar"
+ " '" + NoKontrak + "'"
+ ", 'BIAYA DENDA'"
+ ", '" + Tgl + "'"
+ ", " + Nilai
+ ", 'ADM'"
);
int NoUrut1 = Db.SingleInteger("SELECT TOP 1 NoUrut FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' order by NoUrut desc");
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_TAGIHAN SET Jenis = 'DO', NoUrut2 = '" + NoUrut2 + "' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut= " + NoUrut1 + " ");
}
//realisasi = putihkan langsung
//Db.Execute("UPDATE MS_TAGIHAN SET PutihDenda = 1"
// + " WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = '" + + "'"
// );
int NoUrut3 = Db.SingleInteger("SELECT TOP 1 NoUrut FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' order by NoUrut desc");
DataTable rsAft = Db.Rs("SELECT "
+ "CONVERT(VARCHAR,NoUrut) + '. ' + NamaTagihan + ' ('+Tipe+') ' + CONVERT(VARCHAR,TglJT,106) + ' ' + CONVERT(VARCHAR,NilaiTagihan,1) "
+ "FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = '" + NoUrut3 + "' 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>---REALISASI DENDA---<br>"
+ Cf.LogList(rsAft, "JADWAL TAGIHAN")
;
Db.Execute("EXEC ISC064_MARKETINGJUAL..spLogKontrak "
+ " 'RD'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK_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_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID);
Db.Execute("EXEC ISC064_MARKETINGJUAL..spLogRealisasiDenda "
+ " 'RD'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoKontrak + "'"
);
decimal LogID2 = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_REALISASIDENDA_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_REALISASIDENDA_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID2);
/*Insert jurnal kontrak*/
string strKetJurnal = "KONTRAK REALISASI DENDA<br />" + Cf.Str(baru.Text);
Db.Execute("EXEC ISC064_MARKETINGJUAL..spJurnalKontrak "
+ " '" + Act.UserID + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + strKetJurnal + "'"
);
if (file.PostedFile.FileName.Length != 0)
{
long JurnalID = Db.SingleLong("SELECT TOP 1 JurnalID FROM ISC064_MARKETINGJUAL..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 Save(bool close)
{
if (valid())
{
int ada = Db.SingleInteger("SELECT COUNT(*) FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS WHERE Jenis='" + jenis.Text + "' AND Project = '" + project.SelectedValue + "' AND SN != " + NoJenis);
if (ada > 0)
{
string s = "";
Js.Alert(
this
, "Input Tidak Valid.\\n\\n"
+ "Aturan Proses :\\n"
+ "1. Tipe Unit Properti tidak boleh kosong.\\n"
+ "2. Nama Tipe Unit tidak boleh kosong.\\n"
+ "3. Tipe Unit Duplikat.\\n"
, "document.getElementById('" + s + "').focus();"
+ "document.getElementById('" + s + "').select();"
);
}
else
{
string save = "";
if (file.PostedFile.FileName.Length != 0)
{
string path = "D:\\ISC\\ISC064\\app\\settings\\gambar\\" + Act.UserID + ".png";
save = "settings\\gambar\\" + Act.UserID + ".png";
Dfc.UploadFile(".jpg", path, file);
}
string strSql = "SELECT * FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS WHERE SN = '" + NoJenis + "'";
DataTable rs = Db.Rs(strSql);
DataTable rsBef = Db.Rs("SELECT "
+ " Jenis"
+ ",Project"
+ ",Nama"
+ ",SN"
+ ",Gambar"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS "
+ " WHERE SN = '" + NoJenis + "'");
//relasi
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_UNIT SET Jenis='" + jenis.Text + "' WHERE Jenis='" + rs.Rows[0]["Jenis"] + "'");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK SET Jenis='" + jenis.Text + "' WHERE Jenis='" + rs.Rows[0]["Jenis"] + "'");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_RESERVASI SET Jenis='" + jenis.Text + "' WHERE Jenis='" + rs.Rows[0]["Jenis"] + "'");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_RESERVASI_OBS SET Jenis='" + jenis.Text + "' WHERE Jenis='" + rs.Rows[0]["Jenis"] + "'");
if (save != "")
{
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS SET Jenis='" + jenis.Text + "',Nama='" + namajenis.Text + "',Project='" + project.SelectedValue + "',Gambar='" + save + "' WHERE SN = '" + NoJenis + "'");
}
else
{
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS SET Jenis='" + jenis.Text + "',Nama='" + namajenis.Text + "',Project='" + project.SelectedValue + "' WHERE SN = '" + NoJenis + "'");
}
DataTable rsAft = Db.Rs("SELECT "
+ " Jenis"
+ ",Project"
+ ",Nama"
+ ",SN"
+ ",Gambar"
+ " FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS "
+ " WHERE SN = '" + NoJenis + "'");
//Logfile
string Ket = "Jenis: " + jenis.Text + "<br>"
+ Cf.LogCompare(rsBef, rsAft);
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spLogJenis"
+ " 'EDIT'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Ket + "'"
+ ",'" + NoJenis + "'"
);
decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS_LOG ORDER BY LogID DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_JENIS_LOG SET Project = '" + project.SelectedValue + "' WHERE LogID = " + LogID);
if (close)
{
Js.CloseAndReload(this);
}
else
{
Response.Redirect("JenisEdit.aspx?done=1&NoJenis=" + NoJenis);
}
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (filevalid())
{
if (valid())
{
if (pass.Text.Length < 8)
{
passc.Text = "Password baru harus tediri dari minimal 8 karakter.";
passc.ForeColor = Color.Red;
}
else
{
passc.Text = "";
string Nama = Cf.Str(nama.Text);
string SecLevel = seclevel.SelectedValue;
string Password = passMD5.Text;
string Email = email.Text;
int RotasiPass = Convert.ToInt32(rotasipass.Text);
int NoAgent = Convert.ToInt32(agent.SelectedValue);
Db.Execute("EXEC spUserDaftar"
+ " '" + UserID + "'"
+ ",'" + Password + "'"
+ ",'" + Nama + "'"
+ ",'" + SecLevel + "'"
+ ", " + Cf.BoolToSql(gantipass.Checked)
+ ", " + RotasiPass
);
if (file.PostedFile.FileName.Length != 0)
{
string path = Request.PhysicalApplicationPath + "Foto\\" + UserID + ".png";
Dfc.UploadFile(".jpg", path, file);
Db.Execute("UPDATE USERNAME SET Foto = '" + path + "' WHERE UserID = '" + UserID + "'");
}
Db.Execute("UPDATE USERNAME SET Email = '" + Email + "' WHERE UserID = '" + UserID + "'");
DataTable rs = Db.Rs("SELECT "
+ " UserID AS [Kode / Username]"
+ ",Nama AS [Nama Lengkap]"
+ ",SecLevel AS [Security Level]"
+ ",Email AS [Email]"
+ ",Foto AS [Foto]"
+ ",GantiPass AS [Rubah Password di Login Pertama]"
+ ",RotasiPass AS [Frekuensi Rotasi Password (Bulanan)]"
+ ",NoAgent AS [Kode Sales]"
+ " FROM USERNAME WHERE UserID = '" + UserID + "'");
Db.Execute("EXEC spLogUsername"
+ " 'PUB'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + Cf.LogCapture(rs) + "'"
+ ",'" + UserID + "'"
);
Response.Redirect("Pendaftaran.aspx?done=" + UserID);
}
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
if (datavalid())
{
string Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
string c = Db.SingleString("SELECT Value FROM " + Mi.DbPrefix + "SECURITY..REF_PARAM WHERE ParamID = 'ApprovGantiNama" + Project + "'");
string Keterangan = baru.Text;
decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text);
int nomor = Db.SingleInteger("SELECT COUNT(*) FROM MS_APPROVAL");
nomor++;
string NoApproval = nomor.ToString().PadLeft(7, '0');
if (c == "True")
{
if (filevalid())
{
DataTable rsBef = Db.Rs("SELECT "
+ " MS_CUSTOMER.NoCustomer AS [No. Customer]"
+ ",MS_CUSTOMER.Nama AS [Nama Customer]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER "
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
//INSERT KE MS_APPROVAL
Db.Execute("EXEC spApproval"
+ "'" + NoApproval + "'"
+ ",'" + Str.Approval("1") + "'"//untuk ganti unit
+ ",'" + NoKontrak + "'"
+ ",'" + Convert.ToDateTime(tglgn.Text) + "'"
+ ",'" + Project + "'"
);
//insert siapa aja yang berhak approve ke ms_approval_detil
DataTable rs2 = Db.Rs("SELECT * FROM " + Mi.DbPrefix + "SECURITY..REF_APPROVAL WHERE Tipe = 1 AND Project = '" + Project + "'");
for (int i = 0; i < rs2.Rows.Count; i++)
{
Db.Execute("EXEC spApprovalDetil"
+ "'" + NoApproval + "'"
+ ",'" + (i + 1) + "'"
+ ",'" + rs2.Rows[i]["UserID"].ToString() + "'"//dari Textbox
+ "," + rs2.Rows[i]["Lvl"]
+ ",'" + Db.SingleString("SELECT Nama FROM " + Mi.DbPrefix + "SECURITY..USERNAME WHERE UserID = '" + rs2.Rows[i]["UserID"].ToString() + "'") + "'"
);
}
//insert ke ms_approval ganti nama
Db.Execute("EXEC spKontrakGantiNamaTemp"
+ "'" + NoApproval + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + NoCustomer + "'"
+ ",'" + NilaiBiaya + "'"
+ ",'" + Convert.ToDateTime(tglgn.Text) + "'"
+ ",'" + Keterangan + "'"
);
DataTable rsAft = Db.Rs("SELECT "
+ " MS_CUSTOMER.NoCustomer AS [No. Customer]"
+ ",MS_CUSTOMER.Nama AS [Nama Customer]"
+ " FROM MS_KONTRAK INNER JOIN MS_CUSTOMER "
+ " ON MS_KONTRAK.TempGN = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
#region Default
//Db.Execute("EXEC spKontrakGantiNama "
// + " '" + NoKontrak + "'"
// + ", '" + NoCustomer + "'"
// + ", '" + Convert.ToDateTime(tglgn.Text) + "'"
// );
//decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text);
//if(NilaiBiaya!=0)
//{
// Db.Execute("EXEC spTagihanDaftar "
// + " '" + NoKontrak + "'"
// + ",'BIAYA ADM. Pengalihan Hak'"
// + ",'" + Cf.Day(DateTime.Today) + "'"
// + ", " + NilaiBiaya
// + ",'ADM'"
// );
//}
///*Pengalihan Hak customer di MS_TTS*/
//string strNamaCs = Cf.Str(Db.SingleString("SELECT Nama FROM MS_CUSTOMER WHERE NoCustomer = " + NoCustomer));
//string strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS"
// + " SET Customer = '" + strNamaCs + "'"
// + " WHERE Ref = '" + NoKontrak + "'"
// + " AND Tipe = 'JUAL'"
// ;
//Db.Execute(strSql);
///*******************************/
///*Pengalihan Hak customer di MS_PJT*/
//strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_PJT"
// + " SET Customer = '" + strNamaCs + "'"
// + " WHERE Ref = '" + NoKontrak + "'"
// + " AND Tipe = 'JUAL'"
// ;
//Db.Execute(strSql);
///*******************************/
///*Pengalihan Hak customer di MS_TUNGGAKAN*/
//strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TUNGGAKAN"
// + " SET Customer = '" + strNamaCs + "'"
// + " WHERE Ref = '" + NoKontrak + "'"
// + " AND Tipe = 'JUAL'"
// ;
//Db.Execute(strSql);
///*******************************/
#endregion
/*Insert jurnal kontrak*/
string strKetJurnal = "KONTRAK Pengalihan Hak<br />" + Cf.Str(baru.Text) + "<br>No. Approval :" + NoApproval;
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);
}
/***********************/
string Ket = Cf.LogCompare(rsBef, rsAft)
+ "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
+ "<br>Tgl Pengalihan Hak : " + Cf.Day(Convert.ToDateTime(tglgn.Text))
;
Db.Execute("EXEC spLogKontrak "
+ " 'GN'"
+ ",'" + 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);
Func.CekKomisi(NoKontrak);
//Push notif ke Approval selanjutnya
string DeptID = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
DataTable rsNextApp = Db.Rs("SELECT * FROM ISC064_SECURITY..REF_APPROVAL WHERE Tipe = 1 "
+ " AND Lvl = 1 AND Project = '" + DeptID + "'");
for (int i = 0; i < rsNextApp.Rows.Count; i++)
{
string UserIDNextApp = rsNextApp.Rows[i]["UserID"].ToString();
LibApi.PushNotif("APR-GN", "Permohonan Approval Pengalihan Hak " + NoKontrak, UserIDNextApp, NoKontrak, 1);
}
Response.Redirect("KontrakGantiNama.aspx?done=" + NoKontrak);
}
}
else
{
//buat yang ga pake fitur approv
if (filevalid())
{
DataTable rsBef = Db.Rs("SELECT "
+ " MS_CUSTOMER.NoCustomer AS [No. Customer]"
+ ",MS_CUSTOMER.Nama AS [Nama Customer]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK AS MS_KONTRAK INNER JOIN ISC064_MARKETINGJUAL..MS_CUSTOMER AS MS_CUSTOMER"
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
//INSERT KE MS_APPROVAL tapi langsung done
Db.Execute("INSERT INTO MS_APPROVAL VALUES ("
+ "'" + NoApproval + "'"
+ ",'" + Str.Approval("1") + "'"//untuk ganti unit
+ ",'" + NoKontrak + "'"
+ ",'" + Convert.ToDateTime(tglgn.Text) + "'"
+ ",'DONE'"
+ ",'" + Convert.ToDateTime(tglgn.Text) + "'"
+ ",'" + Project + "')"
);
//insert ke ms_approval ganti nama
Db.Execute("EXEC spKontrakGantiNamaTemp"
+ "'" + NoApproval + "'"
+ ",'" + NoKontrak + "'"
+ ",'" + NoCustomer + "'"
+ ",'" + NilaiBiaya + "'"
+ ",'" + Convert.ToDateTime(tglgn.Text) + "'"
+ ",'" + Keterangan + "'"
);
Db.Execute("EXEC ISC064_MARKETINGJUAL..spKontrakGantiNama "
+ " '" + NoKontrak + "'"
+ ", '" + NoCustomer + "'"
);
/*Update Flag ApprovalGN*/
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_KONTRAK "
+ " SET ApprovalGN = 0"
+ " ,Revisi = Revisi + 1"
+ " WHERE NoKontrak='" + NoKontrak + "'"
);
DataTable rsAft = Db.Rs("SELECT "
+ " MS_CUSTOMER.NoCustomer AS [No. Customer]"
+ ",MS_CUSTOMER.Nama AS [Nama Customer]"
+ " FROM ISC064_MARKETINGJUAL..MS_KONTRAK AS MS_KONTRAK INNER JOIN ISC064_MARKETINGJUAL..MS_CUSTOMER AS MS_CUSTOMER "
+ " ON MS_KONTRAK.NoCustomer = MS_CUSTOMER.NoCustomer"
+ " WHERE MS_KONTRAK.NoKontrak = '" + NoKontrak + "'");
if (NilaiBiaya != 0)
{
Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spTagihanDaftar "
+ " '" + NoKontrak + "'"
+ ",'BIAYA ADM. Pengalihan Hak'"
+ ",'" + Cf.Day(DateTime.Today) + "'"
+ ", " + NilaiBiaya
+ ",'ADM'"
);
int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_TAGIHAN SET Jenis = 'Pengalihan Hak' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut);
}
/* Ambil Nilai PPH Pengalihan Hak */
decimal NilaiPPH = Convert.ToDecimal(nilaipph.Text);
if (NilaiPPH != 0)
{
Db.Execute("EXEC ISC064_MARKETINGJUAL..spTagihanDaftar "
+ " '" + NoKontrak + "'"
+ ",'BIAYA PPH PENGALIHAN HAK'"
+ ",'" + Cf.Day(DateTime.Today) + "'"
+ ", " + NilaiPPH
+ ",'ADM'"
);
}
/*Pengalihan Hak customer di MS_TTS*/
string strNamaCs = Cf.Str(Db.SingleString("SELECT Nama FROM ISC064_MARKETINGJUAL..MS_CUSTOMER WHERE NoCustomer = " + NoCustomer));
string strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS"
+ " SET Customer = '" + strNamaCs + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Pengalihan Hak customer di MS_MEMO*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_MEMO"
+ " SET Customer = '" + strNamaCs + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Pengalihan Hak customer di MS_PJT*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_PJT"
+ " SET Customer = '" + strNamaCs + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
/*Pengalihan Hak customer di MS_TUNGGAKAN*/
strSql = "UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TUNGGAKAN"
+ " SET Customer = '" + strNamaCs + "'"
+ " WHERE Ref = '" + NoKontrak + "'"
+ " AND Tipe = 'JUAL'"
;
Db.Execute(strSql);
/*******************************/
string Ket = Cf.LogCompare(rsBef, rsAft)
+ "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
+ "<br>Tgl Pengalihan Hak : " + Cf.Day(Convert.ToDateTime(tglgn.Text))
;
Db.Execute("EXEC spLogKontrak "
+ " 'GN'"
+ ",'" + 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);
Func.CekKomisi(NoKontrak);
//Push notif ke Approval selanjutnya
DataTable rsNextApp = Db.Rs("SELECT * FROM ISC064_SECURITY..REF_APPROVAL WHERE Tipe = 1 "
+ " AND Lvl = 1");
for (int i = 0; i < rsNextApp.Rows.Count; i++)
{
string UserIDNextApp = rsNextApp.Rows[i]["UserID"].ToString();
LibApi.PushNotif("GN", "Permohonan Pengalihan Hak " + NoKontrak, UserIDNextApp, NoKontrak, 1);
}
Response.Redirect("KontrakGantiNama.aspx?done=" + NoKontrak);
}
}
}
}
protected void save_Click(object sender, System.EventArgs e)
{
string ID = "";
if (datavalid())
{
for (int i = 0; i < rsTagihan.Rows.Count; i++)
{
TextBox lunas = (TextBox)ph.FindControl("lunas_" + i);
TextBox bulat = (TextBox)ph.FindControl("pembulatan_" + i);
TextBox lebihbayar = (TextBox)ph.FindControl("lebihbayar_" + i);
TextBox va = (TextBox)ph.FindControl("va_" + i);
TextBox tgl = (TextBox)ph.FindControl("tgl_" + i);
TextBox nokontrak = (TextBox)ph.FindControl("ref_" + i);
TextBox cs = (TextBox)ph.FindControl("cs_" + i);
TextBox unit = (TextBox)ph.FindControl("unit_" + i);
TextBox tag = (TextBox)ph.FindControl("tag_" + i);
TextBox notag = (TextBox)ph.FindControl("notag_" + i);
TextBox namatag = (TextBox)ph.FindControl("namatag_" + i);
if (lunas.Text != "")
{
#region
Db.Execute("EXEC spTTSRegistrasi"
+ " '" + Convert.ToDateTime(tgl.Text) + "'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'JUAL'"
+ ",'" + Cf.Str(nokontrak.Text) + "'"
+ ",'" + Cf.Str(unit.Text) + "'"
+ ",'" + Cf.Str(cs.Text) + "'"
+ ",'TR'"
+ ",'VA: " + Cf.Str(va.Text) + "'"
);
int NoTTS = Db.SingleInteger("SELECT TOP 1 NoTTS FROM MS_TTS ORDER BY NoTTS DESC");
Db.Execute("UPDATE MS_TTS"
+ " SET Acc = '" + Bank + "'"
+ " WHERE NoTTS = " + NoTTS
);
string[] arr = tag.Text.Split(';');
Db.Execute("EXEC spTTSAlokasi "
+ " " + NoTTS
+ ", " + arr[0]
+ ", " + Convert.ToDecimal(lunas.Text)
);
Db.Execute("EXEC spPostingTTS " + NoTTS + ", '" + Convert.ToDateTime(tgl.Text) + "'");
decimal LB = Convert.ToDecimal(lebihbayar.Text);
decimal B = Convert.ToDecimal(bulat.Text);
Db.Execute("UPDATE MS_TTS"
+ " SET ManualBKM = ManualTTS"
+ ", TanggalUangDiterima = TglBKM"
+ ", LB = " + LB
+ ", LebihBayar = " + B
+ " WHERE NoTTS = " + NoTTS);
//Ambil Stok No. FP
DataTable fp = Db.Rs("SELECT * FROM REF_FP WHERE Status = 0");
if (fp.Rows.Count > 0)
{
Db.Execute("UPDATE MS_TTS SET"
+ " NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'"
+ " WHERE NoTTS = " + NoTTS);
Db.Execute("UPDATE REF_FP SET"
+ " Status = 1"
+ " WHERE NoFPS = '" + fp.Rows[0]["NoFPS"].ToString() + "'");
}
int NoBKM = Db.SingleInteger("SELECT NoBKM FROM MS_TTS WHERE NoTTS = " + NoTTS);
DataTable rsLog = Db.Rs("SELECT "
+ " CONVERT(varchar, TglTTS, 106) AS [Tanggal]"
+ ",Tipe"
+ ",Ref AS [Ref.]"
+ ",Unit"
+ ",Customer"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Ket AS [Keterangan]"
+ ",Total"
+ ",NoBG AS [No. BG]"
+ ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]"
+ ", Acc AS [Rekening Bank]"
+ " FROM MS_TTS WHERE NoTTS = " + NoTTS);
string KetLog = Cf.LogCapture(rsLog)
+ "<br>***ALOKASI PEMBAYARAN:<br>"
+ arr[1] + " (" + arr[2] + ")";
Db.Execute("EXEC spLogTTS"
+ " 'VA'"
+ ",'" + 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);
//PEMBULATAN
decimal pembulatan = Convert.ToDecimal(bulat.Text);
if (pembulatan > 0)
{
Db.Execute("EXEC spMEMORegistrasi"
+ " '" + Convert.ToDateTime(tgl.Text) + "'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'JUAL'"
+ ",'" + Cf.Str(nokontrak.Text) + "'"
+ ",'" + Cf.Str(unit.Text) + "'"
+ ",'" + Cf.Str(cs.Text) + "'"
+ ",'PP'"
+ ",''"
+ "," + NoTTS
+ ",0"
);
int NoMEMO = 0;
if (Db.SingleInteger("SELECT COUNT(*) FROM MS_MEMO") > 0)
{
NoMEMO = Db.SingleInteger("SELECT TOP 1 NoMEMO FROM MS_MEMO ORDER BY NoMEMO DESC");
}
System.Text.StringBuilder alokasiM = new System.Text.StringBuilder();
decimal NilaiTagihan = Db.SingleDecimal("SELECT ISNULL(SUM(NilaiTagihan),0) FROM ISC064_MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut = " + notag.Text + " AND NoKontrak = '" + nokontrak.Text + "'");
decimal Pelunasan = Db.SingleDecimal("SELECT ISNULL(SUM(NilaiPelunasan),0) FROM ISC064_MARKETINGJUAL..MS_PELUNASAN WHERE NoTagihan = " + notag.Text + " AND NoKontrak = '" + nokontrak.Text + "'");
decimal SisaTag = NilaiTagihan - Pelunasan;
decimal n = 0;
if (SisaTag > 0)
{
n = SisaTag < pembulatan ? SisaTag : pembulatan;
Db.Execute("EXEC spMEMOAlokasi "
+ " " + NoMEMO
+ ", " + notag.Text
+ ", " + n
+ ",0"
);
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_PELUNASAN"
+ " SET"
+ " TglPelunasan ='" + Convert.ToDateTime(tgl.Text) + "'"
+ ", SudahCair='1'"
+ " WHERE NoKontrak='" + nokontrak.Text + "' AND NoMemo='" + NoMEMO + "' AND NoTagihan='" + notag.Text + "'"
);
Db.Execute("UPDATE MS_MEMO SET Status='POST' WHERE NoMemo='" + NoMEMO + "'");
alokasiM.Append(namatag.Text + " " + Cf.Num(lunas.Text) + "<br>");
DataTable rsM = Db.Rs("SELECT "
+ " CONVERT(varchar, TglMEMO, 106) AS [Tanggal]"
+ ",Tipe"
+ ",Ref AS [Ref.]"
+ ",Unit"
+ ",Customer"
+ ",CaraBayar AS [Cara Bayar]"
+ ",Ket AS [Keterangan]"
+ ",Total"
+ ",NoBG AS [No. BG]"
+ ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]"
+ ", Acc AS [Rekening Bank]"
+ " FROM MS_MEMO WHERE NoMEMO = " + NoMEMO);
string KetLogM = Cf.LogCapture(rsM)
+ "<br>***ALOKASI PEMBAYARAN:<br>"
+ alokasiM.ToString();
Db.Execute("EXEC spLogMEMO"
+ " 'REGIS'"
+ ",'" + Act.UserID + "'"
+ ",'" + Act.IP + "'"
+ ",'" + KetLogM + "'"
+ ",'" + NoMEMO.ToString().PadLeft(7, '0') + "'"
);
decimal LogID2 = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_MEMO_LOG ORDER BY LogID DESC");
string Project2 = Db.SingleString("SELECT Project FROM MS_MEMO WHERE NoMEMO = '" + NoMEMO + "'");
Db.Execute("UPDATE MS_MEMO_LOG SET Project = '" + Project2 + "' WHERE LogID = " + LogID2);
Db.Execute("EXEC ISC064_MARKETINGJUAL..spProsentasePelunasan '" + nokontrak.Text + "'");
Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_KONTRAK SET FlagMemo=1 WHERE NoKontrak='" + nokontrak.Text + "'");
}
}
#endregion
ID += NoTTS + ";";
}
}
//div1.Visible = false;
//feed.Text = "<img src='/Media/db.gif' align=absmiddle> "
// + "Upload Berhasil.."
// ;
Dfc.DeleteFile(FilePath);
string url = "VAImporBNI3.aspx?id=" + ID;
Response.Redirect(url);
}
}
