Esempio n. 1
0
        private void UpdateSkema()
        {
            string Nama      = Cf.Str(nama.Text);
            string Diskon    = Cf.Str(diskon.Text);
            string DiskonKet = Cf.Str(diskonket.Text);
            string Bunga     = Cf.Str(bunga2.Text);

            string BungaKet = Cf.Str(bungaket.Text);
            string Project  = Cf.Pk(project.SelectedValue);

            string Status = "";

            if (aktif.Checked)
            {
                Status = "A";
            }
            else if (inaktif.Checked)
            {
                Status = "I";
            }

            Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaEdit"
                       + "  " + Nomor
                       + ",'" + Nama + "'"
                       + ",'" + Diskon + "'"
                       + ",'" + DiskonKet + "'"
                       + ",'" + Bunga + "'"
                       + ",'" + BungaKet + "'"
                       + ", " + Cf.BoolToSql(round.Checked)
                       + ",'" + Status + "'"
                       + ",'" + Project + "'"
                       );
        }
Esempio n. 2
0
        protected void ok_Click(object sender, EventArgs e)
        {
            string Project = project.SelectedValue;

            int Cek = Db.SingleInteger("SELECT COUNT(*) FROM REF_MANDATORY Where Halaman= 'Customer' AND Project='" + Project + "'");

            if (Cek > 0)
            {
                int i = 0;
                foreach (var r in list.Controls)
                {
                    CheckBox cb = (CheckBox)list.FindControl("cb_" + i);

                    string NamaKolom = cb.Attributes["data-id"];
                    Db.Execute("UPDATE REF_MANDATORY SET HarusIsi = " + Cf.BoolToSql(cb.Checked) + "  WHERE Halaman= 'Customer' AND NamaKolom = '" + NamaKolom + "' AND Project='" + Project + "'");
                    i++;
                }
            }
            else
            {
                int i = 1;
                foreach (var r in list.Controls)
                {
                    CheckBox cb        = (CheckBox)list.FindControl("cb_" + i);
                    string   NamaKolom = cb.Attributes["data-id"];
                    Db.Execute("INSERT INTO REF_MANDATORY (Halaman, NamaKolom, Keterangan, HarusIsi, TipeData, Project) VALUES('Customer','" + LibControls.Bind.KolomCustomer(Convert.ToByte(i)) + "','" + LibControls.Bind.KetCustomer(Convert.ToByte(i)) + "'," + Cf.BoolToSql(cb.Checked) + "," + LibControls.Bind.TipeDataCustomer(Convert.ToByte(i)) + ",'" + Project + "')");

                    i++;
                }
            }
            Response.Redirect("MandatoryCustomer.aspx?d=1&project=" + Project);
        }
Esempio n. 3
0
        protected void save_Click(object sender, System.EventArgs e)
        {
            if (passvalid())
            {
                Db.Execute("EXEC spGantiPass "
                           + " '" + UserID + "'"
                           + ",'" + passMD5.Text + "'"
                           + ", " + Cf.BoolToSql(gantipass.Checked)
                           );

                DataTable rs = Db.Rs("SELECT "
                                     + " UserID AS [Kode / Username]"
                                     + ",Nama AS [Nama Lengkap]"
                                     + ",SecLevel AS [Security Level]"
                                     + ",GantiPass AS [Rubah Password di Login Berikutnya]"
                                     + " FROM USERNAME WHERE UserID = '" + UserID + "'");

                Db.Execute("EXEC spLogUsername "
                           + " 'SPB'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + Cf.LogCapture(rs) + "'"
                           + ",'" + UserID + "'"
                           );

                Response.Redirect("SetPass.aspx?done=" + UserID);
            }
        }
Esempio n. 4
0
        private bool Save()
        {
            if (valid())
            {
                string Nama       = Cf.Str(nama.Text);
                int    RotasiPass = Convert.ToInt32(rotasipass.Text);
                string Email      = Cf.Str(email.Text);
                string SecLevel   = seclevel.SelectedValue;
                int    NoAgent    = Convert.ToInt32(agent.SelectedValue);

                DataTable rsBef = Db.Rs("SELECT "
                                        + " Nama AS [Nama Lengkap]"
                                        + ",Email"
                                        + ",SecLevel AS [Security Level]"
                                        + ",GantiPass AS [Rubah Password di Login Pertama]"
                                        + ",RotasiPass AS [Frekuensi Rotasi Password (Bulanan)]"
                                        + ",NoAgent AS [Kode Sales]"
                                        + " FROM USERNAME WHERE UserID = '" + UserID + "'");

                Db.Execute("EXEC spUserEdit "
                           + " '" + UserID + "'"
                           + ",'" + Nama + "'"
                           + ",'" + SecLevel + "'"
                           + ", " + Cf.BoolToSql(gantipass.Checked)
                           + ", " + RotasiPass
                           );

                //Db.Execute("UPDATE USERNAME SET NoAgent = " + NoAgent + " WHERE UserID = '" + UserID + "'");
                Db.Execute("UPDATE USERNAME SET Email = '" + Email + "' WHERE UserID = '" + UserID + "'");

                DataTable rsAft = Db.Rs("SELECT "
                                        + " Nama AS [Nama Lengkap]"
                                        + ",Email"
                                        + ",SecLevel AS [Security Level]"
                                        + ",GantiPass AS [Rubah Password di Login Pertama]"
                                        + ",RotasiPass AS [Frekuensi Rotasi Password (Bulanan)]"
                                        + ",NoAgent AS [Kode Sales]"
                                        + " FROM USERNAME WHERE UserID = '" + UserID + "'");

                //Logfile
                string Ket = Cf.LogCompare(rsBef, rsAft);

                Db.Execute("EXEC spLogUsername "
                           + " 'EDU'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + Ket + "'"
                           + ",'" + UserID + "'"
                           );

                return(true);
            }
            else
            {
                return(false);
            }
        }
Esempio n. 5
0
        protected void ok_Click(object sender, System.EventArgs e)
        {
            if (valid())
            {
                string   Nama      = Cf.Str(nama.Text);
                string   Diskon    = Cf.Str(diskon.Text);
                string   DiskonKet = Cf.Str(diskonket.Text);
                string[] Bunga     = bunga2.Text.Split('+');;
                string   bunga1    = "";
                for (int i = 0; i <= Bunga.GetUpperBound(0); i++)
                {
                    if (i != Bunga.GetUpperBound(0))
                    {
                        bunga1 += (Convert.ToDecimal(Bunga[i].ToString()) * (decimal)1) + "+";
                    }
                    else
                    {
                        bunga1 += (Convert.ToDecimal(Bunga[i].ToString()) * (decimal)1);
                    }
                }

                string BungaKet  = Cf.Str(bungaket.Text);
                bool   RThousand = round.Checked;
                string Project   = project.SelectedValue;
                string TipeUnit  = tipeUnitList.SelectedValue;
                Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaBaru"
                           + " '" + Nama + "'"
                           + ",'" + Diskon + "'"
                           + ",'" + DiskonKet + "'"
                           + ", " + Cf.BoolToSql(RThousand)
                           + ",'" + bunga1 + "'"
                           + ",'" + BungaKet + "'"
                           + ",'" + Project + "'"
                           + ",'" + TipeUnit + "'"
                           );

                //nomor skema terbaru
                int Nomor = Db.SingleInteger("SELECT TOP 1 Nomor FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA"
                                             + " ORDER BY Nomor DESC"
                                             );

                Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA SET Jenis = '" + jenis.SelectedValue + "' WHERE Nomor = '" + Nomor + "'  ");

                SaveBaris(Nomor, "BF", "UANG TANDA JADI", bfkali, bfrupiah, bfjumlah, bfbln1, bfbln2, bflama1, bflama2);
                SaveBaris(Nomor, "DP", "PEMBAYARAN", dpkali, dprupiah, dpjumlah, dpbln1, dpbln2, dplama1, dplama2);
                SaveBaris(Nomor, "ANG", "PEMBAYARAN", angkali, angrupiah, angjumlah, angbln1, angbln2, anglama1, anglama2);

                SaveLog(Nomor);

                Response.Redirect("Skema.aspx?done=" + Nomor + "&project=" + project.SelectedValue);
            }
        }
