Пример #1
0
        public string abrirArquivoPDF(int CodAnexo, bool Wait, bool SomenteGerar)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            System.Data.DataTable tblArq = new System.Data.DataTable();

            SqlParameter pCodigo = new SqlParameter("@COD_ANEXO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_ANEXO"].Value = CodAnexo;
            sCommand.CommandText = "SELECT NOME, ARQUIVO FROM EXCEL_TITULO_ANEXOS WHERE COD_ANEXO = @COD_ANEXO";

            tblArq = clFuncoes.ExecReader(sCommand);
            string nomeArq = "";

            if (tblArq.Rows.Count > 0)
            {
                nomeArq = clFuncoes.GetProperties("fTempDirUsuario").ToString() + tblArq.Rows[0]["NOME"].ToString();
                byte[] arquivo = (byte[])tblArq.Rows[0]["ARQUIVO"];

                clFuncoes.SalvaArquivo(@nomeArq, arquivo);
            }

            if (!SomenteGerar)
            {
                if (File.Exists(@nomeArq))
                {
                    clFuncoes.ExecProcess(@nomeArq, Wait);
                }
            }

            return(@nomeArq);
        }
Пример #2
0
        public string salvaArquivoExcel(int CodExcel)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            System.Data.DataTable tblArq = new System.Data.DataTable();

            SqlParameter pCodigo = new SqlParameter("@COD_EXCEL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_EXCEL"].Value = CodExcel;
            sCommand.CommandText = "SELECT NOME, ARQUIVO FROM EXCEL WHERE COD_EXCEL = @COD_EXCEL";

            tblArq = clFuncoes.ExecReader(sCommand);

            string nomeArq = "";

            if (tblArq.Rows.Count > 0)
            {
                nomeArq = clFuncoes.GetProperties("fTempDirUsuario").ToString() + tblArq.Rows[0]["NOME"].ToString();
                byte[] arquivo = (byte[])tblArq.Rows[0]["ARQUIVO"];

                clFuncoes.SalvaArquivo(@nomeArq, arquivo);
            }

            return(@nomeArq);
        }
Пример #3
0
        public string delAssinatura(int CodUsuario, int CodTitulo, string Mail)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodUsuario = new SqlParameter("@COD_USUARIO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodUsuario);
            sCommand.Parameters["@COD_USUARIO"].Value = CodUsuario;

            SqlParameter pCodTitulo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodTitulo);
            sCommand.Parameters["@COD_TITULO"].Value = CodTitulo;

            SqlParameter pMail = new SqlParameter("@MAIL", System.Data.SqlDbType.VarChar, 100);

            sCommand.Parameters.Add(pMail);
            sCommand.Parameters["@MAIL"].Value = Mail;

            sCommand.CommandText = "DELETE FROM EXCEL_TITULO_ASSINATURAS WHERE COD_USUARIO = @COD_USUARIO AND COD_TITULO = @COD_TITULO AND EMAIL = @MAIL";

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #4
0
        public string setGrupo(string Tipo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_GRUPO", System.Data.SqlDbType.VarChar, 10);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_GRUPO"].Value = fcod_grupo;

            SqlParameter pNome = new SqlParameter("@NOME", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pNome);
            sCommand.Parameters["@NOME"].Value = fnome;

            if (Tipo == "Incluir")
            {
                sCommand.CommandText = "INSERT INTO GRUPOS (COD_GRUPO, NOME)" +
                                       " VALUES (" +
                                       "  @COD_GRUPO" +
                                       ", @NOME )";
            }
            else
            {
                sCommand.CommandText = "UPDATE GRUPOS" +
                                       " SET NOME = @NOME" +
                                       " WHERE COD_GRUPO = @COD_GRUPO";
            }

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #5
0
        public bool ValidaLogin(int CodUsuario, DateTime DtMovto)
        {
            bool lRetorno = false;

            ClassWebBI.Dados.ClassParametros clParametros = new Dados.ClassParametros();
            clParametros.getParametro();

            ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            DataTable tblUsuarios = new DataTable();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pUsuario = new SqlParameter("@COD_USUARIO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pUsuario);
            sCommand.Parameters["@COD_USUARIO"].Value = CodUsuario;

            sCommand.CommandText = "SELECT COD_USUARIO, NOME, USUARIO, SENHA, ENDERECO_MAIL, ADMINISTRADOR FROM USUARIOS" +
                                   " WHERE COD_USUARIO = @COD_USUARIO";

            tblUsuarios = clFuncoes.ExecReader(sCommand);

            if (tblUsuarios.Rows.Count > 0)
            {
                lRetorno = true;

                if (DtMovto > clParametros.fdt_limite_atualizacao)
                {
                    DtMovto = clParametros.fdt_limite_atualizacao;
                }

                clFuncoes.SetProperties("fData", DtMovto.ToShortDateString());
                clFuncoes.SetProperties("fCodUsuario", Convert.ToInt32(tblUsuarios.Rows[0]["COD_USUARIO"].ToString()));
                clFuncoes.SetProperties("fNomeUsuario", tblUsuarios.Rows[0]["NOME"].ToString());
                clFuncoes.SetProperties("fAdministrador", Convert.ToBoolean(tblUsuarios.Rows[0]["ADMINISTRADOR"].ToString()));
                clFuncoes.SetProperties("fMail", tblUsuarios.Rows[0]["ENDERECO_MAIL"].ToString());
                clFuncoes.SetProperties("fUsuario", tblUsuarios.Rows[0]["USUARIO"].ToString());
                clFuncoes.SetProperties("fSenha", tblUsuarios.Rows[0]["SENHA"].ToString());

                string sDir = clFuncoes.GetProperties("fTempDir").ToString();
                if (!File.Exists(@sDir))
                {
                    Directory.CreateDirectory(@sDir);
                }

                sDir = clFuncoes.GetProperties("fTempDir").ToString() + "\\" + clFuncoes.GetProperties("fUsuario").ToString();
                if (!File.Exists(@sDir))
                {
                    Directory.CreateDirectory(@sDir);
                }

                sDir = sDir + "\\";
                clFuncoes.SetProperties("fTempDirUsuario", @sDir);
            }

            return(lRetorno);
        }
Пример #6
0
        public void LimpaDiretorioUsuarioLogado()
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            string sDir = clFuncoes.GetProperties("fTempDirUsuario").ToString();

            try
            {
                Directory.Delete(sDir, true);
            }
            catch
            {
            }
        }
