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