noiss

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...

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.

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 .

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">

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

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 !!

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

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

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.

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

'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

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?

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...

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.

<% ' 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.