Remote com mais de uma opção

[shumi 0]

vou fazer por partes, pra você ver.

Veja o ajax

 

Ajax.js

 

//-----------------------------------------------------------------------------// Define some constants.//-----------------------------------------------------------------------------// Define a list of Microsoft XML HTTP ProgIDs.var XMLHTTPREQUEST_MS_PROGIDS = new Array(	"Msxml2.XMLHTTP.7.0",	"Msxml2.XMLHTTP.6.0",	"Msxml2.XMLHTTP.5.0",	"Msxml2.XMLHTTP.4.0",	"MSXML2.XMLHTTP.3.0",	"MSXML2.XMLHTTP",	"Microsoft.XMLHTTP");// Define ready state constants.var XMLHTTPREQUEST_READY_STATE_UNINITIALIZED = 0;var XMLHTTPREQUEST_READY_STATE_LOADING	   = 1;var XMLHTTPREQUEST_READY_STATE_LOADED		= 2;var XMLHTTPREQUEST_READY_STATE_INTERACTIVE   = 3;var XMLHTTPREQUEST_READY_STATE_COMPLETED	 = 4;//-----------------------------------------------------------------------------// Returns an XMLHttpRequest object.//-----------------------------------------------------------------------------function getXMLHttpRequest(){	var httpRequest = null;	// Create the appropriate HttpRequest object for the browser.	if (window.XMLHttpRequest != null)		httpRequest = new window.XMLHttpRequest();	else if (window.ActiveXObject != null)	{		// Must be IE, find the right ActiveXObject.		var success = false;		for (var i = 0; i < XMLHTTPREQUEST_MS_PROGIDS.length && !success; i++)		{			try			{				httpRequest = new ActiveXObject(XMLHTTPREQUEST_MS_PROGIDS[i]);				success = true;			}			catch (ex)			{}		}	}	// Display an error if we couldn't create one.	if (httpRequest == null)		alert("Error in HttpRequest():\n\nCannot create an XMLHttpRequest object.");	// Return it.	return httpRequest;}//-----------------------------------------------------------------------------// This code uses an XMLHttpRequest object to look up the city and state of the// ZIP code entered by the user. That data is then used to populate the// corresponding form fields.//-----------------------------------------------------------------------------var cityStateLookup = getXMLHttpRequest();function ProcurarCompativel(event){	// Clear the status text.	//setStatusText("");	// Check for a zip code.	var Codigo = document.getElementById("coligada").value;	// Perform an asynchronous request to get the matching city and state.	var url = "pesquisabanco.asp?coligada=" + Codigo;	cityStateLookup.onreadystatechange = cityStateReadyStateChange;	cityStateLookup.open("GET", url, true);	cityStateLookup.send(null);}function cityStateReadyStateChange(){	//var statusText;	// Check the ready state.	switch (cityStateLookup.readyState)	{		case XMLHTTPREQUEST_READY_STATE_UNINITIALIZED:			//statusText = "";			break;		case XMLHTTPREQUEST_READY_STATE_LOADING:			//statusText = "Initialzing ZIP Code lookup...";			break;		case XMLHTTPREQUEST_READY_STATE_LOADED:			//statusText = "Sending data...";			break;		case XMLHTTPREQUEST_READY_STATE_INTERACTIVE:			//statusText = "Downloading data...";			break;		case XMLHTTPREQUEST_READY_STATE_COMPLETED:			// Assume no match was found.			//statusText = "ZIP Code not found."			// Fill in the city and state fields, if available.			try			{				var data = cityStateLookup.responseText.split(",");				if (data.length == 25)				{document.getElementById("material_recebendo").value = data[0];document.getElementById("produto_recebendo").value = data[1];document.getElementById("uniforme_recebendo").value = data[2];document.getElementById("material_treinamento").value = data[3];document.getElementById("trabalho_parceria").value = data[4];document.getElementById("trabalho_supervisao").value = data[5];document.getElementById("trabalho_coordenacao").value = data[6];document.getElementById("material_comprado_parceira").value = data[7];document.getElementById("selecao_treinamento").value = data[8];document.getElementById("relatorios").value = data[9];document.getElementById("envio_status").value = data[10];document.getElementById("valor_taxa_parceira").value = data[11];document.getElementById("valor_taxa_parceira_pelo_o_q").value = data[12];document.getElementById("documento_para_recebimento_taxa_de_parceira").value = data[13];document.getElementById("valor_taxa_supervisao").value = data[14];document.getElementById("valor_taxa_supervisao_pelo_o_q").value = data[15];document.getElementById("documento_para_recebimento_taxa_de_supervisao").value = data[16];document.getElementById("valor_taxa_coordenacao").value = data[17];document.getElementById("valor_taxa_coordenacao_pelo_o_q").value = data[18];document.getElementById("documento_para_recebimento_taxa_de_coordenacao").value = data[19];document.getElementById("valor_verba_compra_material").value = data[20];document.getElementById("valor_verba_compra_material_pelo_o_q").value = data[21];document.getElementById("documento_para_compra_de_material").value = data[22];document.getElementById("fotos").value = data[23];document.getElementById("mais_informacao").value = data[24];					//statusText = "ZIP Code found."				}			}			catch (ex)			{}			break;		default:			//statusText = "Unknown error.";			break;	}	// Update the status message.	//setStatusText(statusText);}function setStatusText(text){	// Display the status message.	var el = document.getElementById("statusText");	if (el.firstChild == null)		el.appendChild(document.createTextNode(""));	el.firstChild.nodeValue = text;}