Пример #7
0
        private void Inicializa()
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            lblVersao.Text  = AssemblyVersion;
            lblData.Text    = Convert.ToDateTime(clFuncoes.GetProperties("fData")).ToString("dd/MM/yyyy");
            lblUsuario.Text = clFuncoes.GetProperties("fUsuario").ToString() + " - " +
                              clFuncoes.GetProperties("fNomeUsuario").ToString() +
                              " (" + clFuncoes.GetProperties("fMail").ToString() + ")";

            if (DateTime.Today.ToString("dd/MM/yyyy") != lblData.Text)
            {
                lblData.ForeColor = Color.Red;
            }
        }
Пример #8
0
        static void GeraPDFAll()
        {
            ClassWebBI.Dados.ClassExcel clExcel = new ClassWebBI.Dados.ClassExcel();

            DataTable tblAnexos = new DataTable();

            SqlCommand sCommand = new SqlCommand("SELECT COD_TITULO, ATIVO FROM EXCEL_TITULOS WHERE ATIVO = 1 ORDER BY COD_TITULO");

            tblAnexos = new ClassWebBI.ClassFuncoes().ExecReader(sCommand);

            for (int i = 0; i <= tblAnexos.Rows.Count - 1; i++)
            {
                clExcel.gerarPDF(Convert.ToInt32(tblAnexos.Rows[i]["COD_TITULO"].ToString()), true);
            }
        }
Пример #9
0
        static void AtualizaExcelAll()
        {
            ClassWebBI.Dados.ClassExcel clExcel = new ClassWebBI.Dados.ClassExcel();

            DataTable tblExcel = new DataTable();

            SqlCommand sCommand = new SqlCommand("SELECT COD_EXCEL, ATIVO FROM EXCEL WHERE ATIVO = 1 ORDER BY COD_EXCEL");

            tblExcel = new ClassWebBI.ClassFuncoes().ExecReader(sCommand);

            for (int i = 0; i <= tblExcel.Rows.Count - 1; i++)
            {
                clExcel.atualizaExcel(Convert.ToInt32(tblExcel.Rows[i]["COD_EXCEL"].ToString()));
            }
        }
