Fad Web

Ola tudo bem podem me ajudar não consigo resolver um problema tento ler um arquivo excel para incluir no banco de dados mas da erro E abaixo o código O erro que da e o seguinte leitura Seqüência de entrada não estava em um formato incorreto. o banco de dados em excel http://www.fadmarketing.com.br/bancodados.xls Agradeço a ajuda using System; using System.Collections; using System.Configuration; using System.Data; using System.Linq; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.HtmlControls; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using System.Xml.Linq; using System.IO; using System.Data.OleDb; using MySql.Data.MySqlClient; using System.Globalization; public partial class ImportarDados : System.Web.UI.Page { // Variavel do caminho onde foi upado o arquivo private string ArquivoUpado; string caminhoArq = ""; //string enderecoUrl = ""; // String de conexao do banco de dados MYSQL private string _conexaoMySQL = ""; protected void Page_Load(object sender, EventArgs e) { lblMessagem.Text = ""; } protected void btnEnviarArq_Click(object sender, EventArgs e) { UploadArquivo(); } private void UploadArquivo() { if (FileUpload1.HasFile) try { FileUpload1.SaveAs(caminhoArq + FileUpload1.FileName); string arq = FileUpload1.PostedFile.FileName; //verificamos a extensão através dos últimos 4 caracteres string extensao = arq.Substring(arq.Length - 4).ToLower(); lblMessagem.Text = "Nome do arquivo: " + arq + "<br>Tamanho do arquivo:" + FileUpload1.PostedFile.ContentLength + "<br> Tipo de arquivo: " + FileUpload1.PostedFile.ContentType + "<br>Extensao: " + extensao; //Atribuo valor a variavel ArquivoUpado = caminhoArq + FileUpload1.PostedFile.FileName; // LER O ARQUIVO UPADO if (extensao == ".xls") { LerXlsForcado(); } } catch (Exception ex) { lblMessagem.Text = "ERRO CRITICO NO UPLOAD :" + ex.Message.ToString(); } else { lblMessagem.Text = null; } } private void LerXlsForcado() { #region CONFIG LEITURA // Create a NumberFormatInfo object and set several of its // properties that apply to numbers. NumberFormatInfo provider = new NumberFormatInfo(); provider.NumberDecimalSeparator = ","; provider.NumberGroupSeparator = "."; provider.NumberGroupSizes = new int[] { 3 }; //// LER O XLS COM TABELA E CAMPOS DEFINIDOS string _conectionstring; string _caminhohArquivo = ArquivoUpado; //// define a string de conexao com provedor caminho e nome do banco de dados _conectionstring = @"Provider=Microsoft.Jet.OLEDB.4.0;"; _conectionstring += "Data Source=" + _caminhohArquivo + ";"; _conectionstring += "Extended Properties='Excel 8.0;HDR=YES;'"; ////define a instrução SQLstring string strSql = "Select * from [Base de Dados $]"; #endregion FIM DO CONFIG LEITURA try ////LEITURA EXECEL { #region LEITURA DO EXCEL //cria a conexão com o banco de dados OleDbConnection cn = new OleDbConnection(_conectionstring); //cria o objeto command para executar a instruçao sql OleDbCommand cmdOldbXls = new OleDbCommand(strSql, cn); //abre a conexao cn.Open(); //define o tipo do comando cmdOldbXls.CommandType = CommandType.Text; //cria um dataadapter OleDbDataAdapter da = new OleDbDataAdapter(cmdOldbXls); //cria um objeto datatable DataTable dt = new DataTable(); //preenche o datatable via dataadapter da.Fill(dt); //atribui o datatable ao datagridview para exibir o resultado GridView1.DataSource = dt; GridView1.DataBind(); ////QUANDO FOR WEB lblMessagem.Text = "LEU COM SUCESSO"; #endregion FIM DA LEITURA DO EXCEL foreach (DataRow DR in dt.Rows) { #region LEITURA DO DATAREAD DO EXCEL double vr_campo001 = Convert.ToDouble(DR[0].ToString()); string vr_campo002 = DR[1].ToString(); string vr_campo003 = DR[2].ToString(); string vr_campo004 = DR[3].ToString(); string vr_campo005 = DR[4].ToString(); string vr_campo006 = DR[5].ToString(); string vr_campo007 = DR[6].ToString(); string vr_campo008 = DR[7].ToString(); string vr_campo009 = DR[8].ToString(); string vr_campo010 = DR[9].ToString(); string vr_campo011 = DR[10].ToString(); string vr_campo012 = DR[11].ToString(); string vr_campo013 = DR[12].ToString(); string vr_campo014 = DR[13].ToString(); string vr_campo015 = DR[14].ToString(); string vr_campo016 = DR[15].ToString(); string vr_campo017 = DR[16].ToString(); string vr_campo018 = DR[19].ToString(); // ATE AQUI E STRING double vr_campo019 = Convert.ToDouble(DR[20].ToString()); double vr_campo020 = Convert.ToDouble(DR[21].ToString()); double vr_campo021 = Convert.ToDouble(DR[22].ToString()); double vr_campo022 = Convert.ToDouble(DR[23].ToString()); double vr_campo023 = Convert.ToDouble(DR[24].ToString()); double vr_campo024 = Convert.ToDouble(DR[25].ToString()); double vr_campo025 = Convert.ToDouble(DR[26].ToString()); double vr_campo026 = Convert.ToDouble(DR[27].ToString()); double vr_campo027 = Convert.ToDouble(DR[28].ToString()); double vr_campo028 = Convert.ToDouble(DR[29].ToString()); double vr_campo029 = Convert.ToDouble(DR[30].ToString()); double vr_campo030 = Convert.ToDouble(DR[31].ToString()); double vr_campo031 = Convert.ToDouble(DR[32].ToString()); double vr_campo032 = Convert.ToDouble(DR[33].ToString()); double vr_campo033 = Convert.ToDouble(DR[34].ToString()); double vr_campo034 = Convert.ToDouble(DR[35].ToString()); double vr_campo035 = Convert.ToDouble(DR[36].ToString()); double vr_campo036 = Convert.ToDouble(DR[37].ToString()); double vr_campo037 = Convert.ToDouble(DR[38].ToString()); double vr_campo038 = Convert.ToDouble(DR[39].ToString()); double vr_campo039 = Convert.ToDouble(DR[40].ToString()); double vr_campo040 = Convert.ToDouble(DR[41].ToString()); double vr_campo041 = Convert.ToDouble(DR[42].ToString()); double vr_campo042 = Convert.ToDouble(DR[43].ToString()); double vr_campo043 = Convert.ToDouble(DR[44].ToString()); double vr_campo044 = Convert.ToDouble(DR[45].ToString()); double vr_campo045 = Convert.ToDouble(DR[46].ToString()); double vr_campo046 = Convert.ToDouble(DR[47].ToString()); double vr_campo047 = Convert.ToDouble(DR[48].ToString()); double vr_campo048 = Convert.ToDouble(DR[49].ToString()); double vr_campo049 = Convert.ToDouble(DR[50].ToString()); double vr_campo050 = Convert.ToDouble(DR[51].ToString()); double vr_campo051 = Convert.ToDouble(DR[52].ToString()); double vr_campo052 = Convert.ToDouble(DR[53].ToString()); double vr_campo053 = Convert.ToDouble(DR[54].ToString()); double vr_campo054 = Convert.ToDouble(DR[55].ToString()); double vr_campo055 = Convert.ToDouble(DR[56].ToString()); double vr_campo056 = Convert.ToDouble(DR[57].ToString()); double vr_campo057 = Convert.ToDouble(DR[58].ToString()); double vr_campo058 = Convert.ToDouble(DR[59].ToString()); double vr_campo059 = Convert.ToDouble(DR[60].ToString()); double vr_campo060 = Convert.ToDouble(DR[61].ToString()); double vr_campo061 = Convert.ToDouble(DR[62].ToString()); double vr_campo062 = Convert.ToDouble(DR[63].ToString()); double vr_campo063 = Convert.ToDouble(DR[64].ToString()); double vr_campo064 = Convert.ToDouble(DR[65].ToString()); double vr_campo065 = Convert.ToDouble(DR[66].ToString()); double vr_campo066 = Convert.ToDouble(DR[67].ToString()); double vr_campo067 = Convert.ToDouble(DR[68].ToString()); double vr_campo068 = Convert.ToDouble(DR[69].ToString()); double vr_campo069 = Convert.ToDouble(DR[70].ToString()); double vr_campo070 = Convert.ToDouble(DR[71].ToString()); double vr_campo071 = Convert.ToDouble(DR[72].ToString()); double vr_campo072 = Convert.ToDouble(DR[73].ToString()); double vr_campo073 = Convert.ToDouble(DR[74].ToString()); double vr_campo074 = Convert.ToDouble(DR[75].ToString()); double vr_campo075 = Convert.ToDouble(DR[76].ToString()); double vr_campo076 = Convert.ToDouble(DR[77].ToString()); double vr_campo077 = Convert.ToDouble(DR[78].ToString()); double vr_campo078 = Convert.ToDouble(DR[79].ToString()); double vr_campo079 = Convert.ToDouble(DR[80].ToString()); double vr_campo080 = Convert.ToDouble(DR[81].ToString()); double vr_campo081 = Convert.ToDouble(DR[82].ToString()); double vr_campo082 = Convert.ToDouble(DR[83].ToString()); double vr_campo083 = Convert.ToDouble(DR[84].ToString()); double vr_campo084 = Convert.ToDouble(DR[85].ToString()); double vr_campo085 = Convert.ToDouble(DR[86].ToString()); double vr_campo086 = Convert.ToDouble(DR[87].ToString()); double vr_campo087 = Convert.ToDouble(DR[88].ToString()); double vr_campo088 = Convert.ToDouble(DR[89].ToString()); double vr_campo089 = Convert.ToDouble(DR[90].ToString()); double vr_campo090 = Convert.ToDouble(DR[91].ToString()); double vr_campo091 = Convert.ToDouble(DR[92].ToString()); double vr_campo092 = Convert.ToDouble(DR[93].ToString()); double vr_campo093 = Convert.ToDouble(DR[94].ToString()); double vr_campo094 = Convert.ToDouble(DR[95].ToString()); double vr_campo095 = Convert.ToDouble(DR[96].ToString()); double vr_campo096 = Convert.ToDouble(DR[97].ToString()); double vr_campo097 = Convert.ToDouble(DR[98].ToString()); double vr_campo098 = Convert.ToDouble(DR[99].ToString()); double vr_campo099 = Convert.ToDouble(DR[100].ToString()); double vr_campo100 = Convert.ToDouble(DR[101].ToString()); double vr_campo101 = Convert.ToDouble(DR[102].ToString()); double vr_campo102 = Convert.ToDouble(DR[103].ToString()); double vr_campo103 = Convert.ToDouble(DR[104].ToString()); double vr_campo104 = Convert.ToDouble(DR[105].ToString()); double vr_campo105 = Convert.ToDouble(DR[106].ToString()); double vr_campo106 = Convert.ToDouble(DR[107].ToString()); double vr_campo107 = Convert.ToDouble(DR[108].ToString()); double vr_campo108 = Convert.ToDouble(DR[109].ToString()); double vr_campo109 = Convert.ToDouble(DR[110].ToString()); double vr_campo110 = Convert.ToDouble(DR[111].ToString()); double vr_campo111 = Convert.ToDouble(DR[112].ToString()); double vr_campo112 = Convert.ToDouble(DR[113].ToString()); double vr_campo113 = Convert.ToDouble(DR[114].ToString()); double vr_campo114 = Convert.ToDouble(DR[115].ToString()); double vr_campo115 = Convert.ToDouble(DR[116].ToString()); double vr_campo116 = Convert.ToDouble(DR[117].ToString()); double vr_campo117 = Convert.ToDouble(DR[118].ToString()); double vr_campo118 = Convert.ToDouble(DR[119].ToString()); double vr_campo119 = Convert.ToDouble(DR[120].ToString()); double vr_campo120 = Convert.ToDouble(DR[121].ToString()); double vr_campo121 = Convert.ToDouble(DR[122].ToString()); double vr_campo122 = Convert.ToDouble(DR[123].ToString()); double vr_campo123 = Convert.ToDouble(DR[124].ToString()); double vr_campo124 = Convert.ToDouble(DR[125].ToString()); double vr_campo125 = Convert.ToDouble(DR[126].ToString()); double vr_campo126 = Convert.ToDouble(DR[127].ToString()); double vr_campo127 = Convert.ToDouble(DR[128].ToString()); double vr_campo128 = Convert.ToDouble(DR[129].ToString()); double vr_campo129 = Convert.ToDouble(DR[130].ToString()); double vr_campo130 = Convert.ToDouble(DR[131].ToString()); double vr_campo131 = Convert.ToDouble(DR[132].ToString()); double vr_campo132 = Convert.ToDouble(DR[133].ToString()); double vr_campo133 = Convert.ToDouble(DR[134].ToString()); double vr_campo134 = Convert.ToDouble(DR[135].ToString()); double vr_campo135 = Convert.ToDouble(DR[136].ToString()); double vr_campo136 = Convert.ToDouble(DR[137].ToString()); double vr_campo137 = Convert.ToDouble(DR[138].ToString()); double vr_campo138 = Convert.ToDouble(DR[139].ToString()); double vr_campo139 = Convert.ToDouble(DR[140].ToString()); double vr_campo140 = Convert.ToDouble(DR[141].ToString()); double vr_campo141 = Convert.ToDouble(DR[142].ToString()); double vr_campo142 = Convert.ToDouble(DR[143].ToString()); double vr_campo143 = Convert.ToDouble(DR[144].ToString()); double vr_campo144 = Convert.ToDouble(DR[145].ToString()); double vr_campo145 = Convert.ToDouble(DR[146].ToString()); double vr_campo146 = Convert.ToDouble(DR[147].ToString()); double vr_campo147 = Convert.ToDouble(DR[148].ToString()); double vr_campo148 = Convert.ToDouble(DR[149].ToString()); double vr_campo149 = Convert.ToDouble(DR[150].ToString()); double vr_campo150 = Convert.ToDouble(DR[151].ToString()); double vr_campo151 = Convert.ToDouble(DR[152].ToString()); double vr_campo152 = Convert.ToDouble(DR[153].ToString()); double vr_campo153 = Convert.ToDouble(DR[154].ToString()); double vr_campo154 = Convert.ToDouble(DR[155].ToString()); double vr_campo155 = Convert.ToDouble(DR[156].ToString()); double vr_campo156 = Convert.ToDouble(DR[157].ToString()); double vr_campo157 = Convert.ToDouble(DR[158].ToString()); double vr_campo158 = Convert.ToDouble(DR[159].ToString()); double vr_campo159 = Convert.ToDouble(DR[160].ToString()); double vr_campo160 = Convert.ToDouble(DR[161].ToString()); double vr_campo161 = Convert.ToDouble(DR[162].ToString()); double vr_campo162 = Convert.ToDouble(DR[163].ToString()); double vr_campo163 = Convert.ToDouble(DR[164].ToString()); double vr_campo164 = Convert.ToDouble(DR[165].ToString()); double vr_campo165 = Convert.ToDouble(DR[166].ToString()); double vr_campo166 = Convert.ToDouble(DR[167].ToString()); double vr_campo167 = Convert.ToDouble(DR[168].ToString()); double vr_campo168 = Convert.ToDouble(DR[169].ToString()); // INVERTIDO ORDEM // RW double vr_campo174 = Convert.ToDouble(DR[170].ToString()); double vr_campo175 = Convert.ToDouble(DR[171].ToString()); double vr_campo176 = Convert.ToDouble(DR[172].ToString()); double vr_campo177 = Convert.ToDouble(DR[173].ToString()); double vr_campo178 = Convert.ToDouble(DR[174].ToString()); // N0 double vr_campo169 = Convert.ToDouble(DR[175].ToString()); double vr_campo170 = Convert.ToDouble(DR[176].ToString()); double vr_campo171 = Convert.ToDouble(DR[177].ToString()); double vr_campo172 = Convert.ToDouble(DR[178].ToString()); double vr_campo173 = Convert.ToDouble(DR[179].ToString()); // FIM DA ORDEM INVERTIDA double vr_campo179 = double.Parse(DR[180].ToString().Replace(",", ".")); double vr_campo180 = double.Parse(DR[181].ToString().Replace(",", ".")); double vr_campo181 = double.Parse(DR[182].ToString().Replace(",", ".")); double vr_campo182 = double.Parse(DR[183].ToString().Replace(",", ".")); double vr_campo183 = double.Parse(DR[188].ToString().Replace(",", ".")); double vr_campo184 = double.Parse(DR[185].ToString().Replace(",", ".")); double vr_campo185 = double.Parse(DR[186].ToString().Replace(",", ".")); double vr_campo186 = double.Parse(DR[187].ToString().Replace(",", ".")); double vr_campo187 = double.Parse(DR[188].ToString().Replace(",", ".")); double vr_campo188 = double.Parse(DR[189].ToString().Replace(",", ".")); double vr_campo189 = double.Parse(DR[190].ToString().Replace(",", ".")); #endregion FIM DA LEITURA DO DATAREAD try //// MOTAGEM DO SQL { #region MONTAGEM DO SQL TRY String sql = "INSERT INTO TabelaDadosAluno(NumerodeMatricula, Senha, NomeCompleto, ResponsavelFinanceiro, DatadeNascimento, " // 5 [4] + "Endereco, Cidade, CEP, Telefone, Celular1, Celular2, E_mail, E_maildoResponsavel, Book, Turma, Sala, Professor, Observacoes"//13 - [19] + "PR1, EE1, NE1, FL1, PR2, EE2, NE2, FL2, PR3, EE3, NE3, FL3, PR4, EE4, NE4, FL4, PR5, EE5, NE5, FL5, PR6, EE6," //22 ok [41] + "NE6, FL6, PR7, EE7, NE7, FL7, PR8, EE8, NE8, FL8, PR9, EE9, NE9, FL9, PR10, EE10, NE10, FL10," //18- ok [59] + "PR11, EE11, NE11, FL11, PR12, EE12, NE12, FL12, PR13, EE13, NE13, FL13, PR14, EE14, NE14, FL14,"//16- ok [75] + "PR15, EE15, NE15, FL15, PR16, EE16, NE16, FL16, PR17, EE17, NE17, FL17, PR18, EE18, NE18, FL18,"//16 ok -[91] + "PR19, EE19, NE19, FL19, PR20, EE20, NE20, FL20, PR21, EE21, NE21, FL21, PR22, EE22, NE22, FL22,"//16- ok [107] + "PR23, EE23, NE23, FL23, PR24, EE24, NE24, FL24, PR25, EE25, NE25, FL25, PR26, EE26, NE26, FL26,"//16- ok[123] + "PR27, EE27, NE27, FL27, PR28, EE28, NE28, FL28, PR29, EE29, NE29, FL29, PR30, EE30, NE30, FL30,"//16- ok [139] + "NA1, NA2, NA3, NA4, NA5, NA6, NA7, NA8, NA9, NA10, NA11, NA12, NA13, NA14, NA15, NA16,NA17, NA18,"//18- ok [157] + "NA19, NA20, NA21, NA22, NA23, NA24, NA25, NA26, NA27, NA28, NA29, NA30, NO1, NO2, NO3, NO4, NO5,"//17 - ok [169] - 175 -179 + "RW1, RW2, RW3, RW4, RW5,TNO1, TNO2, TNO3, MP1, MP2, MP3, MP4, MF, TMP1, TMP2, TMF)" //16- ok 170-174 - 180 [190] + " VALUES (" // 5+13+22 = 40 + 17 = 57 / 18*2= 36 / 16*6= 96 === 189 + " " + vr_campo001 + " ," + " '" + vr_campo002 + "' ," + " '" + vr_campo003 + "' ," + " '" + vr_campo004 + "' ," + " '" + vr_campo005 + "' ," + " '" + vr_campo006 + "' ," + " '" + vr_campo007 + "' ," + " '" + vr_campo008 + "' ," + " '" + vr_campo009 + "' ," + " '" + vr_campo010 + "' ," + " '" + vr_campo011 + "' ," + " '" + vr_campo012 + "' ," + " '" + vr_campo013 + "' ," + " '" + vr_campo014 + "' ," + " '" + vr_campo015 + "' ," + " '" + vr_campo016 + "' ," + " '" + vr_campo017 + "' ," + " '" + vr_campo018 + "'," + vr_campo019 + " ," + vr_campo020 + " ," + vr_campo021 + " ," + vr_campo022 + " ," + vr_campo023 + " ," + vr_campo024 + " ," + vr_campo025 + " ," + vr_campo026 + " ," + vr_campo027 + " ," + vr_campo028 + " ," + vr_campo029 + " ," + vr_campo030 + " ," + vr_campo031 + " ," + vr_campo032 + " ," + vr_campo033 + " ," + vr_campo034 + " ," + vr_campo035 + " ," + vr_campo036 + " ," + vr_campo037 + " ," + vr_campo038 + " ," + vr_campo039 + " ," + vr_campo040 + " ," + vr_campo041 + " ," + vr_campo042 + " ," + vr_campo043 + " ," + vr_campo044 + " ," + vr_campo045 + " ," + vr_campo046 + " ," + vr_campo047 + " ," + vr_campo048 + " ," + vr_campo049 + " ," + vr_campo050 + " ," + vr_campo051 + " ," + vr_campo052 + " ," + vr_campo053 + " ," + vr_campo054 + " ," + vr_campo055 + " ," + vr_campo056 + " ," + vr_campo057 + " ," + vr_campo058 + " ," + vr_campo059 + " ," + vr_campo060 + " ," + vr_campo061 + " ," + vr_campo062 + " ," + vr_campo063 + " ," + vr_campo064 + " ," + vr_campo065 + " ," + vr_campo066 + " ," + vr_campo067 + " ," + vr_campo068 + " ," + vr_campo069 + " ," + vr_campo070 + " ," + vr_campo071 + " ," + vr_campo072 + " ," + vr_campo073 + " ," + vr_campo074 + " ," + vr_campo075 + " ," + vr_campo076 + " ," + vr_campo077 + " ," + vr_campo078 + " ," + vr_campo079 + " ," + vr_campo080 + " ," + vr_campo081 + " ," + vr_campo082 + " ," + vr_campo083 + " ," + vr_campo084 + " ," + vr_campo085 + " ," + vr_campo086 + " ," + vr_campo087 + " ," + vr_campo088 + " ," + vr_campo089 + " ," + vr_campo090 + " ," + vr_campo091 + " ," + vr_campo092 + " ," + vr_campo093 + " ," + vr_campo094 + " ," + vr_campo095 + " ," + vr_campo096 + " ," + vr_campo097 + " ," + vr_campo098 + " ," + vr_campo099 + " ," + vr_campo100 + " ," + vr_campo101 + " ," + vr_campo102 + " ," + vr_campo103 + " ," + vr_campo104 + " ," + vr_campo105 + " ," + vr_campo106 + " ," + vr_campo107 + " ," + vr_campo108 + " ," + vr_campo109 + " ," + vr_campo110 + " ," + vr_campo111 + " ," + vr_campo112 + " ," + vr_campo113 + " ," + vr_campo114 + " ," + vr_campo115 + " ," + vr_campo116 + " ," + vr_campo117 + " ," + vr_campo118 + " ," + vr_campo119 + " ," + vr_campo120 + " ," + vr_campo121 + " ," + vr_campo122 + " ," + vr_campo123 + " ," + vr_campo124 + " ," + vr_campo125 + " ," + vr_campo126 + " ," + vr_campo127 + " ," + vr_campo128 + " ," + vr_campo129 + " ," + vr_campo130 + " ," + vr_campo131 + " ," + vr_campo132 + " ," + vr_campo133 + " ," + vr_campo134 + " ," + vr_campo135 + " ," + vr_campo136 + " ," + vr_campo137 + " ," + vr_campo138 + " ," + vr_campo139 + " ," + vr_campo140 + " ," + vr_campo141 + " ," + vr_campo142 + " ," + vr_campo143 + " ," + vr_campo144 + " ," + vr_campo145 + " ," + vr_campo146 + " ," + vr_campo147 + " ," + vr_campo148 + " ," + vr_campo149 + " ," + vr_campo150 + " ," + vr_campo151 + " ," + vr_campo152 + " ," + vr_campo153 + " ," + vr_campo154 + " ," + vr_campo155 + " ," + vr_campo156 + " ," + vr_campo157 + " ," + vr_campo158 + " ," + vr_campo159 + " ," + vr_campo160 + " ," + vr_campo161 + " ," + vr_campo162 + " ," + vr_campo163 + " ," + vr_campo164 + " ," + vr_campo165 + " ," + vr_campo166 + " ," + vr_campo167 + " ," + vr_campo168 + " ," + vr_campo169 + " ," + vr_campo170 + " ," + vr_campo171 + " ," + vr_campo172 + " ," + vr_campo173 + " ," + vr_campo174 + " ," + vr_campo175 + " ," + vr_campo176 + " ," + vr_campo177 + " ," + vr_campo178 + " ," + vr_campo179 + " ," + vr_campo180 + " ," + vr_campo181 + " ," + vr_campo182 + " ," + vr_campo183 + " ," + vr_campo184 + " ," + vr_campo185 + " ," + vr_campo186 + " ," + vr_campo187 + " ," + vr_campo188 + " ," + vr_campo189 + ")"; #endregion Fim MONTAGEM DO SQL Response.Write("<br>" + sql + "<br>"); #region INCLUSAO NO BANCO DE DADOS MySqlConnection conMySql = new MySqlConnection(_conexaoMySQL); MySqlCommand cmdMySql = new MySqlCommand(sql, conMySql); conMySql.Open(); cmdMySql.ExecuteNonQuery(); lblMessagem.Text = "SUCESSO AO GRAVAR NO BD "; conMySql.Close(); #endregion } //// MOTAGEM DO SQL catch (Exception ex) //// MOTAGEM DO SQL { lblMessagem.Text = "ERRO CRITICO AO GRAVAR NO BD :" + ex.Message.ToString(); } } ////FIM FOREACH cn.Close(); cn.Dispose(); cmdOldbXls.Dispose(); } ////LEITURA EXECEL catch (Exception ex) ////LEITURA EXECEL { lblMessagem.Text = "Erro leitura " + ex.Message.ToString(); // LblError.Visible = true; } } #region DESATIVADA CSV private void LerArquivoCsvTxt() { //try //{ // ///Para tipo de arquivo CSV ou TXt separado po virgula // StreamReader stream = new StreamReader(ArquivoUpado); // string linha = null; // while ((linha = stream.ReadLine()) != null) // { // string[] linhaSeparada = linha.Split(','); // // vr_nome = linhaSeparada[1]; // //// vr_fone = linhaSeparada[2]; // // Grava no banco de dados os registro lidos do arquivo // //IncluirRegUp(); // Response.Write(linhaSeparada[0] + " " + linhaSeparada[1] + " " + linhaSeparada[2] + "<br>"); // } // stream.Close(); //} //catch (Exception ex) //{ // lblMessagem.Text = "ERRO CRITICO AO LER CSV :" + ex.Message.ToString(); //} } public void IncluirRegUp() { //String sql = // "INSERT INTO TabelaDadosAluno(NumerodeMatricula, NomeCompleto, ResponsavelFinanceiro, DatadeNascimento, " //4 // + "Endereco, Cidade, CEP, Telefone, Celular1, Celular2, E_mail, FL4, PR5, EE5, NE5, FL5, PR6, EE6," //14 // + "NE6, FL6, PR7, EE7, NE7, FL7, PR8, EE8, NE8, FL8, PR9, EE9, NE9, FL9, PR10, EE10, NE10, FL10," //18 // + "PR11, EE11, NE11, FL11, PR12, EE12, NE12, FL12, PR13, EE13, NE13, FL13, PR14, EE14, NE14, FL14,"//16 // + "PR15, EE15, NE15, FL15, PR16, EE16, NE16, FL16, PR17, EE17, NE17, FL17, PR18, EE18, NE18, FL18,"//16 // + "PR19, EE19, NE19, FL19, PR20, EE20, NE20, FL20, PR21, EE21, NE21, FL21, PR22, EE22, NE22, FL22,"//16 // + "PR23, EE23, NE23, FL23, PR24, EE24, NE24, FL24, PR25, EE25, NE25, FL25, PR26, EE26, NE26, FL26,"//16 // + "PR27, EE27, NE27, FL27, PR28, EE28, NE28, FL28, PR29, EE29, NE29, FL29, PR30, EE30, NE30, FL30,"//16 // + "NA1, NA2, NA3, NA4, NA5, NA6, NA7, NA8, NA9, NA10, NA11, NA12, NA13, NA14, NA15, NA16,NA17, NA18,"//18 // + "NA19, NA20, NA21, NA22, NA23, NA24, NA25, NA26, NA27, NA28, NA29, NA30, NO1, NO2, NO3, NO4, NO5,"//17 // + "RW1, RW2, RW3, RW4, RW5,TNO1, TNO2, TNO3, MP1, MP2, MP3, MP4, MF, TMP1, TMP2, TMF)" //16 // + " VALUES ("//167 // // +"'" + vr_nome + "','" + vr_fone // + "')"; //try //{ // MySqlConnection con = new MySqlConnection(_conexaoMySQL); // MySqlCommand cmd = new MySqlCommand(sql, con); // con.Open(); // cmd.ExecuteNonQuery(); // lblMessagem.Text = "SUCESSO AO GRAVAR NO BD "; // con.Close(); //} //catch (Exception ex) //{ // lblMessagem.Text = "ERRO CRITICO AO GRAVAR NO BD :" + ex.Message.ToString(); //} } static string formatter = "{0,-22}{1,-20}{2}"; #endregion // Get the exception type name; remove the namespace prefix. static string GetExceptionType(Exception ex) { string exceptionType = ex.GetType().ToString(); return exceptionType.Substring( exceptionType.LastIndexOf('.') + 1); } static void ConvertToDouble(string numericStr, IFormatProvider provider) { object defaultValue; object providerValue; // Convert numericStr to double without a format provider. try { defaultValue = Convert.ToDouble(numericStr); } catch (Exception ex) { defaultValue = GetExceptionType(ex); } // Convert numericStr to double with a format provider. try { providerValue = Convert.ToDouble(numericStr, provider); } catch (Exception ex) { providerValue = GetExceptionType(ex); } //Console.WriteLine(formatter, numericStr, defaultValue, providerValue); /// return double.Parse(providerValue); } }

Ola a todos estou com problemas em utilizar o fpdf quero fazer um relatório em PDF consultando o Bando de dados e criando o arquivo Pdf no servidor. Mas to com esse erro e nem consegui salvar no servidor %PDF-1.3 3 0 obj <> endobj 4 0 obj <> stream 2 J 0.57 w BT /F1 12.00 Tf ET 1.13 w 19.84 700.16 m 566.93 700.16 l S BT 19.84 714.33 Td (Id) Tj ET BT 59.53 714.33 Td (Parceiro) Tj ET BT 119.06 714.33 Td (CPF) Tj ET BT 181.42 714.33 Td (E-Mail) Tj ET BT 300.47 714.33 Td (Atualização) Tj ET BT 425.20 714.33 Td (Situação) Tj ET BT 19.84 708.66 Td (3098) Tj ET BT 59.53 708.66 Td (Administrador) Tj ET BT 119.06 708.66 Td (11111111111) Tj ET BT 181.42 822.05 Td (fadmkt) Tj ET BT 300.47 708.66 Td (Tue Apr 6 17:02:05 UTC-0300 2010) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3114) Tj ET BT 59.53 708.66 Td (Aline Cristina Teles Frias) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (alice.freitas@ig.com.br) Tj ET BT 300.47 708.66 Td (Fri Aug 28 17:01:31 UTC-0300 2009) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3103) Tj ET BT 59.53 708.66 Td (Exemplo: Elaine Priscila da Silva) Tj ET BT 119.06 708.66 Td (07802035694) Tj ET BT 181.42 822.05 Td (fad@fadmarketing.com.br) Tj ET BT 300.47 708.66 Td (Mon Aug 17 19:13:31 UTC-0300 2009) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3105) Tj ET BT 59.53 708.66 Td (Lúcia) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (Tema261) Tj ET BT 300.47 708.66 Td (Mon Dec 22 17:46:51 UTC-0200 2008) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3115) Tj ET BT 59.53 708.66 Td (Paula Rodrigues) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td () Tj ET BT 300.47 708.66 Td (Fri Aug 28 17:06:48 UTC-0300 2009) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3106) Tj ET BT 59.53 708.66 Td (Rita) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (Tema262) Tj ET BT 300.47 708.66 Td (Mon Dec 22 21:10:57 UTC-0200 2008) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3113) Tj ET BT 59.53 708.66 Td (Roseli S. Moreira) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (Tema301) Tj ET BT 300.47 708.66 Td (Thu Aug 13 13:28:39 UTC-0300 2009) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3107) Tj ET BT 59.53 708.66 Td (Solange da Silva) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (tema2) Tj ET BT 300.47 708.66 Td (Mon Dec 22 21:11:46 UTC-0200 2008) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3116) Tj ET BT 59.53 708.66 Td (teste ) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td () Tj ET BT 300.47 708.66 Td (Tue Mar 9 11:24:12 UTC-0300 2010) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET BT 19.84 708.66 Td (3112) Tj ET BT 59.53 708.66 Td (Yara do Nascimento) Tj ET BT 119.06 708.66 Td () Tj ET BT 181.42 822.05 Td (Tema300) Tj ET BT 300.47 708.66 Td (Thu Aug 13 13:27:52 UTC-0300 2009) Tj ET BT 425.20 708.66 Td (Ativo) Tj ET endstream endobj 1 0 obj <> endobj 5 0 obj <> endobj 2 0 obj <<< ImageI] ImageC ImageB Text PDF [>> >> endobj 6 0 obj << /Producer (FPDF for ASP v.0.01 beta by Lorenzo Abbati [www.aspxnet.it]) /CreationDate (D:2010415163311) >> endobj 7 0 obj << /Type /Catalog /Pages 1 0 R /OpenAction [3 0 R /FitH null] /PageLayout /OneColumn >> endobj xref 0 8 0000000000 65535 f 0000002815 00000 n 0000003000 00000 n 0000000009 00000 n 0000000087 00000 n 0000002902 00000 n 0000003088 00000 n 0000003213 00000 n trailer << /Size 8 /Root 7 0 R /Info 6 0 R >> startxref 3316 %%EOF <%option explicit%> <!-- #include file = "include/generico_data.inc" --> <%dim nr_processo nr_processo=1 %> <!-- #include file = "include/valida_acesso.inc" --> <!--#include file="fpdf.asp"--> <% dim rsParceiro, sql, qt_email DIm sqlT 'Traz registro sql = "SELECT * from vw_parceiro where 1=1 " sqlT = "SELECT count (*) AS totalReg from vw_parceiro where 1=1 " if request("id_parceiro") <> "" then sql = sql & " and id_parceiro = " & request("id_parceiro") sqlT = sqlT & " and id_parceiro = " & request("id_parceiro") end if if request("nome") <> "" then sql = sql & " and nome like '" & request("nome") & "%'" sqlT = sqlT & " and nome like '" & request("nome") & "%'" end if if request("email") <> "" then sql = sql & " and email like '%" & request("email") & "%'" sqlT = sqlT & " and email like '%" & request("email") & "%'" end if if request("fl_email_mkt") <> "" then sql = sql & " and fl_email_mkt = " & request("fl_email_mkt") & "" sqlT = sqlT & " and fl_email_mkt = " & request("fl_email_mkt") & "" end if if request("dt_ini") <> "" then sql = sql & " and dt_cadastro >= #" & month(cdate(Request("dt_ini"))) & "/" & day(cdate(Request("dt_ini"))) & "/" & year(cdate(Request("dt_ini"))) & "#" sqlT = sqlT & " and dt_cadastro >= #" & month(cdate(Request("dt_ini"))) & "/" & day(cdate(Request("dt_ini"))) & "/" & year(cdate(Request("dt_ini"))) & "#" end if if request("dt_fim") <> "" then sql = sql & " and dt_cadastro <= #" & month(cdate(Request("dt_fim"))) & "/" & day(cdate(Request("dt_fim"))) & "/" & year(cdate(Request("dt_fim"))) & "#" sqlT = sqlT & " and dt_cadastro <= #" & month(cdate(Request("dt_fim"))) & "/" & day(cdate(Request("dt_fim"))) & "/" & year(cdate(Request("dt_fim"))) & "#" end if if request("mes_aniversario") <> "" then sql = sql & " and month(dt_nascimento) = " & Request("mes_aniversario") sqlT = sqlT & " and month(dt_nascimento) = " & Request("mes_aniversario") end if if request("id_situacao_parceiro") <> "" then sql = sql & " and id_situacao = " & request("id_situacao_parceiro") sqlT = sqlT & " and id_situacao = " & request("id_situacao_parceiro") dim rsSituacao 'Traz registro de Situacao set rsSituacao = GetRS("SELECT * FROM situacao_parceiro where id_situacao_parceiro = " & request("id_situacao_parceiro")) end if if request("tipo") <> "" then sql = sql & " and tipo = '" & request("tipo") & "'" sqlT = sqlT & " and tipo = '" & request("tipo") & "'" dim rstipo 'Traz registro de Situacao set rstipo = GetRS("SELECT * FROM dominio where ds_dominio = 'tipo_parceiro' and ds_valor = '" & request("tipo") & "'") end if if request("sexo") <> "" then sql = sql & " and sexo = '" & request("sexo") & "'" sqlT = sqlT & " and sexo = '" & request("sexo") & "'" dim rsSexo 'Traz registro de Situacao set rsSexo = GetRS("SELECT * FROM dominio where ds_dominio = 'sexo' and ds_valor = '" & request("sexo") & "'") end if sql = sql & " order by nome" 'sqlT = sqlT & " order by nome" 'response.write sql ' response.end set rsParceiro = GetRS(sql) '========================================= GERA RELATORIO ================================= Dim rsParceiroR set rsParceiroR = GetRS(sql) 'rsLancamento if not rsParceiroR.eof then 'Move para o primeiro registro rsParceiroR.MoveFirst ' define o nome do arquivo XLS a ser criado Dim arquivo_excel arquivo_excel= "RelatorioCadastros.xls" ' cria o arquivo file system object Dim FSO, act set fso = createobject("scripting.filesystemobject") ' Cria um arquivo texto no servidor com o nome do time no mesmo diretorio da aplicacao Set act = fso.CreateTextFile(server.mappath(arquivo_excel), true) ' define o cabecalho da tabela act.WriteLine("<html><body>") act.WriteLine("<table border=""1"">") act.WriteLine("<tr>") act.WriteLine("<th nowrap>Id</th>") act.WriteLine("<th nowrap>Parceiro</th>") act.WriteLine("<th nowrap>CPF</th>") act.WriteLine("<th nowrap>E-Mail</th>") act.WriteLine("<th nowrap>Atualização</th>") act.WriteLine("<th nowrap>Situação</th>") act.WriteLine("</tr>") ' No laco For next vamos criar uma linha para cada time com os dados da sua classificacao Dim documents Dim ContadorRelatorio Dim rsContadorRelatorio Dim var_IdParceiro, var_Parceiro, var_ParceiroCPF, var_email, var_dt_cadastro, var_Situacao set rsContadorRelatorio= GetRS(sqlT) ContadorRelatorio = rsContadorRelatorio("totalReg") for documents= 1 to ContadorRelatorio var_IdParceiro = rsParceiroR("id_parceiro") var_Parceiro = rsParceiroR("nome") var_ParceiroCPF = rsParceiroR("CPF") var_email = rsParceiroR("email") var_dt_cadastro = rsParceiroR("dt_cadastro") var_Situacao = rsParceiroR("ds_situacao_parceiro") Act.WriteLine("<tr>") act.WriteLine("<td align=""right"">"& var_IdParceiro & "</td>") act.WriteLine("<td align=""right"">"& var_Parceiro & "</td>") act.WriteLine("<td align=""right"">"& var_ParceiroCPF & "</td>") act.WriteLine("<td align=""right"">"& var_email & "</td>") act.WriteLine("<td align=""right"">"& var_dt_cadastro & "</td>") act.WriteLine("<td align=""right"">"& var_Situacao & "</td>") act.WriteLine("</tr>") ' move para o proximo registro rsParceiroR.movenext ' volta a criar a proxima linha da tabela para o time next ' fecha as tags HTML act.WriteLine("</table></body></html>") ' fecha o objeto Excel act.close 'response.write "Classificação do Brasileirão - 2004 : Cinco primeiros colocados. (Formato MS-Excel)<P>" 'response.write "Para ver classificação no Excel clique no link abaixo <P>" ' Escreve um link para o novo arquivo XLS criado 'response.write "<a href='classificacao.xls'>Classificação</a> (.xls) foi criado em " & now() & "<br>" '========================================= GERA RELATORIO FIM ================================= '========================================= GERA RELATORIO EM PDF ================================= set rsParceiro = GetRS(sql) 'rsLancamento if not rsParceiro.eof then 'Move para o primeiro registro rsParceiro.MoveFirst dim pdf, i '// criando o pdf set pdf=CreateJsObject("FPDF") '// aki poderemos adcionar várias funções como titulos padroes para todas as páginasm numeração de páginas e etc. '// montando o corpo do pdf, setando o tipo da folha, tipo de medida e o tamanho da folha pdf.CreatePDF "P","mm","A4" pdf.SetPath("fpdf/") pdf.Open() '// adcionando página pdf.AddPage() '// setando fonte e tamanho pdf.SetFont "Times","",12 '// setando grossura da linha pdf.SetLineWidth(0.4) '// setando linhas, reapare que, as medidas são feitas em x1, y1, x2 e y2, començando no ponto inicial de x e y e finalizando nos mesmo. pdf.Line "7","50","200","50" '// criamos aki uma linha horizontal, a linha pode ser feita de qualquer jeito, vertical, diagonal e td mais, somente setando os valores de x e y. '// escrevendo um texto '//pdf.Text "7","49","Merda de pdf " pdf.Text "7","45","Id" pdf.Text "21","45","Parceiro" pdf.Text "42","45","CPF" pdf.Text "64","45","E-Mail" pdf.Text "106","45","Atualização" pdf.Text "150","45","Situação" '// na linha acima setamos primeiro a função Text, depois aonde começamos a escrever apartir do x e y e por fim o texto a ser adcionado '// presta-se atenção aki, pois quem precisa fazer uma leitura de banco de dados ou resgatar uma session para ser impressa no pdf, n se pode usar as ' ' na função de texto for i =1 to 10 '//var_IdParceiro = rsParceiroR("id_parceiro") '//var_Parceiro = rsParceiroR("nome") '//var_ParceiroCPF = rsParceiroR("CPF") '//var_email = rsParceiroR("email") '//var_dt_cadastro = rsParceiroR("dt_cadastro") '//var_Situacao = (rsParceiroR("ds_situacao_parceiro")) pdf.Text "7", "47" ,(rsParceiro("id_parceiro")) pdf.Text "21", "47" ,(rsParceiro("nome")) pdf.Text "42", "47" ,(rsParceiro("CPF")) pdf.Text "64", "7" ,(rsParceiro("email")) pdf.Text "106","47" ,(rsParceiro("dt_cadastro")) pdf.Text "150", "47" ,(rsParceiro("ds_situacao_parceiro")) rsParceiro.movenext next '// fechando o pdf pdf.Close() pdf.Output() '//pdf.Output([string arquivo.pdf, string F]) '//pdf.Output(["arquivo.pdf", "F"]) end if %> <%end if%> <html> <style type="text/css"> <!-- .style1 {font-family: Arial, Helvetica, sans-serif} --> </style> <a name="topo"></a> <head> <title>&nbsp;</title> <link rel="stylesheet" href="styles/style.css" type="text/css" title="style"> </head> <FORM name="frmPrincipal"> <H1>Cadastro - Lista</H1> <%if request("nome") <> "" or _ request("email") <> "" or _ request("fl_email_mkt") <> "" or _ request("id_parceiro") <> "" or _ request("tipo") <> "" or _ request("sexo") <> "" or _ request("dt_ini") <> "" or _ request("dt_fim") <> "" or _ request("mes_aniversario") <> "" or _ request("id_situacao_parceiro") <> "" then%> <H2>Filtro</H2> <TABLE width = 100%> <%if request("id_parceiro") <> "" then%> <TR> <TD class=label width=100px>Código</TD> <TD class=normal><%=request("id_parceiro")%></TD> </TR> <%end if%> <%if request("nome") <> "" then%> <TR> <TD class=label width=100px>Nome</TD> <TD class=normal><%=request("nome")%></TD> </TR> <%end if%> <%if request("email") <> "" then%> <TR> <TD class=label width=100px>E-Mail</TD> <TD class=normal><%=request("email")%></TD> </TR> <%end if%> <%if request("fl_email_mkt") <> "" then%> <TR> <TD class=label width=100px>E-Mail Marketing</TD> <TD class=normal><%=request("fl_email_mkt")%></TD> </TR> <%end if%> <%if request("dt_ini") <> "" or request("dt_fim") <> "" then%> <TR> <TD class=label width=100px>Data Cadastro</TD> <TD class=normal><%=request("dt_ini")%> até <%=request("dt_fim")%></TD> </TR> <%end if%> <%if request("id_situacao_parceiro") <> "" then%> <TR> <TD class=label width=100px>Situação</TD> <TD class=normal><%=rsSituacao("ds_situacao_parceiro")%></TD> </TR> <%end if%> <%if request("tipo") <> "" then%> <TR> <TD class=label width=100px>Tipo</TD> <TD class=normal><%=rstipo("ds_descricao")%></TD> </TR> <%end if%> <%if request("sexo") <> "" then%> <TR> <TD class=label width=100px>Sexo</TD> <TD class=normal><%=rsSexo("ds_descricao")%></TD> </TR> <%end if%> <%if request("mes_aniversario") <> "" then%> <TR> <TD class=label width=100px>Mês Aniversário</TD> <TD class=normal><%=request("mes_aniversario")%></TD> </TR> <%end if%> </TABLE> <%end if%> <H2>Lista</H2> <H3>Encontrado(s): <%=rsParceiro.recordcount%> registro(s)</H3> <TABLE width = 100%> <TR> <TD class=label>&nbsp;</TD> <TD class=label>Id</TD> <TD class=label>Parceiro</TD> <TD class=label>CPF</TD> <TD class=label>E-Mail</TD> <TD class=label>Atualização</TD> <TD class=label>Situação</TD> </TR> <%do while not rsParceiro.eof%> <TR> <%if request("cd_lookup") = "" then %> <TD class="normal"> <%if rsParceiro("email") <> "" and rsParceiro("fl_email_mkt") = true then%> <%qt_email = qt_email + 1%> <%end if%> </TD> <TD class="normal" nowrap><a href="cadastro_detalhe.asp?id_parceiro=<%=rsParceiro("id_parceiro")%>"><%=rsParceiro("id_parceiro")%></a></TD> <%else%> <TD></TD> <TD class="normal" align=center><IMG alt="Click para Selecionar" src="FIGURAS/sucesso.gif" style="CURSOR: hand" onClick="vb script: Seleciona <%=rsParceiro("id_parceiro")%>, '<%=trim(rsParceiro("nome"))%>'"></TD> <%end if%> <TD class="normal"><%=rsParceiro("nome")%></TD> <TD class="normal"><%=rsParceiro("CPF")%></TD> <TD class="normal"><%=rsParceiro("email")%></TD> <TD class="normal"><%=rsParceiro("dt_cadastro")%></TD> <TD class="normal"><%=rsParceiro("ds_situacao_parceiro")%></TD> </TR> <%rsParceiro.movenext%> <%loop%> </TABLE> <!--#include file="include/refresh_pagina.inc" --> <!-- Botoes --> <HR> <span class="style1">Relat&oacute;rio de Cadastros em Formato MS-Excel<br> Para ver no Excel clique no icone: <a href='RelatorioCadastros.xls' target='_blank' class='style1'><img src="figuras/excelexport.png" alt="Clique para salvar ou abrir o relat&oacute;rio no seu computador." width="30" height="30" border="none"></a></span><br> <br> <%if request("cd_lookup") = "" then %> <input type=button name=btnVoltar value="Voltar" onClick="window.history.go(-1)"> <!--#include file="rodapefadsys.asp" --> <%if qt_email>0 then%> <input type=button name="btnMarcarTodos" id="btnMarcarTodos" value="Selecionar Todos"> <input type=button name=btnEmail value="Enviar E-Mail Mkt"> <%end if%> <%else%> <input type=button name=btnVoltar value="Voltar" onClick="parent.window.close"> <%end if%> </form> </HTML> <% 'Esvazia variaveis da memoria set rsParceiro = nothing %> <script LANGUAGE=VBSCRIPT> sub Seleciona(cd, ds) parent.window.opener.document.all("<%=request("fld1")%>").value = cd parent.window.opener.document.all("<%=request("fld2")%>").value = ds parent.window.close end sub sub btnMarcarTodos_onclick() dim i for i = 0 to frmprincipal.chkEmail.length - 1 if frmPrincipal.btnMarcarTodos.value ="Desmarcar Todos" then frmprincipal.chkEmail(i).checked = false else frmprincipal.chkEmail(i).checked = true end if next if frmPrincipal.btnMarcarTodos.value ="Desmarcar Todos" then frmPrincipal.btnMarcarTodos.value = "Selecionar Todos" else frmPrincipal.btnMarcarTodos.value = "Desmarcar Todos" end if end sub sub btnEmail_onclick() dim i, iMarcados iMarcados = 0 <%if qt_email > 1 then%> for i = 0 to frmprincipal.chkEmail.length - 1 if frmprincipal.chkEmail(i).checked = true then iMarcados = iMarcados + 1 end if next <%elseif qt_email = 1 then%> if frmprincipal.chkEmail.checked = true then iMarcados = 1 end if <%end if%> if iMarcados = 0 then msgbox "Nenhum item selecionado", 48 else if msgbox("Deseja enviar Email para os cadastros selecionados?",4 + 32 + 256) = 6 then frmprincipal.action = "email_marketing.asp" frmPrincipal.method = "POST" frmprincipal.submit end if end if end sub </SCRIPT>

Ola estou desenvolvendo um sistema de escola mas estou com dificuldades na geração de datas de boletos pois coloco a data de lançamento para o dia 30 de janeiro “mesdefinido” Mas em Fevereiro que tem 28 dias ele muda certo so que no mês subseqüente Ele torna colocar o dia 28 sendo que marco tem 31 dias e no mês subseqüente ele coloca certo sendo o dia 30. A função usada e a DateAdd (código utlizado : dateadd("M", 1,mesdefinido)) Parcela de Curso 1 30/1/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 2 28/2/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 3 28/3/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 4 30/4/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 5 30/5/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 6 30/6/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 7 30/7/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 8 30/8/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 9 30/9/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 10 30/10/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 11 30/11/2010 15,00 Boleto 0,00 Aberto Parcela de Curso 12 30/12/2010 15,00 Boleto 0,00 Aberto <%option explicit%> <!-- #include file = "include/generico_data.inc" --> <%dim nr_processo if request("operacao") = "D" then nr_processo=22 else nr_processo=21 end if %> <!-- #include file = "include/valida_acesso.inc" --> <% dim sql, id_matricula, rsMatricula, aux_volta, dt_vencimento dim i dim rsAcesso id_matricula = request.form("id_matricula") if id_matricula = 0 then 'Valida Aluno dim rsAluno sql = "SELECT * from parceiro where id_parceiro = " & Request.Form("id_parceiro") set rsAluno = GetRS(sql) if rsAluno.eof then Response.write "Aluno não encontrado." Response.End end if if rsAluno("CPF") = "" and rsAluno("respnome") = "" and rsAluno("respCPF") = "" then Response.write "CPF do Aluno ou Responsavel não preenchido" Response.End end if 'Acha proximo numero de matricula sql = "select max(id_matricula) as id_matricula from matricula" rsMatricula = getrs(sql) if isnull(rsMatricula("id_matricula")) then id_matricula = 1 else id_matricula = rsMatricula("id_matricula") + 1 end if sql = "insert into matricula( " sql = sql & " id_matricula," sql = sql & " id_aluno," sql = sql & " id_turma," sql = sql & " vr_curso," sql = sql & " vr_desconto," sql = sql & " nr_parcelas," sql = sql & " vr_taxa_matricula," sql = sql & " observacao," sql = sql & " dt_matricula," sql = sql & " id_usuario," sql = sql & " situacao," sql = sql & " forma_pagamento," sql = sql & " dt_parcela," sql = sql & " nr_parcelas_taxa)" sql = sql & " VALUES (" sql = sql & id_matricula & "," sql = sql & Request.Form("id_parceiro") & "," sql = sql & Request.Form("id_turma") & "," sql = sql & replace(request.form("vr_curso"),",",".") & "," if request.form("vr_desconto") = "" then sql = sql & "0" & "," else sql = sql & replace(request.form("vr_desconto"),",",".") & "," end if sql = sql & Request.Form("nr_parcelas") & "," sql = sql & replace(request.form("vr_taxa_matricula"),",",".") & "," ' sql = sql & "'" & Request.Form("observacao") & "'," sql = sql & "''," sql = sql & "'" & now() & "'," sql = sql & "" & session("id_usuario") & "," sql = sql & "'A'," sql = sql & "'" & Request.Form("forma_pagamento") & "'," sql = sql & "'" & Request.Form("dt_parcela") & "'," sql = sql & Request.Form("nr_parcelas_taxa") & ")" call executecmd(sql) elseif request("operacao") = "D" then 'Apaga Lancamentos sql = "delete from lancamento " sql = sql & " where id_matricula = " & request.form("id_matricula") call executecmd(sql) sql = "delete from matricula " sql = sql & " where id_matricula = " & id_matricula call executecmd(sql) Response.Redirect "matricula_lista.asp?id_aluno=" & Request.Form("id_aluno") Response.End else sql = "update matricula set " sql = sql & " id_turma = " & Request.Form("id_turma") & "," sql = sql & " vr_curso = " & replace(replace(request.form("vr_curso"),".",""),",",".") & "," if request.form("vr_desconto") = "" then sql = sql & " vr_desconto = 0" & "," else sql = sql & " vr_desconto = " & replace(request.form("vr_desconto"),",",".") & "," end if sql = sql & " nr_parcelas = " & Request.Form("nr_parcelas") & "," sql = sql & " vr_taxa_matricula = " & replace(request.form("vr_taxa_matricula"),",",".") & "," sql = sql & " nr_parcelas_taxa = " & Request.Form("nr_parcelas_taxa") & "," sql = sql & "observacao =" & """" & replace(request("observacao"),"""","'") & """," sql = sql & "dt_matricula = " & "'" & now() & "'," sql = sql & "forma_pagamento = " & "'" & Request.Form("forma_pagamento") & "'," sql = sql & "dt_parcela = " & "'" & Request.Form("dt_parcela") & "'" sql = sql & " where id_matricula = " & id_matricula call executecmd(sql) end if 'Fechamento de Matricula ' if request("operacao") = "C" then 'Traz registro de matricula sql = "SELECT * from matricula where id_matricula = " & id_matricula set rsMatricula = GetRS(sql) 'Apaga Lancamentos antigos sql = "delete from lancamento " sql = sql & " where id_matricula = " & request.form("id_matricula") call executecmd(sql) 'Taxa de Matricula if rsMatricula("vr_taxa_matricula") > 0 then dt_vencimento = formatdatetime(now(),2) for i = 1 to rsMatricula("nr_parcelas_taxa") if i > 1 then ' dt_vencimento = "15" & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) dt_vencimento = dateadd("M", 1, dt_vencimento) end if sql = "insert into lancamento (tp_lancamento, id_parceiro, nr_parcela, " sql = sql & " dt_lancamento, dt_vencimento, vr_parcela, vr_desconto, forma_pagamento, " sql = sql & " nr_documento, vr_tx_boleto, id_situacao_lancamento, id_matricula)" sql = sql & " values(" sql = sql & "5" & "," sql = sql & rsMatricula("id_aluno") & "," sql = sql & cstr(i) & "," sql = sql & "'" & now() & "'," sql = sql & "'" & dt_vencimento & "'," sql = sql & replace(rsMatricula("vr_taxa_matricula")/rsMatricula("nr_parcelas_taxa"),",",".") & "," sql = sql & "0" & "," sql = sql & "'" & rsMatricula("forma_pagamento") & "'," ' sql = sql & "'" & right("000000" + cstr(rsMatricula("id_matricula")),6) & "05" & right("00" + cstr(i),2) & "'," ' sql = sql & "'" & right("0000" + cstr(rsMatricula("id_matricula")),4) & right("00" + cstr(day(dt_vencimento)), 2) & right("00" + cstr(month(dt_vencimento)),2) & right("00" + cstr(year(dt_vencimento)),2) & "'," sql = sql & "null," ' if rsMatricula("forma_pagamento") = "B" then ' sql = sql & "2.4," ' else sql = sql & "0," ' end if sql = sql & "1" & "," sql = sql & rsMatricula("id_matricula") & ")" call executecmd(sql) next end if 'Gera lançamentos dt_vencimento = rsMatricula("dt_parcela") Session("DataVenc") = day(dt_vencimento) ' response.Write(Session("DataVenc") & "<br>") ' response.Write(Session("DataVenc") & "<br>") ' response.Write(month(dt_vencimento) & "<br>") ' response.End() ' response.End() for i = 1 to rsMatricula("nr_parcelas") if i > 1 then if day(dt_vencimento) <> Session("DataVenc") then Select Case month(dt_vencimento) case 1 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 2 dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 3 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 4 dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 5 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 6 dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 7 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 8 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 9 dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 10 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 11 dt_vencimento = day(dt_vencimento) & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) case 12 dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) Case else dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) End Select else dt_vencimento = Session("DataVenc") & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) end if ' dt_vencimento = "15" & "/" & month(dt_vencimento) & "/" & year(dt_vencimento) ' dt_vencimento = dateadd("M", 1, dt_vencimento) dt_vencimento = dateadd("M", 1, dt_vencimento) end if sql = "insert into lancamento (tp_lancamento, id_parceiro, nr_parcela, " sql = sql & " dt_lancamento, dt_vencimento, vr_parcela, vr_desconto, forma_pagamento, " sql = sql & " nr_documento, vr_tx_boleto, id_situacao_lancamento, id_matricula)" sql = sql & " values(" sql = sql & "1" & "," sql = sql & rsMatricula("id_aluno") & "," sql = sql & cstr(i) & "," sql = sql & "'" & now() & "'," sql = sql & "'" & dt_vencimento & "'," sql = sql & replace((rsMatricula("vr_curso")/rsMatricula("nr_parcelas")),",",".") & "," sql = sql & replace((rsMatricula("vr_desconto")/rsMatricula("nr_parcelas")),",",".") & "," sql = sql & "'" & rsMatricula("forma_pagamento") & "'," ' sql = sql & "'" & right("000000" + cstr(rsMatricula("id_matricula")),6) & "01" & right("00" + cstr(i),2) & "'," ' sql = sql & "'" & right("0000" + cstr(rsMatricula("id_matricula")),4) & right("00" + cstr(day(dt_vencimento)), 2) & right("00" + cstr(month(dt_vencimento)),2) & right("00" + cstr(year(dt_vencimento)),2) & "'," sql = sql & "null," ' if rsMatricula("forma_pagamento") = "B" then ' sql = sql & "2.4," ' else sql = sql & "0," ' end if sql = sql & "1" & "," sql = sql & rsMatricula("id_matricula") & ")" 'response.Write(sql & "<br>") call executecmd(sql) next 'response.End() 'Altera situacao da matricula ' sql = "update matricula set " ' sql = sql & "situacao = " & "'F'" ' sql = sql & " where id_matricula = " & request.form("id_matricula") ' call executecmd(sql) 'Insere Atendimento no aluno sql = "insert into parceiro_historico ( " sql = sql & " id_parceiro," sql = sql & " dt_historico," sql = sql & " tipo_atendimento," sql = sql & " ds_observacao," sql = sql & " id_parceiro_usuario)" sql = sql & " VALUES (" sql = sql & rsMatricula("id_aluno") & "," sql = sql & "'" & now() & "'," sql = sql & "'P'," sql = sql & "'Matricula n. " & cstr(rsMatricula("id_matricula")) & "'," sql = sql & "" & session("id_usuario") & ")" call executecmd(sql) 'Altera Tipo de Parceiro sql = "update parceiro set " sql = sql & "tipo = " & "'A'" sql = sql & " where id_parceiro = " & rsMatricula("id_aluno") call executecmd(sql) ' end if ' end if Response.Redirect "matricula_detalhe.asp?id_matricula=" & id_matricula Response.End %> <script LANGUAGE=VBSCRIPT> sub window_onload() <%if request("operacao") = "D" or request("operacao") = "C" or request.form("id_matricula") = 0 then %> call window.history.go(-2) <%else%> call window.history.go(-1) <%end if%> end sub </SCRIPT>