é isso?

[shumi 0]

Adriano.

 

Fiz assim:

<%@ LANGUAGE="VBScript" %><%	'Buffer output.	Response.Buffer = true	'Set response Content-type header.	Response.ContentType = "text/plain"   set DB = Server.CreateObject("ADODB.Connection")DB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("Teste.mdb")DB.open	auxsql = "Select coligada.fantasia,carta_briefing.material_recebendo,carta_briefing.produto_recebendo,carta_briefing.uniforme_recebendo,carta_briefing.material_treinamento,carta_briefing.trabalho_parceria,carta_briefing.trabalho_supervisao,carta_briefing.trabalho_coordenacao,carta_briefing.material_comprado_parceira,carta_briefing.selecao_treinamento,carta_briefing.relatorios,carta_briefing.envio_status,carta_briefing.valor_taxa_parceira,carta_briefing.valor_taxa_parceira_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_parceira,carta_briefing.valor_taxa_supervisao,carta_briefing.valor_taxa_supervisao_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_supervisao,carta_briefing.valor_taxa_coordenacao,carta_briefing.valor_taxa_coordenacao_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_coordenacao,carta_briefing.valor_verba_compra_material,carta_briefing.valor_verba_compra_material_pelo_o_q,carta_briefing.documento_para_compra_de_material,carta_briefing.fotos,carta_briefing.mais_informacao From coligada,carta_briefing where coligada.fantasia='"&Request("coligada")&"' GROUP BY coligada.fantasia,carta_briefing.material_recebendo,carta_briefing.produto_recebendo,carta_briefing.uniforme_recebendo,carta_briefing.material_treinamento,carta_briefing.trabalho_parceria,carta_briefing.trabalho_supervisao,carta_briefing.trabalho_coordenacao,carta_briefing.material_comprado_parceira,carta_briefing.selecao_treinamento,carta_briefing.relatorios,carta_briefing.envio_status,carta_briefing.valor_taxa_parceira,carta_briefing.valor_taxa_parceira_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_parceira,carta_briefing.valor_taxa_supervisao,carta_briefing.valor_taxa_supervisao_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_supervisao,carta_briefing.valor_taxa_coordenacao,carta_briefing.valor_taxa_coordenacao_pelo_o_q,carta_briefing.documento_para_recebimento_taxa_de_coordenacao,carta_briefing.valor_verba_compra_material,carta_briefing.valor_verba_compra_material_pelo_o_q,carta_briefing.documento_para_compra_de_material,carta_briefing.fotos,carta_briefing.mais_informacao"	Set Rs = Server.CreateObject("ADODB.Recordset")	Rs.CursorLocation = 3	Rs.Open auxsql, DB

