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