private void Valid(string Username) { Session["SalahPass"] = null; //Logfile otorisasi DataTable rs = 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]" + " FROM MS_TTS WHERE NoTTS = " + NoTTS); Db.Execute("EXEC spLogTTS" + " 'R-TTS'" + ",'" + Username + "'" + ",'" + Act.IP + "'" + ",'" + Cf.LogCapture(rs) + "'" + ",'" + 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); Tampil(); }
private void Tampil() { list.Visible = true; reprint.Visible = false; Js.AutoPrint(this); //increment Db.Execute("UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS SET PrintTTS = PrintTTS + 1 WHERE NoTTS = " + NoTTS); //Logfile DataTable rs = 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]" + " FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS); Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spLogTTS" + " 'P-TTS'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + Cf.LogCapture(rs) + "'" + ",'" + NoTTS.ToString().PadLeft(7, '0') + "'" ); }
private void Valid(string Username) { Session["SalahPass"] = null; //Logfile otorisasi DataTable rs = 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]" + " FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS); Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spLogTTS" + " 'R-TTS'" + ",'" + Username + "'" + ",'" + Act.IP + "'" + ",'" + Cf.LogCapture(rs) + "'" + ",'" + NoTTS.ToString().PadLeft(7, '0') + "'" ); Tampil(); }
protected void btnbaru_ServerClick(object sender, System.EventArgs e) { if (validbaru()) { DataTable rs = Db.Rs("SELECT " + " NoTTS AS [No. TTS]" + ",Tipe" + ",Ref AS [Ref.]" + ",CaraBayar AS [Cara Bayar]" + ",Total AS [Nilai TTS]" + " FROM MS_TTS" + " WHERE NoTTS = " + NoTTS ); DataTable rsBef = Db.Rs("SELECT " + " NoSlip AS [No. Slip]" + ",CONVERT(varchar, TglSetoran, 106) AS [Tanggal Setoran]" + ",Bank AS [Rekening]" + " FROM MS_TTS" + " WHERE NoTTS = " + NoTTS ); int NoSlip = Db.SingleInteger("SELECT ISNULL(MAX(NoSlip),0)+1 FROM MS_TTS"); DateTime TglSetoran = Convert.ToDateTime(tglsetoran.Text); string Bank = Cf.Str(bank.Text); Db.Execute("UPDATE MS_TTS SET " + " NoSlip = " + NoSlip + ",TglSetoran = CONVERT(datetime, '" + TglSetoran + "', 101)" + ",Bank = '" + Bank + "'" + " WHERE NoTTS = " + NoTTS); DataTable rsAft = Db.Rs("SELECT " + " NoSlip AS [No. Slip]" + ",CONVERT(varchar, TglSetoran, 106) AS [Tanggal Setoran]" + ",Bank AS [Rekening]" + " FROM MS_TTS" + " WHERE NoTTS = " + NoTTS ); //Logfile string ketlog = Cf.LogCapture(rs) + Cf.LogCompare(rsBef, rsAft); Db.Execute("EXEC spLogTTS" + " 'EDIT'" + ",'" + 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?done=1&NoTTS=" + NoTTS); } }
private void Valid(string Username) { Session["SalahPass"] = null; //Logfile otorisasi DataTable rs = 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]" + ",NoFPS AS [No. FPS]" + " FROM MS_TTS WHERE NoTTS = " + NoTTS); Db.Execute("EXEC spLogTTS" + " 'R-FPS'" + ",'" + Username + "'" + ",'" + Act.IP + "'" + ",'" + Cf.LogCapture(rs) + "'" + ",'" + 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); Tampil(); string file = Param.PathFilePDFFinanceAR + NoTTS + Project + "_FPS.pdf"; bool exist = System.IO.File.Exists(file); if (exist) { System.IO.File.Delete(file); } ConvertPdf(); Response.Redirect(Param.PathLinkFilePDFFinanceAR + NoTTS + Project + "_FPS.pdf"); }
private void Tampil() { list.Visible = true; reprint.Visible = false; Js.AutoPrint(this); //increment Db.Execute("UPDATE MS_TTS SET PrintBKM = PrintBKM + 1 WHERE NoTTS = " + NoTTS); //Logfile DataTable rs = 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]" + ",NoBKM AS [No. BKM]" + ",CONVERT(varchar, TglBKM, 106) AS [Tanggal BKM]" + " FROM MS_TTS WHERE NoTTS = " + NoTTS); Db.Execute("EXEC spLogTTS" + " 'P-BKM'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + Cf.LogCapture(rs) + "'" + ",'" + 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); }
protected void save_Click(object sender, System.EventArgs e) { if (valid()) { DataTable tts = Db.Rs("SELECT TOP 1 * FROM MIGRATE_PEMBAYARAN WHERE NoKontrak = '" + NoKontrak + "' AND NoTTS = '" + NoTTS + "' AND Approved = 0"); if (tts.Rows.Count > 0) { DataTable kon = Db.Rs("SELECT * FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'"); DataTable cus = Db.Rs("SELECT * FROM MS_CUSTOMER WHERE NoCustomer = '" + kon.Rows[0]["NoCustomer"] + "'"); TextBox tgltts = (TextBox)list.FindControl("tgltts_0"); TextBox nobkm = (TextBox)list.FindControl("nobkm_0"); TextBox tglbkm = (TextBox)list.FindControl("tglbkm_0"); RadioButtonList cb = (RadioButtonList)list.FindControl("cb_0"); DropDownList rek = (DropDownList)list.FindControl("rek_0"); DateTime TglTTS = Convert.ToDateTime(tgltts.Text); string Unit = Cf.Str(kon.Rows[0]["NoUnit"]); string Customer = Cf.Str(cus.Rows[0]["Nama"]); string CaraBayar = cb.SelectedValue; string Ket = ""; //decimal AdminBank = 0; //if (Cf.isMoney(admBank)) { AdminBank = Convert.ToDecimal(admBank.Text); } //decimal LebihBayar = 0; //if (Cf.isMoney(lebihBayar)) { LebihBayar = Convert.ToDecimal(lebihBayar.Text); } //// Logic Create Format Penomoran TTS Reset Per Year //// Get Year Terakhir TTS //int rsYearTTS = 0; //if (Db.SingleInteger("SELECT COUNT(*) FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE Year(TglTTS) = " + TglTTS.Year) > 0) //{ // rsYearTTS = Db.SingleInteger("SELECT TOP 1 YEAR(TglTTS) FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE Year(TglTTS) = " + TglTTS.Year + " ORDER BY TglTTS DESC"); //} //int rsYearInput = TglTTS.Year; //string idTTS = "1"; //int PadLeftId = 6; //// Set increment Nomor jika sama tahun //if (rsYearTTS == rsYearInput) //{ // int c = Db.SingleInteger("SELECT COUNT(NoTTS) FROM " + Mi.DbPrefix + "FINANCEAR..MS_TTS WHERE Year(TglTTS) = " + TglTTS.Year); // bool hasfound = false; // while (!hasfound) // { // if (!Response.IsClientConnected) break; // c++; // if (isUniqueTTS(c, TglTTS, PadLeftId)) // { // idTTS = c.ToString(); // hasfound = true; // } // } //} //string NoTTS = idTTS.PadLeft(PadLeftId, '0') // + "/" + "TTS" // + "/" + Cf.Roman(TglTTS.Month) // + "/" + TglTTS.Year.ToString(); Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spTTSRegistrasiMigrate" + " '" + NoTTS + "'" + ",'" + TglTTS + "'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'JUAL'" + ",'" + NoKontrak + "'" + ",'" + Unit + "'" + ",'" + Customer + "'" + ",'" + CaraBayar + "'" + ",'" + Ket + "'" ); ////khusus cek giro //if (carabayar.SelectedValue == "BG") //{ // string NoBG = Cf.Pk(nobg.Text); // DateTime TglBG = Convert.ToDateTime(tglbg.Text); // Db.Execute("EXEC spTTSRegistrasiBG" // + " '" + NoTTS + "'" // + ",'" + NoBG + "'" // + ",'" + TglBG + "'" // ); //} //if (anonim.SelectedIndex > 0) //{ // Db.Execute("UPDATE MS_TTS SET ANOID = '" + Cf.Str(anonim.SelectedValue) + "' WHERE NoTTS = '" + NoTTS + "'"); // Db.Execute("UPDATE CbANO SET StatusANO = 1 WHERE ANOID='" + Cf.Str(anonim.SelectedValue) + "' ", Cnn); //} //DataTable rs3 = Db.Rs("SELECT * FROM ISC064_MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak ='" + Ref + "'"); //decimal nilaiTTR = 0; //if (rs3.Rows[0]["NoTTR"].ToString() != "") //{ // string NoStock = Db.SingleString("SELECT NoStock FROM ISC064_MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak = '" + Ref + "'"); // int NoReservasi = Db.SingleInteger("SELECT NoReservasi FROM ISC064_MARKETINGJUAL..MS_RESERVASI WHERE NoStock = '" + NoStock + "'"); // DataTable rs2 = Db.Rs("SELECT * FROM ISC064_MARKETINGJUAL..MS_TTR WHERE NoReservasi = '" + NoReservasi + "' AND Status = 'BARU'"); // string NoTTR = Db.SingleString("SELECT NoTTR FROM ISC064_MARKETINGJUAL..MS_KONTRAK WHERE NoKontrak = '" + Ref + "'"); // if (rs2.Rows.Count > 0) // { // nilaiTTR = Db.SingleDecimal("SELECT ISNULL(SUM(Total),0) FROM ISC064_MARKETINGJUAL..MS_TTR WHERE NoTTR = '" + NoTTR + "'"); // Db.Execute("UPDATE ISC064_MARKETINGJUAL..MS_TTR SET Status = 'POST' WHERE NoReservasi = '" + NoReservasi + "'"); // } //} //decimal total2 = Convert.ToDecimal(gt.Text) + nilaiTTR - AdminBank; //Db.Execute("UPDATE MS_TTS" // + " SET Acc = '" + tts.Rows[0]["Rekening"] + "'" // + ", SumberBayar = 0" // //+ ", AdminBank='" + AdminBank + "' " // + ", Total2 = '" + total2 + "'" // //+ ", LebihBayar = '" + LebihBayar + "'" // + " WHERE NoTTS = '" + NoTTS + "'"); System.Text.StringBuilder alokasi = new System.Text.StringBuilder(); int NoTagihan = 0; decimal total = 0; DataTable rsa = Db.Rs("SELECT * FROM MIGRATE_PEMBAYARAN WHERE NoKontrak = '" + NoKontrak + "' AND NoTTS = '" + NoTTS + "' AND Approved = 0"); for (int i = 0; i < rsa.Rows.Count; i++) { TextBox lunas = (TextBox)list.FindControl("nilai_" + i); DropDownList tag = (DropDownList)list.FindControl("tag_" + i); string Tipe = Db.SingleString("SELECT Tipe FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = '" + tag.SelectedValue + "'"); if (lunas.Text != "") { NoTagihan = Convert.ToInt16(tag.SelectedValue); string NamaTagihan = Cf.Str(tag.SelectedItem.Text) + " (" + Tipe + ")"; decimal Nilai = Convert.ToDecimal(lunas.Text);// +nilaiTTR; Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spTTSAlokasi " + " '" + NoTTS + "'" + ", " + NoTagihan + ", " + Nilai ); total += Nilai; alokasi.Append(NamaTagihan + " " + Cf.Num(Nilai) + "<br>"); } } Db.Execute("UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS" + " SET Acc = '" + rek.SelectedValue + "'" + ", SumberBayar = 0" //+ ", AdminBank='" + AdminBank + "' " + ", Total2 = '" + total + "'" //+ ", LebihBayar = '" + LebihBayar + "'" + " WHERE NoTTS = '" + NoTTS + "'"); //BKM if (tts.Rows[0]["NoBKM"] != "") { DateTime TglBKM = Convert.ToDateTime(tglbkm.Text); string NoBKM = nobkm.Text; Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spPostingTTS '" + NoTTS + "','" + TglBKM + "'"); Db.Execute("UPDATE " + Mi.DbPrefix + "FINANCEAR..MS_TTS SET ManualBKM = ManualTTS, NoBKM = '" + NoBKM + "' WHERE NoTTS = '" + NoTTS + "'"); Db.Execute("UPDATE MS_PELUNASAN SET NoBKM = '" + NoBKM + "' WHERE NoTTS = '" + NoTTS + "'"); } Db.Execute("UPDATE MIGRATE_PEMBAYARAN SET Approved = 1 WHERE NoKontrak = '" + NoKontrak + "' AND NoTTS = '" + NoTTS + "'"); DataTable rs = 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 " + Mi.DbPrefix + "FINANCEAR.. MS_TTS WHERE NoTTS = '" + NoTTS + "'"); string KetLog = Cf.LogCapture(rs) + "<br>***ALOKASI PEMBAYARAN:<br>" + alokasi.ToString(); Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spLogTTS" + " 'REGIS'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + KetLog + "'" + ",'" + NoTTS.ToString() + "'" ); 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("MigratePembayaran2.aspx?No=" + NoKontrak); } }
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 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 bool Save() { if (valid()) { DateTime TglTTS = Convert.ToDateTime(tgltts.Text); string Ket = Cf.Str(ket.Text); string Unit = Cf.Str(unit.Text); string Customer = Cf.Str(customer.Text); decimal admbank = Convert.ToDecimal(admBank.Text); decimal lebihbayar = Convert.ToDecimal(lebihBayar.Text); //kurang bayar decimal lbayar = Convert.ToDecimal(lb.Text); //lebih bayar string ManualTTS = manualtts.Text; string ManualBKM = manualbkm.Text != "" ? Cf.Str(manualbkm.Text).PadLeft(6, '0') : ""; string NoBG = ""; DateTime TglBG = DateTime.Today; string Titip = ""; if (carabayar.Text == "CEK GIRO") { NoBG = Cf.Pk(nobg.Text); TglBG = Convert.ToDateTime(tglbg.Text); Titip = Cf.Str(titip.Text); } //khusus kartu kredit string NoKK = "", BankKK = ""; if (carabayar.Text == "KARTU KREDIT") { NoKK = Cf.Pk(nokk.Text); BankKK = Cf.Pk(bankkk.Text); } DataTable rs = Db.Rs("SELECT " + " NoTTS AS [No. TTS]" + ",Tipe" + ",Ref AS [Ref.]" + ",CaraBayar AS [Cara Bayar]" + ",Total AS [Nilai TTS]" + " FROM ISC064_FINANCEAR..MS_TTS" + " WHERE NoTTS = " + NoTTS ); DataTable rsBef = Db.Rs("SELECT " + " CONVERT(varchar, TglTTS, 106) AS [Tanggal TTS]" + ",CONVERT(varchar, TglBKM, 106) AS [Tanggal BKM]" + ",Ket AS [Keterangan]" + ",NoBG AS [No. BG]" + ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]" + ",Titip AS [Pengelola BG]" + ",Unit" + ",Customer" + ",Pph AS [PPH]" + ",ManualTTS AS [Manual TTS]" + ",ManualBKM AS [Manual BKM]" + ", Acc AS [Rekening Bank]" + ", NoFPS AS [No. Faktur Pajak]" + " FROM ISC064_FINANCEAR..MS_TTS" + " WHERE NoTTS = " + NoTTS ); Db.Execute("EXEC spTTSEdit" + " '" + NoTTS + "'" + ",'" + TglTTS + "'" + ",'" + Unit + "'" + ",'" + Customer + "'" + ",'" + Ket + "'" + ",'" + NoBG + "'" + ",'" + TglBG + "'" + ",'" + Titip + "'" ); //manual update Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET " + " Pph = " + Cf.BoolToSql(pph.Checked) + ",ManualTTS = '" + ManualTTS + "'" + ",ManualBKM = '" + ManualBKM + "'" + ", NoFPS = '" + Cf.Str(tbNoFaktur.Text) + "'" + ",NoKK = '" + NoKK + "'" + ",BankKK = '" + BankKK + "'" + " WHERE NoTTS = " + NoTTS); if (delfp.Checked) { Db.Execute("UPDATE ISC064_FINANCEAR..REF_FP SET Status = 0 WHERE NoFPS = '" + tbNoFaktur.Text + "'"); Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET NoFPS = '' WHERE NoTTS = " + NoTTS); } bool FOBO = Db.SingleBool("SELECT FOBO FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS='" + NoTTS + "'"); if (FOBO != true) { decimal Total = Db.SingleDecimal("SELECT Total FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS='" + NoTTS + "'"); decimal total2 = Total + lebihbayar + lbayar - admbank; Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET " + " AdminBank = '" + admbank + "'" + " , Total2 ='" + total2 + "'" + " , LebihBayar ='" + lebihbayar + "'" + " , LB ='" + lbayar + "'" + " WHERE NoTTS = " + NoTTS); } //if (manualbkm.Text != "") //{ // Db.Execute("UPDATE MS_TTS SET " // + " NoBKM = " + manualbkm.Text // + " WHERE NoTTS = " + NoTTS); //} //if(bkmtr.Visible) //{ Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET " + " TglBKM = '" + Convert.ToDateTime(tglbkm.Text) + "'" + " WHERE NoTTS = " + NoTTS); //} Db.Execute("EXEC spSinkronisasi " + NoTTS); Db.Execute("UPDATE ISC064_FINANCEAR..MS_TTS SET Acc = '" + ddlAcc.SelectedValue + "' WHERE NoTTS = " + NoTTS); DataTable rsAft = Db.Rs("SELECT " + " CONVERT(varchar, TglTTS, 106) AS [Tanggal TTS]" + ",CONVERT(varchar, TglBKM, 106) AS [Tanggal BKM]" + ",Ket AS [Keterangan]" + ",NoBG AS [No. BG]" + ",CONVERT(varchar, TglBG, 106) AS [Tanggal BG]" + ",Titip AS [Pengelola BG]" + ",Unit" + ",Customer" + ",Pph AS [PPH]" + ",ManualTTS AS [Manual TTS]" + ",ManualBKM AS [Manual BKM]" + ", Acc AS [Rekening Bank]" + ", NoFPS AS [No. Faktur Pajak]" + " FROM ISC064_FINANCEAR..MS_TTS" + " WHERE NoTTS = " + NoTTS ); /*Update status Akunting*/ int Akunting = Db.SingleInteger("SELECT Akunting FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS); if (Akunting == 1) { string NoVoucher = Db.SingleString("SELECT NoVoucher FROM ISC064_FINANCEAR..MS_TTS WHERE NoTTS = " + NoTTS); Akun.InsertAnomali("TTS", NoTTS, Cf.LogCapture(rsBef), Cf.LogCapture(rsAft), "EDIT TTS", "", NoVoucher); } /************************/ //Logfile string ketlog = Cf.LogCapture(rs) + Cf.LogCompare(rsBef, rsAft); Db.Execute("EXEC " + Mi.DbPrefix + "FINANCEAR..spLogTTS" + " 'EDIT'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'" + 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); return(true); } else { return(false); } }
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 + " 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 MS_TTS WHERE NoTTS = " + NoTTS); string StatusLama = rs.Rows[0]["Status"].ToString(); #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 string Project = Db.SingleString("SELECT Project FROM MS_TTS WHERE NoTTS = '" + NoTTS + "'"); string NoBKM2 = Numerator.BKM(TglBKM.Month, TglBKM.Year, Project); DataTable rsDetil = Db.Rs(strSql); Db.Execute("EXEC spPostingTTS " + NoTTS + ",'" + TglBKM + "'"); Db.Execute("UPDATE MS_TTS SET ManualBKM = ManualTTS, NoBKM2='" + NoBKM2 + "', TglFP = '" + TglBKM + "' WHERE NoTTS = " + NoTTS); Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_PELUNASAN SET NoBKM2='" + NoBKM2 + "' WHERE NoTTS = " + NoTTS); Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..MS_PELUNASAN_KPA SET SudahCair=1 WHERE NoTTS=" + NoTTS); //Ambil Stok No. FP string TipeTagihan = Db.SingleString("SELECT Tipe FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_TAGIHAN WHERE NoUrut = (SELECT TOP 1 NoTagihan FROM " + Mi.DbPrefix + "MARKETINGJUAL..MS_PELUNASAN WHERE NoTTS = '" + NoTTS + "')"); DataTable rsHeader2 = new DataTable(); if (TipeTagihan == "BF" || TipeTagihan == "DP" || TipeTagihan == "ANG") { DataTable fp = Db.Rs("SELECT * FROM REF_FP WHERE Status = 0 AND CONVERT(varchar,TglTerimaFP,112) < = '" + Cf.Tgl112(TglBKM) + "' AND Project = '" + Project + "'"); //disini 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() + "'"); rsHeader2 = Db.Rs("SELECT " + "NoFPS AS [No. Faktur Pajak]" + " FROM MS_TTS WHERE NoTTS = " + NoTTS); } } DataTable StockFPS = Db.Rs("SELECT * FROM REF_FP WHERE CONVERT(varchar,TglTerimaFP,112) <= '" + Cf.Tgl112(Convert.ToDateTime(rs.Rows[0]["TglTTS"])) + "' AND Status = 0 AND Project = '" + Project + "'"); string kett = ""; if (StockFPS.Rows.Count >= 0) { if (StockFPS.Rows.Count <= 100) { kett = "Sisa No. Faktur Pajak yang tersedia : " + StockFPS.Rows.Count + ". Segera hub pihak Pajak."; } else { kett = "No. Faktur Pajak tersedia."; } } string noSSP = AutoNoSSP(); Db.Execute("UPDATE MS_TTS SET NoSSP = '" + noSSP + "' WHERE NoTTS = '" + NoTTS + "' AND Project = '" + Project + "'"); // Log string KetLog = Cf.LogCapture(rsHeader) + Cf.LogCapture(rsHeader2) + Cf.LogList(rsDetil, "ALOKASI PELUNASAN") + Environment.NewLine + "Warning : " + kett ; Db.Execute("EXEC spLogTTS" + " 'POST'" + ",'" + Act.UserID + "'" + ",'" + Act.IP + "'" + ",'***BUKA KWITANSI***<br>" + KetLog + "'" + ",'" + NoTTS.ToString().PadLeft(7, '0') + "'" ); decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_TTS_LOG ORDER BY LogID DESC"); Db.Execute("UPDATE MS_TTS_LOG SET Project = '" + Project + "' WHERE LogID = " + LogID); Response.Redirect("TTSEdit.aspx?NoTTS=" + NoTTS + "&done=1"); } }