o separar por virgula fiz de dois jeitos, pois não sei como que quiz dizer, mas fiz assim:

material_recebendo,produto_recebendo,uniforme_recebendo,material_treinamento,trabalho_parceria,trabalho_supervisao,trabalho_coordenacao,material_comprado_parceira,selecao_treinamento,relatorios,envio_status,valor_taxa_parceira,valor_taxa_parceira_pelo_o_q,documento_para_recebimento_taxa_de_parceira,valor_taxa_supervisao,valor_taxa_supervisao_pelo_o_q,documento_para_recebimento_taxa_de_supervisao,valor_taxa_coordenacao,valor_taxa_coordenacao_pelo_o_q,documento_para_recebimento_taxa_de_coordenacao,valor_verba_compra_material,valor_verba_compra_material_pelo_o_q,documento_para_compra_de_material,fotos,mais_informacao

e assim:

 

If not (rs.BOF and rs.EOF) then		Response.Write(rs("material_recebendo") & "," & rs("produto_recebendo")& "," & rs("uniforme_recebendo")& "," & rs("material_treinamento")& "," & rs("trabalho_parceria")& "," & rs("trabalho_supervisao")& "," & rs("trabalho_coordenacao")& "," & rs("material_comprado_parceira")& "," & rs("selecao_treinamento")& "," & rs("relatorios")& "," & rs("envio_status")& "," & rs("valor_taxa_parceira")& "," & rs("valor_taxa_parceira_pelo_o_q")& "," & rs("documento_para_recebimento_taxa_de_parceira")& "," & rs("valor_taxa_supervisao")& "," & rs("valor_taxa_supervisao_pelo_o_q")& "," & rs("documento_para_recebimento_taxa_de_supervisao")& "," & rs("valor_taxa_coordenacao")& "," & rs("valor_taxa_coordenacao_pelo_o_q")& "," & rs("documento_para_recebimento_taxa_de_coordenacao")& "," & rs("valor_verba_compra_material")& "," & rs("valor_verba_compra_material_pelo_o_q")& "," & rs("documento_para_compra_de_material")& "," & rs("fotos")& "," & rs("mais_informacao"))	End if%>

qual que é?

[shumi 0]

Adriano, da uma olhada

 

http://www.newstyle1.com/sis/carta_briefing.asp

 

como eu faço pra testar pra saber qual dos arquivos que ta errado?

[shumi 0]

cara que estranho será que é isso mesmo?tipow eu acesseihttp://www.newstyle1.com/sis/pesquisabanco...?coligada=Hiperai pede pra fazer dowload ai eu cliquei em abrir.abriu o dreamweaver com os dados que deveriam retornar.

Material que está recebendo,Produto que está recebendo,Uniforme que está recebendo,Material para treinamento,Trabalho da parceria,Trabalho da supervisão,Trabalho da coordenação,Material que deverá ser comprado pela parceira,Seleção e treinamento,Relatórios ,Envio de Status,200,Pelo trabalho,NF de serviço,300,Por dia,Reembolso,400,Por mês,NF de serviço,1000,Por período,NF de serviço,Não,,

esse dados acima estão certos, mas o processo é esse mesmo???no final tem ,, pois o campo esta vazio no banco mesmo.

[shumi 0]

É isso mesmo! Você já criou a referência a eles lá no AJAX.JS né ?

 

Qualquer coisa, testa passando 2 ou 3 campos e vai aumentando gradualmente...

 

:)

testei pasando 1 campo e não rolou. http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

 

no meu form eu não tenho que adaptar nada a não ser isso neh?

 

<script src="Ajax.js" type="text/javascript"></script>

 

Abs

[shumi 0]

então Adriano fiz assim no meu form.

Abaixo estão só os campos do tipo text e textarea, os radios ficaram pra depois que é mais complicado creio eu.

 