Пример #10
0
        public string delTitulo(int CodTitulo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_TITULO"].Value = CodTitulo;
            sCommand.CommandText = "DELETE FROM EXCEL_TITULOS WHERE COD_TITULO = @COD_TITULO";

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #11
0
        public string delUsuario(int CodUsuario)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodUsuario = new SqlParameter("@COD_USUARIO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodUsuario);
            sCommand.Parameters["@COD_USUARIO"].Value = CodUsuario;
            sCommand.CommandText = "DELETE FROM USUARIOS WHERE COD_USUARIO = @COD_USUARIO";

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #12
0
        public string delExcel(int CodExcel)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodExcel = new SqlParameter("@COD_EXCEL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodExcel);
            sCommand.Parameters["@COD_EXCEL"].Value = CodExcel;
            sCommand.CommandText = "DELETE FROM EXCEL WHERE COD_EXCEL = @COD_EXCEL";

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #13
0
        public string delGrupo(string CodGrupo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodGrupo = new SqlParameter("@COD_GRUPO", System.Data.SqlDbType.VarChar, 10);

            sCommand.Parameters.Add(pCodGrupo);
            sCommand.Parameters["@COD_GRUPO"].Value = CodGrupo;
            sCommand.CommandText = "DELETE FROM GRUPOS WHERE COD_GRUPO = @COD_GRUPO";

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #14
0
        public FormPrincipal(string[] args)
        {
            InitializeComponent();

            this.Text = AssemblyTitle + " - " + AssemblyVersion;

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            string[] vVersao = AssemblyVersion.Split(new char[] { '.' });
            string   sVersao = vVersao[0] + vVersao[1];

            clFuncoes.LeConfig();

            FormLogin frmLogin = new FormLogin(args[1].ToString(), args[2].ToString());

            frmLogin.ShowDialog();
        }
Пример #15
0
        public FormPrincipal()
        {
            InitializeComponent();

            this.Text = AssemblyTitle + " - " + AssemblyVersion;

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            string[] vVersao = AssemblyVersion.Split(new char[] { '.' });
            string   sVersao = vVersao[0] + vVersao[1];

            clFuncoes.LeConfig();
            clFuncoes.InicializaBancoDados(Convert.ToInt32(sVersao));

            FormLogin frmLogin = new FormLogin();

            frmLogin.ShowDialog();
        }
Пример #16
0
        private void btnConfirmar_Click(object sender, EventArgs e)
        {
            if (edtDe.Text == "")
            {
                MessageBox.Show("Configure o usuário de origem !", "Atenção", MessageBoxButtons.OK, MessageBoxIcon.Warning);
                return;
            }

            if (cbxPara.Text == "")
            {
                MessageBox.Show("Informe o usuário de destino !", "Informações", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }

            if (edtAssunto.Text == "")
            {
                MessageBox.Show("Informe o assunto !", "Informações", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }

            if (edtMensagem.Text == "")
            {
                MessageBox.Show("Informe a mensagem !", "Informações", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }

            ClassWebBI.ClassFuncoes        clFuncoes  = new ClassWebBI.ClassFuncoes();
            ClassWebBI.Dados.ClassUsuarios clUsuarios = new ClassWebBI.Dados.ClassUsuarios();

            clUsuarios.getUsuario(Convert.ToInt32(clFuncoes.GetProperties("fCodUsuario").ToString()));

            clFuncoes.EnviaMail(clUsuarios.fservidor_mail,
                                clUsuarios.fporta_mail,
                                clUsuarios.fendereco_mail,
                                cbxPara.Text,
                                edtAssunto.Text,
                                edtMensagem.Text,
                                clUsuarios.fusuario_mail,
                                clUsuarios.fsenha_mail,
                                clUsuarios.fssl,
                                edtAnexo.Text);

            this.DialogResult = System.Windows.Forms.DialogResult.OK;
        }
Пример #17
0
        public bool podeEnviarMail()
        {
            bool lPode = false;

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            DateTime dData = Convert.ToDateTime(clFuncoes.GetProperties("fData"));

            if (ftipo_envio == "S")
            {
                lPode = testaDiaSemana(dData);
            }

            if (ftipo_envio == "M")
            {
                lPode = testaDiaMes(dData);
            }

            return(lPode);
        }
Пример #18
0
        public int getMaxCodExcel()
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            sCommand.Parameters.Clear();
            sCommand.CommandText = "SELECT MAX(COD_EXCEL) AS NUM_EXCEL FROM EXCEL";

            string sAux = clFuncoes.ExecScalar(sCommand);

            int iCodigo = 1;

            try
            {
                iCodigo = Convert.ToInt32(sAux) + 1;
            }
            catch
            {
            }

            return(iCodigo);
        }
Пример #19
0
        public void Inicializa()
        {
            DataTable tblAssinaturas = new DataTable();

            ClassWebBI.ClassFuncoes           clFuncoes     = new ClassWebBI.ClassFuncoes();
            ClassWebBI.Dados.ClassExcel       clExcel       = new ClassWebBI.Dados.ClassExcel();
            ClassWebBI.Dados.ClassTitulos     clTitulos     = new ClassWebBI.Dados.ClassTitulos();
            ClassWebBI.Dados.ClassParametros  clParametros  = new ClassWebBI.Dados.ClassParametros();
            ClassWebBI.Dados.ClassAssinaturas clAssinaturas = new ClassWebBI.Dados.ClassAssinaturas();

            clParametros.getParametro();
            clTitulos.getTitulo(iCodTitulo);
            clExcel.getExcel(clTitulos.fcod_excel);

            edtDe.Text = clFuncoes.GetProperties("fMail").ToString();

            edtAssunto.Text  = clParametros.fmail_assunto;
            edtMensagem.Text = clParametros.fmail_mensagem;

            if (clExcel.fmail_mensagem != "")
            {
                edtMensagem.Text = clExcel.fmail_mensagem;
            }

            if (clExcel.fmail_assunto != "")
            {
                edtAssunto.Text = clExcel.fmail_assunto;
            }

            edtAnexo.Text = clExcel.abrirArquivoPDF(iCodAnexo, false, true);

            tblAssinaturas = clAssinaturas.getAssinaturas(iCodTitulo, "USUARIOS.MAIL");

            for (int i = 0; i <= tblAssinaturas.Rows.Count - 1; i++)
            {
                cbxPara.Items.Add(tblAssinaturas.Rows[i]["MAIL"].ToString());
            }
        }
Пример #20
0
        private void btnParametros_Click(object sender, EventArgs e)
        {
            if (Convert.ToBoolean(new ClassWebBI.ClassFuncoes().GetProperties("fAdministrador")) == false)
            {
                MessageBox.Show("Usuário não tem permissão para realizar esta ação.", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information);
                return;
            }

            FormParametros frmParametros = new FormParametros();

            frmParametros.ShowDialog();

            ClassWebBI.Dados.ClassParametros clParametros = new ClassWebBI.Dados.ClassParametros();
            clParametros.getParametro();

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            if (Convert.ToDateTime(clFuncoes.GetProperties("fData")) > clParametros.fdt_limite_atualizacao)
            {
                clFuncoes.SetProperties("fData", clParametros.fdt_limite_atualizacao.ToShortDateString());
                Inicializa();
            }
        }
Пример #21
0
        static void EnviaMailAll()
        {
            string sAnexo      = "";
            string sMail       = "";
            int    iCodAnexo   = 0;
            int    iCodTitulo  = 0;
            int    iCodUsuario = 0;
            string sEMail      = "";
            string sAssunto    = "";
            string sMensagem   = "";

            ClassWebBI.Dados.ClassExcel       clExcel       = new ClassWebBI.Dados.ClassExcel();
            ClassWebBI.Dados.ClassAssinaturas clAssinaturas = new ClassWebBI.Dados.ClassAssinaturas();
            ClassWebBI.Dados.ClassUsuarios    clUsuarios    = new ClassWebBI.Dados.ClassUsuarios();
            ClassWebBI.ClassFuncoes           clFuncoes     = new ClassWebBI.ClassFuncoes();
            ClassWebBI.Dados.ClassParametros  clParametros  = new ClassWebBI.Dados.ClassParametros();

            clParametros.getParametro();

            DataTable tblTitulos     = new DataTable();
            DataTable tblAnexos      = new DataTable();
            DataTable tblAssinaturas = new DataTable();

            SqlCommand sCommand = new SqlCommand();

            sCommand.CommandText = "SELECT COD_TITULO, COD_EXCEL FROM EXCEL_TITULOS WHERE EXCEL_TITULOS.ATIVO = 1";
            tblTitulos           = new ClassWebBI.ClassFuncoes().ExecReader(sCommand);

            for (int i = 0; i <= tblTitulos.Rows.Count - 1; i++)
            {
                clExcel.getExcel(Convert.ToInt32(tblTitulos.Rows[i]["COD_EXCEL"].ToString()));

                SqlCommand sCommand1 = new SqlCommand();

                SqlParameter pTitulo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);
                sCommand1.Parameters.Add(pTitulo);
                sCommand1.Parameters["@COD_TITULO"].Value = Convert.ToInt32(tblTitulos.Rows[i]["COD_TITULO"].ToString());

                sCommand1.CommandText = "SELECT COD_ANEXO, COD_TITULO" +
                                        " FROM EXCEL_TITULO_ANEXOS" +
                                        " WHERE COD_TITULO = @COD_TITULO" +
                                        " ORDER BY DT_GERACAO DESC";

                tblAnexos = new ClassWebBI.ClassFuncoes().ExecReader(sCommand1);

                sCommand1.Dispose();

                iCodAnexo  = Convert.ToInt32(tblAnexos.Rows[0]["COD_ANEXO"].ToString());
                iCodTitulo = Convert.ToInt32(tblAnexos.Rows[0]["COD_TITULO"].ToString());
                sAnexo     = clExcel.abrirArquivoPDF(iCodAnexo, false, true);

                tblAssinaturas = clAssinaturas.getAssinaturas(iCodTitulo, "");

                for (int a = 0; a <= tblAssinaturas.Rows.Count - 1; a++)
                {
                    if (Convert.ToBoolean(tblAssinaturas.Rows[a]["ATIVO"]))
                    {
                        iCodUsuario = Convert.ToInt32(tblAssinaturas.Rows[a]["COD_USUARIO"].ToString());
                        sEMail      = Convert.ToString(tblAssinaturas.Rows[a]["EMAIL"].ToString());

                        clAssinaturas.getAssinatura(iCodUsuario, iCodTitulo, sEMail);

                        if (clAssinaturas.podeEnviarMail())
                        {
                            clUsuarios.getUsuario(iCodUsuario);

                            sMail = tblAssinaturas.Rows[a]["EMAIL"].ToString();

                            sAssunto  = clParametros.fmail_assunto;
                            sMensagem = clParametros.fmail_mensagem;

                            if (clExcel.fmail_assunto != "")
                            {
                                sAssunto = clExcel.fmail_assunto;
                            }

                            if (clExcel.fmail_mensagem != "")
                            {
                                sMensagem = clExcel.fmail_mensagem;
                            }

                            clFuncoes.EnviaMail(clUsuarios.fservidor_mail,
                                                clUsuarios.fporta_mail,
                                                clUsuarios.fendereco_mail,
                                                sMail,
                                                sAssunto,
                                                sMensagem,
                                                clUsuarios.fusuario_mail,
                                                clUsuarios.fsenha_mail,
                                                clUsuarios.fssl,
                                                sAnexo);
                        }
                    }
                }
            }
        }
Пример #22
0
        public string setAssinatura(string Tipo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodUsuario = new SqlParameter("@COD_USUARIO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodUsuario);
            sCommand.Parameters["@COD_USUARIO"].Value = fcod_usuario;

            SqlParameter pCodTitulo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodTitulo);
            sCommand.Parameters["@COD_TITULO"].Value = fcod_titulo;

            SqlParameter pAtivo = new SqlParameter("@ATIVO", System.Data.SqlDbType.Bit);

            sCommand.Parameters.Add(pAtivo);
            sCommand.Parameters["@ATIVO"].Value = fativo;

            SqlParameter pMail = new SqlParameter("@EMAIL_ALTERNATIVO", System.Data.SqlDbType.VarChar, 100);

            sCommand.Parameters.Add(pMail);
            sCommand.Parameters["@EMAIL_ALTERNATIVO"].Value = femail_alternativo;

            SqlParameter pTipoEnvio = new SqlParameter("@TIPO_ENVIO", System.Data.SqlDbType.VarChar, 1);

            sCommand.Parameters.Add(pTipoEnvio);
            sCommand.Parameters["@TIPO_ENVIO"].Value = ftipo_envio;

            SqlParameter pDias = new SqlParameter("@DIAS_ENVIO", System.Data.SqlDbType.VarChar, 100);

            sCommand.Parameters.Add(pDias);
            sCommand.Parameters["@DIAS_ENVIO"].Value = fdias_envio;

            if (Tipo == "Incluir")
            {
                sCommand.CommandText = "INSERT INTO EXCEL_TITULO_ASSINATURAS (COD_USUARIO, COD_TITULO, TIPO_ENVIO, DIAS_ENVIO, ATIVO, EMAIL_ALTERNATIVO)" +
                                       " VALUES (" +
                                       "  @COD_USUARIO" +
                                       ", @COD_TITULO" +
                                       ", @TIPO_ENVIO" +
                                       ", @DIAS_ENVIO" +
                                       ", @ATIVO" +
                                       ", @EMAIL_ALTERNATIVO)";
            }
            else
            {
                sCommand.CommandText = "UPDATE EXCEL_TITULO_ASSINATURAS" +
                                       "  SET ATIVO = @ATIVO" +
                                       ", TIPO_ENVIO = @TIPO_ENVIO" +
                                       ", DIAS_ENVIO = @DIAS_ENVIO" +
                                       ", EMAIL_ALTERNATIVO = @EMAIL_ALTERNATIVO" +
                                       " WHERE COD_USUARIO = @COD_USUARIO" +
                                       "   AND COD_TITULO = @COD_TITULO";
            }

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #23
0
        public string setExcel(string Tipo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_EXCEL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_EXCEL"].Value = fcod_excel;

            SqlParameter pNome = new SqlParameter("@NOME", System.Data.SqlDbType.VarChar, 100);

            sCommand.Parameters.Add(pNome);
            sCommand.Parameters["@NOME"].Value = fnome;

            SqlParameter pGrupo = new SqlParameter("@COD_GRUPO", System.Data.SqlDbType.VarChar, 10);

            sCommand.Parameters.Add(pGrupo);
            sCommand.Parameters["@COD_GRUPO"].Value = fcod_grupo;

            SqlParameter pAtivo = new SqlParameter("@ATIVO", System.Data.SqlDbType.Bit);

            sCommand.Parameters.Add(pAtivo);
            sCommand.Parameters["@ATIVO"].Value = fativo;

            if (fnome_arquivo != "")
            {
                byte[] fArquivo = null;
                fArquivo = clFuncoes.CarregarArquivo(fnome_arquivo);
                SqlParameter pExcel = new SqlParameter("@ARQUIVO", System.Data.SqlDbType.Image, fArquivo.Length);
                sCommand.Parameters.Add(pExcel);
                sCommand.Parameters["@ARQUIVO"].Value = fArquivo;
            }

            if (Tipo == "Incluir")
            {
                sCommand.CommandText = "INSERT INTO EXCEL (COD_EXCEL, NOME, ATIVO, ARQUIVO, COD_GRUPO)" +
                                       " VALUES (" +
                                       "  @COD_EXCEL" +
                                       ", @NOME" +
                                       ", @ATIVO" +
                                       ", @ARQUIVO" +
                                       ", @COD_GRUPO )";
            }
            else
            if (fnome_arquivo != "")
            {
                sCommand.CommandText = "UPDATE EXCEL" +
                                       " SET NOME = @NOME" +
                                       ", ATIVO = @ATIVO" +
                                       ", ARQUIVO = @ARQUIVO" +
                                       ", COD_GRUPO = @COD_GRUPO" +
                                       " WHERE COD_EXCEL = @COD_EXCEL";
            }
            else
            {
                sCommand.CommandText = "UPDATE EXCEL" +
                                       " SET NOME = @NOME" +
                                       ", ATIVO = @ATIVO" +
                                       ", COD_GRUPO = @COD_GRUPO" +
                                       " WHERE COD_EXCEL = @COD_EXCEL";
            }

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #24
0
        public string gerarPDF(int CodTitulo, bool Armazenar)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            System.Data.DataTable tblTitulo = new System.Data.DataTable();

            SqlParameter pCodigo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_TITULO"].Value = CodTitulo;

            SqlParameter pAtualiza = new SqlParameter("@DT_GERACAO", System.Data.SqlDbType.DateTime);

            sCommand.Parameters.Add(pAtualiza);
            sCommand.Parameters["@DT_GERACAO"].Value = clFuncoes.GetProperties("fData");

            SqlParameter pHrAtualiza = new SqlParameter("@HR_GERACAO", System.Data.SqlDbType.VarChar, 5);

            sCommand.Parameters.Add(pHrAtualiza);
            sCommand.Parameters["@HR_GERACAO"].Value = DateTime.Now.ToString("HH:mm");

            sCommand.CommandText = "SELECT COD_TITULO, NOME, COD_EXCEL, NUM_PLAN_PDF, TIPO_ARMAZENAGEM FROM EXCEL_TITULOS WHERE COD_TITULO = @COD_TITULO";

            tblTitulo = clFuncoes.ExecReader(sCommand);

            if (tblTitulo.Rows.Count <= 0)
            {
                return("");
            }

            string Arquivo = salvaArquivoExcel(Convert.ToInt32(tblTitulo.Rows[0]["COD_EXCEL"].ToString()));

            if (!File.Exists(Arquivo))
            {
                return("");
            }

            Application xlsApp = new Application();

            if (xlsApp == null)
            {
                return("");
            }

            string NomeSimples = tblTitulo.Rows[0]["NOME"].ToString().Replace(" ", "") +
                                 "_" + clFuncoes.GetDataParcial(Convert.ToDateTime(pAtualiza.Value), tblTitulo.Rows[0]["TIPO_ARMAZENAGEM"].ToString());

            string Nome = clFuncoes.GetProperties("fTempDirUsuario").ToString() + NomeSimples + ".pdf";

            Workbook  workbook  = xlsApp.Workbooks.Open(Arquivo);
            Worksheet worksheet = workbook.Sheets[Convert.ToInt32(tblTitulo.Rows[0]["NUM_PLAN_PDF"].ToString())] as Worksheet;

            worksheet.ExportAsFixedFormat(XlFixedFormatType.xlTypePDF, @Nome, XlFixedFormatQuality.xlQualityStandard);

            //GC.Collect();
            // GC.WaitForPendingFinalizers();

            workbook.Close(true);
            workbook = null;

            xlsApp.Quit();
            xlsApp = null;

            if (Armazenar)
            {
                sCommand.CommandText = "UPDATE EXCEL_TITULOS" +
                                       " SET DT_GERACAO = @DT_GERACAO" +
                                       ", HR_GERACAO = @HR_GERACAO" +
                                       " WHERE COD_TITULO = @COD_TITULO";

                string sAux = clFuncoes.ExecNonQuery(sCommand);

                sAux = NomeSimples + ".pdf";

                adicionaAnexoBase(Convert.ToInt32(pCodigo.Value),
                                  @Nome,
                                  "PDF",
                                  sAux,
                                  Convert.ToDateTime(pAtualiza.Value),
                                  pHrAtualiza.Value.ToString());
            }

            return(@Nome);
        }
Пример #25
0
        private void adicionaAnexoBase(int CodTitulo, string ArquivoAnexo, string TipoAnexo, string NomeAnexo, DateTime DtGeracao, string HrGeracao)
        {
            int iCodAnexo = 1;

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodTitulo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodTitulo);
            sCommand.Parameters["@COD_TITULO"].Value = CodTitulo;

            SqlParameter pNome = new SqlParameter("@NOME", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pNome);
            sCommand.Parameters["@NOME"].Value = NomeAnexo;

            SqlParameter pTipoAnexo = new SqlParameter("@TIPO_ANEXO", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pTipoAnexo);
            sCommand.Parameters["@TIPO_ANEXO"].Value = TipoAnexo;

            SqlParameter pDtGeracao = new SqlParameter("@DT_GERACAO", System.Data.SqlDbType.DateTime);

            sCommand.Parameters.Add(pDtGeracao);
            sCommand.Parameters["@DT_GERACAO"].Value = DtGeracao;

            SqlParameter pHrGeracao = new SqlParameter("@HR_GERACAO", System.Data.SqlDbType.VarChar, 5);

            sCommand.Parameters.Add(pHrGeracao);
            sCommand.Parameters["@HR_GERACAO"].Value = HrGeracao;

            SqlParameter pCodAnexo = new SqlParameter("@COD_ANEXO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodAnexo);
            sCommand.Parameters["@COD_ANEXO"].Value = iCodAnexo;

            byte[] fArquivo = null;
            fArquivo = clFuncoes.CarregarArquivo(@ArquivoAnexo);
            SqlParameter pAnexo = new SqlParameter("@ARQUIVO", System.Data.SqlDbType.Image, fArquivo.Length);

            sCommand.Parameters.Add(pAnexo);
            sCommand.Parameters["@ARQUIVO"].Value = fArquivo;

            sCommand.CommandText = "SELECT COD_ANEXO FROM EXCEL_TITULO_ANEXOS WHERE NOME = @NOME";

            string sNovoAnexo = clFuncoes.ExecScalar(sCommand);

            if (sNovoAnexo == "")
            {
                sCommand.CommandText = "SELECT MAX(COD_ANEXO) AS NUM_ANEXO FROM EXCEL_TITULO_ANEXOS";
                string sCodAnexo = clFuncoes.ExecScalar(sCommand);

                try
                {
                    iCodAnexo = Convert.ToInt32(sCodAnexo) + 1;
                }
                catch
                {
                }

                pCodAnexo.Value = iCodAnexo;

                sCommand.CommandText = "INSERT INTO EXCEL_TITULO_ANEXOS (COD_ANEXO, NOME, COD_TITULO, ARQUIVO, TIPO, DT_GERACAO, HR_GERACAO)" +
                                       " VALUES (" +
                                       "  @COD_ANEXO" +
                                       ", @NOME" +
                                       ", @COD_TITULO" +
                                       ", @ARQUIVO" +
                                       ", @TIPO_ANEXO" +
                                       ", @DT_GERACAO" +
                                       ", @HR_GERACAO" +
                                       ")";

                string sAux = clFuncoes.ExecNonQuery(sCommand);
            }
            else
            {
                try
                {
                    iCodAnexo       = Convert.ToInt32(sNovoAnexo);
                    pCodAnexo.Value = iCodAnexo;

                    sCommand.CommandText = "UPDATE EXCEL_TITULO_ANEXOS" +
                                           " SET NOME = @NOME" +
                                           ", COD_TITULO = @COD_TITULO" +
                                           ", ARQUIVO = @ARQUIVO" +
                                           ", TIPO = @TIPO_ANEXO" +
                                           ", DT_GERACAO = @DT_GERACAO" +
                                           ", HR_GERACAO = @HR_GERACAO" +
                                           " WHERE COD_ANEXO = @COD_ANEXO";

                    string sAux = clFuncoes.ExecNonQuery(sCommand);
                }
                catch
                {
                }
            }
        }
Пример #26
0
        public string setTitulo(string Tipo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_TITULO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_TITULO"].Value = fcod_titulo;

            SqlParameter pExcel = new SqlParameter("@COD_EXCEL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pExcel);
            sCommand.Parameters["@COD_EXCEL"].Value = fcod_excel;

            SqlParameter pNumPlan = new SqlParameter("@NUM_PLAN_PDF", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pNumPlan);
            sCommand.Parameters["@NUM_PLAN_PDF"].Value = fnum_plan_pdf;

            SqlParameter pNome = new SqlParameter("@NOME", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pNome);
            sCommand.Parameters["@NOME"].Value = fnome;

            SqlParameter pArmazenagem = new SqlParameter("@TIPO_ARMAZENAGEM", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pArmazenagem);
            sCommand.Parameters["@TIPO_ARMAZENAGEM"].Value = ftipo_armazenagem;

            SqlParameter pAtivo = new SqlParameter("@ATIVO", System.Data.SqlDbType.Bit);

            sCommand.Parameters.Add(pAtivo);
            sCommand.Parameters["@ATIVO"].Value = fativo;

            if (Tipo == "Incluir")
            {
                sCommand.CommandText = "INSERT INTO EXCEL_TITULOS (COD_TITULO, NOME, NUM_PLAN_PDF, ATIVO, COD_EXCEL, TIPO_ARMAZENAGEM)" +
                                       " VALUES (" +
                                       "  @COD_TITULO" +
                                       ", @NOME" +
                                       ", @NUM_PLAN_PDF" +
                                       ", @ATIVO" +
                                       ", @COD_EXCEL" +
                                       ", @TIPO_ARMAZENAGEM )";
            }
            else
            {
                sCommand.CommandText = "UPDATE EXCEL_TITULOS" +
                                       " SET NOME = @NOME" +
                                       ", ATIVO = @ATIVO" +
                                       ", NUM_PLAN_PDF = @NUM_PLAN_PDF" +
                                       ", COD_EXCEL = @COD_EXCEL" +
                                       ", TIPO_ARMAZENAGEM = @TIPO_ARMAZENAGEM" +
                                       " WHERE COD_TITULO = @COD_TITULO";
            }

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #27
0
        public string setUsuario(string Tipo)
        {
            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();
            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_USUARIO", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_USUARIO"].Value = fcod_usuario;

            SqlParameter pNome = new SqlParameter("@NOME", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pNome);
            sCommand.Parameters["@NOME"].Value = fnome;

            SqlParameter pUsuario = new SqlParameter("@USUARIO", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pUsuario);
            sCommand.Parameters["@USUARIO"].Value = fusuario;

            SqlParameter pSenha = new SqlParameter("@SENHA", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pSenha);
            sCommand.Parameters["@SENHA"].Value = fsenha;

            SqlParameter pMail = new SqlParameter("@MAIL", System.Data.SqlDbType.VarChar, 100);

            sCommand.Parameters.Add(pMail);
            sCommand.Parameters["@MAIL"].Value = fendereco_mail;

            SqlParameter pAdmin = new SqlParameter("@ADMIN", System.Data.SqlDbType.Bit);

            sCommand.Parameters.Add(pAdmin);
            sCommand.Parameters["@ADMIN"].Value = fadministrador;

            SqlParameter pSSL = new SqlParameter("@SSL", System.Data.SqlDbType.Bit);

            sCommand.Parameters.Add(pSSL);
            sCommand.Parameters["@SSL"].Value = fssl;

            SqlParameter pUsuarioMail = new SqlParameter("@USUARIO_MAIL", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pUsuarioMail);
            sCommand.Parameters["@USUARIO_MAIL"].Value = fusuario_mail;

            SqlParameter pSenhaMail = new SqlParameter("@SENHA_MAIL", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pSenhaMail);
            sCommand.Parameters["@SENHA_MAIL"].Value = fsenha_mail;

            SqlParameter pServidorMail = new SqlParameter("@SERVIDOR_MAIL", System.Data.SqlDbType.VarChar, 50);

            sCommand.Parameters.Add(pServidorMail);
            sCommand.Parameters["@SERVIDOR_MAIL"].Value = fservidor_mail;

            SqlParameter pPortaMail = new SqlParameter("@PORTA_MAIL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pPortaMail);
            sCommand.Parameters["@PORTA_MAIL"].Value = fporta_mail;

            if (Tipo == "Incluir")
            {
                sCommand.CommandText = "INSERT INTO USUARIOS (COD_USUARIO, NOME, USUARIO, SENHA, ENDERECO_MAIL, ADMINISTRADOR, USUARIO_MAIL, SENHA_MAIL, SERVIDOR_MAIL, PORTA_MAIL, UTILIZAR_SSL)" +
                                       " VALUES (" +
                                       "  @COD_USUARIO" +
                                       ", @NOME" +
                                       ", @USUARIO" +
                                       ", @SENHA" +
                                       ", @MAIL" +
                                       ", @ADMIN" +
                                       ", @USUARIO_MAIL" +
                                       ", @SENHA_MAIL" +
                                       ", @SERVIDOR_MAIL" +
                                       ", @PORTA_MAIL" +
                                       ", @SSL)";
            }
            else
            {
                sCommand.CommandText = "UPDATE USUARIOS" +
                                       " SET NOME = @NOME" +
                                       " , SENHA = @SENHA" +
                                       " , ENDERECO_MAIL = @MAIL" +
                                       " , ADMINISTRADOR = @ADMIN" +
                                       " , USUARIO_MAIL = @USUARIO_MAIL" +
                                       " , SENHA_MAIL = @SENHA_MAIL" +
                                       " , SERVIDOR_MAIL = @SERVIDOR_MAIL" +
                                       " , PORTA_MAIL = @PORTA_MAIL" +
                                       " , UTILIZAR_SSL = @SSL" +
                                       " WHERE COD_USUARIO = @COD_USUARIO";
            }

            string sAux = clFuncoes.ExecNonQuery(sCommand);

            return(sAux);
        }
Пример #28
0
        public void atualizaExcel(int CodExcel)
        {
            string Arquivo = salvaArquivoExcel(CodExcel);

            if (!File.Exists(Arquivo))
            {
                return;
            }

            Application xlsApp = new Application();

            if (xlsApp == null)
            {
                return;
            }

            Workbook workbook = xlsApp.Workbooks.Open(Arquivo);

            workbook.RefreshAll();

            workbook.Close(true);
            workbook = null;

            xlsApp.Quit();
            xlsApp = null;

            GC.Collect();
            GC.WaitForPendingFinalizers();

            ClassWebBI.ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pCodigo = new SqlParameter("@COD_EXCEL", System.Data.SqlDbType.Int);

            sCommand.Parameters.Add(pCodigo);
            sCommand.Parameters["@COD_EXCEL"].Value = CodExcel;

            SqlParameter pAtualiza = new SqlParameter("@DT_ATUALIZA", System.Data.SqlDbType.DateTime);

            sCommand.Parameters.Add(pAtualiza);
            sCommand.Parameters["@DT_ATUALIZA"].Value = clFuncoes.GetProperties("fData");

            SqlParameter pHrAtualiza = new SqlParameter("@HR_ATUALIZA", System.Data.SqlDbType.VarChar, 5);

            sCommand.Parameters.Add(pHrAtualiza);
            sCommand.Parameters["@HR_ATUALIZA"].Value = DateTime.Now.ToString("HH:mm");

            byte[] fArquivo = null;
            fArquivo = clFuncoes.CarregarArquivo(Arquivo);
            SqlParameter pExcel = new SqlParameter("@ARQUIVO", System.Data.SqlDbType.Image, fArquivo.Length);

            sCommand.Parameters.Add(pExcel);
            sCommand.Parameters["@ARQUIVO"].Value = fArquivo;

            sCommand.CommandText = "UPDATE EXCEL" +
                                   " SET DT_ATUALIZA = @DT_ATUALIZA" +
                                   ", ARQUIVO = @ARQUIVO" +
                                   ", HR_ATUALIZA = @HR_ATUALIZA" +
                                   " WHERE COD_EXCEL = @COD_EXCEL";

            string sAux = clFuncoes.ExecNonQuery(sCommand);
        }
Пример #29
0
        public bool ValidaLogin(string usuario, string senha, DateTime DtMovto)
        {
            bool lRetorno = false;

            ClassWebBI.Dados.ClassParametros clParametros = new Dados.ClassParametros();
            clParametros.getParametro();

            ClassFuncoes clFuncoes = new ClassWebBI.ClassFuncoes();

            DataTable tblUsuarios = new DataTable();

            SqlCommand sCommand = new SqlCommand();

            SqlParameter pUsuario = new SqlParameter("@ID_USUARIO", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pUsuario);
            sCommand.Parameters["@ID_USUARIO"].Value = usuario;

            SqlParameter pSenha = new SqlParameter("@SENHA", System.Data.SqlDbType.VarChar, 20);

            sCommand.Parameters.Add(pSenha);
            sCommand.Parameters["@SENHA"].Value = senha;

            sCommand.CommandText = "SELECT COD_USUARIO, NOME, ID_USUARIO, SENHA, MAIL FROM USUARIOS" +
                                   " WHERE ID_USUARIO = @ID_USUARIO" +
                                   "   AND SENHA   = @SENHA";

            tblUsuarios = clFuncoes.ExecReader(sCommand);

            if (tblUsuarios.Rows.Count > 0)
            {
                lRetorno = true;

                if (DtMovto > clParametros.fdt_limite_atualizacao)
                {
                    DtMovto = clParametros.fdt_limite_atualizacao;
                }

                clFuncoes.SetProperties("fData", DtMovto.ToShortDateString());
                clFuncoes.SetProperties("fCodUsuario", Convert.ToInt32(tblUsuarios.Rows[0]["COD_USUARIO"].ToString()));
                clFuncoes.SetProperties("fNomeUsuario", tblUsuarios.Rows[0]["NOME"].ToString());
                clFuncoes.SetProperties("fMail", tblUsuarios.Rows[0]["MAIL"].ToString());
                clFuncoes.SetProperties("fUsuario", tblUsuarios.Rows[0]["ID_USUARIO"].ToString());
                clFuncoes.SetProperties("fSenha", tblUsuarios.Rows[0]["SENHA"].ToString());

                string sDir = clFuncoes.GetProperties("fTempDir").ToString();
                if (!File.Exists(@sDir))
                {
                    Directory.CreateDirectory(@sDir);
                }

                sDir = clFuncoes.GetProperties("fTempDir").ToString() + "\\" + clFuncoes.GetProperties("fUsuario").ToString();
                if (!File.Exists(@sDir))
                {
                    Directory.CreateDirectory(@sDir);
                }

                sDir = sDir + "\\";
                clFuncoes.SetProperties("fTempDirUsuario", @sDir);
            }

            return(lRetorno);
        }