Exemple #1
0
        protected void save_Click(object sender, System.EventArgs e)
        {
            if (datavalid())
            {
                int      c       = Db.SingleInteger("SELECT COUNT(*) FROM MS_AJB WHERE NoKontrak = '" + NoKontrak + "'");
                DateTime TglAJB  = Convert.ToDateTime(tglajb.Text);
                string   Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                string   status  = "D"; // B = Belum, S = Target, D = AJB, T = Tanda Tangan

                if (c == 0)
                {
                    string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");

                    if (NoAJB == "")
                    {
                        NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project);
                    }

                    Db.Execute("EXEC spAJB "
                               + " '" + NoKontrak + "'"
                               + ",'" + NoAJB + "'"
                               + ",'" + TglAJB + "'"
                               );

                    Db.Execute("UPDATE MS_AJB SET Project = '" + Project + "' WHERE NoAJB = '" + NoAJB + "'");



                    Db.Execute("UPDATE MS_AJB SET"
                               + " AJBu=" + ajbused.SelectedValue
                               + " ,NoAJBm='" + noajbm.Text + "'"
                               + " ,AJB='" + status + "'"
                               + ",TglAJB='" + tglajb.Text + "'"
                               + ",NamaNotaris='" + notaris.Text + "'"
                               + ",KetAJB ='" + keterangan.Text + "'"
                               + ",Biaya ='" + nilaibiaya.Text + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );

                    Db.Execute("UPDATE MS_KONTRAK SET AJB = 'D',TglAJB='" + tglajb.Text + "' WHERE NoKontrak = '" + NoKontrak + "'");
                    decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text);
                    if (NilaiBiaya != 0)
                    {
                        Db.Execute("EXEC spTagihanDaftar "
                                   + " '" + NoKontrak + "'"
                                   + ",'BIAYA ADM. AJB'"
                                   + ",'" + TglAJB + "'"
                                   + ", " + NilaiBiaya
                                   + ",'ADM'"
                                   );

                        int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
                        Db.Execute("UPDATE MS_TAGIHAN SET Jenis = 'AJB' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut);
                    }
                    DataTable rs = Db.Rs("SELECT"
                                         + " A.NoKontrak AS [No. Kontrak]"
                                         + ",B.NoUnit AS [Unit]"
                                         + ",C.Nama AS [Customer]"
                                         + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]"
                                         + ",CONVERT(varchar, A.TglAJB, 106) AS [Tanggal AJB]"
                                         + ",PersenLunas AS [Prosentase Pelunasan]"
                                         + ",A.Biaya"
                                         + ",A.KetAJB"
                                         + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]"
                                         + " FROM MS_AJB A INNER JOIN MS_KONTRAK B"
                                         + " ON A.NoKontrak = B.NoKontrak"
                                         + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer"
                                         + " WHERE A.NoKontrak = '" + NoKontrak + "'");

                    string ket = Cf.LogCapture(rs)
                                 + "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
                    ;

                    Db.Execute("EXEC spLogKontrak "
                               + " 'AJB'"
                               + ",'" + Act.UserID + "'"
                               + ",'" + Act.IP + "'"
                               + ",'" + ket + "'"
                               + ",'" + NoKontrak + "'"
                               );
                    decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
                    Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID  = " + LogID);
                }
                else
                {
                    string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                    if (NoAJB == "")
                    {
                        NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project);
                    }

                    Db.Execute("UPDATE MS_AJB SET"
                               + " AJBu=" + ajbused.SelectedValue
                               + ",NoAJB= '" + NoAJB + "'"
                               + ",NoAJBm='" + noajbm.Text + "'"
                               + ",TglAJB='" + tglajb.Text + "'"
                               + ",AJB='" + status + "'"
                               + ",NamaNotaris='" + notaris.Text + "'"
                               + ",KetAJB ='" + keterangan.Text + "'"
                               + ",Biaya =" + Convert.ToDecimal(nilaibiaya.Text)
                               + ",Project = '" + Project + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );

                    decimal NilaiBiaya = Convert.ToDecimal(nilaibiaya.Text);
                    if (NilaiBiaya != 0)
                    {
                        Db.Execute("EXEC spTagihanDaftar "
                                   + " '" + NoKontrak + "'"
                                   + ",'BIAYA ADM. AJB'"
                                   + ",'" + TglAJB + "'"
                                   + ", " + NilaiBiaya
                                   + ",'ADM'"
                                   );

                        int NoUrut = Db.SingleInteger("SELECT TOP 1 NoUrut FROM MS_TAGIHAN WHERE NoKontrak = '" + NoKontrak + "' ORDER BY NoUrut DESC");
                        Db.Execute("UPDATE MS_TAGIHAN SET Jenis = 'AJB' WHERE NoKontrak = '" + NoKontrak + "' AND NoUrut = " + NoUrut);
                    }
                    Db.Execute("UPDATE MS_KONTRAK SET AJB = 'D',TglAJB='" + tglajb.Text + "' WHERE NoKontrak = '" + NoKontrak + "'");
                    DataTable rs = Db.Rs("SELECT"
                                         + " A.NoKontrak AS [No. Kontrak]"
                                         + ",B.NoUnit AS [Unit]"
                                         + ",C.Nama AS [Customer]"
                                         + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]"
                                         + ",CONVERT(varchar, A.TglAJB, 106) AS [Tanggal AJB]"
                                         + ",PersenLunas AS [Prosentase Pelunasan]"
                                         + ",A.Biaya"
                                         + ",A.KetAJB"
                                         + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]"
                                         + " FROM MS_AJB A INNER JOIN MS_KONTRAK B"
                                         + " ON A.NoKontrak = B.NoKontrak"
                                         + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer"
                                         + " WHERE A.NoKontrak = '" + NoKontrak + "'");

                    string ket = Cf.LogCapture(rs)
                                 + "<br>Biaya Administrasi : " + Cf.Num(NilaiBiaya)
                    ;

                    Db.Execute("EXEC spLogKontrak "
                               + " 'AJB'"
                               + ",'" + Act.UserID + "'"
                               + ",'" + Act.IP + "'"
                               + ",'" + ket + "'"
                               + ",'" + NoKontrak + "'"
                               );
                    decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
                    Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID  = " + LogID);
                }
                if (dariReminder.Checked)
                {
                    Response.Redirect("ReminderAJB.aspx?done=" + NoKontrak + "&project=" + Project);
                }
                else
                {
                    Response.Redirect("KontrakAJB.aspx?done=" + NoKontrak);
                }
            }
        }
        protected void save_Click(object sender, System.EventArgs e)
        {
            if (datavalid())
            {
                int      c       = Db.SingleInteger("SELECT COUNT(*) FROM MS_AJB WHERE NoKontrak = '" + NoKontrak + "'");
                string   Project = Db.SingleString("SELECT Project FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                DateTime TglAJB  = Convert.ToDateTime(tgltarget.Text);
                string   status  = "S"; // B = Belum, S = Target, D = AJB, T = Tanda Tangan

                if (c == 0)
                {
                    string NoAJB = Db.SingleString("SELECT NoAJB FROM MS_KONTRAK WHERE NoKontrak = '" + NoKontrak + "'");
                    if (NoAJB == "")
                    {
                        NoAJB = Numerator.AJB(TglAJB.Month, TglAJB.Year, Project);
                    }

                    Db.Execute("EXEC spAJB "
                               + " '" + NoKontrak + "'"
                               + ",'" + NoAJB + "'"
                               + ",''"
                               );

                    Db.Execute("UPDATE MS_AJB SET Project = '" + Project + "' WHERE NoAJB = '" + NoAJB + "'");

                    Db.Execute("UPDATE MS_AJB SET"
                               //+ " AJBu=" + ajbused.SelectedValue
                               + " AJB='" + status + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );

                    if (tgltarget.Text != "")
                    {
                        Db.Execute("UPDATE MS_AJB SET TglTargetAJB='" + Convert.ToDateTime(tgltarget.Text) + "' WHERE NoKontrak = '" + NoKontrak + "'");
                    }
                    DataTable rs = Db.Rs("SELECT"
                                         + " A.NoKontrak AS [No. Kontrak]"
                                         + ",B.NoUnit AS [Unit]"
                                         + ",C.Nama AS [Customer]"
                                         + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]"
                                         + ",PersenLunas AS [Prosentase Pelunasan]"
                                         + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]"
                                         + " FROM MS_AJB A INNER JOIN MS_KONTRAK B"
                                         + " ON A.NoKontrak = B.NoKontrak"
                                         + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer"
                                         + " WHERE A.NoKontrak = '" + NoKontrak + "'");

                    string ket = Cf.LogCapture(rs)
                    ;

                    Db.Execute("EXEC spLogKontrak "
                               + " 'T-AJB'"
                               + ",'" + Act.UserID + "'"
                               + ",'" + Act.IP + "'"
                               + ",'" + ket + "'"
                               + ",'" + NoKontrak + "'"
                               );
                    decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
                    Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID  = " + LogID);
                }
                else
                {
                    Db.Execute("UPDATE MS_AJB SET"
                               + " AJB='" + status + "'"
                               + " WHERE NoKontrak = '" + NoKontrak + "'"
                               );

                    if (tgltarget.Text != "")
                    {
                        Db.Execute("UPDATE MS_AJB SET TglTargetAJB='" + Convert.ToDateTime(tgltarget.Text) + "' WHERE NoKontrak = '" + NoKontrak + "'");
                    }


                    DataTable rs = Db.Rs("SELECT"
                                         + " A.NoKontrak AS [No. Kontrak]"
                                         + ",B.NoUnit AS [Unit]"
                                         + ",C.Nama AS [Customer]"
                                         + ",CONVERT(varchar, A.TglTargetAJB, 106) AS [Tanggal Target AJB]"
                                         + ",PersenLunas AS [Prosentase Pelunasan]"
                                         + ", case when A.AJB='S' then 'Target AJB' when A.AJB='D' then 'AJB' when A.AJB='B' then 'Belum AJB' else 'Tanda Tangan AJB' end as [Status AJB]"
                                         + " FROM MS_AJB A INNER JOIN MS_KONTRAK B"
                                         + " ON A.NoKontrak = B.NoKontrak"
                                         + " INNER JOIN MS_CUSTOMER C ON B.NoCustomer = C.NoCustomer"
                                         + " WHERE A.NoKontrak = '" + NoKontrak + "'");

                    string ket = Cf.LogCapture(rs)
                    ;

                    Db.Execute("EXEC spLogKontrak "
                               + " 'T-AJB'"
                               + ",'" + Act.UserID + "'"
                               + ",'" + Act.IP + "'"
                               + ",'" + ket + "'"
                               + ",'" + NoKontrak + "'"
                               );
                    decimal LogID = Db.SingleDecimal("SELECT TOP 1 LogID FROM MS_KONTRAK_LOG ORDER BY LogID DESC");
                    Db.Execute("UPDATE MS_KONTRAK_LOG SET Project = '" + Project + "' WHERE LogID  = " + LogID);
                }
                if (dariReminder.Checked)
                {
                    Response.Redirect("ReminderAJB.aspx?done=" + NoKontrak);
                }
                else
                {
                    Response.Redirect("KontrakAJBTarget.aspx?done=" + NoKontrak);
                }
            }
        }