Esempio n. 6
0
        private void Tambah()
        {
            if (barunama.Text != "" || barunilai.Text != "" || barutgl.Text != "")
            {
                string Tipe = "";
                if (barubf.Checked)
                {
                    Tipe = "BF";
                }
                else if (barudp.Checked)
                {
                    Tipe = "DP";
                }
                else if (baruang.Checked)
                {
                    Tipe = "ANG";
                }
                else
                {
                    Tipe = "ADM";
                }

                string   Nama  = Cf.Str(barunama.Text);
                DateTime TglJT = Convert.ToDateTime(barutgl.Text);
                decimal  Nilai = Convert.ToDecimal(barunilai.Text);
                string   Jenis = jenis2.SelectedValue;

                Db.Execute("EXEC spTagihanDaftar "
                           + " '" + NoKontrak + "'"
                           + ",'" + Nama + "'"
                           + ",'" + TglJT + "'"
                           + ", " + Nilai
                           + ",'" + Tipe + "'"
                           );

                //Update manual
                int NoUrut = Db.SingleInteger("SELECT ISNULL(MAX(NoUrut), 0) FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "'");
                Db.Execute("UPDATE MS_TAGIHAN"
                           + " SET  "
                           + "KPR = " + Cf.BoolToSql(barukpr.Checked)
                           + ", Jenis = '" + Jenis + "'"
                           + " WHERE NoKontrak = '" + NoKontrak + "'"
                           + " AND NoUrut = " + NoUrut
                           );
            }
        }
Esempio n. 7
0
        protected void ok_Click(object sender, System.EventArgs e)
        {
            if (valid())
            {
                string Nama      = Cf.Str(nama.Text);
                string Diskon    = Cf.Str(diskon.Text);
                string DiskonKet = Cf.Str(diskonket.Text);
                string Bunga     = Cf.Str(bunga2.Text);
                string BungaKet  = Cf.Str(bungaket.Text);
                bool   RThousand = round.Checked;
                string Project   = project.SelectedValue;

                Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaBaru"
                           + " '" + Nama + "'"
                           + ",'" + Diskon + "'"
                           + ",'" + DiskonKet + "'"
                           + ", " + Cf.BoolToSql(RThousand)
                           + ",'" + Bunga + "'"
                           + ",'" + BungaKet + "'"
                           + ",'" + Project + "'"
                           );

                //nomor skema terbaru
                int Nomor = Db.SingleInteger("SELECT TOP 1 Nomor FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA"
                                             + " ORDER BY Nomor DESC"
                                             );

                Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA SET Jenis = '" + jenis.SelectedValue + "' WHERE Nomor = '" + Nomor + "'  ");

                SaveBaris(Nomor, "BF", "BOOKING FEE", bfkali, bfrupiah, bfjumlah, bfbln1, bfbln2, bflama1, bflama2);
                SaveBaris(Nomor, "DP", "DP", dpkali, dprupiah, dpjumlah, dpbln1, dpbln2, dplama1, dplama2);
                SaveBaris(Nomor, "ANG", "ANGSURAN", angkali, angrupiah, angjumlah, angbln1, angbln2, anglama1, anglama2);

                SaveLog(Nomor);

                Response.Redirect("Skema.aspx?done=" + Nomor);
            }
        }
Esempio n. 8
0
        private void UpdateSkemaDetail()
        {
            for (int i = 0; i < rs.Rows.Count; i++)
            {
                if (!Response.IsClientConnected)
                {
                    break;
                }

                RadioButton bf        = (RadioButton)list.FindControl("bf_" + i);
                RadioButton dp        = (RadioButton)list.FindControl("dp_" + i);
                RadioButton ang       = (RadioButton)list.FindControl("ang_" + i);
                TextBox     nama      = (TextBox)list.FindControl("nama_" + i);
                RadioButton persen    = (RadioButton)list.FindControl("persen_" + i);
                RadioButton rupiah    = (RadioButton)list.FindControl("rupiah_" + i);
                TextBox     nominal   = (TextBox)list.FindControl("nominal_" + i);
                RadioButton bln       = (RadioButton)list.FindControl("bln_" + i);
                RadioButton hr        = (RadioButton)list.FindControl("hr_" + i);
                RadioButton fix       = (RadioButton)list.FindControl("fix_" + i);
                TextBox     lama      = (TextBox)list.FindControl("lama_" + i);
                TextBox     referensi = (TextBox)list.FindControl("ref_" + i);
                CheckBox    potong    = (CheckBox)list.FindControl("potong_" + i);
                CheckBox    kpr       = (CheckBox)list.FindControl("kpr_" + i);

                string Nama = Cf.Str(nama.Text);

                string Tipe = "";
                if (bf.Checked)
                {
                    Tipe = "BF";
                }
                else if (dp.Checked)
                {
                    Tipe = "DP";
                }
                else if (ang.Checked)
                {
                    Tipe = "ANG";
                }

                decimal Nominal     = Convert.ToDecimal(nominal.Text);
                string  TipeNominal = "";
                if (persen.Checked)
                {
                    TipeNominal = "%";
                }
                else
                {
                    TipeNominal = "F";
                }

                string TipeJadwal = "";
                if (bln.Checked)
                {
                    TipeJadwal = "M";
                }
                else if (hr.Checked)
                {
                    TipeJadwal = "D";
                }
                else
                {
                    TipeJadwal = "F";
                }

                string TglFix    = "NULL";
                int    IntJadwal = 0;
                if (TipeJadwal == "F")
                {
                    TglFix = "'" + Cf.Str(Convert.ToDateTime(lama.Text)) + "'";
                }
                else
                {
                    IntJadwal = Convert.ToInt32(lama.Text);
                }

                int RefJadwal = Convert.ToInt32(referensi.Text);

                Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaEditBaris"
                           + "  " + Nomor
                           + ", " + rs.Rows[i]["Baris"].ToString()
                           + ",'" + Tipe + "'"
                           + ",'" + Nama + "'"
                           + ", " + Nominal
                           + ",'" + TipeNominal + "'"
                           + ", " + TglFix
                           + ",'" + TipeJadwal + "'"
                           + ", " + IntJadwal
                           + ", " + RefJadwal
                           + ", " + Cf.BoolToSql(potong.Checked)
                           // + ", '" + Nominal + "'"
                           );

                Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA_DETAIL"
                           + " SET KPR = " + Cf.BoolToSql(kpr.Checked)
                           + " WHERE Nomor = " + Nomor
                           + " AND Baris = " + rs.Rows[i]["Baris"]
                           );
            }
        }
Esempio n. 9
0
        private void SaveBaris(int Nomor, string Tipe, string Nama, TextBox kali, CheckBox rp, TextBox nom, CheckBox bln1, CheckBox bln2, TextBox interval1, TextBox interval2)
        {
            int count = Convert.ToInt32(kali.Text);
            int index = Db.SingleInteger("SELECT ISNULL(MAX(Baris),0) FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA_DETAIL"
                                         + " WHERE Nomor = " + Nomor);
            int topref = index;

            for (int i = 0; i < count; i++)
            {
                if (!Response.IsClientConnected)
                {
                    break;
                }

                index++;

                decimal Nominal     = Convert.ToDecimal(nom.Text) / count;
                string  TipeNominal = "%";
                if (rp.Checked)
                {
                    TipeNominal = "F";
                }

                string TipeJadwal = "";
                int    IntJadwal  = 0;
                int    RefJadwal  = 0;
                if (i != 0)
                {
                    //interval
                    if (bln1.Checked)
                    {
                        TipeJadwal = "M";
                    }
                    else
                    {
                        TipeJadwal = "D";
                    }
                    IntJadwal = Convert.ToInt32(interval1.Text) * i;
                    RefJadwal = topref + 1;
                }
                else
                {
                    //pertama
                    if (bln2.Checked)
                    {
                        TipeJadwal = "M";
                    }
                    else
                    {
                        TipeJadwal = "D";
                    }
                    IntJadwal = Convert.ToInt32(interval2.Text);
                    RefJadwal = topref;
                }

                bool BF = false;
                if (Tipe == "DP")
                {
                    if (dp1potong.Checked && i == 0)
                    {
                        BF = true;
                    }
                    if (dpspotong.Checked)
                    {
                        BF = true;
                    }
                }
                if (Tipe == "ANG")
                {
                    if (ang1potong.Checked && i == 0)
                    {
                        BF = true;
                    }
                    if (angspotong.Checked)
                    {
                        BF = true;
                    }
                }

                if ((Tipe == "ANG") && (i == count - 1))
                {
                    Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaTambah "
                               + Nomor
                               + ",'" + Tipe + "'"
                               + ",'PELUNASAN'"
                               + ", " + Nominal
                               + ",'" + TipeNominal + "'"
                               + ",NULL"
                               + ",'" + TipeJadwal + "'"
                               + ", " + IntJadwal
                               + ", " + RefJadwal
                               + ", " + Cf.BoolToSql(BF)
                               );
                    string jenis = Db.SingleString("SELECT JENIS FROM " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA WHERE NOMOR=" + Nomor);
                    if (jenis == "KPR")
                    {
                        Db.Execute("UPDATE " + Mi.DbPrefix + "MARKETINGJUAL..REF_SKEMA_DETAIL SET KPR = 1 WHERE NOMOR=" + Nomor + " AND NAMA='PELUNASAN'");
                    }
                }
                else
                {
                    Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaTambah "
                               + Nomor
                               + ",'" + Tipe + "'"
                               + ",'" + Nama + " " + (i + 1) + "'"
                               + ", " + Nominal
                               + ",'" + TipeNominal + "'"
                               + ",NULL"
                               + ",'" + TipeJadwal + "'"
                               + ", " + IntJadwal
                               + ", " + RefJadwal
                               + ", " + Cf.BoolToSql(BF)
                               );
                }
            }
        }
