Completando um form a partir de uma popup

panox · Outubro 21, 2008

Eu estou tentando fazer o seguinte :

Ao dar onBlur em uma textbox em um form, ela chama uma pop up de pesquisa :

<%
dim Conexao

set Conexao = Server.CreateObject("ADODB.Connection")

set r5 = Server.CreateObject("adodb.recordset")

Conexao.Open ("DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey; DBNAME=192.168.0.1:C:\IBSERVER\LIDER.fdb")

cod_gestor2 = request.QueryString("cod_gestor2")
descricao = request.QueryString("descricao")

r5.open "select P.APELIDO, P.COD_BARRA, P.DESCRICAO, P.UMEDIDA_COMPRA from CAD_PRODUTO P where P.DESCRICAO STARTING WITH '"& descricao &"' AND EXISTS(SELECT G.COD_GRUPO FROM CAD_PRODUTO_GRUPO_GESTOR G WHERE G.COD_GRUPO = P.COD_GRUPO AND G.COD_GESTOR ='"& cod_gestor2 &"')",Conexao  
%>

<script language="javascript">
function teste(){
parent.document.getElementById('apelido').value = 'Novo Nome';
window.close();
}
</script>
<style type="text/css">
table
{
font-family: verdana;
font-size: 11px;
color: #000099;
font-weight: bold;
}

select
{
font-family: verdana;
font-size: 11px;
}
</style>


<html>
<body>

<table border="1" width="100%" cellspacing="0" cellpadding="5" name="table" id="table">

<tr bgcolor="#EAEBEF" bordercolorlight="#FFFFFF" bordercolordark="#E3E5EA">
<td><font size=4 color=#000099 type="verdana"><b>Codigo</b></font></td>
<td width="20%"><font size=4 color=#000099 type="verdana"><b>Codigo de Barra</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b>Descricao</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b>UM</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b></b></font></td>
</tr>

<%do until r5.eof%>


<tr>
<td name="apelido"><%=r5("APELIDO")%></td>
<td name="cod_barra"><%=r5("COD_BARRA")%></td>
<td name="descricao"><%=r5("DESCRICAO")%></td>
<td name="um"><%=r5("UMEDIDA_COMPRA")%></td>
<td><a href="#" onClick="teste();">Adicionar</a></td>
</tr>

<% 
r5.movenext 
loop
%>



</table>

</body>
</html>

Ao clicar no link adicionar, ele deveria fechar o pop up e mandar o campo =r5("APELIDO") referente a tr do link clicado. Eu coloquei 'Novo Nome porque não sei como passar o valor, mas a funcionalidade é a mesma... o problema é que ao clicar no link, não acontece nada, apenas surge o simbolo de erro de JS no canto do meu IE.

Voces saberiam me dizer o que estou fazendo de errado ? Obrigado desde já

[]'s

fercosmig · Outubro 22, 2008

qual o erro apresnta?

o campo com id apelido exite?

posta todo o código ae

panox · Outubro 22, 2008

Sim, o campo existe...não apresenta "erro", ele apenas não faz nada, apenas aponta o simbolo de erro de JS do IE.

o codigo da pagina pop up é esta mesma...

<%
dim Conexao

set Conexao = Server.CreateObject("ADODB.Connection")

set r5 = Server.CreateObject("adodb.recordset")

Conexao.Open ("DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey; DBNAME=192.168.0.1:C:\IBSERVER\LIDER.fdb")

cod_gestor2 = request.QueryString("cod_gestor2")
descricao = request.QueryString("descricao")

r5.open "select P.APELIDO, P.COD_BARRA, P.DESCRICAO, P.UMEDIDA_COMPRA from CAD_PRODUTO P where P.DESCRICAO STARTING WITH '"& descricao &"' AND EXISTS(SELECT G.COD_GRUPO FROM CAD_PRODUTO_GRUPO_GESTOR G WHERE G.COD_GRUPO = P.COD_GRUPO AND G.COD_GESTOR ='"& cod_gestor2 &"')",Conexao  
%>

<script language="javascript">
function teste(){
parent.document.getElementById('apelido').value = 'Novo Nome';
window.close();
}
</script>
<style type="text/css">
table
{
font-family: verdana;
font-size: 11px;
color: #000099;
font-weight: bold;
}

select
{
font-family: verdana;
font-size: 11px;
}
</style>


<html>
<body>

<table border="1" width="100%" cellspacing="0" cellpadding="5" name="table" id="table">

<tr bgcolor="#EAEBEF" bordercolorlight="#FFFFFF" bordercolordark="#E3E5EA">
<td><font size=4 color=#000099 type="verdana"><b>Codigo</b></font></td>
<td width="20%"><font size=4 color=#000099 type="verdana"><b>Codigo de Barra</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b>Descricao</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b>UM</b></font></td>
<td><font size=4 color=#000099 type="verdana"><b></b></font></td>
</tr>

<%do until r5.eof%>


<tr>
<td name="apelido"><%=r5("APELIDO")%></td>
<td name="cod_barra"><%=r5("COD_BARRA")%></td>
<td name="descricao"><%=r5("DESCRICAO")%></td>
<td name="um"><%=r5("UMEDIDA_COMPRA")%></td>
<td><a href="ldes.asp" onClick="teste();">Adicionar</a></td>
</tr>

<% 
r5.movenext 
loop
%>



</table>

</body>
</html>

não sei se você precisa do codigo da pagina que chama, considere uma pagina com uma text box chamada apelido apenas ;D

detalhe que essa pagina já vai estar aberta, é ela que chama a pop up, você seleciona o item, a pop up fecha e manda o campo apelido para a textbox apelido da pagina que já estava aberta.

entendeu ou eu confundi ?

alguém mais ? =P

Entrar

Completando um form a partir de uma popup

Pergunta

panox

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

fercosmig

Link para o comentário

Compartilhar em outros sites

panox

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades