Ejemplo n.º 1
0
        private void Tampil()
        {
            list.Visible    = true;
            reprint.Visible = false;
            Js.AutoPrint(this);

            //increment
            Db.Execute("UPDATE MS_KASMASUK SET PrintKM = PrintKM + 1 WHERE NoVoucher = " + NoVoucher);

            //Logfile
            DataTable rs = Db.Rs("SELECT "
                                 + " NoVoucher AS [No. Voucher]"
                                 + ",CONVERT(varchar,Tgl,106) AS Tgl"
                                 + ",Acc AS [No. Account]"
                                 + ",CaraBayar AS [Cara Bayar]"
                                 + ",AlatBayar AS [Alat Bayar]"
                                 + ",DiterimaDari AS [Diterima Dari]"
                                 + ",Keterangan"
                                 + ",Nilai"
                                 + " FROM MS_KASMASUK WHERE NoVoucher = " + NoVoucher);

            Db.Execute("EXEC spLogKasMasuk"
                       + " 'P-KM'"
                       + ",'" + Act.UserID + "'"
                       + ",'" + Act.IP + "'"
                       + ",'" + Cf.LogCapture(rs) + "'"
                       + ",'" + NoVoucher.ToString().PadLeft(5, '0') + "'"
                       );
        }
Ejemplo n.º 2
0
        private void Valid(string Username)
        {
            Session["SalahPass"] = null;

            //Logfile otorisasi
            DataTable rs = Db.Rs("SELECT "
                                 + " NoVoucher AS [No. Voucher]"
                                 + ",CONVERT(varchar,Tgl,106) AS Tgl"
                                 + ",Acc AS [No. Account]"
                                 + ",CaraBayar AS [Cara Bayar]"
                                 + ",AlatBayar AS [Alat Bayar]"
                                 + ",DiterimaDari AS [Diterima Dari]"
                                 + ",Keterangan"
                                 + ",Nilai"
                                 + " FROM MS_KASMASUK WHERE NoVoucher = " + NoVoucher);

            Db.Execute("EXEC spLogKasMasuk"
                       + " 'R-KM'"
                       + ",'" + Username + "'"
                       + ",'" + Act.IP + "'"
                       + ",'" + Cf.LogCapture(rs) + "'"
                       + ",'" + NoVoucher.ToString().PadLeft(5, '0') + "'"
                       );

            Tampil();
        }
Ejemplo n.º 3
0
        private void Fill()
        {
            btnlog.Attributes["onclick"] = "location.href='LogPk.aspx?Tb=MS_KASMASUK_LOG&Pk=" + NoVoucher.ToString().PadLeft(5, '0') + "'";

            printKM.HRef = "PrintKM.aspx?NoVoucher=" + NoVoucher;

            string strSql = "SELECT * "
                            + " FROM MS_KASMASUK WHERE NoVoucher = " + NoVoucher;
            DataTable rs = Db.Rs(strSql);

            if (rs.Rows.Count == 0)
            {
                Response.Redirect("/CustomError/Deleted.html");
            }
            else
            {
                no.InnerHtml  = NoVoucher.ToString().PadLeft(5, '0');
                tglinput.Text = Cf.Date(rs.Rows[0]["TglInput"]);
                tgl.Text      = Cf.Day(rs.Rows[0]["Tgl"]);

                acc.Items.Add(new ListItem("Tidak berubah: " + rs.Rows[0]["Acc"].ToString(), rs.Rows[0]["Acc"].ToString()));
                acc.SelectedValue = rs.Rows[0]["Acc"].ToString();

                try
                {
                    carabayar.SelectedValue = rs.Rows[0]["CaraBayar"].ToString();
                }
                catch
                {
                    carabayar.SelectedIndex = 0;
                }

                alatbayar.Text    = rs.Rows[0]["AlatBayar"].ToString();
                diterimadari.Text = rs.Rows[0]["DiterimaDari"].ToString();
                keterangan.Text   = rs.Rows[0]["Keterangan"].ToString();

                nilai.Text = Cf.Num(rs.Rows[0]["Nilai"]);
            }
        }
Ejemplo n.º 4
0
        private bool Save()
        {
            if (valid())
            {
                DateTime Tgl          = Convert.ToDateTime(tgl.Text);
                string   Acc          = Cf.Str(acc.SelectedValue);
                string   CaraBayar    = Cf.Str(carabayar.SelectedValue);
                string   AlatBayar    = Cf.Str(alatbayar.Text);
                string   DiterimaDari = Cf.Str(diterimadari.Text);
                string   Keterangan   = Cf.Str(keterangan.Text);
                decimal  Nilai        = Convert.ToDecimal(nilai.Text);

                DataTable rs = Db.Rs("SELECT "
                                     + " NoVoucher AS [No.]"
                                     + " FROM MS_KASMASUK"
                                     + " WHERE NoVoucher = " + NoVoucher
                                     );

                DataTable rsBef = Db.Rs("SELECT "
                                        + " NoVoucher AS [No. Voucher]"
                                        + ",CONVERT(varchar,Tgl,106) AS Tgl"
                                        + ",Acc AS [No. Account]"
                                        + ",CaraBayar AS [Cara Bayar]"
                                        + ",AlatBayar AS [Alat Bayar]"
                                        + ",DiterimaDari AS [Diterima Dari]"
                                        + ",Keterangan"
                                        + ",Nilai"
                                        + " FROM MS_KASMASUK"
                                        + " WHERE NoVoucher = " + NoVoucher
                                        );

                Db.Execute("EXEC spKasMasukEdit"
                           + "  " + NoVoucher
                           + ",'" + Tgl + "'"
                           + ",'" + Acc + "'"
                           + ",'" + CaraBayar + "'"
                           + ",'" + AlatBayar + "'"
                           + ",'" + DiterimaDari + "'"
                           + ",'" + Keterangan + "'"
                           + ", " + Nilai
                           );

                DataTable rsAft = Db.Rs("SELECT "
                                        + " NoVoucher AS [No. Voucher]"
                                        + ",CONVERT(varchar,Tgl,106) AS Tgl"
                                        + ",Acc AS [No. Account]"
                                        + ",CaraBayar AS [Cara Bayar]"
                                        + ",AlatBayar AS [Alat Bayar]"
                                        + ",DiterimaDari AS [Diterima Dari]"
                                        + ",Keterangan"
                                        + ",Nilai"
                                        + " FROM MS_KASMASUK"
                                        + " WHERE NoVoucher = " + NoVoucher
                                        );

                //Logfile
                string ketlog = Cf.LogCapture(rs)
                                + Cf.LogCompare(rsBef, rsAft);

                Db.Execute("EXEC spLogKasMasuk"
                           + " 'EDIT'"
                           + ",'" + Act.UserID + "'"
                           + ",'" + Act.IP + "'"
                           + ",'" + ketlog + "'"
                           + ",'" + NoVoucher.ToString().PadLeft(5, '0') + "'"
                           );

                return(true);
            }
            else
            {
                return(false);
            }
        }