// JScript source code

var StrDados;

var PainelEscolha;
var TipoEscolha;
var Tabela;
var CamposEntrada;
var Procedure;
var CampoLike;
var Operador;
var Where;
var OrderBy;
var CampoSaida;
var ObjetoRetorno;
var TipoRetorno;
var TipoGenerico;
var msgErroExecuta;

function createXMLHTTP(){
	try{
		ajax = new ActiveXObject("Microsoft.XMLHTTP");
	} 
	catch(e){
		try {
			ajax = new ActiveXObject("Msxml2.XMLHTTP");
			alert(ajax);
		}
		catch(ex){
			try {
				ajax = new XMLHttpRequest();
			}
			catch(exc){
				alert("Esse browser não tem recursos para uso do Ajax");
				ajax = null;
			}
		}
		return ajax;
	}
	var arrSignatures = ["MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP",	"Microsoft.XMLHTTP"];
	for (var i=0; i < arrSignatures.length; i++){
		try {
			var oRequest = new ActiveXObject(arrSignatures[i]);
			return oRequest;
		} 
		catch (oError) {
		}
	}
	throw new Error("MSXML is not installed on your system.");
}
function AJAX(pLike, pLocalPesquisa, ComLike, TipoSaida, MostraEscolha)
{
	
	var oHTTPRequest = createXMLHTTP(); 
	
	oHTTPRequest.open("post", "executa.aspx", true);
	oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	oHTTPRequest.onreadystatechange=function() {
		if (oHTTPRequest.readyState==4){
			
			if (oHTTPRequest.responseText.length>0){
			
				StrDados = oHTTPRequest.responseText;
				
				//O modo qual pode-se retornar para uma grid ou para um objeto select
				//O modo mais gen&eacute;rico
				
				if (TipoSaida==1){
					montaResposta(1,5,MostraEscolha);
				}
				//Caso espec&iacute;fico para Produto na tela de cadastro de DI
				if (TipoSaida==2){
					
					var arrCampo = new Array();
					arrCampo = StrDados.split('|');
					
					document.Form1.Consulta_DI_txtPRPartNumber.value = pLike;
					document.Form1.Consulta_DI_txtPRPesoUnitario.value = arrCampo[0];
					
					for(i=0;i<document.Form1.elements.length;i++){
					
						if (document.Form1.elements[i].name=='Consulta_DI:ddlPRApliMercadoria'){
							
							
							for (x=0;x<document.Form1.elements[i].options.length;x++){
								

								if (arrCampo[1]==1 && document.Form1.elements[i].options[x].value=='C'){
									document.Form1.elements[i].options[x].selected = true;
									break;
								}
								
								if (arrCampo[1]==2 && document.Form1.elements[i].options[x].value=='R'){
									document.Form1.elements[i].options[x].selected = true;
									break;								
								}
								
							}
							
						}
						if (document.Form1.elements[i].name=='Consulta_DI:ddlPRUnidadeMedida'){
							
							for (x=0;x<document.Form1.elements[i].options.length;x++){
								
								if (arrCampo[2] == document.Form1.elements[i].options[x].value){
									document.Form1.elements[i].options[x].selected = true;
									break;
								}
								
							}
							
						}
					
					}
					
					PainelEscolha = null;
					TipoEscolha = null;
					Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'sb1010';
					CamposEntrada = 'b1_posIpi,b1_posIpi';
					Procedure = '';
					CampoLike = 'B1_COD';
					Operador = '=|';
					Where = ' AND D_E_L_E_T_ <> |*|';
					OrderBy = '2';
					CampoSaida = 'b1_posIpi';
					
					AJAX(pLike,null,false,3,false);					
					
				}
				//Caso espec&iacute;fico para Produto na tela de cadastro de DI
				if (TipoSaida==3){
				
					var arrCampo = new Array();
					arrCampo = StrDados.split('|');
					
					PainelEscolha = 'Consulta_DI_ddlPRNCM';
					TipoEscolha = 'SELECT';
					Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'syd010';
					CamposEntrada = 'rtrim(yd_tec), rtrim(yd_tec)';
					Procedure = '';
					CampoLike = 'yd_tec';
					Operador = '=|';
					Where = ' AND D_E_L_E_T_ <> |*|';
					OrderBy = '2';
					CampoSaida = 'yd_desc_p';
					
					AJAX(arrCampo[0],null,false,1,false);
		
				}
				if (TipoSaida==4){
			
					montaResposta(1,5,MostraEscolha);
					
				}
				if (TipoSaida==5){
			
					montaResposta(1,5,MostraEscolha);
					
				}
				if (TipoSaida==6){
			
					montaResposta(1,5,MostraEscolha);
					
				}
				
				if (TipoSaida==7){
			
					montaResposta(1,5,MostraEscolha);
					
				}
				
				if (TipoSaida==8){
			
					montaResposta(1,5,MostraEscolha);
					
				}
				//Caso espec&iacute;fico para Produto na tela de cadastro de LI
				if (TipoSaida==9){
					
					var arrCampo = new Array();
					arrCampo = StrDados.split('|');
					
					document.Form1.Consulta_LI_txtPartNumber.value = pLike;
					document.Form1.Consulta_LI_txtPeso.value = arrCampo[0];
					
					for (x=0;x<document.Form1.Consulta_LI_ddlUnidadeMedida.options.length;x++){
						
						if (arrCampo[2] == document.Form1.Consulta_LI_ddlUnidadeMedida.options[x].value){
							document.Form1.Consulta_LI_ddlUnidadeMedida.options[x].selected = true;
							break;
						}
						
					}

					PainelEscolha = null;
					TipoEscolha = null;
					Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'sb1010';
					CamposEntrada = 'b1_posIpi,b1_posIpi';
					Procedure = '';
					CampoLike = 'B1_COD';
					Operador = '=|';
					Where = ' AND D_E_L_E_T_ <> |*|';
					OrderBy = '2';
					CampoSaida = 'b1_posIpi';
					
					AJAX(pLike,null,false,10,false);
					
				}
				//Caso espec&iacute;fico para Produto na tela de cadastro de DI
				if (TipoSaida==10){
				
					var arrCampo = new Array();
					arrCampo = StrDados.split('|');
					
					PainelEscolha = 'Consulta_LI_ddlNCM';
					TipoEscolha = 'SELECT';
					Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'syd010';
					CamposEntrada = 'rtrim(yd_tec), rtrim(yd_tec)';
					Procedure = '';
					CampoLike = 'yd_tec';
					Operador = '=|';
					Where = ' AND D_E_L_E_T_ <> |*|';
					OrderBy = '2';
					CampoSaida = 'yd_desc_p';
					
					AJAX(arrCampo[0],null,false,1,false);
		
				}
				
			
			}
			else{

				if (TipoEscolha=='GRID'){
					//Nesta situação o usu&aacute;rio nãop poder&aacute; cadastrar 
					if (TipoSaida==1){
						eval('document.all.'+ PainelEscolha).innerHTML = 'Nenhum registro foi encontrado!';
					}
					else
					{
						
						ConteudoFormulario = '';
	
						ConteudoFormulario = ConteudoFormulario + '<table>';
						ConteudoFormulario = ConteudoFormulario + ' <tr>';
						ConteudoFormulario = ConteudoFormulario + '  <td>';
						ConteudoFormulario = ConteudoFormulario + '   <table>';
						ConteudoFormulario = ConteudoFormulario + '    <tr>';
						ConteudoFormulario = ConteudoFormulario + '     <td colspan=2 class="text">';
						ConteudoFormulario = ConteudoFormulario + '      Nenhum registro foi encontrado!<br>Clique em Confirmar para prosseguir com essa informa&ccedil;&atilde;o:';
						ConteudoFormulario = ConteudoFormulario + '     </td>';
						ConteudoFormulario = ConteudoFormulario + '    </tr>';						
						ConteudoFormulario = ConteudoFormulario + '    <tr>';
						ConteudoFormulario = ConteudoFormulario + '     <td class="text">';
						ConteudoFormulario = ConteudoFormulario + '      <input type="text" name="txtCadNovo" class="form" style="width:320px;">';
						ConteudoFormulario = ConteudoFormulario + '     </td>';
						ConteudoFormulario = ConteudoFormulario + '     <td class="text">';
						ConteudoFormulario = ConteudoFormulario + '      <input type="button" name="botao" class="ebutton" value="Confirmar" onClick="AddInexistente(txtCadNovo.value);">';
						ConteudoFormulario = ConteudoFormulario + '     </td>';
						ConteudoFormulario = ConteudoFormulario + '    </tr>';
						ConteudoFormulario = ConteudoFormulario + '   </table>';
						ConteudoFormulario = ConteudoFormulario + '  </td>';
						ConteudoFormulario = ConteudoFormulario + ' </tr>';
						ConteudoFormulario = ConteudoFormulario + '</table>';
						
						eval('document.all.'+ PainelEscolha).innerHTML = ConteudoFormulario;
						
						document.Form1.txtCadNovo.value = pLike;
					}	
				}
				if (TipoEscolha=='SELECT'){
				
					varObjetoSelect = eval('document.Form1.'+ PainelEscolha);
					
					qtdelinhas = varObjetoSelect.length;
					
					for (i=0;i<qtdelinhas;i++){
						varObjetoSelect.options.remove(0);
					}

					var op = document.createElement("OPTION");
					op.value='0';
					op.text='Nenhum Registro Foi Encontrado!';
					varObjetoSelect.options.add(op);
				}

				StrDados = '';
			}	
		}
	}

	
	if (oHTTPRequest.readyState==1){
	
		if (TipoEscolha=='GRID'){
					
			eval('document.all.'+ PainelEscolha).innerHTML = 'Carregando...';
	
		}
		
		if (TipoEscolha=='SELECT'){
		
			varObjetoSelect = eval('document.Form1.'+PainelEscolha);
			var op = document.createElement("OPTION");
			op.value=0;
			op.text='Carregando...';
			varObjetoSelect.options.add(op);
		}	
	}
	
	if (ComLike){
		if (pLocalPesquisa[1].checked){
			strLike = pLike + "#";
		}
		if (pLocalPesquisa[2].checked){
			strLike = "#" + pLike + "#";
		}
		if (pLocalPesquisa[3].checked){
			strLike = "#" + pLike;
		}
		if (pLocalPesquisa[0].checked){
			CampoLikeTemp = CampoLike;
			CampoLike = CamposEntrada.substring(0,CamposEntrada.indexOf(','));
			strLike = "#" + pLike + "#";
		}
		else{
			if (CampoLikeTemp != ''){
				CampoLike =	CampoLikeTemp;
				CampoLikeTemp = '';
			}
		}
	}
	else{
		strLike = pLike;
	}

	strParam = "" 
	strParam = strParam + "Tabela=" + Tabela; 
	strParam = strParam + "&CampoEntrada=" + CamposEntrada; 
	strParam = strParam + "&Procedure=" + Procedure; 
	strParam = strParam + "&CampoLike=" + CampoLike;
	strParam = strParam + "&Operador=" + Operador;
	strParam = strParam + "&Like=" + strLike;
	strParam = strParam + "&Where=" + Where;
	strParam = strParam + "&Order=" + OrderBy;
	strParam = strParam + "&CampoSaida=" + CampoSaida;
	oHTTPRequest.send(strParam);

}
function PreencheCampo(Codigo,Descricao){

	varCampoRetorno = eval('document.all.Form1.'+ObjetoRetorno);

	if (TipoRetorno=='SELECT'){
	
		if (varCampoRetorno.options.length==0){
			var op = document.createElement("OPTION");
			op.value=Codigo;
			op.text=Descricao;
			varCampoRetorno.options.add(op);
		}
		else{
			varCampoRetorno.options[0].value = Codigo;
			varCampoRetorno.options[0].text = Descricao;
		}
		
		if (TipoGenerico==4){
			
			Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'sb1010';
			CamposEntrada = 'b1_peso, b1_aplicm';
			Procedure = '';
			CampoLike = 'B1_COD';
			ValorLike = Codigo;
			Operador = '=|';
			Where = ' AND D_E_L_E_T_ <> |*|';
			OrderBy = '2';
			CampoSaida = 'b1_um';

			AJAX(ValorLike, null, false, 2, false);
		}
		
		if (TipoGenerico==8){
			
			Tabela = document.Form1.hdnCaminhoBancoAvg.value + 'sb1010';
			CamposEntrada = 'b1_peso, b1_aplicm';
			Procedure = '';
			CampoLike = 'B1_COD';
			ValorLike = Codigo;
			Operador = '=|';
			Where = ' AND D_E_L_E_T_ <> |*|';
			OrderBy = '2';
			CampoSaida = 'b1_um';

			AJAX(ValorLike, null, false, 9, false);
		}

	}
	if (TipoEscolha=='GRID'){
	
		fechar_pop(Layer1.style);
		
		if (TipoGenerico==1){
		
			PainelEscolha = 'Consulta_DI_ddlPremissa';
			TipoEscolha = 'SELECT';
			Tabela = 'GerWebDIPremissa';
			CamposEntrada = 'NomePremissa,NomePremissa';
			Procedure = '';
			CampoLike = 'cliente';
			Operador = '=|';
			Where = '';
			OrderBy = '2';
			CampoSaida = 'NomePremissa';
			
			AJAX(Codigo, null, false, 1, true);
		}

		if (TipoGenerico==6){
		
			PainelEscolha = 'CONSULTASOLIC_ENTREGA_ddlPremissa';
			TipoEscolha = 'SELECT';
			Tabela = 'GerWebSEPremissa';
			CamposEntrada = 'NomePremissa,NomePremissa';
			Procedure = '';
			CampoLike = 'cliente';
			Operador = '=|';
			Where = '';
			OrderBy = '2';
			CampoSaida = 'NomePremissa';
			
			AJAX(Codigo, null, false, 1, true);
		}
		
		if (TipoGenerico==7){
		
			PainelEscolha = 'Consulta_LI_ddlPremissa';
			TipoEscolha = 'SELECT';
			Tabela = 'GerWebLIPremissa';
			CamposEntrada = 'NomePremissa,NomePremissa';
			Procedure = '';
			CampoLike = 'cliente';
			Operador = '=|';
			Where = '';
			OrderBy = '2';
			CampoSaida = 'NomePremissa';
			
			AJAX(Codigo, null, false, 1, true);
		}
		
	}

}
function PintaLinha(Cor,Linha){
	Linha.bgColor = Cor;
}