<form name="Cadastro" id="Cadastro" method="post" action="carta_briefing_valida.asp"><select name="campanha" size="1" id="campanha" onChange="carregar();"><option value>...</option><%While NOT rs2.EOF%><option value="<%=rs2("campanha") %>"><%=rs2("campanha") %></option><%rs2.MoveNextWend%></select><select name="coligada" size="1" id="coligada" onChange="ProcurarCompativel(event);"><option value>...</option></select><textarea name="material_recebendo" cols="80" rows="8" id="material_recebendo"></textarea><textarea name="produto_recebendo" cols="80" rows="8" id="produto_recebendo"></textarea><textarea name="uniforme_recebendo" cols="80" rows="8" id="uniforme_recebendo"></textarea><textarea name="material_treinamento" cols="80" rows="8" id="material_treinamento"></textarea><textarea name="trabalho_parceria" cols="80" rows="8" id="trabalho_parceria"></textarea><textarea name="trabalho_supervisao" cols="80" rows="8" id="trabalho_supervisao"></textarea><textarea name="trabalho_coordenacao" cols="80" rows="8" id="trabalho_coordenacao"></textarea><textarea name="material_comprado_parceira" cols="80" rows="8" id="material_comprado_parceira"></textarea><textarea name="selecao_treinamento" cols="80" rows="8" id="selecao_treinamento"></textarea><textarea name="relatorios" cols="80" rows="8" id="relatorios"></textarea><textarea name="envio_status" cols="80" rows="8" id="envio_status"></textarea><input name="valor_taxa_parceira" type="text" id="valor_taxa_parceira"><input name="valor_taxa_supervisao" type="text" id="valor_taxa_supervisao"><input name="valor_taxa_coordenacao" type="text" id="valor_taxa_coordenacao"><input name="valor_verba_compra_material" type="text" id="valor_verba_compra_material"><textarea name="mais_informacao" cols="50" rows="5" id="mais_informacao"></textarea>

 

e no ajax.js

 

