Jump to content
Fórum Script Brasil

noiss

Membros
  • Posts

    31
  • Joined

  • Last visited

About noiss

noiss's Achievements

0

Reputation

  1. Boa tarde galera, seguinte... primeiro queria dizer que não sei muita coisa de delphi, então vamos la, tenho um sistema academico e trocaram o IP do servidor, e o computador cliente esta com 2 IPs, como faço pra consertar isso? me corrijam se falei besteira abraços...
  2. cadastrar_propostas: <FORM METHOD="post" ACTION="index.asp?page=incluir_proposta&op=addproposta" name="form_proposta"> . . . <input type="hidden" name="contatoCodigo" value="<%=contatoCodigo%>"> <input type="hidden" name="proposta" value="<%=proposta%>"> <input type="hidden" name="opcao" value="save"> <input type="button" value="Avançar..." name="Submit" onClick="confereTudo(this.form);" class="btn"> Isso vem da primeira página, de onde é gerado o código. Depois ele passa por mais páginas, sendo chamado por request.
  3. A proposta vem da página cadastrar_propostas , que é onde tem um código que gera as propostas... e lá voce escolhe a empresa tambem que vai ser exibida a proposta, que depois na página teste1.asp eu vou precisar exibir juntamente com os produtos/serviços. Então a proposta vem da página cadastrar_propostas onde tem um código que gera ela. e os produtos e serviços vem da página select_prod .
  4. Então Andreia. ele está recebendo da select_prod . ai quando clica em adicionar o código que está no form é esse: <form method="post" action="index.asp?page=<%=request("from")%>&proposta=<%=proposta%>" name="form1">
  5. response.redirect "teste1.asp?proposta="&proposta&"codigo_produtos="&codigo_produtos to passando assim, mas ele so está passando o codigo da proposta, o dos produtos não, não sei porque ! =T
  6. Bom dia, Tenho 3 páginas, incluir_proposta.asp , select_prod.asp e teste1.asp . Estou na página incluir_proposta e quando escolho um produto ou um serviço, ele abre a select_prod onde tem todos os produtos / ou todos os serviços , quando eu escolho um produto ou um serviço ele volta para a incluir_proposta, mas agora com o produto ou o serviços escolhido e exibindo na tela, podendo ser mais de um produto e mais de um serviço respectivamente. Em seguida eu clico em avançar na página incluir_proposta e vai para a página teste1.asp que é onde eu tenho que exibir os produtos e os serviços escolhidos, e os dados adicionais de cada um deles contidos na tabela. Mas eu só estou conseguindo passar o código da proposta para a página teste1.asp o codigo dos produtos não, e eu preciso disso porque é com esse código que eu vou fazer uma consulta na tabela e buscar os dados adicionais de cada um deles nela. segue as páginas: incluir_proposta: ' Verifica permissao do usuario Set conn = Server.CreateObject("ADODB.Connection") conn.Open strDB Set rec_direitos = Server.CreateObject("ADODB.Recordset") rec_direitos.Open "SELECT * from tbDireitosUsuarios where usuario=" & Session("Codigo"),conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If proposta = request("proposta") numero=request("codigoproduto") if request("op") = "delprod" then codigoProduto=request.querystring("codigoProduto") conn.Execute "DELETE From tbProdutosPropostas WHERE Proposta='" & proposta & "' AND Produtos = " & codigoProduto elseif request("op") = "addprod" then codigo_produtos=""'inicia a variavel com vazio for each item in Request.Form if left(item,3)="chk" then 'aqui você preenche uma string com os valores dos campos que foram clicados 'o que ele faz aqui é o seguinte 'todo o campo de produto tem um nome chk+codigodoproduto 'entaum ele pegava cortava as tres primeiras letras e pegava o restante que é o codigo do produto que você precisa codigo_produtos=codigo_produtos&";"&right(item,len(item)-3)'essa string vai ter todos os código dos produtos marcados 'na sua página teste você cria uma função pra quebrar essa string e tal... 'porque ela vai no formata ;valor1;valor2;valor3 entendeu?? 'depois você passa essa variavel pelo link e tal lá em baixo eu vi que tem o response.wrtie e tal vai lá ver... sql = "SELECT tbProdutosPropostas.Proposta, tbProdutosPropostas.Produtos from tbProdutosPropostas where tbProdutosPropostas.Proposta='" & Proposta & "' and tbProdutosPropostas.Produtos=" & right(item,len(item)-3) Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql, conn, 1 'verifica se produto já não está incluido na tabela ProdutosPropostas if rs.bof and rs.eof then sql = "INSERT INTO tbProdutosPropostas (Proposta, Produtos, Quantidade) VALUES ('" & Proposta & "'," & right(item,len(item)-3) & ",1)" conn.Execute sql end if end if next elseif request("op") = "addproposta" then dataEnvio = request("dataEnvio") dataFechamento = request("dataFechamento") status = request("status") msgErro = "" if dataEnvio = "" then msgErro = msgErro + "Data de Envio inválida.<br>" end if if msgErro = "" then if dataFechamento <> "" then strSql = "UPDATE tbPropostas set dataEnvio =" & CQData(dataEnvio) &", dataFechamento =" & CQData(dataFechamento) & ", status ='" & status & "' where numero ='" & proposta & "'" else strSql = "UPDATE tbPropostas set dataEnvio =" & CQData(dataEnvio) &", status ='" & status & "' where numero ='" & proposta & "'" end if conn.Execute strSql end if end if if msgErro <> "" then %> <table align="center"> <tr><td align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><br><br> O formulario cont&eacute;m erros!<br><br> <%=msgErro%> <br><br> <a href="java script:history.go(-1);"> <img alt="Voltar" src="/mapdata/imagens/voltar.gif" border="0"> </a> </td></tr> </table> <% elseif request("op") = "concluido" then proposta = request("proposta") if proposta <> "" then Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * from tbPropostas WHERE numero='" & proposta & "'", conn, 1 end if contato = rs("contato") if contato <> "" then Set rec_empresa = Server.CreateObject("ADODB.Recordset") rec_empresa.Open "Select tbcontatos.codigo as codcontato, tbEmpresas.codigo as codempresa from tbContatos,tbEmpresas WHERE tbContatos.codempresa=tbempresas.codigo and tbContatos.codigo=" & contato, conn, 1 codEmpresa = rec_empresa("codempresa") end if Set rsEmpresaResp = Server.CreateObject("ADODB.Recordset") rsEmpresaResp.Open "SELECT tbUsuarios.empresa as emp, tbUsuarioDepartamento.Departamento as depto FROM tbUsuarios, tbUsuarioDepartamento where tbUsuarioDepartamento.Usuario = tbUsuarios.codigo and tbUsuarios.codigo =" & rs("responsavel"), conn, 1 codEmpresaResp = rsEmpresaResp("emp") codArea = rsEmpresaResp("depto") Set rsconfig = Server.CreateObject("ADODB.Recordset") rsconfig.Open "SELECT * from tbPropostasConfiguracao", conn, 1 codproposta = rsconfig("proposta") objetivo = "Proposta " & proposta Set rec_produtos = Server.CreateObject("ADODB.Recordset") rec_produtos.Open "SELECT tbProdutosPropostas.quantidade as qtde, tbProdServ.c_nome as nomeProduto from tbProdutosPropostas, tbProdServ Where tbProdutosPropostas.Produtos = tbProdServ.c_numero and tbProdutosPropostas.Proposta ='" & proposta & "'",conn,1 Descricao = "" if not (rec_produtos.eof and rec_produtos.bof) then while not rec_produtos.eof Descricao = Descricao & "<br>" & rec_produtos("qtde") & "&nbsp;&nbsp;" & rec_produtos("nomeProduto") rec_produtos.movenext wend end if if Descricao = "" then Descricao = " " end if conn.Execute "INSERT INTO tbHistComercial"_ & "(codEmpresa, codResp, CodEmpresaResp, CodContato, area, acao, data, hora, objetivo, descricao)"_ & "VALUES (" & codEmpresa & "," & rs("responsavel") & "," & codEmpresaResp & ","_ & contato & "," & codArea & "," & codproposta & "," & CQData(Date) & ",'" & Time & "','"_ & objetivo & "','" & Descricao & "')" '********************************************************************************* set rs = Server.CreateObject("ADODB.Recordset") sqlstr = "SELECT TOP 1 tbEmpresas.Empresa, tbEmpresas.codigo as codEmpresa, tbCidades.Cidade as Cidade, tbUsuarios.Nome as usuario, tbDepartamentos.Nome as departamento, tbAcoesHistorico.nome as acao, tbContatos.Contato, tbHistComercial.Data, tbHistComercial.Objetivo, tbHistComercial.Descricao, tbHistComercial.CodEmpresa FROM tbHistComercial, tbEmpresas, tbUsuarios, tbAcoesHistorico, tbContatos, tbDepartamentos, tbCidades WHERE tbEmpresas.CodCidade=tbCidades.codigo AND tbHistComercial.CodEmpresa = tbEmpresas.codigo AND tbHistComercial.CodResp = tbUsuarios.codigo AND tbContatos.codigo = tbHistComercial.codcontato AND tbHistComercial.acao = tbAcoesHistorico.codigo AND tbHistComercial.Area = tbDepartamentos.Codigo AND tbHistComercial.CodEmpresa=" & CodEmpresa & " order by tbHistComercial.codigo desc" set rs = conn.Execute(sqlstr) Set rec_smtp = Server.CreateObject("ADODB.Recordset") rec_smtp.Open "SELECT * from tbEmpresasUsuarias where codigo =" & Session("Empresa"),conn,1 ' ' Envia e-mail, comunicando a Acao ' Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.Host = rec_smtp("smtp") 'Especifica um servidor de SMTP valido ' ' Mail.From = rec_smtp("smtpsender") ' Mail.FromName = rec_smtp("smtpnome") ' ' Mail.Username = rec_smtp("smtplogin") ' Mail.Password = rec_smtp("smtppassword") ' ' Set rec_emails = Server.CreateObject("ADODB.Recordset") ' rec_emails.Open "SELECT email from tbUsuarios where tbUsuarios.codigo = " & session("codigo") & " or tbUsuarios.codigo in (select usuario from tbNotificacao where acao=" & codProposta & " and Linha= 17 AND empresa=" & Session("Empresa") & ")",conn,1 ' while not rec_emails.eof ' Mail.AddAddress rec_emails("email") ' rec_emails.movenext ' wend ' rec_emails.close ' set rec_emails=nothing ' ' Mail.Subject = rs("Acao") & " - " & rs("Empresa") ' ' Mensagem = "<font face=Verdana size=2><b>Empresa:</b> <a href='http://192.168.0.1/admin/cadastro/index_frame.asp?URL=destino.asp?URL=consulta_emp.asp?CodEmpresa=" & rs("codEmpresa") & "'>"& rs("Empresa") &"</a><br>" ' ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Cidade:</b> "& rs.fields("Cidade") &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Responsável:</b> "& rs.fields ("Usuario") &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Área de Atuação:</b> "& rs("Departamento") &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Contato:</b> "& rs.fields("Contato") &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Data:</b> "& Date &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Objetivo:</b> "& Objetivo &"<br>" ' Mensagem = Mensagem & "<font face=Verdana size=2><b>Descrição:</b><br>"& Descricao &"</font>" ' ' Mail.Body = Mensagem ' Mail.IsHTML = True ' ' Mail.SendtoQueue ' ' On Error Resume Next ' If Err <> 0 Then ' Response.Write "Error encountered: " & Err.Description ' End If ' on error goto 0 ' ' rec_smtp.close ' set rec_smtp = nothing ' response.redirect "teste1.asp?proposta="&proposta response.Write(codigo_produtos) response.End() response.redirect "teste1.asp?proposta="&proposta&"codigo_produtos="&codigo_produtos 'é aqui mesmo usa igual o esquema que você fez aqui com a proposta mas manda a string codigo_proutos ^^V 'response.redirect "teste1.asp?codigoproduto="&codigoproduto 'response.redirect "teste1.asp?numero="&numero '********************************************************************************* %> <table align="center"> <tr><td align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2"><b><br><br> A operação foi concluída com sucesso!<br><br> <br><br> <a href="index.asp"> <img alt="Voltar" src="/mapdata/imagens/voltar.gif" border="0"> </a> </td></tr> </table> <% else %> &lt;script> function abrepopup(pagina,janela,w,h,scrolling) { window.open(pagina,janela,'width='+w+',height='+h+',scrollbars='+scrolling+',toolbar=no,location=no,status=no,menubar=no,resizable=no,left=50,top=5') } </script> <!--<FORM METHOD="post" ACTION="index.asp?page=incluir_proposta&op=concluido" name="form_prod"> --> <FORM METHOD="post" ACTION=index.asp?page=incluir_proposta&op=concluido name="form_prod"> <table width="600" border="0" cellspacing="0" cellpadding="0" align="center" class="fina"> <tr> <td align="center"> <font face="Verdana, Arial, Helvetica, sans-serif" size="3"> <b> Incluir Produtos e Serviços na Proposta</b></font><br> <br> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor1")%>"> <td width="100%" colspan="2"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Número: </b> </font> <% msg = "O campo número é gerado pelo sistema para identificação da proposta.<br><br>" msg = msg + "Não é possível preencher o campo manualmente." %> <a href="java script:abrepopup('help.asp?msg=<%=msg%>&campo=Número','janelaconsulta','250','200','yes');" class="branco">?</a> </td> </tr> <tr bgcolor="<%=Session("Cor2")%>"> <td width="20%" colspan="2"> <input type="text" name="numero" size="9" value="<%=proposta%>" readOnly> </td> </tr> <tr bgcolor="<%=Session("Cor1")%>"> <td width="80%"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Produtos: </b> </font> <% msg = "Itens da proposta.<br>" msg = msg + "É permitida a inclusão de mais de um item em uma mesma proposta.<br><br>" msg = msg + "Clique no botão <b>adicionar item...</b> para incluir novos produtos na proposta.<br><br>" msg = msg + "Clique no botão <b>X</b> que aparece em frente ao nome do item para excluir um item adicionado." %> <a href="java script:abrepopup('help.asp?msg=<%=msg%>&campo=Itens','janelaconsulta','350','220','yes');" class="branco">?</a> </td> <td width="20%"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b><center>Quantidade:</center> </b> </font> </td> </tr> </table> <% Set rec_produtos = Server.CreateObject("ADODB.Recordset") rec_produtos.Open "SELECT distinct tbProdutosPropostas.Proposta as codProposta, tbProdutosPropostas.Produtos as codProduto, tbProdutosPropostas.quantidade as qtde, tbProdServ.c_nome as nomeProduto, tbProdServ.tipo as tipo from tbProdutosPropostas, tbProdServ Where tbProdutosPropostas.Produtos = tbProdServ.c_numero and tbProdutosPropostas.Proposta ='" & proposta & "'and tipo = 'produto'",conn,1 if not (rec_produtos.eof and rec_produtos.bof) then ct=0 while not rec_produtos.eof ct=ct+1 if ct/2 = ct\2 then cor = "#EEEEEE" else cor = "#FFFFCC" end if %> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor2")%>" width="80%"> <td bgcolor="<%= cor %>"> <input type="button" value="x" name="x" onClick="location.href='index.asp?page=incluir_proposta&proposta=<%=proposta%>&op=delprod&codigoProduto=<%= rec_produtos("codProduto") %>'" class="btn"> <a href="index.asp?page=cadastrar_produtos&opcao=detalhes&c_numero=<%= rec_produtos("codProduto") %>" class="ff"> <%= rec_produtos("nomeProduto") %> </a> </td> <td bgcolor="<%= cor %>" width="20%"> <center> <input type="text" value="<%= rec_produtos("qtde") %>" name="quantidade" size="3" readonly>&nbsp;<input type="button" value="+" name="+" onClick="java script:abrepopup('addquantidade.asp?from=incluir_proposta&proposta=<%=proposta%>&produto=<%= rec_produtos("codProduto") %>','janelaconsulta','320','150','yes');" class="btn"> </center> </td> </tr> </table> <% rec_produtos.movenext wend end if %> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor2")%>"><td colspan="2"> <input type="button" value="adicionar item..." name="Adiciona" onClick="location.href = 'index.asp?from=incluir_proposta&page=pesquisar_prod&op=prod&proposta=<%=proposta%>'" class="btn" > </td> </tr> </table> <!-- modificado --> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor1")%>"> <td width="80%"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b>Serviços: </b> </font> <% msg = "Itens da proposta.<br>" msg = msg + "É permitida a inclusão de mais de um item em uma mesma proposta.<br><br>" msg = msg + "Clique no botão <b>adicionar item...</b> para incluir novos produtos na proposta.<br><br>" msg = msg + "Clique no botão <b>X</b> que aparece em frente ao nome do item para excluir um item adicionado." %> <a href="java script:abrepopup('help.asp?msg=<%=msg%>&campo=Itens','janelaconsulta','350','220','yes');" class="branco">?</a> </td> <td width="20%"> <font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#FFFFFF"><b><center>Quantidade:</center> </b> </font> </td> </tr> </table> <% Set rec_produtos = Server.CreateObject("ADODB.Recordset") rec_produtos.Open "SELECT distinct tbProdutosPropostas.Proposta as codProposta, tbProdutosPropostas.Produtos as codProduto, tbProdutosPropostas.quantidade as qtde, tbProdServ.c_nome as nomeProduto, tbProdServ.tipo as tipo from tbProdutosPropostas, tbProdServ Where tbProdutosPropostas.Produtos = tbProdServ.c_numero and tbProdutosPropostas.Proposta ='" & proposta & "'and tipo = 'servico'",conn,1 if not (rec_produtos.eof and rec_produtos.bof) then ct=0 while not rec_produtos.eof ct=ct+1 if ct/2 = ct\2 then cor = "#EEEEEE" else cor = "#FFFFCC" end if %> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor2")%>" width="80%"> <td bgcolor="<%= cor %>"> <input type="button" value="x" name="x" onClick="location.href='index.asp?page=incluir_proposta&proposta=<%=proposta%>&op=delprod&codigoProduto=<%= rec_produtos("codProduto") %>'" class="btn"> <a href="index.asp?page=cadastrar_produtos&opcao=detalhes&c_numero=<%= rec_produtos("codProduto") %>" class="ff"> <%= rec_produtos("nomeProduto") %> </a> </td> <td bgcolor="<%= cor %>" width="20%"> <center> <input type="text" value="<%= rec_produtos("qtde") %>" name="quantidade" size="3" readonly>&nbsp;<input type="button" value="+" name="+" onClick="java script:abrepopup('addquantidade.asp?from=incluir_proposta&proposta=<%=proposta%>&produto=<%= rec_produtos("codProduto") %>','janelaconsulta','320','150','yes');" class="btn"> </center> </td> </tr> </table> <% rec_produtos.movenext wend end if %> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <tr bgcolor="<%=Session("Cor2")%>"><td colspan="2"> <input type="button" value="adicionar item..." name="Adiciona" onClick="location.href = 'index.asp?from=incluir_proposta&page=pesquisar_prod&op=serv&proposta=<%=proposta%>'" class="btn" > </td> </tr> </table> <!-- ate aqui --> <table border="0" width="100%" cellpadding="3" cellspacing="1" align="center"> <!--<tr> <td bgcolor="<%=Session("Cor2")%>" align="center" width="100%" colspan="4"> <input type ="submit" value ="Visualizar Proposta" name="Vpropsta" class="btn"> --> <td bgcolor="<%=Session("Cor2")%>" align="center" width="100%" colspan="4"> <input type="hidden" name="codigoproduto" value="<%request("codigoproduto")%>"> <input type="hidden" name="proposta" value="<%=request("proposta")%>"> <input type="hidden" name="contatoCodigo" value="<%=contatoCodigo%>"> <!-- <input type="hidden" name="proposta" value="<%=proposta%>"> <input type="hidden" name="contatoCodigo" value="<%=contatoCodigo%>"> --> <input type="hidden" name="opcao" value="save"> <input type="submit" value="Avançar..." name="Submit" class="btn"> </td> </tr> </table> </td> </tr> </table> </form> <% end if %>[/codebox] select_prod : [codebox]<% 'Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") rec_direitos.Open "SELECT * from tbDireitosUsuarios where usuario=" & Session("Codigo"),conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If proposta = request.querystring("proposta") 'codigo_produtos=resquest.querystring("codigo_produtos") if request("op") = "prod" then sql = "select tbProdServ.C_numero as codigoProduto, tbProdServ.C_nome as nomeProduto, tbProdServ.descricao as descricao, tbProdServ.c_fabricante as fabricante,tbProdServ.tipo as tipo from tbProdServ WHERE ativo = 1 and C_Obsoleto = 0 and tipo = 'produto' " else sql = "select tbProdServ.C_numero as codigoProduto, tbProdServ.C_nome as nomeProduto, tbProdServ.descricao as descricao, tbProdServ.c_fabricante as fabricante,tbProdServ.tipo as tipo from tbProdServ WHERE ativo = 1 and C_Obsoleto = 0 and tipo = 'servico' " end if if request.form("descricao")<>"" then descricao = request.form("descricao") descricao = replace(descricao,"a","[a,á,à,ã,â,ä]") descricao = replace(descricao,"e","[e,é,è,ê,ë]") descricao = replace(descricao,"i","[i,í,ì,î,ï]") descricao = replace(descricao,"o","[o,ó,ò,õ,ô,ö]") descricao = replace(descricao,"u","[u,ú,ù,û,ü]") sql = sql & " and tbProdServ.descricao LIKE '%" & descricao & "%' " end if if request.form("nome")<>"" then nome = request.form("nome") nome = replace(nome,"a","[a,á,à,ã,â,ä]") nome = replace(nome,"e","[e,é,è,ê,ë]") nome = replace(nome,"i","[i,í,ì,î,ï]") nome = replace(nome,"o","[o,ó,ò,õ,ô,ö]") nome = replace(nome,"u","[u,ú,ù,û,ü]") sql = sql & " and tbProdServ.C_nome LIKE '%" & nome & "%'" end if if request.form("grupo")<>"" then grupo = request.form("grupo") grupo = replace(grupo,"a","[a,á,à,ã,â,ä]") grupo = replace(grupo,"e","[e,é,è,ê,ë]") grupo = replace(grupo,"i","[i,í,ì,î,ï]") grupo = replace(grupo,"o","[o,ó,ò,õ,ô,ö]") grupo = replace(grupo,"u","[u,ú,ù,û,ü]") sql = sql & " and tbProdServ.C_numero in (select tbGruposxProdutos.produto from tbGruposxProdutos where grupo=" & grupo & ")" end if if request.form("fabricante")<>"" then sql = sql & " and tbProdServ.C_fabricante LIKE '%" & request.form("fabricante") & "%'" end if %> <form method="post" action="index.asp?page=<%=request("from")%>&proposta=<%=proposta%>" name="form1"> <table cellpadding="2" cellspacing="2" align="center" border="0"> <tr align="center"> <td colspan="2"> <font face="Verdana, Arial, Helvetica, sans-serif" size="3" color="#000000"> <!-- <% if request.querystring("op") = "prod" then %> <b> Selecionar Produtos a serem adicionados:<br><br> </b> <% else %> --> <b> Selecionar Itens a serem adicionados:<br><br> </b> <!--<% end if %> --> </font> </td> </tr> <tr bgcolor="<%= session("cor1") %>"> <td> <font color = white> <b> Nome </b> </font> </td> <td> <font color = white> <b> Descrição </b> </font> </td> <td> <font color = white> <b> Fabricante </b> </font> </td> </tr> <% Set rec_produtos = Server.CreateObject("ADODB.Recordset") sql = sql & " order by tbProdServ.C_nome" rec_produtos.Open sql, conn, 1 while not rec_produtos.eof ct=ct+1 if ct/2 = ct\2 then cor = "#EEEEEE" else cor = "#FFFFCC" end if %> <tr> <td bgcolor="<%= cor %>"> <input type="checkbox" value="<%= rec_produtos("codigoProduto") %>" name="chk<%= rec_produtos("codigoProduto") %>"> <a href="index.asp?page=cadastrar_produtos&opcao=detalhes&c_numero=<%= rec_produtos("codigoProduto") %>" class="ff"> <%= rec_produtos("nomeProduto") %> </a> </td> <td bgcolor="<%= cor %>"> <a href="index.asp?page=cadastrar_produtos&opcao=detalhes&c_numero=<%= rec_produtos("codigoProduto") %>" class="ff"> <%= rec_produtos("descricao") %> </a> </td> <td bgcolor="<%= cor %>"> <%= rec_produtos("fabricante") %> </td> </tr> <%rec_produtos.movenext wend %> <tr> <td align="center" colspan="2"> <input type="hidden" name="cod" value="<%session("Codigo_Produtos")%>"> <input type="hidden" name="op" value="addprod"> <input type="submit" name="submeter" value="Adicionar" class="btn"> <input type="button" name="voltar" value="Voltar" class="btn" onClick="location.href='java script:history.go(-1);';"> </td> </tr> </table> </form> e a teste1 que é onde eu quero exibir as variáveis, para depois fazer a consulta: <html> <head> <title>Marcelo</title> </head> <Body> <% 'aqui você pega a string que foi passada 'lembra que se você quiser outro nome sai mudando em todo lugar hein..... codigo_produtos=request.QueryString("codigo_produtos") 'aqui quebra a string e tal.... usando o separador que eu coloquei lá que é o ; dim codigos_dos_produtos codigos_dos_produtos=Split(codigo_produtos, ";", -1, 1) 'pronto agora você tem um array com o total de produtos selecionados response.Write("Código dos Produtos Selecionados") for x=0 to ubound(codigo_dos_Produtos) response.Write(codigos_dos_produtos(x)&"<br />") next proposta=request("proposta") response.write(proposta) response.end 'Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") sql="SELECT * from tbDireitosUsuarios where usuario="&Session("Codigo")&";" 'response.write(sql) 'response.end() 'aqui você verifica a instrução sql e ve se está certa....... rec_direitos.Open sql,conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If %> </Body> </Html>[/codebox] desculpa a desformatação do tópico, mas o código está assim =T e eu já andei discutindo com alguns amigos pra ver se resolvia, por isso os comentários no código ! quem tiver a boa vontade de ajudar... agradeço !!
  7. noiss

    Erro Na Conexão Com Bd

    faala ! Por enquanto do tem tabela1- produtos as características eu vou ter que montar ainda... não sei se na mesma tabela ou em outra, mas acho que vou montar na mesma. Mas acho que o problema está em saber onde estão as variáveis que passam o código de cada produto manja? porque o que ela vai visualizar depois de escolher os produtos e serviços vai ser uma tela assim: PRODUTOS : produto xxxxxxxxx produto yyyyyyyyy SERVIÇOS: serviço xxxxxxxx serviço yyyyyyyy Avançar... ai assim que ela clicar em avançar, vai ter que aparecer a proposta na tela com todos os produtos e todos os serviços e as características de cada um. Mas eu não posso buscar por código de proposta porque essa proposta ainda não vai estar cadastrada, tem que ser por código de cada produto/serviço mesmo, e eu não estou conseguindo achar isso no código =T então. achei aqui pra facilitar... if request("op") = "prod" then sql = "select tbProdServ.C_numero as codigoProduto, tbProdServ.C_nome as nomeProduto, tbProdServ.descricao as descricao, tbProdServ.c_fabricante as fabricante,tbProdServ.tipo as tipo from tbProdServ WHERE ativo = 1 and C_Obsoleto = 0 and tipo = 'produto' " else sql = "select tbProdServ.C_numero as codigoProduto, tbProdServ.C_nome as nomeProduto, tbProdServ.descricao as descricao, tbProdServ.c_fabricante as fabricante,tbProdServ.tipo as tipo from tbProdServ WHERE ativo = 1 and C_Obsoleto = 0 and tipo = 'servico' " end if ai estão sendo passados os dados do produto la, agora o que que eu quero.... tenho 3 páginas, a incluir_proposta , a select_prod e a teste1 a incluir proposta é a que eu vou estar, quando eu quiser escolher um produto ele vai pra select_prod, executa essa query sql , e volta pra incluir_proposta... e ficaria um layout como eu montei ali em cima, e quando clicar em avançar ele tem que pegar o código de cada produto/serviço escolhido buscar na tabela os dados adicionais e exibir na tela teste1.asp . nessa página teste1 eu consegui fazer aparecer o codigo da proposta, mas os produtos não estou conseguindo fazer aparecer... []'s
  8. noiss

    Erro Na Conexão Com Bd

    ehhh, maomenos... pk assim, tem uma pagina com produtos você clica em adicionar produtos ele abre uma tela com todos os produtos cadastrados pra escolher com checkbox e a mesma coisa com serviços... ai ele precisa pegar o código de cada produto e de cada serviço escolhido, pra exibir na tela como se fosse a proposta pronta já, entende... mais ou menos assim: produto X * o produto x faz tal coisa e bablablal *vem incluso com o produto x , tal software e blablabl *cd de instalação tal tal, versão tal tal quando ela escolhe na lista de produtos e serviços ela vai visualizar só o produto X mas quando ela escolher ele, ai vem junto com ele todos esses dados entende? que estão na tabela e que vao vir vinculados ao código do produto. e na proposta que ela vai visualizar vao vir todos esses dados acima. e depois de visualizado ela pronta na tela que vou fazer o .doc . Porque hj em dia eles estão fazendo esse .doc manualmente ehehhe abraços
  9. noiss

    Erro Na Conexão Com Bd

    ehhh veio... deu certinho. vlww ;) mas então... isso ai, é pra verificar a permissão do usuário, ou seja, o que ele pode fazer na proposta. incluir,alterar,deletar etc... essa é a primeira parte agora, eu preciso fazer um esquema que ao ele escolher os produtos da proposta, grave o código de cada produto em uma session ow sei la o que... e chame essa session nessa mesma página que verificou a permissão e exiba nela entende? pra pessoa que for montar a proposta visualizar ela certinho , verificar e fazer um ".doc" que isso eu vejo otra hora.
  10. noiss

    Erro Na Conexão Com Bd

    funcionou rike, ele colocou.... SELECT * from tbDireitosUsuarios where usuario = "conteúdo da variável" o problema é nas aspas... !!
  11. noiss

    Erro Na Conexão Com Bd

    'Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") rec_direitos.Open "SELECT * from tbDireitosUsuarios where usuario=" & Session("Codigo"),conn,1 if not rec_direitos("propostas") Then response.redirect "proibido.asp" End If andreia eu to achando que é aqui que está o erro bem onde estão as aspas em negrito , porque eu estou abrindo no context essas páginas... e me parece que ele está reconhecendo que akela aspas do codigo está fechando a do select, algo assim. Tem algo de errado ali? o problema é que tem esse tratamento em todas as outras páginas aqui da intranet e não da problema nenhum , isso que não da pra entender !! abraços
  12. noiss

    Erro Na Conexão Com Bd

    eu acho que não... o que tem na página é o que eu postei no tópico. Como faço pra anexar o arquivo?
  13. noiss

    Erro Na Conexão Com Bd

    esse código é pra verificar a permissão do usuário, exemplo. c ele pode cadastrar uma proposta, ou deletar essas coisas entende. no caso aqui esse código ai está como 10 e o número 10 no BD está tudo true então quer dizer que eu posso fazer qualquer coisa entende? abraços...
  14. noiss

    Erro Na Conexão Com Bd

    Bom dia Andreia, então, o erro está dando na lina 18 : rec_direitos.Open sql,conn,1 eu acho que é alguma coisa com esse conn.
  15. noiss

    Erro Na Conexão Com Bd

    <% ' Verifica permissao do usuario Set rec_direitos = Server.CreateObject("ADODB.Recordset") sql="SELECT * from tbDireitosUsuarios where usuario= "&Session("Codigo") rec_direitos.Open sql,conn,1 proposta = request("proposta") Set rec_produtos = Server.CreateObject("ADODB.Recordset") rec_produtos.Open "SELECT tbProdutosPropostas.quantidade as qtde, tbProdServ.c_nome as nomeProduto from tbProdutosPropostas, tbProdServ Where tbProdutosPropostas.Produtos = tbProdServ.c_numero and tbProdutosPropostas.Proposta ='" & proposta & "'",conn,1 %> exibe o seguinte erro: Tipo de erro: ADODB.Recordset (0x800A0BB9) Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito. /propostas/teste1.asp, line 18 abraços.
×
×
  • Create New...