Ir para conteúdo
Fórum Script Brasil

JJTam

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    6

  • Registro em

  • Última visita

Sobre JJTam

JJTam's Achievements

0

Reputação

  1. JJTam
    É uma dúvida besta, acho: Como faço pra retornar o index de uma opção do select passando o valor do "value" ? Tipo, eu sei qual é o value e quero retorna o index dessa opção.
  2. JJTam

    Function Com 2 Parametros

    uma questão postou JJTam ASP

    Olá Pessoal, O caso é o seguinte, na minha pagina asp tenho 3 combos, cboUnidade, cboTipoEqpto e cboModelo. quando seleciono uma opção em cboTipoEqpto e/ou cboUnidade a página é atualizada e cboModelo recebe valores, esses valores mudam toda vez que uma opção é selecionada nos outros 2. Para facilitar a vida do usuário quando a pagina atualiza os valores de cboModelo, os opções escolhidas em cboUnidade e cboTipoEqpto devem estar selecionadas. Exemplo: se eu escolho "Ag. Serigy" em cboUnidade e "MicroComputador" em cboTipoEquip, a pagina vai atualiza e o combo cboModelo vai mostrar os valores da select(sql). Mas tanto o cboUnidade como o cboTipoEqpto devem ficar com as opções "Ag. Serigy" e "MicroComputador" marcadas, para o usuário não ter que reseleciona-las. Ai vai o codigo: <script Language="VBScript"> Function TP_OnLoad(a,b) frmeqpto.cboTipoEqpto.selectedIndex=a frmeqpto.cboUnidade.selectedIndex=b End Function </SCRIPT> <%response.write"<body bgcolor='#FFFFCC' text='#FFFFCC' onLoad='TP_OnLoad("&tipoequip&","&agencia&")'>"%> Eu chamo esta função no onLoad da página, mas o problema é que ela não funciona com 2 parametros. Se eu colocar apenas "TP_Onload(a) ou TP_Onload(B)" e "&tipoequip&" ou "&agencia&" ele funciona. Só tá funcionado se for um parametro. alguém sabe o que pode está acontecendo ?
  3. JJTam
    Não apaguei o JS o código continua igual só disse que quando acrescento essa última parte do código que postei começa a dar o erro.
  4. JJTam
    Pelo que entendi amigo você quer atualizar a sua "pagina01.asp" com as informações referentes a opção escolhida do combo "troca_bem", se for isso tem que ser feito por asp, pelo menos eu fiz assim em um dos meus sistemas. O principio é esse, você precisa passar valores atualizando a página para sua select (sql) trazer os resultados esperados, pelo que entendi é isso que você quer. Como não sei o resto do seu código //definição de variável vbem que será utilizada - feita antes da tag html <% dim vbem vbem = Request.QueryString("BEM") if vbem="" then vbem=0 end if %> /*codigo da subrotina que irá efetuar a troca de valores da pagina quando uma opção da [sua select] for escolhido, note que ele chama novamente a pagina mas agora com um parametro que é BEM, esse parametro vai ser os valor passado para a variavel vbem para o a select da pagina trazer resultados - feita antes da tag head e dps da title*/ <script Language="VBScript"> Sub [sua select]_OnChange() Window.Navigate "[sua pagina].asp?BEM=" & [seu form].[sua select].options(frmeqpto.cboTipoEqpto.selectedIndex).value End Sub </SCRIPT> /*esse código em ASP cria o combo [sua select], note que na tag select tem o evento onChange que chama a função '[sua select]_OnChange()' que irá efetuar a troca dos valores na pagina - feita depois da tag body*/ <% seu codigo de criação da select lembrando que a tag select deve conter o evento onChange <select name='sua select' onChange='sua select_OnChange()' %>
  5. JJTam
    Fui refazendo as páginas aos poucos e cheguei no ponto do erro. Funciona normal até eu botar essa parte do código: <% Response.Expires = 1 dim agencia agencia = Request.QueryString("AG") if agencia="" then agencia=0 end if dim tipoequip tipoequip = Request.QueryString("TP") if tipoequip="" then tipoequip=0 end if Session("Modelo")=Request("TP") %> //criação de variaveis para ser utilizada na subrotina <script Language="VBScript"> Sub cboTipoEqpto_OnChange() Window.Navigate "ConsultaEqpto2.asp?TP=" & frmeqpto.cboTipoEqpto.options(frmeqpto.cboTipoEqpto.selectedIndex).value & "&AG=" & frmeqpto.cboUnidade.options(frmeqpto.cboUnidade.selectedIndex).value End Sub Sub TP_OnLoad(a) frmeqpto.cboTipoEqpto.selectedIndex=a End Sub </SCRIPT> //crio uma subrotina para criar o combo cboModelo na hora que uma opção do como cboTipoEqpto for selecionado <%response.write"<body bgcolor='#FFFFCC' text='#FFFFCC' onLoad='TP_OnLoad("&tipoequip&")'>"%> //escrevo a tag <body> dinamicamente com asp para poder utilizar a variavel tipoequip que é criada lá em cima <% if (tipoequip<>"") Then dim vSQL if Trim(agencia) = 0 then vSQL = "SELECT * FROM tb_Modelo WHERE OID_TipoEqpto = '"& tipoequip &"' ORDER BY Descricao" else vSQL = "select Distinct ID_Modelo, Descricao from tb_Modelo, tb_Equipamento " vSQL = vSQL + "where(OID_Unidade = "& agencia &") and (OID_Modelo = ID_Modelo) and (OID_TipoEqpto = "& tipoequip &")" end if Set CStrazermodelo = Server.CreateObject("ADODB.Recordset") Set CStrazermodelo = Conn.Execute(vSQL) If CStrazermodelo.EOF Then Response.Write "<select name='cboModelo'><option value=0>Não existem Modelos." else CStrazermodelo.MoveFirst Response.write "<select name='cboModelo'><option value=0 selected>Selecione um Modelo..." Do While not CStrazermodelo.EOF response.write "<option value='" & CStrazermodelo("ID_Modelo") & "'>" & CStrazermodelo("Descricao") CStrazermodelo.MoveNext loop End If Response.write "</select>" end if %> // codigo de criação dinamica do combo cboModelo quando eu implemento essa parte começa a dar o erro: Tipos incompativeis: 'return' Ao menos está parando o submit agora que refiz a pagina mas gostaria de eliminar esse erro que fica acusando no IE
  6. JJTam
    Olá pessoal Tenho um sistema asp e estou precisando que uma função em JS retorne valores para o form ser validado antes de er submetido. O problema é justamente esse fica dando um erro: Tipos incompativeis: 'return' por isso ele mostra a o 'alert' e não para o submit Cada botão chama uma função de validação e dps tem uma função mestre que valida essas 2 ai vai o código <html> <head> <style type="text/css"> <!-- .bordaum td {border:1px solid #006699;} --> </style> <title>Consulta de Equipamentos</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <script Language="VBScript"> Sub cboTipoEqpto_OnChange() Window.Navigate "ConsultaEqpto.asp?TP=" & frmeqptocont.cboTipoEqpto.options(frmeqptocont.cboTipoEqpto.selectedIndex).value & "&AG=" & frmeqptocont.cboUnidade.options(frmeqptocont.cboUnidade.selectedIndex).value End Sub Sub TP_OnLoad(a) frmeqptocont.cboTipoEqpto.selectedIndex=a End Sub </SCRIPT> <script language="Javascript"> function Alerta() { if (frmeqptocont.cboContrato.value==0){ frmeqptocont.cboUnidade.value=0; frmeqptocont.cboTipoEqpto.value=0; alert("Selecione um Contrato."); return false } return true } function Alerta2() { if ((frmeqptocont.cboUnidade.value == 0)&&(frmeqptocont.cboTipoEqpto.value == 0)){ frmeqptocont.cboContrato.value=0; alert("Selecione um campo."); return false; //validação simplificada para teste } return true; } function AlertaGeral(){ if ((Alerta()==false)&&(Alerta2()==false)) { return false; } return true; } </SCRIPT> </head> <body bgcolor='#FFFFCC' text='#FFFFCC'> <form name="frmeqptocont" method="post" action="MostraEqpto.asp" onSubmit="AlertaGeral()"> <table width="100%" border="0" cellspacing="1" cellpadding="1" class="bordaum"> <tr> <td colspan="3" bgcolor="#006699"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="4" color="#FFFFCC">CONTROLE DE EQUIPAMENTOS</font></b></div> </td> </tr> <tr> <td colspan="3" height="15" bgcolor="#006699"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFCC">Escolha o melhor filtro de pesquisa...</font></b></div> </td> </tr> <tr> <td colspan="3" bgcolor="#006699"> </td> </tr> <tr> <td bgcolor="#0099CC"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFCC">Consulta Por Contratos</font></b></div> </td> <td colspan="2" bgcolor="#666699"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFCC">Consulta Por Equipamentos</font></b></div> </td> </tr> <tr> <td bgcolor="#0099CC"> <div align="center"> <p><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <% dim sql2 sql2 = "select Descricao from TB_Contrato order by ID_Contrato" Set CStrazercont = Server.CreateObject("ADODB.Recordset") Set CStrazercont = Conn.Execute(sql2) dim cont CStrazercont.MoveFirst cont=1 Response.write "<select name='cboContrato'><option value=0>Selecione um Contrato" Do While not CStrazercont.EOF Response.write "<option value="& cont &">"& CStrazercont.Fields("Descricao") &"</option>" cont=cont+1 CStrazercont.MoveNext loop Response.write "</select>" %> </font></b></p> </div> </td> <td bgcolor="#666699"> <div align="center"> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <input type="text" name="txtnrSerie"> <br> Por Nº de Série</font></b></div> <div align="center"> <font size="2"> <font size="3"> <b> <font face="Verdana, Arial, Helvetica, sans-serif"> <font size="2"> <input type="text" name="txtTombamento"> <br> Por Tombamento</font></font></b></font></font></div> <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> <input type="text" name="txtNome"> <br> Por Nome</font></b></div> </div> </td> <td bgcolor="#666699"> <div align="center"><b><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <% dim sqlag sqlag= "SELECT ID_Unidade, CGC, Nome FROM tb_Unidade ORDER BY CGC" Set CStrazeragencia = Server.CreateObject("ADODB.Recordset") Set CStrazeragencia = Conn.Execute(sqlag) CStrazeragencia.MoveFirst Response.write "<select name='cboUnidade'><option value=0 selected>Selecione uma Unidade..." Do While not CStrazeragencia.EOF Response.Write "<option value='" & CStrazeragencia("ID_Unidade") & "'>" & CStrazeragencia("CGC")& " - " & CStrazeragencia("Nome") CStrazeragencia.MoveNext loop Response.write "</select>" %> <br> Por Unidade</font></b></font></b></div> <div align="center"> <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"> <% dim sqltpeq 'dim vagencia 'dim vtipoequip sqltpeq= "SELECT * FROM tb_TipoEquipamento Order by ID_Tipo" Set CStrazereqpto = Server.CreateObject("ADODB.Recordset") Set CStrazereqpto = Conn.Execute(sqltpeq) CStrazereqpto.MoveFirst Response.write "<select name='cboTipoEqpto' onChange='cboTipoEqpto_OnChange()'><option value=0>Selecione um Tipo..." Do While not CStrazereqpto.EOF response.write "<option value='" & CStrazereqpto("ID_Tipo") & "'>"& CStrazereqpto("Descricao") CStrazereqpto.MoveNext loop Response.write "</select>" %> <br> </font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif">Por Tipo Equipamento</font></b></font></b></font><font size="2"><b></b></font></div> </div> <div align="center"><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif"></font></b></font></div> <br> <font size="2"><b><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif">Por Modelo </font></b></font></b></font> </td> </tr> <tr> <td height="26" bgcolor="#0099CC"> <div align="center"> <input type="submit" name="btConsultar" value="CONSULTAR" onclick="return Alerta()"> </div> </td> <td colspan="2" height="26" bgcolor="#666699"> <div align="center"><font size="2"><b> <input type="submit" name="btConsultar2" value="CONSULTAR" onclick="return Alerta2()"> </b></font></div> </td> </tr> </table> </form> Coloquei o código qse todo para identificar possiveis erros.
×
×
  • Criar Novo...