if (data.length == 16)				{document.getElementById("material_recebendo").value = data[0];document.getElementById("produto_recebendo").value = data[1];document.getElementById("uniforme_recebendo").value = data[2];document.getElementById("material_treinamento").value = data[3];document.getElementById("trabalho_parceria").value = data[4];document.getElementById("trabalho_supervisao").value = data[5];document.getElementById("trabalho_coordenacao").value = data[6];document.getElementById("material_comprado_parceira").value = data[7];document.getElementById("selecao_treinamento").value = data[8];document.getElementById("relatorios").value = data[9];document.getElementById("envio_status").value = data[10];document.getElementById("valor_taxa_parceira").value = data[11];document.getElementById("valor_taxa_supervisao").value = data[12];document.getElementById("valor_taxa_coordenacao").value = data[13];document.getElementById("valor_verba_compra_material").value = data[14];document.getElementById("mais_informacao").value = data[15];

Ai eu tenho que colocar os onKeyDown="FormataValor(this.id, 13, event)">

em todos os campos né???

Até ai ta ok???

 

Abraços

[shumi 0]

Altere lá na pesquisabanco.asp os campos que devem retornar! http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

Putz! cara que loko!!!!

deu certo até certa parte!

 

entra la no http://www.newstyle1.com/sis/carta_briefing.asp

 

o problema é os acentos e como que vamos fazer com os campos do tipo radio???

[shumi 0]

Putz! cara que loko!!!! deu certo até certa parte! o problema é os acentos e como que vamos fazer com os campos do tipo radio???

Acento: use <% Response.Charset="ISO-8859-1" %> na pesquisabanco.asp!

 

Radio: como está sendo retornado lá no array ? true ? false ?

 

no Array da pesquisabanco.asp ?

 

os acentos se coloco isso <% Response.Charset="ISO-8859-1" %> no topo de tudo ai para de funfar http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[shumi 0]

Cara não to entendendo...

o meu agora ta igual ao seu.

 

<%@ LANGUAGE="VBScript" %><% Response.Charset="ISO-8859-1" %><%	'Buffer output.	Response.Buffer = true	 'Set response Content-type header.	Response.ContentType = "text/plain"   set DB = Server.CreateObject("ADODB.Connection")DB.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MaPpath("banco/db_sistema.mdb")DB.open	auxsql = "MEU SELECT GIGANTE" Set Rs = Server.CreateObject("ADODB.Recordset")	Rs.CursorLocation = 3	Rs.Open auxsql, DBIf not (rs.BOF and rs.EOF) then		Response.Write(rs("material_recebendo") & "," & rs("produto_recebendo")& "," & rs("uniforme_recebendo")& "," & rs("material_treinamento")& "," & rs("trabalho_parceria")& "," & rs("trabalho_supervisao")& "," & rs("trabalho_coordenacao")& "," & rs("material_comprado_parceira")& "," & rs("selecao_treinamento")& "," & rs("relatorios")& "," & rs("envio_status")& "," & rs("valor_taxa_parceira")& "," & rs("valor_taxa_supervisao")& "," & rs("valor_taxa_coordenacao")& "," & rs("valor_verba_compra_material")& "," & rs("mais_informacao"))	End if%>

ai não funfa.

 

e se tiro o <% Response.Charset="ISO-8859-1" %>

funciona!

[shumi 0]

coloquei no meu form bem aqui

 

<% Response.Charset="ISO-8859-1" %>

<script src="Ajax.js" type="text/javascript"></script>

 

e em cima de tudo tb as 2 não funcionaram, veio o conteudo, mas sem acentos http://forum.imasters.com.br/public/style_emoticons/default/cry.gif :wacko:

[shumi 0]

ha Adriano.

só comigo que não da certo essa porcaria de acentos. :blink:

 

olha só:

<% Response.Charset="ISO-8859-1" %><html><head><title>Sistema NewStyle</title><!--#include file="includes/estilo.css"-->

e o não funfa os acentos cara!

Achei legal usar o Ajax, mas já to começando a me estressar com ele cara! heheh

e você ja esta estressado comigo! rs

[shumi 0]

Adriano,Como posso adaptar os campos tipo radio???Valeu

[shumi 0]

Salvo assim:

<input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Pelo trabalho"><input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por dia"><input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por período"><input name="valor_taxa_parceira_pelo_o_q" type="radio" value="Por mês">

esse é um, mas tenho 9. :blink:

[shumi 0]

você acha melhor mudar para checkbox ou adaptar com o radio mesmo?

 

comecei a adaptar é assim cara???

<input name="valor_taxa_parceira_pelo_o_q" id="valor_taxa_parceira_pelo_o_q" type="radio" value="Pelo trabalho"><input name="valor_taxa_parceira_pelo_o_q" id="valor_taxa_parceira_pelo_o_q" type="radio" value="Por dia"><input name="valor_taxa_parceira_pelo_o_q" id="valor_taxa_parceira_pelo_o_q" type="radio" value="Por período"><input name="valor_taxa_parceira_pelo_o_q" id="valor_taxa_parceira_pelo_o_q" type="radio" value="Por mês">

var Exibicao = data[3] == "Pelo trabalho" ? document.getElementById("valor_taxa_parceira_pelo_o_q").checked=true : document.getElementById("valor_taxa_parceira_pelo_o_q").checked=false;

var Exibicao = data[3] == "Por dia" ? document.getElementById("valor_taxa_parceira_pelo_o_q").checked=true : document.getElementById("valor_taxa_parceira_pelo_o_q").checked=false;

...

 

é isso???

[shumi 0]

eu fiz um campo tipo texto no DB chamado "valor_taxa_parceira_pelo_o_q" e vai para esse campo os valores Pelo trabalho ou Por dia ou Por período ou Por mês.Só tenho 1 campo que vai um desses valores.ta certo o que fiz???

[shumi 0]

Adriano,Me dá uma mão aqui só falta isso pra acabar o sistema!Vaeu