Esempio n. 10
0
        protected void ok_Click(object sender, System.EventArgs e)
        {
            if (Valid())
            {
                bool StatusBerkas = false;
                if (status.SelectedValue == "1")
                {
                    StatusBerkas = true;
                }

                string CheckListDokumen     = "";
                System.Text.StringBuilder x = new System.Text.StringBuilder();

                for (int i = 0; i < umum.Items.Count; i++)
                {
                    if (umum.Items[i].Selected)
                    {
                        x.Append(umum.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < pn.Items.Count; i++)
                {
                    if (pn.Items[i].Selected)
                    {
                        x.Append(pn.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < swasta.Items.Count; i++)
                {
                    if (swasta.Items[i].Selected)
                    {
                        x.Append(swasta.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < wira.Items.Count; i++)
                {
                    if (wira.Items[i].Selected)
                    {
                        x.Append(wira.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < lain.Items.Count; i++)
                {
                    if (lain.Items[i].Selected)
                    {
                        x.Append(lain.Items[i].Text + ";");
                    }
                }

                CheckListDokumen = x.ToString();

                DataTable rsBef = Db.Rs("SELECT "
                                        + "CheckListDokumen AS [Check List Dokumen]"
                                        + ", StatusBerkas AS [StatusBerkas]"
                                        //+ ", ISNULL(TglSelesaiBerkas,0) AS [Tgl. Selesai Berkas]"
                                        + " FROM MS_KONTRAK"
                                        + " WHERE NoKontrak = '" + NoKontrak + "'"
                                        );

                if (tgl.Text != "")
                {
                    DateTime Tgl = Convert.ToDateTime(tgl.Text);
                    Db.Execute("UPDATE MS_KONTRAK"
                               + " SET CheckListDokumen = '" + CheckListDokumen + "'"
                               + ", StatusBerkas = " + Cf.BoolToSql(StatusBerkas)
                               + ", TglSelesaiBerkas = '" + Tgl + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );
                }
                else
                {
                    Db.Execute("UPDATE MS_KONTRAK"
                               + " SET CheckListDokumen = '" + CheckListDokumen + "'"
                               + ", StatusBerkas = " + Cf.BoolToSql(StatusBerkas)
                               //+ ", TglSelesaiBerkas = '" + null + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );
                }

                DataTable rsAft = Db.Rs("SELECT "
                                        + "CheckListDokumen AS [Check List Dokumen]"
                                        + ", StatusBerkas AS [StatusBerkas]"
                                        //+ ", TglSelesaiBerkas AS [Tgl. Selesai Berkas]"
                                        + " FROM MS_KONTRAK"
                                        + " WHERE NoKontrak = '" + NoKontrak + "'"
                                        );

                string Ket = Cf.LogCompare(rsBef, rsAft);

                Db.Execute("EXEC spLogKontrak"
                           + " 'EDIT'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + Ket + "'"
                           + ",'" + NoKontrak + "'"
                           );

                decimal LogID   = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
                string  Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID  = " + LogID);

                Js.Close(this);
            }
        }
Esempio n. 11
0
        private void GenerateAcc()
        {
            if (penjualan.SelectedIndex == 0)
            {
                xls            = "MappingCOA1.xls";
                JenisPenjualan = " AND a.JenisPenjualan = 0";
            }
            else if (penjualan.SelectedIndex == 1)
            {
                xls            = "MappingCOA2.xls";
                JenisPenjualan = " AND a.JenisPenjualan = 1";
            }

            string strSql = "SELECT *"
                            + " FROM MS_TTS INNER JOIN " + Mi.DbPrefix + "MARKETINGJUAL..MS_KONTRAK a"
                            + " ON a.NoKontrak = MS_TTS.Ref"
                            + " WHERE MS_TTS.Status = 'POST' AND MS_TTS.Akunting = 0"
                            + JenisPenjualan
            ;

            DataTable rs = Db.Rs(strSql);

            System.Text.StringBuilder x = new System.Text.StringBuilder();

            for (int i = 0; i < rs.Rows.Count; i++)
            {
                if (!Response.IsClientConnected)
                {
                    break;
                }

                string   CBID         = Akun.NewCBID(rs.Rows[i]["Acc"].ToString(), 1);
                string   JournalMemo  = rs.Rows[i]["Unit"].ToString() + " " + rs.Rows[i]["Ref"].ToString();
                string   OtherParty   = rs.Rows[i]["Customer"].ToString();
                string   AccountID    = rs.Rows[i]["Acc"].ToString();
                decimal  Deposit      = Convert.ToDecimal(rs.Rows[i]["Total"]);
                decimal  ForexDeposit = Deposit;
                DateTime TglBKM       = Convert.ToDateTime(rs.Rows[i]["TglBKM"]);
                string   Source       = rs.Rows[i]["Tipe"].ToString();
                int      TipePosting  = Convert.ToInt32(rs.Rows[i]["TipePosting"]);

                int AccCount = Akun.SingleInteger("SELECT COUNT(AccountID) FROM Account WHERE AccountID = '" + rs.Rows[i]["Acc"].ToString() + "' AND Postable = 1");

                if (AccCount == 0)
                {
                    x.Append("No. TTS: " + rs.Rows[i]["NoTTS"].ToString().PadLeft(7, '0') + ", REKENING tidak terdaftar.<br />");
                }
                else
                {
                    //Insert CB

                    /*Akun.CB(
                     *      CBID
                     *      , "IDR"
                     *      , 1
                     *      , TglBKM
                     *      , JournalMemo
                     *      , OtherParty
                     *      , AccountID
                     *      , Deposit
                     *      , 0
                     *      , ForexDeposit
                     *      , 0
                     *      , true
                     *      , Cf.Pk(rs.Rows[i]["NoTTS"])
                     *      , ""
                     *      , ""
                     *      , false
                     *      , "TTS"
                     *      );*/
                    // modify by viana 171208 TTS -> BKM
                    Akun.CB(
                        CBID
                        , "IDR"
                        , 1
                        , TglBKM
                        , JournalMemo
                        , OtherParty
                        , AccountID
                        , Deposit
                        , 0
                        , ForexDeposit
                        , 0
                        , true
                        , Cf.Pk(rs.Rows[i]["NoBKM"])
                        , ""
                        , ""
                        , false
                        , "BKM"
                        );

                    //Insert CB Detail (Debit)
                    decimal Debit      = Convert.ToDecimal(rs.Rows[i]["Total"]);
                    decimal ForexDebit = Debit;
                    string  Notes      = "TOTAL"
                                         + " "
                                         + rs.Rows[i]["Ket"].ToString()
                    ;

                    if (Notes.Length > 255)
                    {
                        Notes = Notes.Substring(0, 254);
                    }

                    Akun.CBDetail(
                        CBID
                        , 1
                        , AccountID
                        , Debit
                        , 0
                        , ForexDebit
                        , 0
                        , Notes
                        );

                    //Insert CB Detail (Kredit)
                    strSql = "SELECT *"
                             + " FROM " + Mi.DbPrefix + "MARKETING" + Source + "..MS_PELUNASAN a"
                             + " INNER JOIN " + Mi.DbPrefix + "MARKETING" + Source + "..MS_TAGIHAN b ON a.NoTagihan = b.NoUrut AND a.NoKontrak = b.NoKontrak"
                             + " WHERE a.NoKontrak = '" + Cf.Pk(rs.Rows[i]["Ref"]) + "'"
                             + " AND a.NoTTS = " + Cf.Pk(rs.Rows[i]["NoTTS"])
                    ;
                    DataTable rsTagihan = Db.Rs(strSql);

                    DataTable rsCOA;
                    bool      isValid = true;

                    int  SN    = 1;
                    bool AccDP = false;

                    for (int j = 0; j < rsTagihan.Rows.Count; j++)
                    {
                        if (!Response.IsClientConnected)
                        {
                            break;
                        }

                        SN++;

                        string  COA = "", col = "", add = "";
                        string  Tipe        = rsTagihan.Rows[j]["Tipe"].ToString();
                        decimal Kredit      = Convert.ToDecimal(rsTagihan.Rows[j]["NilaiPelunasan"]);
                        decimal ForexKredit = Kredit;
                        Notes = rsTagihan.Rows[j]["NamaTagihan"].ToString()
                                + " "
                                + rsTagihan.Rows[j]["Ket"].ToString()
                        ;
                        if (Notes.Length > 255)
                        {
                            Notes = Notes.Substring(0, 254);
                        }
                        decimal PersenLunas     = Db.SingleDecimal("SELECT PersenLunas FROM " + Mi.DbPrefix + "MARKETING" + Source + "..MS_KONTRAK WHERE NoKontrak = '" + Cf.Pk(rs.Rows[i]["Ref"]) + "'");
                        bool    StatusAkunting2 = Db.SingleBool("SELECT Akunting2 FROM " + Mi.DbPrefix + "MARKETING" + Source + "..MS_KONTRAK WHERE NoKontrak = '" + Cf.Pk(rs.Rows[i]["Ref"]) + "'");
                        if (StatusAkunting2 == true)
                        {
                            TipePosting = 1;
                        }
                        else
                        {
                            TipePosting = 0;
                        }

                        if (TipePosting == 1)
                        {
                            col = "[Amortisasi1]";
                        }
                        else
                        {
                            AccDP = true;
                        }
                        col = "[Jual Belum Diakui]";

                        if (Tipe == "ADM")
                        {
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. PPJB")
                            {
                                add = " AND [Tipe Mapping] = 'ADM PPJB'";
                            }
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. AJB")
                            {
                                add = " AND [Tipe Mapping] = 'ADM AJB'";
                            }
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. PEMBATALAN")
                            {
                                add = " AND [Tipe Mapping] = 'ADM BATAL'";
                            }
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. SERAH TERIMA")
                            {
                                add = " AND [Tipe Mapping] = 'ADM ST'";
                            }
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. Pengalihan Hak")
                            {
                                add = " AND [Tipe Mapping] = 'ADM GN'";
                            }
                            if (rsTagihan.Rows[j]["NamaTagihan"].ToString() == "BIAYA ADM. Pindah Unit")
                            {
                                add = " AND [Tipe Mapping] = 'ADM GU'";
                            }

                            col = "[Normal]";
                        }
                        else
                        {
                            if (Source == "JUAL")
                            {
                                add = " AND [Tipe Mapping] = '" + Tipe + "'";
                            }
                            else if (Source == "SEWA")
                            {
                                add = " AND [Tipe Mapping] = '" + Tipe + "2'";
                            }
                            else if (Source == "SB")
                            {
                                add = " AND [Tipe Mapping] = '" + Tipe + "3'";
                            }
                        }

                        rsCOA = Db.xls("SELECT " + col + " FROM [MappingCOA$] WHERE 1 = 1" + add,
                                       Request.PhysicalApplicationPath.Replace("\\financear\\", "\\root\\") + xls);

                        COA = rsCOA.Rows[0][0].ToString();

                        if (Akun.SingleInteger("SELECT COUNT(AccountID) FROM Account WHERE AccountID = '" + COA + "' AND Postable = 1") == 0)
                        {
                            isValid = false;
                            x.Append("No. TTS: " + rs.Rows[i]["NoTTS"].ToString().PadLeft(7, '0') + ", MAPPING COA TAGIHAN tidak terdaftar.<br />");
                            break;
                        }

                        Akun.CBDetail(
                            CBID
                            , SN
                            , COA
                            , 0
                            , Kredit
                            , 0
                            , ForexKredit
                            , Notes
                            );
                    }

                    if (!isValid)
                    {
                        Akun.Execute("DELETE FROM CB WHERE CBID = '" + CBID + "'");
                    }
                    else
                    {
                        //Update Status Akunting + NoVoucher TTS
                        Db.Execute("UPDATE MS_TTS SET Akunting = 1, TipePosting = " + TipePosting + ",AccDP = " + Cf.BoolToSql(AccDP) + ", NoVoucher = '" + CBID + "' WHERE NoTTS = " + Cf.Pk(rs.Rows[i]["NoTTS"]));

                        //Logfile
                        DataTable rsDetail = Db.Rs("SELECT * FROM MS_TTS WHERE NoTTS = " + Cf.Pk(rs.Rows[i]["NoTTS"]));
                        string    KetLog   = Cf.LogCapture(rsDetail);

                        Db.Execute("EXEC spLogTTS"
                                   + " 'ACC'"
                                   + ",'" + Act.UserID + "'"
                                   + ",'" + Act.IP + "'"
                                   + ",'" + KetLog + "'"
                                   + ",'" + Cf.Pk(rs.Rows[i]["NoTTS"]).PadLeft(7, '0') + "'"
                                   );
                    }
                }
            }

            if (x.ToString() != "")
            {
                err.Text = "<h2 style='border-top:1px dashed gray; padding-top:10'>Gagal posting:</h2>"
                           + "<div style='margin-left: 40px; padding-top: 10px;'>"
                           + x.ToString()
                           + "</div>"
                ;
            }
            else
            {
                Response.Redirect("Accounting.aspx?done=1");
            }
        }
Esempio n. 12
0
        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);
            }
        }
Esempio n. 13
0
        private void UpdateSkemaBaru()
        {
            if (barunama.Text != "")
            {
                string Nama = Cf.Str(barunama.Text);

                string Tipe = "";
                if (barubf.Checked)
                {
                    Tipe = "BF";
                }
                else if (barudp.Checked)
                {
                    Tipe = "DP";
                }
                else if (baruang.Checked)
                {
                    Tipe = "ANG";
                }

                decimal Nominal     = Convert.ToDecimal(barunominal.Text);
                string  TipeNominal = "";
                if (barupersen.Checked)
                {
                    TipeNominal = "%";
                }
                else
                {
                    TipeNominal = "F";
                }

                string TipeJadwal = "";
                if (barubln.Checked)
                {
                    TipeJadwal = "M";
                }
                else if (baruhr.Checked)
                {
                    TipeJadwal = "D";
                }
                else
                {
                    TipeJadwal = "F";
                }

                string TglFix    = "NULL";
                int    IntJadwal = 0;
                if (TipeJadwal == "F")
                {
                    TglFix = "'" + Cf.Str(Convert.ToDateTime(barulama.Text)) + "'";
                }
                else
                {
                    IntJadwal = Convert.ToInt32(barulama.Text);
                }

                int RefJadwal = Convert.ToInt32(barureferensi.Text);

                Db.Execute("EXEC " + Mi.DbPrefix + "MARKETINGJUAL..spSkemaTambah"
                           + "  " + Nomor
                           + ",'" + Tipe + "'"
                           + ",'" + Nama + "'"
                           + ", " + Nominal
                           + ",'" + TipeNominal + "'"
                           + ", " + TglFix
                           + ",'" + TipeJadwal + "'"
                           + ", " + IntJadwal
                           + ", " + RefJadwal
                           + ", " + Cf.BoolToSql(barupotong.Checked)
                           + ", '" + Nominal + "'"
                           //+ ", " + Cf.BoolToSql(kpr.Checked)
                           );
            }
        }
Esempio n. 14
0
        private bool Save()
        {
            if (valid())
            {
                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++)
                {
                    if (!Response.IsClientConnected)
                    {
                        break;
                    }

                    RadioButton bf  = (RadioButton)list.FindControl("bf_" + i);
                    RadioButton dp  = (RadioButton)list.FindControl("dp_" + i);
                    RadioButton ang = (RadioButton)list.FindControl("ang_" + i);
                    RadioButton adm = (RadioButton)list.FindControl("adm_" + i);
                    RadioButton dll = (RadioButton)list.FindControl("dll_" + i);

                    TextBox      namatagihan  = (TextBox)list.FindControl("nama_" + i);
                    TextBox      tgljt        = (TextBox)list.FindControl("tgl_" + i);
                    TextBox      nilaitagihan = (TextBox)list.FindControl("nilai_" + i);
                    CheckBox     kpr          = (CheckBox)list.FindControl("kpr_" + i);
                    DropDownList jenis        = (DropDownList)list.FindControl("jenis_" + i);
                    int          NoUrut       = Convert.ToInt32(rs.Rows[i]["NoUrut"]);

                    string Tipe = "";
                    if (bf.Checked)
                    {
                        Tipe = "BF";
                    }
                    else if (dp.Checked)
                    {
                        Tipe = "DP";
                    }
                    else if (ang.Checked)
                    {
                        Tipe = "ANG";
                    }
                    else
                    {
                        Tipe = "ADM";
                    }

                    string Jenis = "";

                    if (jenis.SelectedIndex == 0)
                    {
                        Jenis = rs.Rows[i]["Jenis"].ToString();
                    }
                    else
                    {
                        Jenis = jenis.SelectedItem.ToString();
                    }

                    string   Nama  = Cf.Str(namatagihan.Text);
                    DateTime TglJT = Convert.ToDateTime(tgljt.Text);
                    decimal  Nilai = Convert.ToDecimal(nilaitagihan.Text);
                    bool     KPR   = kpr.Checked;

                    string strSqlAnomali = "SELECT"
                                           + " NamaTagihan AS [Nama Tagihan]"
                                           + ", TglJT AS [Tgl. Jatuh Tempo]"
                                           + ", NilaiTagihan AS [Nilai]"
                                           + ", Tipe AS [Tipe]"
                                           + " FROM MS_TAGIHAN"
                                           + " WHERE NoKontrak = '" + NoKontrak + "'"
                                           + " AND NoUrut = " + NoUrut
                    ;
                    DataTable AnomaliBef = Db.Rs(strSqlAnomali);

                    Db.Execute("EXEC spTagihanEdit "
                               + " '" + NoKontrak + "'"
                               + ", " + NoUrut
                               + ",'" + Nama + "'"
                               + ",'" + TglJT + "'"
                               + ", " + Nilai
                               + ",'" + Tipe + "'"
                               );

                    //Response.Write(NoKontrak + " " + TglJT + " " + Nilai + "<br/>");

                    //Update manual
                    Db.Execute("UPDATE MS_TAGIHAN SET KPR = " + Cf.BoolToSql(KPR) + ", Jenis = '" + Jenis + "' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut);

                    /*Akunting*/
                    //					if(Tipe != rs.Rows[i]["Tipe"].ToString())
                    //					{
                    //						bool Akunting = Db.SingleBool("SELECT Akunting FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                    //
                    //						if(Akunting)
                    //						{
                    //							DataTable AnomaliAft = Db.Rs(strSqlAnomali);
                    //							string NoVoucher = Db.SingleString("SELECT NoVoucher FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                    //
                    //							Akun.InsertAnomali("JUAL", NoKontrak, Cf.LogCapture(AnomaliBef), Cf.LogCapture(AnomaliAft), "EDIT TAGIHAN", "", NoVoucher);
                    //						}
                    //					}
                    /**********/
                }

                Tambah();

                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 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---<br>"
                             + Cf.LogList(rsBef, rsAft, "JADWAL TAGIHAN");

                Db.Execute("EXEC spLogKontrak"
                           + " 'EJT'"
                           + ",'" + 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);

                Func.CekKomisi(NoKontrak);

                return(true);
            }
            else
            {
                return(false);
            }
        }
Esempio n. 15
0
        public static string[,] Breakdown(int Nomor, decimal Netto, DateTime TglKontrak)
        {
            DataTable rs = Db.Rs("SELECT * "
                                 + " FROM REF_SKEMA_DETAIL"
                                 + " WHERE Nomor = " + Nomor
                                 + " ORDER BY Baris"
                                 );

            string[,] x = new string[rs.Rows.Count, 6];

            decimal totalbf  = 0;
            int     potongbf = 0;

            for (int i = 0; i < rs.Rows.Count; i++)
            {
                x[i, 0] = rs.Rows[i]["Baris"].ToString();
                x[i, 1] = rs.Rows[i]["Tipe"].ToString();
                x[i, 2] = rs.Rows[i]["Nama"].ToString();

                //jadwal
                DateTime Tgl = TglKontrak;
                if (rs.Rows[i]["TglFix"] is DBNull)
                {
                    string tipejadwal = rs.Rows[i]["TipeJadwal"].ToString();
                    int    intjadwal  = Convert.ToInt32(rs.Rows[i]["IntJadwal"]);
                    int    refjadwal  = Convert.ToInt32(rs.Rows[i]["RefJadwal"]);

                    DateTime TglReferensi = TglKontrak;
                    if (refjadwal != 0)
                    {
                        try
                        {
                            TglReferensi = Convert.ToDateTime(x[refjadwal - 1, 3]);
                        }
                        catch { }
                    }

                    if (tipejadwal == "M")
                    {
                        Tgl = TglReferensi.AddMonths(intjadwal); //bulanan
                    }
                    else
                    {
                        Tgl = TglReferensi.AddDays(intjadwal); //harian
                    }
                }
                else
                {
                    Tgl = Convert.ToDateTime(rs.Rows[i]["TglFix"]); //Fix
                }
                x[i, 3] = Cf.Day(Tgl);

                //nominal
                string  tipenominal = rs.Rows[i]["TipeNominal"].ToString();
                decimal nominal     = Convert.ToDecimal(rs.Rows[i]["Nominal"]);

                decimal n = nominal;
                if (tipenominal == "%")
                {
                    n = Netto * (nominal / 100);
                }

                x[i, 4] = Cf.Num(n);

                if (rs.Rows[i]["Tipe"].ToString() == "BF")
                {
                    totalbf = totalbf + n;
                }

                if ((bool)rs.Rows[i]["BF"])
                {
                    potongbf++;
                }

                x[i, 5] = Cf.BoolToSql(Convert.ToBoolean(rs.Rows[i]["KPR"])).ToString();
            }

            //pemotongan booking fee
            if (potongbf > 0)
            {
                decimal bf = totalbf / potongbf;
                for (int i = 0; i < rs.Rows.Count; i++)
                {
                    if ((bool)rs.Rows[i]["BF"])
                    {
                        decimal tagihan = Convert.ToDecimal(x[i, 4]);
                        x[i, 4] = Cf.Num(tagihan - bf);
                    }
                }
            }

            //pembulatan ribuan
            bool    RThousand = Db.SingleBool("SELECT RThousand FROM REF_SKEMA WHERE Nomor = " + Nomor);
            decimal t         = 0;

            for (int i = 0; i < rs.Rows.Count; i++)
            {
                if (i != rs.Rows.Count - 1)
                {
                    decimal native  = Convert.ToDecimal(x[i, 4]);
                    decimal rounded = 0;
                    if (RThousand)
                    {
                        rounded = RoundThousand(native);
                    }
                    else
                    {
                        rounded = RoundSatuan(native);
                    }
                    t = t + rounded;

                    x[i, 4] = Cf.Num(rounded);
                }
                else
                {
                    decimal sisa = Netto - t;

                    x[i, 4] = Cf.Num(sisa);
                }
            }

            return(x);
        }
Esempio n. 16
0
        private bool Save()
        {
            if (valid())
            {
                DataTable bef = Db.Rs("SELECT "
                                      + " Zoning"
                                      + ",ArahHadap AS [Arah Hadap]"
                                      + ",Panorama"
                                      + ",Panjang"
                                      + ",Lebar"
                                      + ",Tinggi"
                                      + ",LuasSG AS [Luas Tanah]"
                                      + ",LuasNett AS [Luas Bangunan]"
                                      + ",HadapAtrium AS [Hadap Atrium/Void]"
                                      + ",HadapEntrance AS [Hadap Entrance]"
                                      + ",HadapEskalator AS [Hadap Eskalator]"
                                      + ",HadapLift AS [Hadap Lift]"
                                      + ",HadapParkir AS [Hadap Parkir]"
                                      + ",HadapAxis AS [Hadap Axis]"
                                      + ",Hook AS [Hook]"
                                      + ",LebarJalan AS [Lebar Jalan]"
                                      + ",Outdoor AS [Outdoor]"
                                      + ",NamaJalan AS [Nama Jalan]"
                                      + " FROM MS_UNIT "
                                      + " WHERE NoStock = '" + NoStock + "'");

                string  Zoning     = Cf.Str(zoning.Text);
                string  ArahHadap  = Cf.Str(arahhadap.Text);
                string  Panorama   = Cf.Str(panorama.Text);
                decimal Panjang    = Convert.ToDecimal(panjang.Text);
                decimal Lebar      = Convert.ToDecimal(lebar.Text);
                decimal Tinggi     = Convert.ToDecimal(tinggi.Text);
                decimal LuasSG     = Convert.ToDecimal(luassg.Text);
                decimal LuasNett   = Convert.ToDecimal(luasnett.Text);
                decimal LebarJalan = Convert.ToDecimal(lebarjalan.Text);

                decimal HargaGimmick  = Convert.ToDecimal(hargagimmick.Text);
                decimal HargaLainLain = Convert.ToDecimal(hargalainlain.Text);
                string  NamaJalan     = NJ.Text;

                Db.Execute("EXEC spUnitEditSpek"
                           + " '" + NoStock + "'"
                           + ",'" + Zoning + "'"
                           + ", " + Panjang
                           + ", " + Lebar
                           + ", " + Tinggi
                           + ", " + LuasSG
                           + ", " + LuasNett
                           + ", " + Cf.BoolToSql(HadapAtrium.Checked)
                           + ", " + Cf.BoolToSql(HadapEntrance.Checked)
                           + ", " + Cf.BoolToSql(HadapEskalator.Checked)
                           + ", " + Cf.BoolToSql(HadapLift.Checked)
                           + ", " + Cf.BoolToSql(HadapParkir.Checked)
                           + ", " + Cf.BoolToSql(HadapAxis.Checked)
                           + ", " + Cf.BoolToSql(Hook.Checked)
                           + ", " + LebarJalan
                           + ", " + Cf.BoolToSql(outdoor.Checked)
                           + ",'" + ArahHadap + "'"
                           + ",'" + Panorama + "'"
                           );

                Db.Execute("UPDATE MS_UNIT SET TambahanHargaGimmick = '" + HargaGimmick + "', TambahanHargaLainLain = '" + HargaLainLain + "',NamaJalan = '" + NamaJalan + "' WHERE NoStock = '" + NoStock + "'  ");

                DataTable kon = Db.Rs("SELECT * FROM MS_KONTRAK WHERE NoStock = '" + NoStock + "' AND Status = 'A'");
                if (kon.Rows.Count > 0)
                {
                    Db.Execute("UPDATE MS_KONTRAK SET Revisi = Revisi + 1 WHERE NoKontrak = '" + kon.Rows[0]["NoKontrak"].ToString() + "'");
                }

                DataTable aft = Db.Rs("SELECT "
                                      + " Zoning"
                                      + ",ArahHadap AS [Arah Hadap]"
                                      + ",Panorama"
                                      + ",Panjang"
                                      + ",Lebar"
                                      + ",Tinggi"
                                      + ",LuasSG AS [Luas Tanah]"
                                      + ",LuasNett AS [Luas Bangunan]"
                                      + ",HadapAtrium AS [Hadap Atrium/Void]"
                                      + ",HadapEntrance AS [Hadap Entrance]"
                                      + ",HadapEskalator AS [Hadap Eskalator]"
                                      + ",HadapLift AS [Hadap Lift]"
                                      + ",HadapParkir AS [Hadap Parkir]"
                                      + ",HadapAxis AS [Hadap Axis]"
                                      + ",Hook AS [Hook]"
                                      + ",LebarJalan AS [Lebar Jalan]"
                                      + ",Outdoor AS [Outdoor]"
                                      + ",NamaJalan AS [Nama Jalan]"
                                      + " FROM MS_UNIT "
                                      + " WHERE NoStock = '" + NoStock + "'");

                //Logfile
                string Ket = Cf.LogCompare(bef, aft);

                Db.Execute("EXEC spLogUnit"
                           + " 'EDIT'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + Ket + "'"
                           + ",'" + NoStock + "'"
                           );

                return(true);
            }
            else
            {
                return(false);
            }
        }
Esempio n. 17
0
        protected void ok_Click(object sender, System.EventArgs e)
        {
            if (Valid())
            {
                bool StatusBerkas = false;
                if (status.SelectedValue == "1")
                {
                    StatusBerkas = true;
                }

                string CheckListDokumen     = "";
                System.Text.StringBuilder x = new System.Text.StringBuilder();

                for (int i = 0; i < umum.Items.Count; i++)
                {
                    if (umum.Items[i].Selected)
                    {
                        x.Append(umum.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < pn.Items.Count; i++)
                {
                    if (pn.Items[i].Selected)
                    {
                        x.Append(pn.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < swasta.Items.Count; i++)
                {
                    if (swasta.Items[i].Selected)
                    {
                        x.Append(swasta.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < wira.Items.Count; i++)
                {
                    if (wira.Items[i].Selected)
                    {
                        x.Append(wira.Items[i].Text + ";");
                    }
                }

                for (int i = 0; i < lain.Items.Count; i++)
                {
                    if (lain.Items[i].Selected)
                    {
                        x.Append(lain.Items[i].Text + ";");
                    }
                }

                CheckListDokumen = x.ToString();

                DataTable rsBef = Db.Rs("SELECT "
                                        + "CheckListDokumen AS [Check List Dokumen]"
                                        + ", StatusBerkas AS [StatusBerkas]"
                                        //+ ", ISNULL(TglSelesaiBerkas,0) AS [Tgl. Selesai Berkas]"
                                        + " FROM MS_KONTRAK"
                                        + " WHERE NoKontrak = '" + NoKontrak + "'"
                                        );

                if (tgl.Text != "")
                {
                    DateTime Tgl = Convert.ToDateTime(tgl.Text);
                    Db.Execute("UPDATE MS_KONTRAK"
                               + " SET CheckListDokumen = '" + CheckListDokumen + "'"
                               + ", StatusBerkas = " + Cf.BoolToSql(StatusBerkas)
                               + ", TglSelesaiBerkas = '" + Tgl + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );
                }
                else
                {
                    Db.Execute("UPDATE MS_KONTRAK"
                               + " SET CheckListDokumen = '" + CheckListDokumen + "'"
                               + ", StatusBerkas = " + Cf.BoolToSql(StatusBerkas)
                               //+ ", TglSelesaiBerkas = '" + null + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );
                }

                DataTable rsAft = Db.Rs("SELECT "
                                        + "CheckListDokumen AS [Check List Dokumen]"
                                        + ", StatusBerkas AS [StatusBerkas]"
                                        //+ ", TglSelesaiBerkas AS [Tgl. Selesai Berkas]"
                                        + " FROM MS_KONTRAK"
                                        + " WHERE NoKontrak = '" + NoKontrak + "'"
                                        );

                string Ket = Cf.LogCompare(rsBef, rsAft);

                Db.Execute("EXEC spLogKontrak"
                           + " 'KPACLB'"
                           + ",'" + 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);

                if (Request.QueryString["NoKontrak"] != null)
                {
                    this.RegisterStartupScript(
                        "focusScript"
                        , "<script language='javascript' type='text/javascript'>"
                        + "window.close();"
                        + "</script>"
                        );
                }
                else
                {
                    Response.Redirect("KontrakBerkas.aspx?done=" + NoKontrak);
                }
            }
        }
Esempio n. 18
0
        protected void save_Click(object sender, System.EventArgs e)
        {
            if (filevalid())
            {
                if (valid())
                {
                    if (pass.Text.Length < 8)
                    {
                        passc.Text      = "Password baru harus tediri dari minimal 8 karakter.";
                        passc.ForeColor = Color.Red;
                    }
                    else
                    {
                        passc.Text = "";

                        string Nama       = Cf.Str(nama.Text);
                        string SecLevel   = seclevel.SelectedValue;
                        string Password   = passMD5.Text;
                        string Email      = email.Text;
                        int    RotasiPass = Convert.ToInt32(rotasipass.Text);
                        int    NoAgent    = Convert.ToInt32(agent.SelectedValue);

                        Db.Execute("EXEC spUserDaftar"
                                   + " '" + UserID + "'"
                                   + ",'" + Password + "'"
                                   + ",'" + Nama + "'"
                                   + ",'" + SecLevel + "'"
                                   + ", " + Cf.BoolToSql(gantipass.Checked)
                                   + ", " + RotasiPass
                                   );

                        if (file.PostedFile.FileName.Length != 0)
                        {
                            string path = Request.PhysicalApplicationPath + "Foto\\" + UserID + ".png";
                            Dfc.UploadFile(".jpg", path, file);
                            Db.Execute("UPDATE USERNAME SET Foto = '" + path + "' WHERE UserID = '" + UserID + "'");
                        }
                        Db.Execute("UPDATE USERNAME SET Email = '" + Email + "' WHERE UserID = '" + UserID + "'");

                        DataTable rs = Db.Rs("SELECT "
                                             + " UserID AS [Kode / Username]"
                                             + ",Nama AS [Nama Lengkap]"
                                             + ",SecLevel AS [Security Level]"
                                             + ",Email AS [Email]"
                                             + ",Foto AS [Foto]"
                                             + ",GantiPass AS [Rubah Password di Login Pertama]"
                                             + ",RotasiPass AS [Frekuensi Rotasi Password (Bulanan)]"
                                             + ",NoAgent AS [Kode Sales]"
                                             + " FROM USERNAME WHERE UserID = '" + UserID + "'");

                        Db.Execute("EXEC spLogUsername"
                                   + " 'PUB'"
                                   + ",'" + Act.UserID + "'"
                                   + ",'" + Act.IP + "'"
                                   + ",'" + Cf.LogCapture(rs) + "'"
                                   + ",'" + UserID + "'"
                                   );

                        Response.Redirect("Pendaftaran.aspx?done=" + UserID);
                    }
                }
            }
        }
Esempio n. 19
0
        private void SaveTagihan()
        {
            int     CaraBayar = Convert.ToInt32(skema.SelectedValue);
            decimal PPN = 0, Netto = 0;

            if (CaraBayar != 0)
            {
                string RumusDiskon  = diskon2.Text;
                string RumusDiskon2 = Db.SingleString(
                    "SELECT DiskonKet FROM REF_SKEMA WHERE Nomor = " + CaraBayar);
                string RumusBunga  = bunga2.Text;
                string RumusBunga2 = "";

                decimal Gross = Db.SingleDecimal(
                    "SELECT isnull(sum(Gross),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                decimal surcharge = Convert.ToDecimal(Surcharge.Text);
                decimal disawal   = Db.SingleDecimal("SELECT isnull(sum(DiskonRupiah),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");

                decimal bung   = Db.SingleDecimal("SELECT isnull(sum(BungaNominal),0) FROM MS_KONTRAK WHERE  NoKontrak = '" + NoKontrak + "'");
                decimal Gross2 = Gross;

                decimal GrossAfterDiskon  = Func.SetelahDiskon(RumusDiskon, Gross2);
                decimal GrossAfterBunga   = Func.SetelahBunga(RumusBunga, Gross2);
                decimal HargaSetelahBunga = GrossAfterDiskon + bung;
                decimal hrgsetelahdisc    = 0;
                Netto = (CaraBayar != 0) ? Func.SetelahDiskon(RumusDiskon, Gross) : Gross;

                /* DISKON TAMBAHAN SAAT CLOSING */
                decimal DiskonTambahan = 0;
                if (jenisDiskon.SelectedIndex == 0)
                {       //Diskon lum sum
                    DiskonTambahan = Convert.ToDecimal(diskonLumpSum.Text);
                }
                else if (jenisDiskon.SelectedIndex == 1)
                {       //Diskon % bertingkat
                    decimal  coba = 0, totaldisc = 0;
                    string[] DiscTambahPersen = diskontambahPersen.Text.Split('+');
                    decimal  dpp = Netto;

                    if (diskontambahPersen.Text != "")
                    {
                        for (int a = 0; a <= DiscTambahPersen.GetUpperBound(0); a++)
                        {
                            coba       = Math.Round(Convert.ToDecimal(DiscTambahPersen[a]) * dpp / (decimal)100);
                            dpp       -= coba;
                            totaldisc += coba;
                        }
                    }
                    else
                    {
                        totaldisc = 0;
                    }

                    DiskonTambahan = totaldisc;
                }

                Db.Execute("UPDATE MS_KONTRAK"
                           + " SET DiskonTambahan = " + DiskonTambahan
                           + " WHERE NoKontrak = '" + NoKontrak + "'");

                Netto -= DiskonTambahan;
                /********************************/

                decimal distambah         = Db.SingleDecimal("SELECT isnull(sum(DiskonTambahan),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                decimal afterDiscTambahan = HargaSetelahBunga - distambah;

                decimal NilaiKontrak            = afterDiscTambahan;
                decimal DPP                     = Math.Round(NilaiKontrak / (decimal)1.1);
                decimal NilaiPPN                = 0;
                decimal PPNDitanggungPemerintah = 0;

                if (JenisPPN.SelectedValue == "KONSUMEN")
                {
                    PPNDitanggungPemerintah = 0;
                    NilaiPPN = NilaiKontrak - DPP;
                }
                else
                {
                    PPNDitanggungPemerintah = DPP * (decimal)0.1;
                    NilaiPPN = 0;
                }

                Db.Execute("EXEC spKontrakDiskon"
                           + " '" + NoKontrak + "'"
                           + ", " + Gross
                           + ", " + NilaiKontrak
                           + ",'" + RumusDiskon + "'"
                           + ",'" + Cf.Str(RumusDiskon2) + "'"
                           );

                Db.Execute("UPDATE MS_KONTRAK SET DiskonRupiah = '" + nilaiDiskon.Text + "' "
                           + " WHERE NoKontrak = '" + NoKontrak + "'");

                Db.Execute("EXEC spKontrakBunga"
                           + " '" + NoKontrak + "'"
                           + ", " + Gross2
                           + ", " + NilaiKontrak
                           + ",'" + RumusBunga + "'"
                           + ",'" + Cf.Str(RumusBunga2) + "'"
                           );

                Db.Execute("UPDATE MS_KONTRAK"
                           + " SET "
                           + " NilaiDPP = " + DPP
                           + " ,NilaiPPN = " + NilaiPPN
                           + " WHERE NoKontrak = '" + NoKontrak + "'");

                decimal nilaitg = Db.SingleDecimal("select isnull(sum(nilaikontrak),0) from ms_kontrak WHERE NoKontrak = '" + NoKontrak + "'");
                foreach (var r in Func.ListTagihan(CaraBayar, nilaitg, Convert.ToDateTime(tglKontrak.Text)))
                {
                    if (!Response.IsClientConnected)
                    {
                        break;
                    }

                    Db.Execute("EXEC spTagihanDaftar"
                               + " '" + NoKontrak + "'"
                               + ",'" + r.NamaTagihan + "'"
                               + ",'" + r.TglJt + "'"
                               + ",'" + r.NilaiTagihan + "'"
                               + ",'" + r.TipeTagihan + "'"
                               );

                    int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
                    Db.Execute("UPDATE MS_TAGIHAN"
                               + " SET KPR = " + Cf.BoolToSql(r.isKPR)
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               + " AND NoUrut = " + NoUrut
                               );
                }

                //string[,] x = Func.Breakdown(CaraBayar, nilaitg, Convert.ToDateTime(tglKontrak.Text));
                //for (int i = 0; i <= x.GetUpperBound(0); i++)
                //{
                //    if (!Response.IsClientConnected) break;

                //    Db.Execute("EXEC spTagihanDaftar"
                //        + " '" + NoKontrak + "'"
                //        + ",'" + x[i, 2] + "'"
                //        + ",'" + Convert.ToDateTime(x[i, 3]) + "'"
                //        + ", " + Convert.ToDecimal(x[i, 4])
                //        + ",'" + x[i, 1] + "'"
                //        );

                //    int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
                //    Db.Execute("UPDATE MS_TAGIHAN"
                //        + " SET KPR = " + x[i, 5]
                //        + " WHERE NoKontrak = '" + NoKontrak + "'"
                //        + " AND NoUrut = " + NoUrut
                //        );
                //}
            }
            else
            {
                string RumusBunga  = bunga2.Text;
                string RumusBunga2 = "";

                decimal Gross = Db.SingleDecimal(
                    "SELECT isnull(sum(Gross),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                decimal surcharge = Convert.ToDecimal(Surcharge.Text);
                decimal disawal   = Db.SingleDecimal("SELECT isnull(sum(DiskonRupiah),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");

                decimal bung   = Db.SingleDecimal("SELECT isnull(sum(BungaNominal),0) FROM MS_KONTRAK WHERE  NoKontrak = '" + NoKontrak + "'");
                decimal Gross2 = Gross;

                decimal GrossAfterDiskon        = Gross2;
                decimal GrossAfterBunga         = Func.SetelahBunga(RumusBunga, Gross2);
                decimal HargaSetelahBunga       = GrossAfterDiskon + bung;
                decimal NilaiPPN                = 0;
                decimal NilaiKontrak            = 0;
                decimal hrgsetelahdisc          = 0;
                decimal PPNDitanggungPemerintah = 0;
                Netto = Gross;

                /* DISKON TAMBAHAN SAAT CLOSING */
                decimal DiskonTambahan = 0;
                if (jenisDiskon.SelectedIndex == 0)
                {       //Diskon lum sum
                    DiskonTambahan = Convert.ToDecimal(diskonLumpSum.Text);
                }
                else if (jenisDiskon.SelectedIndex == 1)
                {       //Diskon % bertingkat
                    decimal  coba = 0, totaldisc = 0;
                    string[] DiscTambahPersen = diskontambahPersen.Text.Split('+');
                    decimal  dpp = Netto;

                    if (diskontambahPersen.Text != "")
                    {
                        for (int a = 0; a <= DiscTambahPersen.GetUpperBound(0); a++)
                        {
                            coba       = Math.Round(Convert.ToDecimal(DiscTambahPersen[a]) * dpp / (decimal)100);
                            dpp       -= coba;
                            totaldisc += coba;
                        }
                    }
                    else
                    {
                        totaldisc = 0;
                    }

                    DiskonTambahan = totaldisc;
                }

                Db.Execute("UPDATE MS_KONTRAK"
                           + " SET DiskonTambahan = " + DiskonTambahan
                           + " WHERE NoKontrak = '" + NoKontrak + "'");

                Netto -= DiskonTambahan;
                /********************************/

                decimal distambah         = Db.SingleDecimal("SELECT isnull(sum(DiskonTambahan),0) FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                decimal afterDiscTambahan = HargaSetelahBunga - distambah;
                decimal DPP = Math.Round(afterDiscTambahan / (decimal)1.1);

                if (JenisPPN.SelectedValue == "KONSUMEN")
                {
                    PPNDitanggungPemerintah = 0;
                    NilaiPPN = afterDiscTambahan - DPP;
                }
                else
                {
                    PPNDitanggungPemerintah = DPP * (decimal)0.1;
                    NilaiPPN = 0;
                }

                Db.Execute("EXEC spKontrakDiskon"
                           + " '" + NoKontrak + "'"
                           + ", " + Gross
                           + ", " + afterDiscTambahan
                           + ",''"
                           + ",''"
                           );

                Db.Execute("UPDATE MS_KONTRAK SET DiskonRupiah = '" + nilaiDiskon.Text + "' "
                           + " WHERE NoKontrak = '" + NoKontrak + "'");

                Db.Execute("EXEC spKontrakBunga"
                           + " '" + NoKontrak + "'"
                           + ", " + Gross2
                           + ", " + NilaiKontrak
                           + ",'" + RumusBunga + "'"
                           + ",'" + Cf.Str(RumusBunga2) + "'"
                           );

                Db.Execute("UPDATE MS_KONTRAK"
                           + " SET "
                           + " NilaiDPP = " + DPP
                           + " ,NilaiPPN = " + NilaiPPN
                           + " WHERE NoKontrak = '" + NoKontrak + "'");
            }
        }
Esempio n. 20
0
        private bool Save(DataTable rs, int i)
        {
            string  NoStock = "";
            string  Jenis   = Cf.Str(rs.Rows[i][0]);
            string  Lokasi  = Cf.Str(rs.Rows[i][1]);
            string  Lantai  = Cf.Str(rs.Rows[i][2]);
            string  Nomor   = Cf.Str(rs.Rows[i][3]);
            decimal Luas    = Convert.ToDecimal(rs.Rows[i][4]);
            //string Project = Cf.Str(rs.Rows[i][23]);
            string Kategori = Cf.Str(rs.Rows[i][23]);
            string ParamID  = "FormatLantai" + project.SelectedValue;
            string ParamID2 = "FormatUnit" + project.SelectedValue;

            string strSql  = Db.SingleString("SELECT Value FROM [ISC064_SECURITY].[dbo].[REF_PARAM] WHERE ParamID = '" + ParamID + "'");
            string strSql2 = Db.SingleString("SELECT Value FROM [ISC064_SECURITY].[dbo].[REF_PARAM] WHERE ParamID = '" + ParamID2 + "'");

            string NoUnit = Lokasi + strSql + Lantai + strSql2 + Nomor;

            bool   x    = true;
            string Aksi = "";

            if (Db.SingleInteger("SELECT COUNT(*) FROM MS_UNIT WHERE NoUnit = '" + NoUnit + "'") == 0)
            {
                Aksi    = "DAFTAR";
                NoStock = AutoID();

                Db.Execute("EXEC spUnitDaftar "
                           + " '" + NoStock + "'"
                           + ",'" + Jenis + "'"
                           + ",'" + Lokasi + "'"
                           + ",'" + NoUnit + "'"
                           + ", " + Luas
                           );
            }
            else if (overwrite.Checked)
            {
                Aksi    = "EDIT";
                NoStock = Db.SingleString("SELECT NoStock FROM MS_UNIT WHERE NoUnit = '" + NoUnit + "'");

                Db.Execute("EXEC spUnitEdit"
                           + " '" + NoStock + "'"
                           + ",'" + Jenis + "'"
                           + ",'" + Lokasi + "'"
                           + ",'" + NoUnit + "'"
                           + ", " + Luas
                           + ", '" + Lantai + "'"
                           + ", '" + Nomor + "'"
                           );
            }
            else
            {
                x = false;
            }

            if (x)
            {
                decimal PriceListMin = Convert.ToDecimal(rs.Rows[i][5]);
                decimal PriceListRmh = Convert.ToDecimal(rs.Rows[i][6]);
                decimal PriceListKav = Convert.ToDecimal(rs.Rows[i][7]);
                decimal BiayaBPHTB   = Convert.ToDecimal(rs.Rows[i][8]);
                decimal BiayaSurat   = Convert.ToDecimal(rs.Rows[i][9]);
                decimal BiayaProses  = Convert.ToDecimal(rs.Rows[i][10]);
                decimal BiayaLain    = Convert.ToDecimal(rs.Rows[i][11]);
                string  NamaJalan    = Cf.Str(rs.Rows[i][24]); if (NamaJalan == "NA")
                {
                    NamaJalan = "";
                }
                decimal BiayaTanah = Convert.ToDecimal(rs.Rows[i][25]);

                Db.Execute("EXEC spUnitPriceList"
                           + " '" + NoStock + "'"
                           + ", " + PriceListMin
                           + ", " + PriceListRmh
                           );

                Db.Execute("UPDATE MS_UNIT SET"
                           + " BiayaBPHTB = '" + BiayaBPHTB + "'"
                           + ",BiayaSurat = '" + BiayaSurat + "'"
                           + ",BiayaProses = '" + BiayaProses + "'"
                           + ",BiayaLainLain = '" + BiayaLain + "'"
                           + ",HargaTanah = '" + BiayaTanah + "'"
                           + ",PricelistKavling = '" + PriceListKav + "'"
                           + ",NamaJalan = '" + NamaJalan + "'"
                           + " WHERE NoStock = '" + NoStock + "'"
                           );

                Db.Execute("EXEC spPriceListHistory"
                           + " '" + NoStock + "'"
                           + ", " + PriceListMin
                           + ", " + PriceListRmh
                           + ", " + PriceListKav
                           + ",'" + DateTime.Today + "'"
                           );

                string Zoning = Cf.Str(rs.Rows[i][12]); if (Zoning == "NA")
                {
                    Zoning = "";
                }
                decimal Panjang   = Convert.ToDecimal(rs.Rows[i][13]);
                decimal Lebar     = Convert.ToDecimal(rs.Rows[i][14]);
                decimal Tinggi    = Convert.ToDecimal(rs.Rows[i][15]);
                decimal LuasSG    = Convert.ToDecimal(rs.Rows[i][16]);
                decimal LuasNett  = Convert.ToDecimal(rs.Rows[i][18]);
                decimal LuasLebih = Convert.ToDecimal(rs.Rows[i][17]);

                bool HadapAtrium    = false;
                bool HadapEntrance  = false;
                bool HadapEskalator = false;
                bool HadapLift      = false;
                bool HadapParkir    = false;
                bool HadapAxis      = false;
                bool Hook           = false;

                decimal LebarJalan = Convert.ToDecimal(rs.Rows[i][19]);

                bool Outdoor = false;

                string ArahHadap = Cf.Str(rs.Rows[i][20]); if (ArahHadap == "NA")
                {
                    ArahHadap = "";
                }
                string Panorama = Cf.Str(rs.Rows[i][21]); if (Panorama == "NA")
                {
                    Panorama = "";
                }
                string JenisProperti = Cf.Str(rs.Rows[i][22]); if (JenisProperti == "Apartment")
                {
                    JenisProperti = "";
                }

                Db.Execute("EXEC spUnitEditSpek"
                           + " '" + NoStock + "'"
                           + ",'" + Zoning + "'"
                           + ", " + Panjang
                           + ", " + Lebar
                           + ", " + Tinggi
                           + ", " + LuasSG
                           + ", " + LuasNett
                           + ", " + Cf.BoolToSql(HadapAtrium)
                           + ", " + Cf.BoolToSql(HadapEntrance)
                           + ", " + Cf.BoolToSql(HadapEskalator)
                           + ", " + Cf.BoolToSql(HadapLift)
                           + ", " + Cf.BoolToSql(HadapParkir)
                           + ", " + Cf.BoolToSql(HadapAxis)
                           + ", " + Cf.BoolToSql(Hook)
                           + ", " + LebarJalan
                           + ", " + Cf.BoolToSql(Outdoor)
                           + ",'" + ArahHadap + "'"
                           + ",'" + Panorama + "'"
                           + ",'" + JenisProperti + "'"
                           + ",'" + Kategori + "'"
                           );

                Db.Execute("UPDATE MS_UNIT SET"
                           + " LuasLebih = '" + LuasLebih + "'"
                           + " WHERE NoStock = '" + NoStock + "'"
                           );

                //Response.Write(Kategori);
                //int SifatPPN = (Kategori.ToUpper() == "REAL ESTATE") ? 1 : 0;
                int SifatPPN;
                if (Kategori == "REAL ESTATE")
                {
                    SifatPPN = 1;
                }
                else if (Kategori == "KOMERSIL")
                {
                    SifatPPN = 1;
                }
                else
                {
                    SifatPPN = 0;
                }
                string No = Db.SingleString("SELECT TOP 1 NoStock FROM MS_UNIT ORDER BY NoStock DESC");
                Db.Execute("UPDATE MS_UNIT SET Project='" + project.SelectedValue + "',Lantai = '" + Lantai + "',SifatPPN = " + SifatPPN + ",Nomor='" + Nomor + "' WHERE NoStock = '" + No + "'");

                DataTable log = Db.Rs("SELECT "
                                      + " NoStock AS [No. Stock]"
                                      + ",Jenis AS [Jenis]"
                                      + ",Lokasi AS [Lokasi]"
                                      + ",NoUnit AS [Unit]"
                                      + ",Kategori AS [Kategori Unit]"
                                      + ",Lantai AS [Blok]"
                                      + ",Nomor"
                                      + ",Luas AS [Luas]"
                                      + ",PriceListMin AS [Price List Minimum]"
                                      + ",PriceList AS [Price List Rumah]"
                                      + ",PricelistKavling AS [Price List Kavling]"
                                      + ",BiayaBPHTB AS [Biaya BPHTB]"
                                      + ",BiayaSurat AS [Biaya Surat]"
                                      + ",BiayaProses AS [Biaya Proses]"
                                      + ",BiayaLainLain AS [Biaya Lain-Lain]"
                                      + ",HargaTanah AS [Harga Tanah]"
                                      + ",Zoning"
                                      + ",Panjang"
                                      + ",Lebar"
                                      + ",Tinggi"
                                      + ",LuasSG AS [Luas Tanah]"
                                      + ",LuasLebih AS [Luas Lebih Tanah]"
                                      + ",LuasNett AS [Luas Bangunan]"
                                      + ",HadapAtrium AS [Hadap Atrium/Void]"
                                      + ",HadapEntrance AS [Hadap Entrance]"
                                      + ",HadapEskalator AS [Hadap Eskalator]"
                                      + ",HadapLift AS [Hadap Lift]"
                                      + ",HadapParkir AS [Hadap Parkir]"
                                      + ",HadapAxis AS [Hadap Axis]"
                                      + ",Hook AS [Hook]"
                                      + ",LebarJalan AS [Lebar Jalan]"
                                      + ",Outdoor AS [Outdoor]"
                                      + ",NamaJalan AS [Nama Jalan]"
                                      + ",ArahHadap AS [Arah Hadap]"
                                      + ",Panorama"
                                      + ",JenisProperti"
                                      + " FROM MS_UNIT"
                                      + " WHERE NoStock = '" + NoStock + "'"
                                      );

                Db.Execute("EXEC spLogUnit"
                           + " '" + Aksi + "'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + Cf.LogCapture(log) + "'"
                           + ",'" + NoStock + "'"
                           );

                decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_UNIT_LOG ORDER BY LogID DESC");
                Db.Execute("UPDATE MS_UNIT_LOG SET Project = '" + project.Text + "' WHERE LogID  = " + LogID);
            }

            return(x);
        }