function montaResposta(Pagina,PorPagina,MostraEscolha){

	var arrCampo = new Array();
	arrCampo = StrDados.split('|')
	
	QtdeRegistro = (arrCampo.length/3)
	
	if (TipoEscolha=='GRID'){
	
		ConteudoDiv = '';	
	
		ConteudoDiv = ConteudoDiv + '<table border=0 align=center id=Cliente cellspacing=4 style="width:400;">';
		ConteudoDiv = ConteudoDiv + '<tr>';
		ConteudoDiv = ConteudoDiv + '<td colspan=4 align = right><font face=verdana size=1 color=#666666>Foram&nbsp;encontrados&nbsp;'+QtdeRegistro+'&nbsp;Registros</font></td>';
		ConteudoDiv = ConteudoDiv + '</tr>';
	
		indiceInicial = (Pagina * PorPagina) - PorPagina ;
		indiceFinal = indiceInicial + (PorPagina-1);
		
		for (i=indiceInicial;i<=indiceFinal;i++) {
			if (i < QtdeRegistro)
			{
				PriCampo = i*3
				SegCampo = PriCampo + 1
				TerCampo = SegCampo + 1
				
				ConteudoDiv = ConteudoDiv + "<tr";
				ConteudoDiv = ConteudoDiv + " onmouseover=PintaLinha('#EAEAEA',this); onmouseout=PintaLinha('#FFFFFF',this);";
				ConteudoDiv = ConteudoDiv + ">";
				ConteudoDiv = ConteudoDiv + "<td colspan=2 width=100 align=right>";
				ConteudoDiv = ConteudoDiv + '<span id=pri' + PriCampo + ' title="' + arrCampo[PriCampo] + '"></span>';
				ConteudoDiv = ConteudoDiv + '<span id=ter' + TerCampo + ' title="' + arrCampo[TerCampo] + '"></span>';
				ConteudoDiv = ConteudoDiv + "<a href=javascript:onClick=PreencheCampo(document.getElementById('Pri" + PriCampo + "').title,document.getElementById('Ter" + TerCampo + "').title);>";
				ConteudoDiv = ConteudoDiv + "<font face=verdana size=1 color=#000000>";
				ConteudoDiv = ConteudoDiv + arrCampo[PriCampo];
				ConteudoDiv = ConteudoDiv + "</font>";
				ConteudoDiv = ConteudoDiv + "</a>";
				ConteudoDiv = ConteudoDiv + "</td>";
				ConteudoDiv = ConteudoDiv + "<td colspan=2 width=300>";
				ConteudoDiv = ConteudoDiv + "<a href=javascript:onClick=PreencheCampo(document.getElementById('Pri" + PriCampo + "').title,document.getElementById('Ter" + TerCampo + "').title);>";
				ConteudoDiv = ConteudoDiv + "<font face=verdana size=1 color=#000000>";
				ConteudoDiv = ConteudoDiv + arrCampo[SegCampo];
				ConteudoDiv = ConteudoDiv + "</font>";
				ConteudoDiv = ConteudoDiv + "</a>";
				ConteudoDiv = ConteudoDiv + "</td>";
				ConteudoDiv = ConteudoDiv + "</tr>";
			}
			else{
				ConteudoDiv = ConteudoDiv + "<tr>";
				ConteudoDiv = ConteudoDiv + "<td><font face=verdana size=1>&nbsp;</font>";
				ConteudoDiv = ConteudoDiv + "</td>";
				ConteudoDiv = ConteudoDiv + "<td><font face=verdana size=1>&nbsp;</font>";
				ConteudoDiv = ConteudoDiv + "</td>";
				ConteudoDiv = ConteudoDiv + "</tr>";
			}
		}

		if (QtdeRegistro > PorPagina){
						
			if (QtdeRegistro%PorPagina > 0){
				QtdPaginas = parseInt(QtdeRegistro/PorPagina) + 1;
			}
			else{
				QtdPaginas = parseInt(QtdeRegistro/PorPagina);
			}
			
			ConteudoDiv = ConteudoDiv + "<tr>";
			
			ConteudoDiv = ConteudoDiv + "<td colspan=4 width=400 align=center>";
			ConteudoDiv = ConteudoDiv + "<table width=350>";
			ConteudoDiv = ConteudoDiv + "<tr>";
			ConteudoDiv = ConteudoDiv + "<td width=100>";
			
			if (Pagina > 1){
				ConteudoDiv = ConteudoDiv + "<a href=# OnClick=montaResposta(" + 1 +","+PorPagina+"," + MostraEscolha + ");><font face=verdana size=1 color=#000000>Primeira</font></a>";
			}
			else{
				ConteudoDiv = ConteudoDiv + "<font face=verdana size=1>&nbsp;</font>";
			}
		
			ConteudoDiv = ConteudoDiv + "</td>";
			
			ConteudoDiv = ConteudoDiv + "<td colspan=2 align=center width=150>";
			
			if (QtdPaginas > 10){
			
				ForInicio = parseInt(Pagina);
				if (parseInt(Pagina)>5){
					ForInicio = ForInicio - 5;
				}
				else{
					ForInicio = 1;
				}
				
				if (Pagina>5){
					ForFinal  = ForInicio + 10;
				}
				else{
					ForFinal  = ForInicio + 9;
				}

				if (ForFinal > QtdPaginas){
					
					ForInicio = QtdPaginas - 10;
    				ForFinal = QtdPaginas;

				}
			
			}
			else{
			
				ForInicio = 1;
				ForFinal  = QtdPaginas;
			
			}
		
			for(i=ForInicio;i<=ForFinal;i++){
				if (i != Pagina){
					ConteudoDiv = ConteudoDiv + "<a href=# OnClick=montaResposta(" + i + "," + PorPagina + "," + MostraEscolha + ");>";
				}
				
				if (i == Pagina){
					ConteudoDiv = ConteudoDiv + "<font face=verdana size=1 color=#000000><b>" + i + "</b></font>";
				}
				else{
					ConteudoDiv = ConteudoDiv + "<font face=verdana size=1 color=#000000>" + i + "</font>";
				}
				
				if (i != Pagina){
					ConteudoDiv = ConteudoDiv + "</a>";
				}
				
				ConteudoDiv = ConteudoDiv + "&nbsp;&nbsp;";
			}
			ConteudoDiv = ConteudoDiv + "</td>";
			
			ConteudoDiv = ConteudoDiv + "<td width=100 align=right>";
			
			if (Pagina < QtdPaginas){
				ConteudoDiv = ConteudoDiv + "<a href=# OnClick=montaResposta(" + QtdPaginas +","+PorPagina+"," + MostraEscolha + ");><font face=verdana size=1 color=#000000>&acute;Ultima</font></a>";
			}
			else{
				ConteudoDiv = ConteudoDiv + "<font face=verdana size=1>&nbsp;</font>";
			}
			
			ConteudoDiv = ConteudoDiv + "</td>";
			
			ConteudoDiv = ConteudoDiv + "</tr>";
			ConteudoDiv = ConteudoDiv + "</table>";
			ConteudoDiv = ConteudoDiv + "</td>";
			ConteudoDiv = ConteudoDiv + "</tr>";
			
		}
		ConteudoDiv = ConteudoDiv + '</table>';
		eval('document.all.'+PainelEscolha).innerHTML = ConteudoDiv;
	}
	else{
		for (i=0;i<QtdeRegistro;i++){
			PriCampo = i*3;
			SegCampo = PriCampo + 1;
			TerCampo = SegCampo + 1;
			
			varObjetoSelect = eval('document.Form1.'+PainelEscolha);
			
			if (MostraEscolha){
			
				if (i==0){
				
					if (varObjetoSelect.options.length>0){
						varObjetoSelect.options(0).value=0;
						varObjetoSelect.options(0).text='- Selecione um Item -';
						
						if (varObjetoSelect.options(1).text=='Carregando...')
							{
								varObjetoSelect.options(1).value=arrCampo[PriCampo];
								varObjetoSelect.options(1).text=arrCampo[SegCampo];
							}
						else
						{
							var op = document.createElement("OPTION");
							op.value=arrCampo[PriCampo];
							op.text=arrCampo[SegCampo];
							varObjetoSelect.options.add(op);
						}
					}
					else
					{
						var op = document.createElement("OPTION");
						op.value=0;
						op.text='- Selecione um Item -';
						varObjetoSelect.options.add(op);
					}
					
				}
				else{
				
					if (varObjetoSelect.options(0).text=='Carregando...' || varObjetoSelect.options(1).text=='Carregando...'){
					
						if (varObjetoSelect.options(0).text=='Carregando...'){
							varObjetoSelect.options(0).value=arrCampo[PriCampo];
							varObjetoSelect.options(0).text=arrCampo[SegCampo];
						}
						
						if (varObjetoSelect.options(1).text=='Carregando...'){
							varObjetoSelect.options(1).value=arrCampo[PriCampo];
							varObjetoSelect.options(1).text=arrCampo[SegCampo];
						}
						
					}
					else{
						var op = document.createElement("OPTION");
						op.value=arrCampo[PriCampo];
						op.text=arrCampo[SegCampo];
						varObjetoSelect.options.add(op);
					}
			
					//var op = document.createElement("OPTION");
					//op.value=arrCampo[PriCampo];
					//op.text=arrCampo[SegCampo];
					//varObjetoSelect.options.add(op);
				}
				
			}
			else{
			
				qtdelinhasLimpar = varObjetoSelect.length;
				
				for (i=0;i<qtdelinhasLimpar;i++){
					varObjetoSelect.options.remove(0);
				}
			
				var op = document.createElement("OPTION");
				op.value=arrCampo[PriCampo];
				op.text=arrCampo[SegCampo];
				varObjetoSelect.options.add(op);
			
			}
			
		}
		
		TipoEscolha = null;
		PainelEscolha = null;
	}
}
function AJAX_PREMISSA_DI(pPremissa,pCliente)
{
	var oHTTPRequest = createXMLHTTP(); 
	
	oHTTPRequest.open("post", "executa.aspx", true);
	oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	oHTTPRequest.onreadystatechange=function() {
		if (oHTTPRequest.readyState==4){
			
			if (oHTTPRequest.responseText.length>0){
			
				strDados = oHTTPRequest.responseText.split('|');
				
				for(i=0;i<document.Form1.elements.length;i++){
					
					if (document.Form1.elements[i].name=='Consulta_DI:txtRefCliente'){
						document.Form1.elements[i].value = strDados[0];
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:txtObs'){
						document.Form1.elements[i].value = strDados[1];
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:txtLocalOrigemEmbarque'){
						document.Form1.elements[i].value = strDados[3];
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlViaTransp'){
					
						for (var x=0;x < document.Form1.elements[i].length;x++){
						
							if (document.Form1.elements[i].options[x].value==strDados[2]){
								document.Form1.elements[i].options[x].selected = true;
							}
							
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlCiaAereaMaritima'){
					
						if (strDados[4] !='' || strDados[5] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[4];
							document.Form1.elements[i].options[0].text = strDados[5];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlExportador'){
					
						if (strDados[6] !='' || strDados[7] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[6];
							document.Form1.elements[i].options[0].text = strDados[7];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlPRFabricante'){
					
						if (strDados[8] !='' || strDados[9] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[8];
							document.Form1.elements[i].options[0].text = strDados[9];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlPRProduto'){
					
						if (strDados[10] !='' || strDados[11] !=''){
						
							document.Form1.elements[i].options[0].value = '0';
							document.Form1.elements[i].options[0].text = '- Escolha um Produto - ';
							document.Form1.elements[i].options[0].selected = true;
							
							var op = document.createElement("OPTION");
							op.value=strDados[10];;
							op.text=strDados[11];
							document.Form1.elements[i].options.add(op);
							
							//document.Form1.elements[i].options[1].value = strDados[10];
							//document.Form1.elements[i].options[1].text = strDados[11];
		
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlNavio'){
					
						if (strDados[12] !='' || strDados[13] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[12];
							document.Form1.elements[i].options[0].text = strDados[13];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlURFEntrada'){
					
						if (strDados[14] !='' || strDados[15] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[14];
							document.Form1.elements[i].options[0].text = strDados[15];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlURFDespacho'){
					
						if (strDados[16] !='' || strDados[17] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[16];
							document.Form1.elements[i].options[0].text = strDados[17];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlRecinto'){
					
						if (strDados[18] !='' || strDados[19] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[18];
							document.Form1.elements[i].options[0].text = strDados[19];
				
						}
					}
					
					if (document.Form1.elements[i].name=='Consulta_DI:ddlPaisProcedencia'){
					
						if (strDados[20] !='' || strDados[21] !=''){
						
							document.Form1.elements[i].options[0].value = strDados[20];
							document.Form1.elements[i].options[0].text = strDados[21];
				
						}
					}
				}
		    
			}
			else{
				// Nada foi achado
			}	
		}
	}

	if (oHTTPRequest.readyState==1){
		// DIV carregando
	}
	
	strParam = "" 
	strParam = strParam + "Tipo=1"; 
	strParam = strParam + "&Premissa="+pPremissa;
	strParam = strParam + "&Cliente="+pCliente;
	oHTTPRequest.send(strParam);

}
function AddInexistente(Descricao){

	if (Descricao==''){
		alert('Para esta ação &eacute; necess&aacute;rio que voc&ecirc; preecha o campo!');
	}
	else{
	
		varCampoRetorno = eval('document.all.Form1.'+ObjetoRetorno);
		
		if (varCampoRetorno.options.length==0){
			var op = document.createElement("OPTION");
			op.value=Descricao;
			op.text=Descricao;
			varCampoRetorno.options.add(op);
		}
		else{
			varCampoRetorno.options[0].value = Descricao;
			varCampoRetorno.options[0].text = Descricao;
		}
		fechar_pop(Layer1.style);
	}
	
	
}
function AJAX_PREMISSA_LI(pLi,pCliente)
{
	var oHTTPRequest = createXMLHTTP(); 
	
	oHTTPRequest.open("post", "executa.aspx", true);
	oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
	oHTTPRequest.onreadystatechange=function() {
		if (oHTTPRequest.readyState==4){
			
			if (oHTTPRequest.responseText.length>0){
			
				strDados = oHTTPRequest.responseText.split('|');
				
				MensagemErro = '';
				
				for (x=0;x<document.Form1.Consulta_LI_ddlExportador.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlExportador.options[x].selected){
						Combo = document.Form1.Consulta_LI_ddlExportador.options[x];
						if (Combo.text.indexOf('Procure') == -1 ){
							if (Combo.value != strDados[0]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- Exportador';
							}	
						}
						else{	
							if (strDados[0] !='' || strDados[1] !=''){
								document.Form1.Consulta_LI_ddlExportador.options[0].value = strDados[0];
								document.Form1.Consulta_LI_ddlExportador.options[0].text = strDados[1];
							}
						}
						break;
					}
				}
				
				for (x=0;x<document.Form1.Consulta_LI_ddlFabricante.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlFabricante.options[x].selected){
					
						Combo = document.Form1.Consulta_LI_ddlFabricante.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
				
							if (Combo.value != strDados[2]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- Fabricante';
							}	
							
						}
						else
						{	
							if (strDados[2] !='' || strDados[3] !=''){
						
								document.Form1.Consulta_LI_ddlFabricante.options[0].value = strDados[2];
								document.Form1.Consulta_LI_ddlFabricante.options[0].text = strDados[3];
					
							}
						
						}
					}
				}

				for (x=0;x<document.Form1.Consulta_LI_ddlProduto.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlProduto.options[x].selected){
						Combo = document.Form1.Consulta_LI_ddlProduto.options[x];
						if (Combo.text.indexOf('Procure') == -1 ){
							if (Combo.value != strDados[4]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- Produto';
							}	
						}
						else{	
							if (strDados[4] !='' || strDados[5] !=''){
								document.Form1.Consulta_LI_ddlProduto.options[0].value = '0';
								document.Form1.Consulta_LI_ddlProduto.options[0].text = 'Selecione um Produto';
								var op = document.createElement("OPTION");
								op.value=strDados[4];
								op.text=strDados[5];
								document.Form1.Consulta_LI_ddlProduto.options.add(op);
							}
						}
						break;
					}
				}

				for (x=0;x<document.Form1.Consulta_LI_ddlURFEntrada.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlURFEntrada.options[x].selected){
					
						Combo = document.Form1.Consulta_LI_ddlURFEntrada.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
				
							if (Combo.value != strDados[6]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- URF de Entrada';
							}	
							
						}
						else
						{	
							if (strDados[6] !='' || strDados[7] !=''){
						
								document.Form1.Consulta_LI_ddlURFEntrada.options[0].value = strDados[6];
								document.Form1.Consulta_LI_ddlURFEntrada.options[0].text = strDados[7];
					
							}
						
						}
						break;	
					}
				}

				for (x=0;x<document.Form1.Consulta_LI_ddlURFDespacho.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlURFDespacho.options[x].selected){
						
						Combo = document.Form1.Consulta_LI_ddlURFDespacho.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
				
							if (Combo.value != strDados[21]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- URF de Despacho';
							}	
							
						}
						else{
							if (strDados[8] !='' || strDados[9] !=''){
						
								document.Form1.Consulta_LI_ddlURFDespacho.options[0].value = strDados[8];
								document.Form1.Consulta_LI_ddlURFDespacho.options[0].text = strDados[9];
					
							}
						
						}
						break;
					}
				}
	
				for (x=0;x<document.Form1.Consulta_LI_ddlRecinto.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlRecinto.options[x].selected){
					
						Combo = document.Form1.Consulta_LI_ddlRecinto.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
					
							if (Combo.value != strDados[10]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- Recinto';
							}
						}
						else{
							if (strDados[10] !='' || strDados[11] !=''){
						
								document.Form1.Consulta_LI_ddlRecinto.options[0].value = strDados[10];
								document.Form1.Consulta_LI_ddlRecinto.options[0].text = strDados[11];
					
							}
						}
						break;
						
					}
				}
				
				for (x=0;x<document.Form1.Consulta_LI_ddlMoeda.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlMoeda.options[x].selected){
					
						Combo = document.Form1.Consulta_LI_ddlMoeda.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
					
							if (Combo.value != strDados[12]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- Moeda';
							}
						}
						else{
							if (strDados[12] !='' || strDados[13] !=''){
						
								document.Form1.Consulta_LI_ddlMoeda.options[0].value = strDados[12];
								document.Form1.Consulta_LI_ddlMoeda.options[0].text = strDados[13];
					
							}
						}
						break;
						
					}
				}
				
				for (x=0;x<document.Form1.Consulta_LI_ddlOrigem.options.length;x++){
					
					if (document.Form1.Consulta_LI_ddlOrigem.options[x].selected){
					
						Combo = document.Form1.Consulta_LI_ddlOrigem.options[x];
						
						if (Combo.text.indexOf('Procure') == -1 ){
					
							if (Combo.value != strDados[14]){
								if (MensagemErro != ''){
									MensagemErro = MensagemErro + '\n';
								}
								MensagemErro = MensagemErro + '- País de Procedencia';
							}
						}
						else{
							if (strDados[14] !='' || strDados[15] !=''){
						
								document.Form1.Consulta_LI_ddlOrigem.options[0].value = strDados[14];
								document.Form1.Consulta_LI_ddlOrigem.options[0].text = strDados[15];
					
							}
						}
						break;
						
					}
				}
				
				document.Form1.Consulta_LI_txtRef.value = strDados[16];
				document.Form1.Consulta_LI_txtAtoConcessorio.value = strDados[17];
				if (strDados[18]=='S'){
					document.Form1.Consulta_LI_chkDrawBack.selected = true;
				}
				document.Form1.Consulta_LI_txtObs.value = strDados[19];

				if (MensagemErro!=''){
					alert('Foram encontrados diverg&ecirc;ncia com os seguintes campos:\n'+MensagemErro);
				}
			}
			else{
				// Nada foi achado
			}	
		}
	}

	if (oHTTPRequest.readyState==1){
		// DIV carregando
	}
	
	strParam = "" 
	strParam = strParam + "Tipo=11"; 
	strParam = strParam + "&Premissa="+pLi;
	strParam = strParam + "&Cliente="+pCliente;
	oHTTPRequest.send(strParam);
}
//-------------------------------------------------------------------------------
//										CABEÇALHO
//-------------------------------------------------------------------------------
// DESCRIÇÃO	: Arquivo JS que contêm funções gerais de AJAX utilizadas no 
// sistema e-Gerenciador
//-------------------------------------------------------------------------------
// CRIADA POR	: Fábio Pereira Santana
// DATA			: 13/12/2006
//-------------------------------------------------------------------------------
// LISTA DAS FUNÇÕES CRIADAS NESTA INCLUDE
//-------------------------------------------------------------------------------
// createXMLHTTP()
// EnviaConsultaParaFiltro(pValorFiltro)
// MontaStringSQL(pValorFiltro)
// MontaPriCondicao(pValorFiltro)
// MontaOrderBy(pValorFiltro)
// MontaGridSelecao()
// PreencheCombo(Codigo,Descricao)
// TrataTable(Acao, Tabela, Coluna, Linha, Lixeira)
//-------------------------------------------------------------------------------

//-------------------------------------------------------------------------------
//function MODELO()
//{
//	var oHTTPRequest = createXMLHTTP(); 
//	oHTTPRequest.open("post", "executa.aspx", true);
//	oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
//	oHTTPRequest.onreadystatechange=function() {
//		if (oHTTPRequest.readyState==4){
//			Resultado
//		}
//		if (oHTTPRequest.readyState==1){
//			Carregando
//		}	
//	oHTTPRequest.send();
//}
//------------------------------------------------------------------------------


//-------------------------------------------------------------------------------
//								VARIÁVEIS GLOBAIS
//-------------------------------------------------------------------------------
	//Variável quer conterá a string com os dados do banco
	var StrRegistroBanco;
	
	//Variável quer conterá um array com os registros do banco
	var ArrRegistroBanco = new Array();
	
	//-------------------------------------------------------------------------------
	//							VARIÁVEIS DA FUNÇÃO PROMPTAJAX
	//-------------------------------------------------------------------------------
		//Variáveis de controle SQL
		var CampoSelCod;
		var CampoSelDesc;
		var CampoRetCod;
		var CampoRetDesc;
		var FromTabela;
		var Operador;
		var ComplWhere;
		var Procedure;

		//Variável que indica qual é o ID do objeto que receberá o valor selecionado
		var Objeto;
		
		//Variável que informa o nome da função a ser executada após a escolha de algum item
		var Funcao;
		
		//Variável que informa se caso a pesquisa não retorne dados ele possa cadastrar
		var CadastroInexistente;
		
		//Variáveis de controle de Seleção
		var CampoValueSelecionado;
		var CampoDescSelecionado;
	//---------------------------------------------------------------------------

	//Variável quer conterá a página inicial da páginação do Grid
	var intPagina = 1;
	
	//Variável quer conterá a quantidade registros por página
	var intPorPagina = 5;
//-------------------------------------------------------------------------------

//-------------------------------------------------------------------------------
//									FUNÇÕES
//-------------------------------------------------------------------------------

	//Função que cria o protocolo XMLHTTP, para o uso do AJAX
	function createXMLHTTP(){
		try{
			ajax = new ActiveXObject("Microsoft.XMLHTTP");
		} 
		catch(e){
			try {
				ajax = new ActiveXObject("Msxml2.XMLHTTP");
				alert(ajax);
			}
			catch(ex){
				try {
					ajax = new XMLHttpRequest();
				}
				catch(exc){
					alert("Esse browser não tem recursos para uso do Ajax");
					ajax = null;
				}
			}
			return ajax;
		}
		var arrSignatures = ["MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0","MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP",	"Microsoft.XMLHTTP"];
		for (var i=0; i < arrSignatures.length; i++){
			try {
				var oRequest = new ActiveXObject(arrSignatures[i]);
				return oRequest;
			} 
			catch (oError) {
			}
		}
		throw new Error("MSXML is not installed on your system.");
	}
	
	//Função que faz uma consulta no banco e retorna os dados em uma GRID para uma seleção
	function EnviaConsultaParaFiltro(pValorFiltro){
		if (pValorFiltro.length>0){

			var oHTTPRequest = createXMLHTTP();
	
			oHTTPRequest.open("post", "executa.aspx", true);
			oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");
			oHTTPRequest.onreadystatechange=function() {
			
				//readystate=4 - Pronto, só pegar a resposta da tela
				//readystate=1 - Carregando
				
				//Pronto, só pegar a resposta da tela
				if (oHTTPRequest.readyState==4){
					//Caso retorne algum registro
					if (oHTTPRequest.responseText.length>0){
						//O retorno da string ALTERADO!, significa que um comando de alteração 
						//de registro foi executado (INSERT, UPDATE e DELETE)
						if (oHTTPRequest.responseText=='ALTERADO!'){
							
						}
						//O retorno da string ERRO!, significa que ocorreu algum erro 
						else if(oHTTPRequest.responseText.indexOf('ERRO!')>-1){
							msgErroExecuta = SubstituiCaracterPorVazio(oHTTPRequest.responseText.replace('ERRO!',''));
							document.all.Ajax.innerHTML = '&nbsp;&nbsp;Ocorreu um erro interno! [promptAjax_1]<br>&nbsp;&nbsp;Para ver detalhes do erro <a href="javascript:MostraErroExecuta();"><font color="#000000">Clique aqui</font></a>';
						}
						//Aqui retornará os registro que foram encontrados
						else{
							if (oHTTPRequest.responseText.indexOf('|')==-1){
								msgErroExecuta = SubstituiCaracterPorVazio(oHTTPRequest.responseText.replace('ERRO!',''));
								document.all.Ajax.innerHTML = '&nbsp;&nbsp;&nbsp;Ocorreu um erro interno! [promptAjax_2]<br>&nbsp;&nbsp;&nbsp;Para ver detalhes do erro <a href="javascript:MostraErroExecuta()"><font color="#000000">Clique aqui</font></a>';
							}
							else{
								StrRegistroBanco = oHTTPRequest.responseText;
								//Chama a função que monta o Grid de seleção
								MontaGridSelecao(intPagina);
							}
						}
					}
					//Nenhum registro encontrado
					else{
						// tratamento especial Agendamento na consulta de Transportadora
						// 24/11/2008 - Silvio
						// não achando nada (chegou aqui), sendo consulta por codigo não deixar mostrar o botão de "confirmar" (Igual a prompt para Cadastro de Clientes)
						// Variável TipoPesquisa contem o Radio Button rdblike sendo:
						// TipoPesquisa[0] = Código
						// TipoPesquisa[1] = Comece em
						// TipoPesquisa[2] = Meio
						// TipoPesquisa[3] = Termine em
						if (TipoPesquisa[0].checked){
							CadastroInexistente = false;
						}
						else{
							CadastroInexistente = true;
						}
						if (CadastroInexistente){
							strMontandoFormDescNaoEncontrado = '';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '<table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + ' <tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '  <td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '   <table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    <tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     <td colspan=2 class="text">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '      Nenhum registro foi encontrado!<br>Clique em confirmar para prosseguir com essa informa&ccedil;&atilde;o:';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    </tr>';						
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    <tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     <td class="text">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '      <input type="text" name="txtCadNovo" class="form" style="width:320px;" value="'+pValorFiltro+'">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     <td class="text">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '      <input type="button" name="botao" class="ebutton" value="Confirmar" onClick="AdicionaDescNaoEncontrado(txtCadNovo.value);">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    </tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '   </table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '  </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + ' </tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '</table>';
						}
						else{
							strMontandoFormDescNaoEncontrado = '';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '<table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + ' <tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '  <td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '   <table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    <tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     <td colspan=2 class="text">';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '      Nenhum registro foi encontrado!';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '     </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '    </tr>';						
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '   </table>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '  </td>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + ' </tr>';
							strMontandoFormDescNaoEncontrado = strMontandoFormDescNaoEncontrado + '</table>';
						}
						document.all.Ajax.innerHTML = strMontandoFormDescNaoEncontrado;
					}
				}
			}
			//Carregando
			if (oHTTPRequest.readyState==1){
				document.all.Ajax.innerHTML = 'Carregando...';			
			}
			
			//Variavel que contêm os paramêtros para a executa.aspx 
			//strParam = "" 
			//strParam = strParam + MontaStringSQL(pValorFiltro);
			//strParam = strParam + "&pComandoAlteracao=FALSE";
			
			//String de paramêtros temporários enquanto a nova versão da
			//executa.aspx não fica pronta
			strParam = '';
			strParam = strParam + 'Tabela= ';
			strParam = strParam + '&CampoEntrada= ';
			//12/01/2010
			//Correção para consulta de texto com "&" (Wellington - Solicitante: Pedro)
			strParam = strParam + '&Procedure=' + MontaStringSQL(pValorFiltro.replace('&','@'));
			strParam = strParam + '&CampoLike= ';
			strParam = strParam + '&Operador= ';
			strParam = strParam + '&Like= ';
			strParam = strParam + '&Where= ';
			strParam = strParam + '&Order= ';
			strParam = strParam + '&CampoSaida= ';
			
			//Faz o acesso assíncrono, enviando os paramêtros
			oHTTPRequest.send(strParam);
		}
		else{
			alert('Por favor digite o filtro!');
		}
	}

	//Função que monta e retorna a string SQL	
	function MontaStringSQL(pValorFiltro){
		
		//Variável que retornará na função
		strRetornoSQL = '';
		
		//Caso seja uma procedure, apenas executá-la
		if (Procedure.length!=0){
		
			//Retorna para a Procedure para ser executada
			strRetornoSQL = Procedure;
		
		}
		//Montar a String SQL
		else{

			strRetornoSQL = '';
			strRetornoSQL = strRetornoSQL + 'SELECT DISTINCT ' + CampoSelCod + ', ' + CampoSelDesc + ', ' + CampoRetCod + ', ' + CampoRetDesc + ' ';
			strRetornoSQL = strRetornoSQL + 'FROM ' + FromTabela + ' ';
			strRetornoSQL = strRetornoSQL + 'WHERE ' + MontaPriCondicao(pValorFiltro) + ' ';
			if (ComplWhere.length !=0){
				strRetornoSQL = strRetornoSQL + ComplWhere;
			}
			strRetornoSQL = strRetornoSQL + 'Order By ' + MontaOrderBy(pValorFiltro) + ' ';
		}
		return strRetornoSQL;
		
	}
	//Função que retorna a Primeira Condição
	function MontaPriCondicao(pValorFiltro){
		
		//Variável que contêm o objeto de escolha do filtro
		// Código
		// Comece em
		// Meio
		// Termine em
		TipoPesquisa = document.Form1.rdbLike;
		
		//Variável que retorna a string da Primeira Condição 
		strRetornoPriCondicao = '';

		//Caso a opção Código tenha sido escolhida
		if (TipoPesquisa[0].checked){
			strRetornoPriCondicao = CampoSelCod;
			if (Operador=='LIKE' || Operador=='NOT LIKE'){
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |#' + pValorFiltro + '#|';
			}
			else{
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |' + pValorFiltro + '|';
			}
			
		}
		//Caso a opção Comece em tenha sido escolhida	
		if (TipoPesquisa[1].checked){
			strRetornoPriCondicao = CampoSelDesc;
			if (Operador=='LIKE' || Operador=='NOT LIKE'){
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |' + pValorFiltro + '#|';
			}
			else{
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |' + pValorFiltro + '|';
			}
		}
		//Caso a opção Meio tenha sido escolhida
		if (TipoPesquisa[2].checked){
			strRetornoPriCondicao = CampoSelDesc;
			if (Operador=='LIKE' || Operador=='NOT LIKE'){
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |#' + pValorFiltro + '#|';
			}
			else{
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |' + pValorFiltro + '|';
			}
		}
		//Caso a opção Termine em tenha sido escolhida
		if (TipoPesquisa[3].checked){
			strRetornoPriCondicao = CampoSelDesc;
			if (Operador=='LIKE' || Operador=='NOT LIKE'){
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |#' + pValorFiltro + '| ';
			}
			else{
				strRetornoPriCondicao = strRetornoPriCondicao + ' ' + Operador + ' |' + pValorFiltro + '|';
			}
		}
		return strRetornoPriCondicao;
	}
	function MontaOrderBy(pValorFiltro){
	
		//Variável que contêm o objeto de escolha do filtro
		// Código
		// Comece em
		// Meio
		// Termine em
		TipoPesquisa = document.Form1.rdbLike;
	
		//Variável que retorna a string da Ordenação 
		strRetornoOrderBy = '';
		
		//Caso a opção escolhida seja o código, ordenar por este campo
		if (TipoPesquisa[0].checked){
			strRetornoOrderBy = CampoSelCod;
		}
		//Caso a opção escolhida seja diferente do código, ordenar pelo campo de descrição
		else{
			strRetornoOrderBy = CampoSelDesc;
		}
		return strRetornoOrderBy;
	}
	function MontaGridSelecao(intPagina){
	
		//Populando o array com os registro delimitados por |
		ArrRegistroBanco = StrRegistroBanco.split('|');
		
		//Pegando a quantidade de registros encontrados
		//Divide-se por 4, pois retorna 4 campos por linha do banco
		intQtdeRegistro = (ArrRegistroBanco.length/4); 
		
		//Variavél que conterá todo o código para montar a tabela
		strMontandoGrid = '';	
		
		//Variavél para contador
		intContador = 0;	
	
		
		//-------------------------------------------------------------------------------
		//						   ROTINA QUE CRIA A TABELA
		//-------------------------------------------------------------------------------
			strMontandoGrid = strMontandoGrid + '<table border="0" align="center" id="GridSelecao" cellspacing="4" style="width:400;">';
			
			//Montando a tabela o cabeçalho dela
			strMontandoGrid = strMontandoGrid + '<tr>';
			strMontandoGrid = strMontandoGrid + '<td colspan="2" align="right"><font face="tahoma" size="1" color="#666666">Encontrado(s)&nbsp;'+intQtdeRegistro+'&nbsp;Registros</font></td>';
			strMontandoGrid = strMontandoGrid + '</tr>';
		
			//Variável que controlá os registros que aparecerão na página corrente
			intIndiceInicial = (intPagina * intPorPagina) - intPorPagina ;
			intIndiceFinal = intIndiceInicial + (intPorPagina-1);
			
			//Criando a estrutura de repetição para exibir a quantidade de registros por página
			for (intContador=intIndiceInicial;intContador<=intIndiceFinal;intContador++) {
				
				//Só exibir se o índice do registro corrente for menor do que a quantidade de registros
				if (intContador < intQtdeRegistro)
				{
					//Criando os índices respectivos para cada campo do banco
					//CampoSelCod
					intCampoSelCod = intContador*4;
					//CampoSelDesc
					intCampoSelDesc = intCampoSelCod + 1;
					//CampoRetCod
					intCampoRetCod = intCampoSelDesc + 1;
					//CampoRetDes
					intCampoRetDes = intCampoRetCod + 1;
					
					//-------------------------------------------------------------------------------
					//						   ROTINA QUE CRIA A LINHA DA TABELA
					//-------------------------------------------------------------------------------
					
						//Criando a linha
						strMontandoGrid = strMontandoGrid + "<tr ";
						//Criando o zebrado da tabela
						if (intContador != 0 && intContador % 2 != 0){
							strMontandoGrid = strMontandoGrid + 'bgColor="#E6E6E6"';
						}
						else{
							strMontandoGrid = strMontandoGrid + 'bgColor="#FFFFFF"';
						}

						strMontandoGrid = strMontandoGrid + ">";
						
						//-------------------------------------------------------------------------------
						//					   ROTINA QUE CRIA A 1ª COLUNA DA TABELA
						//-------------------------------------------------------------------------------
						
							//Criando a célula com os campo hidden
							strMontandoGrid = strMontandoGrid + "<td width=100 align=right>";
							//Criando o campo hidden que contêm o valor do código que irá para o value do Combo
							strMontandoGrid = strMontandoGrid + '<input type="hidden" id=CampoRetCod' + intCampoRetCod + ' value="' + SubstituiCaracterPorVazio(ArrRegistroBanco[intCampoRetCod]) + '">';
							//Criando o campo hidden que contêm o valor da descrição que irá para o text do Combo
							strMontandoGrid = strMontandoGrid + '<input type="hidden" id=CampoRetDes' + intCampoRetDes + ' value="' + SubstituiCaracterPorVazio(ArrRegistroBanco[intCampoRetDes]) + '">';
							//Criando o link chamando a função que pegará o valor dos campos escondidos e colocará no combo
							strMontandoGrid = strMontandoGrid + "<a href=javascript:onClick=PreencheCombo('document.Form1.CampoRetCod"+intCampoRetCod+".value','document.Form1.CampoRetDes"+intCampoRetDes+".value');>";
							//Definindo a fonte do conteúdo da célula
							strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1 color=#000000>";
							//Conteúdo da célula
							strMontandoGrid = strMontandoGrid + ArrRegistroBanco[intCampoSelCod];
							strMontandoGrid = strMontandoGrid + "</font>";
							strMontandoGrid = strMontandoGrid + "</a>";
							//Fechando a 1ª Célula
							strMontandoGrid = strMontandoGrid + "</td>";
						//---------------------------------------------------------------------------
						//					   ROTINA QUE CRIA A 2ª COLUNA DA TABELA
						//---------------------------------------------------------------------------
						
							strMontandoGrid = strMontandoGrid + "<td width=300>";
							//Criando o link chamando a função que pegará o valor dos campos escondidos e colocará no combo
							strMontandoGrid = strMontandoGrid + "<a href=javascript:onClick=PreencheCombo('document.Form1.CampoRetCod"+intCampoRetCod+".value','document.Form1.CampoRetDes"+intCampoRetDes+".value');>";
							//Definindo a fonte do conteúdo da célula
							strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1 color=#000000>";
							//Conteúdo da célula
							strMontandoGrid = strMontandoGrid + ArrRegistroBanco[intCampoSelDesc];
							strMontandoGrid = strMontandoGrid + "</font>";
							strMontandoGrid = strMontandoGrid + "</a>";
							//Fechando a 1ª Célula
							strMontandoGrid = strMontandoGrid + "</td>";
						//---------------------------------------------------------------------------
						
						//Fechando a Linha
						strMontandoGrid = strMontandoGrid + "</tr>";
					//-------------------------------------------------------------------------------
				}
				else{
					//Rotina que cria linhas vazias para preencher a tabela e a paginação ficar correta
					strMontandoGrid = strMontandoGrid + "<tr>";
					strMontandoGrid = strMontandoGrid + "<td><font face=tahoma size=1>&nbsp;</font>";
					strMontandoGrid = strMontandoGrid + "</td>";
					strMontandoGrid = strMontandoGrid + "<td><font face=tahoma size=1>&nbsp;</font>";
					strMontandoGrid = strMontandoGrid + "</td>";
					strMontandoGrid = strMontandoGrid + "</tr>";
				}
			}
			//Caso tenha mais registros do que os exibidos na tela, mostra a paginação
			//-------------------------------------------------------------------------------
			//						   ROTINA DA PAGINAÇÃO
			//-------------------------------------------------------------------------------
				//Caso tenha mais registros do que os exibidos na tela, mostra a paginação
				if (intQtdeRegistro > intPorPagina){
							
					//Caso o resto da divisão entre a qtde de registros e número da página corrente, 
					//for maior que 0 acrescentar uma página a mais
					if (intQtdeRegistro%intPorPagina > 0){
						intQtdePaginas = parseInt(intQtdeRegistro/intPorPagina) + 1;
					}
					else{
						intQtdePaginas = parseInt(intQtdeRegistro/intPorPagina);
					}
					
					//-------------------------------------------------------------------------------
					//						   ROTINA CRIANDO <TR> <TABLE> <TD>
					//-------------------------------------------------------------------------------
						strMontandoGrid = strMontandoGrid + "<tr>";
						strMontandoGrid = strMontandoGrid + "<td width=400 align=center colspan=2>";
						//Criando uma tabela dentro de uma linha
						strMontandoGrid = strMontandoGrid + "<table width=350 align=center>";
						strMontandoGrid = strMontandoGrid + "<tr>";
						//Abrindo a TD aonde fica o texto Anterior
						strMontandoGrid = strMontandoGrid + "<td width=100>";

						//Caso a página corrente seja maior do que 1, aparecer o link Anterior
						if (intPagina > 1){
							strMontandoGrid = strMontandoGrid + '<a href="javascript:MontaGridSelecao('+(intPagina-1)+');"><font face="tahoma" size="1" color="#000000">Primeira</font></a>';
						}
						else{
							strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1>&nbsp;</font>";
						}
						
						//Fechando a TD da coluna aonde fica o texto Anterior
						strMontandoGrid = strMontandoGrid + "</td>";
						
						//Abrindo a TD aonde fica os links com as páginas 
						strMontandoGrid = strMontandoGrid + "<td align=center width=150>";
						
						//-------------------------------------------------------------------------------
						//				ROTINA QUE FAZ COM QUE SÓ APAREÇAM 11 NÚMEROS POR VEZ
						// EXEMPLO:  <<anterior     5  6  7  8  9  10  11  12  13  14  15     próximo>>
						//-------------------------------------------------------------------------------
							if (intQtdePaginas > 10){
							
								ForInicio = parseInt(intPagina);
								if (parseInt(intPagina)>5){
									ForInicio = ForInicio - 5;
								}
								else{
									ForInicio = 1;
								}
								
								if (intPagina>5){
									ForFinal  = ForInicio + 10;
								}
								else{
									ForFinal  = ForInicio + 9;
								}

								if (ForFinal > intQtdePaginas){
									ForInicio = intQtdePaginas - 10;
    								ForFinal = intQtdePaginas;
								}
							}
							else{
								ForInicio = 1;
								ForFinal  = intQtdePaginas;
							}
						//-------------------------------------------------------------------------------
						//					ROTINA QUE POPULA OS LINKS DENTRO DA CÉLULA
						// EXEMPLO:				2  3  4  5  6  7  8  9  10  11  12     
						//-------------------------------------------------------------------------------
							for(i=ForInicio;i<=ForFinal;i++){
								if (i != intPagina){
									strMontandoGrid = strMontandoGrid + '<a href=javascript:MontaGridSelecao('+i+');>';
								}
								
								if (i == intPagina){
									strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1 color=#000000><b>" + i + "</b></font>";
								}
								else{
									strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1 color=#000000>" + i + "</font>";
								}
								
								if (i != intPagina){
									strMontandoGrid = strMontandoGrid + "</a>";
								}
								
								strMontandoGrid = strMontandoGrid + "&nbsp;&nbsp;";
							}
						//-------------------------------------------------------------------------------
						
						//Fechando a coluna que contêm os links
						strMontandoGrid = strMontandoGrid + "</td>";
						
						//Abrindo a TD da coluna aonde fica o texto Próximo
						strMontandoGrid = strMontandoGrid + "<td width=100 align=right>";
						
						if (intPagina < intQtdePaginas){
							strMontandoGrid = strMontandoGrid + '<a href="javascript:OnClick=MontaGridSelecao('+(intPagina+1)+');"><font face=tahoma size=1 color=#000000>Ultima</font></a>';
						}
						else{
							strMontandoGrid = strMontandoGrid + "<font face=tahoma size=1>&nbsp;</font>";
						}
						
						//Fechando a TD da coluna aonde fica o texto Próximo
						strMontandoGrid = strMontandoGrid + "</td>";
						
						strMontandoGrid = strMontandoGrid + "</tr>";
						strMontandoGrid = strMontandoGrid + "</table>";
						strMontandoGrid = strMontandoGrid + "</td>";
						strMontandoGrid = strMontandoGrid + "</tr>";
					//-------------------------------------------------------------------------------
				}
				strMontandoGrid = strMontandoGrid + '</table>';
				//Preenchendo o Div com o conteúdo do GRID de seleção
				document.all.Ajax.innerHTML = strMontandoGrid;
			//-------------------------------------------------------------------------------
		//-------------------------------------------------------------------------------
	}
	//Função que Preenche o Combo
	function PreencheCombo(pCodigo,pDescricao){
		
		//Converte o nome do campo em objeto para pegar o valor
		try{
			Codigo = eval(pCodigo);
			Descricao = eval(pDescricao);
		}
		catch(err){
			Codigo = '0';
			Descricao = 'ERRO!';
		}	
		
		//-------------------------------------------------------------------------------
		//						ROTINA QUE CRIA UMA NOVA OPÇÃO NO COMBO
		//-------------------------------------------------------------------------------
			var op = document.createElement("OPTION");
			op.value=Codigo;
			op.text=Descricao;
			op.selected=true;
			eval('document.Form1.'+Objeto).options.add(op);
		//-------------------------------------------------------------------------------
		
		//Rotina que grava o campo selecionado
		CampoValueSelecionado = Codigo;
		CampoDescSelecionado = Descricao;
		
		//Função que fecha o layer de seleção do filtro
		fechar_pop(Layer1.style);
		
		//Caso exista alguma função para ser executada
		if (Funcao!=''){
			eval(Funcao);
		}
		
	}
	
	/* 
	//-------------------------------------------------------------------------------
	// CRIADA POR	: Winston
	// DATA			: 18/12/2006
	//-------------------------------------------------------------------------------
	
	TrataTable(Acao, Tabela, Coluna, Linha, Lixeira)

	onde:

	pAcao -> Flag indicando a ação a ser executada na <TABLE>. Obrigatório.
		Parâmetros:
		['I'] para Incluir linha(s) na <TABLE>
		['A'] para Alterar uma linha específica na <TABLE>
		['D'] para Deletar uma linha específica na <TABLE>
		['Z'] para Zerar a tabela, ou seja excluir todas as linhas e deixar a primeira vazia (em branco)

	pTabela -> Propriedade ID da <TABLE> objeto da Acao. Obrigatório.
	pArrLinha -> Array que subsidia a [Acao 'I'] e a [Acao 'A']. Opcional [Acao 'D'].
		
		Array obedece a estrutura:
		
		Coluna[n] = conteúdo
		
		onde: 
		
		[n] é o índice da coluna ( 0 = 1ª coluna, 1 = 2ª coluna ... )
		
		<conteudo> é conteúdo a ser colocado na respectiva coluna, sendo valor ou tag html.
		Em havendo campos/tags escondidos (type=hidden), deverão ficar na última posição da Array.	
		
	pIndice -> Índice(numérico) para a [Acao 'A'] e a [Acao 'D']. Opcional [Acao 'I'].
	pLixeira -> Parâmetros:
		''(branco) = não haverá o ícone de exclusão(lixeira)
		'PADRAO'   = haverá ícone de exclusão(lixeira), executando Acao 'D'
	*/

	function TrataTable(pAcao, pTabela, pArrLinha, pIndice, pLixeira){
			
		strNomeTabela = pTabela;
		pTabela = eval(pTabela);

		if (pAcao=='I'){
			
			LinhaVazia = false;
			if (pTabela.rows.length > 1){
				if(pTabela.rows[1].cells[0].innerText=='' || pTabela.rows[1].cells[0].innerHTML=='&nbsp;'){
					Linha = pTabela.rows[1];
					LinhaVazia = true;
				}
				else{
					Linha = pTabela.insertRow(pTabela.rows.length);
				}
				if (LinhaVazia){
					pIndice = pIndice-1;
				}
			}
			else{
				Linha = pTabela.insertRow(pTabela.rows.length);
				LinhaVazia = false;
			}
			
			ConteudoTagpLixeira = '';
			ConteudoTagpLixeira = ConteudoTagpLixeira + "<a href=javascript:TrataTable(";
			ConteudoTagpLixeira = ConteudoTagpLixeira + "'D',";
			ConteudoTagpLixeira = ConteudoTagpLixeira + strNomeTabela + ",";
			ConteudoTagpLixeira = ConteudoTagpLixeira + "'',";
			ConteudoTagpLixeira = ConteudoTagpLixeira + pIndice + ",";
			ConteudoTagpLixeira = ConteudoTagpLixeira + "'PADRAO'";
			ConteudoTagpLixeira = ConteudoTagpLixeira + ");>";
			ConteudoTagpLixeira = ConteudoTagpLixeira + "<image src=I/ico-trash.gif border=0>";
			ConteudoTagpLixeira = ConteudoTagpLixeira + "</a>";
			
			for(i=0;i<pArrLinha.length;i++){
				if (LinhaVazia){
					Linha.cells[i].innerHTML = pArrLinha[i];
				}
				else{
					Linha.insertCell(i).innerHTML = pArrLinha[i];
				}
			}	

			if (pLixeira=='PADRAO'){
				if (LinhaVazia){
					Linha.cells[(Linha.cells.length-1)].innerHTML = ConteudoTagpLixeira;
				}
				else{
					NovaCelula = Linha.insertCell(Linha.cells.length).innerHTML = ConteudoTagpLixeira;
				}	
				Linha.cells[(Linha.cells.length-1)].align = 'center';
			}
		}
		else if (pAcao=='A'){
			if (pIndice!=''){
				for(i=0;i<pArrLinha.length;i++){
					pTabela.rows[pIndice].cells[i].innerHTML = pArrLinha[i];
				}	
			}
			/*
			if (pLixeira=='PADRAO'){
				if (LinhaVazia){
					Linha.cells[(Linha.cells.length-1)].innerHTML = ConteudoTagpLixeira;
				}
				else{
					Linha.insertCell(Linha.cells.length).innerHTML = ConteudoTagpLixeira;
				}
				Linha.cells[(Linha.cells.length-1)].align = 'center';
				
			}
			*/
		}
		else if (pAcao=='D'){
			/*
			if (pTabela.rows[1]){
				for(i=0;i<pTabela.rows[pIndice].cells.length;i++){
					pTabela.rows[pIndice].cells[i].innerHTML = '&nbsp;';
			}
			else{
				pTabela.deleteRow(pIndice);
			}
			*/
		}
		else if (pAcao=='Z'){
			intQtdeLinhas = pTabela.rows.length;
		
			for(i=1;i<intQtdeLinhas;i++){
				pTabela.deleteRow(1);
			}
			NovaLinha = pTabela.insertRow(1);
			for(i=0;i<pTabela.rows[0].cells.length;i++){
				NovaLinha.insertCell(i).innerHTML = '&nbsp;';
			}
		}
	}
	function Trim(texto) {
		var tmp = "";
		var item_length = texto.length;
		var item_length_minus_1 = texto.length - 1;
		for (index = 0; index < item_length; index++){
			if (texto.charAt(index) != ' ') {
				tmp += texto.charAt(index);
			} 
			else{
				if (tmp.length > 0){
					if (texto.charAt(index+1) != ' ' && index != item_length_minus_1){
						tmp += texto.charAt(index);
					}
				}
			}
		}
		texto = tmp;
		return texto;
	}
	function AdicionaDescNaoEncontrado(pText){
		if (pText==''){
			alert('Para esta ação e necessário que você preecha o campo!');
		}
		else{
		
			varCampoRetorno = eval('document.all.Form1.'+Objeto);
			
			if (varCampoRetorno.options.length==0){
				var op = document.createElement("OPTION");
				op.value=pText;
				op.text=pText;
				varCampoRetorno.options.add(op);
			}
			else{
				varCampoRetorno.options[0].value = pText;
				varCampoRetorno.options[0].text = pText;
			}
			fechar_pop(Layer1.style);
		}
	}
	//Função que converte alguns caracteres especiais:
	// Quando pControle = TRUE
	// De: ", Por: |
	// De: ', Por: !
	// Quando pControle = FALSE
	// De: |, Por: "
	// De: !, Por: '
	function SubstituiCaracterEspecial(pText,pControle){
		
		TextoRetorno = '';
		
		if (pControle){
		
			intPosicaoCaracter = -1;
			TextoRetorno = pText.replace('"','|');
			intPosicaoCaracter = TextoRetorno.indexOf('"');
			
			while(intPosicaoCaracter!=-1){
				TextoRetorno = TextoRetorno.replace('"','|');
				
				if (TextoRetorno.indexOf('"')!=-1){
					intPosicaoCaracter = TextoRetorno.indexOf('"');
				}
				else{
					intPosicaoCaracter = -1;
				}
			}
			
			intPosicaoCaracter = -1;
			TextoRetorno = TextoRetorno.replace(/'/,'!');
			intPosicaoCaracter = TextoRetorno.indexOf(/'/);
			
			while(intPosicaoCaracter!=-1){
				TextoRetorno = TextoRetorno.replace(/'/,'!');
				
				if (TextoRetorno.indexOf(/'/)!=-1){
					intPosicaoCaracter = TextoRetorno.indexOf(/'/);
				}
				else{
					intPosicaoCaracter = -1;
				}
			}
		}
		else{
		
			intPosicaoCaracter = -1;
			TextoRetorno = pText.replace('|','"');
			intPosicaoCaracter = TextoRetorno.indexOf('|');
			
			while(intPosicaoCaracter!=-1){
				TextoRetorno = TextoRetorno.replace('|','"');
				
				if (TextoRetorno.indexOf('|')!=-1){
					intPosicaoCaracter = TextoRetorno.indexOf('|');
				}
				else{
					intPosicaoCaracter = -1;
				}
			}
			
			intPosicaoCaracter = -1;
			TextoRetorno = TextoRetorno.replace('!',/'/);
			intPosicaoCaracter = TextoRetorno.indexOf('!');
			
			while(intPosicaoCaracter!=-1){
				TextoRetorno = TextoRetorno.replace('!',/'/);
				
				if (TextoRetorno.indexOf('!')!=-1){
					intPosicaoCaracter = TextoRetorno.indexOf('!');
				}
				else{
					intPosicaoCaracter = -1;
				}
			}
		
		}
		return TextoRetorno;
	}
	//Função que converte alguns caracteres para (vazio):
	// De: ", Por: (vazio)
	// De: ', Por: (vazio)
	function SubstituiCaracterPorVazio(pText){
		
		TextoRetorno = '';
		
		intPosicaoCaracter = -1;
		TextoRetorno = pText.replace('"','');
		intPosicaoCaracter = TextoRetorno.indexOf('"');
		
		while(intPosicaoCaracter!=-1){
			TextoRetorno = TextoRetorno.replace('"','');
			
			if (TextoRetorno.indexOf('"')!=-1){
				intPosicaoCaracter = TextoRetorno.indexOf('"');
			}
			else{
				intPosicaoCaracter = -1;
			}
		}
		
		intPosicaoCaracter = -1;
		TextoRetorno = TextoRetorno.replace("'",'');
		intPosicaoCaracter = TextoRetorno.indexOf("'");
		
		while(intPosicaoCaracter!=-1){
			TextoRetorno = TextoRetorno.replace("'",'');
			
			if (TextoRetorno.indexOf("'")!=-1){
				intPosicaoCaracter = TextoRetorno.indexOf("'");
			}
			else{
				intPosicaoCaracter = -1;
			}
		}
		return TextoRetorno;
	}
	function MostraErroExecuta(){
		NovaJanela=window.open('','Erro','height=700,width=500,scrollbars=no'); 
		NovaJanela.document.write(msgErroExecuta); 
		NovaJanela.document.close();
	}
	function RetornaTextCombo(CampoCombo){
		txtRetornoText = '';
		for(i=0;i<=CampoCombo.length;i++){
			if (CampoCombo.options[i].selected){
				txtRetornoText = CampoCombo.options[i].text;
				break;
			}
		}
		return txtRetornoText;
	}
//-------------------------------------------------------------------------------