GARANTIR DESCONTO

Fórum form de pesquisa #66514

01/04/2008

0

Agradeço qualquer ajuda...

Bom, tenho um form de pesquisa, que peguei do exemplo de Luciano Pimenta, edição 88, Matéria ´JavaScript´, onde abro a janela de consulta pesquisaFuncionario.aspx, porém não preenche meus controles, digito o nome do funcionario, aparece os nomes, porem tenho na de de cadastro, nome, endereco e foto, e não preeche.

Vejam só:

Meu botão para abrir form pesquisa:
procedure TWebForm1.Button2_Click(sender: System.Object; e: System.EventArgs);
var
aScript: StringBuilder;
begin
{: mensagem com JavaScript }
aScript := StringBuilder.Create;
aScript.Append(´<script language=´JavaScript´>´);
aScript.Append(´window.open(´pesquisaFuncionario.aspx?act=cli´,´);
aScript.Append(´´´, ´channelmode=yes, ´);
aScript.Append(´resizable=no,fullscreen=0, ´);
aScript.Append(´width=500, height=300´);´);
{aScript.Append(´window.showModelessDialog(´pesquisaFuncionario.aspx?act=cli´,´);
aScript.Append(´´´, ´dialogHeight:300px; dialogWidth:500px; ´);
aScript.Append(´center:yes; resizable:no; ´);
aScript.Append(´status:yes´);´);}
aScript.Append(´</script>´);
if not Page.IsClientScriptBlockRegistered(´client´) then
Page.RegisterClientScriptBlock(´client´, aScript.ToString);

end;

No evento ItemCommand do DataGrid tem isso:
procedure TWebForm3.DataGrid1_ItemCommand(source: System.Object; e: System.Web.UI.WebControls.DataGridCommandEventArgs);
var
aScript: StringBuilder;
begin
Session[´CRACHA´] := DataGrid1.DataKeys[e.Item.ItemIndex];
{ se clicou no Selecionar, executa script }
if e.CommandName = ´Select´ then
begin
aScript := StringBuilder.Create;
aScript.Append(´<script language=´JavaScript´>´);
if Request.QueryString[´act´] = ´dep´ then
begin

aScript.Append(´window.opener.document.forms[0]´);
aScript.Append(´[´txtNome´].value =´´ + e.Item.Cells[1].Text + ´´; ´);
aScript.Append(´[´txtCargo´].value =´´ + e.Item.Cells[2].Text + ´´; ´);
aScript.Append(´[´txtSetor´].value =´´ + e.Item.Cells[3].Text + ´´; ´);

end
else
begin
aScript.Append(´window.opener.location = ´);
aScript.Append(´´Consulta_Cracha.aspx´;´);
end;
aScript.Append(´window.close()´);
aScript.Append(´</script>´);
if not Page.IsClientScriptBlockRegistered(´client´) then
Page.RegisterClientScriptBlock(´client´, aScript.ToString);
end;
end;


Obs.: Tenho todas as Columns no DataGrid, porem só deixo visivel as id e nome. a cargo e setor estão invisiveis.

Valeu qualqeur ajuda.

Paulo F.


Pauloroger

Pauloroger

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar