none
Não consigo popular as colunas mesmo com a query fazendo isso. RRS feed

  • Pergunta

  • Pessoal to com um problemão, não consigo popular colunas que criei em meu código asp. Vou descrever o cenário;

    A query faz a consulta inclusive trazendo os valores referentes ao campo.

    A página asp chama uma outra página onde é implementada a query.

    As colunas que inseri sáo N, Cep, DDD.

    Segue código que monta as colunas do registro:

    <!-- #include file="includes.asp" -->
    <!-- #include file="regraAplicar.asp" -->

    <%
    'Controla acesso a página
    call CtrlAcesso("")

    'Abre conexão no banco
    call AbrirConexao()

    dim sSql, rs
    dim sCor, sOrdena
    dim sRegra

    sOrdena = request("sOrder")
    sRegra = trim(request("sRegra"))

    if sOrdena = "" then sOrdena = "1"

     

       
    %>
    <html>
    <head>
     <title>Consulta Entidade</title>
     
     <link href="css/padrao.css" rel="stylesheet" type="text/css">
     <link href="css/padraoDados.css" rel="stylesheet" type="text/css">
     <link href="css/padraoListagem.css" rel="stylesheet" type="text/css">
     <link href="css/padraoFormulario.css" rel="stylesheet" type="text/css">
     
     <script src="includes/funcoes.js" type="text/javascript"></script>
     <script src="includes/ajax.js" type="text/javascript"></script>
      
     <% if not Session("vss_invisivel") then %><script src="includes/seguranca.js" type="text/javascript"></script><%end if%>
     <script language="JavaScript">

     
      function ordena(ordem){
       location.replace("relLojaBoticario.asp?sRegra=<%= sRegra %>&sOrder="+ordem+"&A042_titulo=<%=request("A042_titulo")%>");
      }
      
      function Foco() {
       document.form1.sRegra.value = '<%= sRegra %>';
       if('<%= sRegra %>' != '') buscarInfoAjax(document.form1.sRegra, 'strRegraInfo', 'formatarRegra()')
      }
      
      function buscaRegra(campo) {
      
       if(campo.value != '<%= sRegra %>' && '' != '<%= sRegra %>') {
        $id("divRes").style.display = 'none';
        $id("divExcel").style.display = 'none';
       }
       else if('' != '<%= sRegra %>') {
         $id("divRes").style.display = '';
         $id("divExcel").style.display = '';
       }
       
       if(campo.value == '') {
        $id('strRegraInfo').innerHTML = 'Selecione uma regra!'
        return;
       }
       
       buscarInfoAjax(campo, 'strRegraInfo', 'formatarRegra()')
       
      }
      
      function formatarRegra() {
      
       var sCamposFiltro = Array("Nome;A010_nom_ent;A", "Apelido;A010_apelido;A", "Classificação;A010_status;N","CGC/CPF;A010_cgc_cpf;A", "Palavra-Chave;A010_palavra_chave;A", "Profissão;A010_profissao;A", "Cargo;A010_cargo;A", "Ramo de Atividade;A010_ramo_ativ;A", "Indicação;A010_indicacao;A", "Observação;A010_obs;A", "Telefone;A018_num_tel;A", "Canal;A020_dsc_canal;A", "Cidade;A004_nom_cidade;A", "Estado;A003_nom_estado;A", "Bairro;A009_bairro;A", "CEP;A009_cep;A", "Logradouro;A009_endereco;A", "Complemento;A009_complemento;A")
       for(var i = 0; i < len(sCamposFiltro); i++) {
        var tmp = sCamposFiltro[i].split(";");
        $id('strRegraInfo').innerHTML = ReplaceAll($id('strRegraInfo').innerHTML, tmp[1], tmp[0]);
       }
      }
      
      function paraExcel() {
      
    /**
       if(!eval($id("tbResultado"))) {
       
        alert("Sem dados para exportar! Faça um filtro primeiro!");
        return;
       }
       
       var conteudo = document.form1.sRegra.options[document.form1.sRegra.selectedIndex].text + "<br/>";

       conteudo+= $id("regraInfo").innerHTML;
       conteudo+= $id("divRes").innerHTML;
       
       conteudo = ReplaceAll(conteudo, '<img src="images/downp.gif" align="absmiddle">', '');
       conteudo = ReplaceAll(conteudo, '<img src="images/down.gif" align="absmiddle">', '');   

       conteudo = ReplaceAll(conteudo, '<img src="images/upp.gif" align="absmiddle">', '');   
       conteudo = ReplaceAll(conteudo, '<img src="images/up.gif" align="absmiddle">', '');   
       
       excelRelatorio('<%=request("A042_titulo")%>',conteudo);
    **/


       var excel=window.open("","excel","height="+ (screen.height-400) +",width="+ (screen.width-100) +",left=50,top=150,resizable=yes,statusbar=no,menubar=yes,scrollbars=yes");
       
       form1.action = "relLojaBoticarioExcel.asp"
       form1.target = "excel";
       form1.submit();

       form1.action = "relLojaBoticario.asp";
       form1.target = "";

      }
      
     </script>
    </head>
    <body onLoad="Foco()">
    <form action="relLojaBoticario.asp?A042_titulo=<%=request("A042_titulo")%>" method="post" id="form1" name="form1">   
     <input type="hidden" value="" name="HTML_areaCabecalho">

    <div id='excel'>
    <table>
     <tr>
      <td width="150px">
       <span class="form_texto">Regra<br></span>
       <select name="sRegra" style="width: 150px;" onChange="buscaRegra(this)" class="form_campo"><% call sfOptionRegra() %></select>
      </td>
      
      <td align="left" valign="middle" style="padding-top: 15px; margin-left: 5px" rowspan="1">
       <a href="#"><img onClick="document.form1.submit();" src="images/btn_pesquisar.gif" border="0"></a>
      </td>
     </tr>
     
     <tr id='regraInfo'>
      <td colspan="2" width="400px">
      <fieldset id='strRegraInfo' class="listagem">
      Selecione uma regra!
      </fieldset>
      </td>
     </tr>
     
    </table>

    <% if sRegra <> "" then %>

    <div id=divRes>

    <table style="border-bottom: 0px; border-left: 0px;" width="99%" cellpadding="0" cellspacing="0" class="listagem" id="tbResultado">
     
      <tr>
     <%
     dim sAlign, sCabecalho, sOrder, sWidth, i
     sAlign = Array("left", "left","left", "left", "left","center", "left","left","left", "left","left","left")'Aumento de 3 lefts
     sCabecalho = Array("BPCS", "Nome","Cidade", "Estado","Logradouro","N","Cep","DDD","Telefone", "&nbsp;Canal de Comunicação","CNPJ","Inscrição Estadual")
     'sOrder = Array("1","2","3","4", "5","6", "7","8","9")
     'sWidth = Array("","","","", "", "", "","", "")
     sOrder = Array("1","2","3","4", "5","6", "7","8","9","12","10","11")
     sWidth = Array("","","","","","","","","","","","") 

     for i=0 to ubound(sCabecalho)%>
         <th width="<%=sWidth(i)%>" align="<%=sAlign(i)%>" <%if i = 0 then%> style="border-left: 1px solid silver"<% end if %>>
      <strong><%=sCabecalho(i)%></strong>
        </th>
     <%Next%>
      </tr>
    <%
      
        ' O método que gera a consulta foi transferido para o arquivo "regraAplicar.asp" para poder ser compartilhado com outras páginas
     ' Ele irá retornar vetores contendo dados da consulta da regra especificada em sRegra
      On error resume next
      call aplicarRegra()  

        if err <> 0 then
      call trataErro
      response.End
      end if
     
     dim sClsTR
     dim cont

     i = 0
     cont = 0

     Do while i < ubound(cd_cliente)
     
     
      cont = cont + 1
     
      if sClsTR = "ls" then sClsTR = "ln" else sClsTR = "ls" end if
     
      Dim link  
      link = "entidadeMan.asp?sAcao=U&nA010_cod_entidade=" & cd_cliente(i) & "&A042_titulo=" & request("A042_titulo")
       %>
      <tr style="cursor: pointer;" class="<%=sClsTR%>" onClick="location.href = '<%= link %>'"> 
        <td style=" border-left: 1px solid silver; " class="form_textoCon" align="left">&nbsp;<%= bpcs(i) %></td>
        <td class="form_textoCon" align="left"><%= nm_cliente(i) %></td>
        <td class="form_textoCon" align="left"><%= cidade(i) %></td>
        <td class="form_textoCon" align="left"><%= estado(i) %></td>
     <td class="form_textoCon" align="left"><%= logradouro(i) %></td>
     <td class="form_textoCon" align="left">&nbsp;<%= N(i) %></td>
        <td class="form_textoCon" align="left">&nbsp;<%= Cep(i) %></td>
        <td class="form_textoCon" align="left">&nbsp;<%= DDD(i) %></td>
        <td class="form_textoCon" align="center"><%= telefone(i) %></td>
        <td class="form_textoCon" align="left">&nbsp;<%= canal(i) %></td>
        <td class="form_textoCon" align="left">&nbsp;<%= cnpj(i) %></td>
        <td class="form_textoCon" align="left">&nbsp;<%= insc_estadual(i) %></td>    
      </tr>
      <%

    %>

    <%  i = i + 1
       Loop %>

      <tr>
        <td style="border: 0px; border-top: 1px solid silver; " colspan="5" align="right"><b>Total de registros: <%= cont %></b></td>
      </tr>
    </table>

    <table bgcolor="#ffffff" border="0" cellspacing="0" cellpadding="0" width="100%">
     
    </table>

    </div>
    <%
    end if %>

    </div>

    <% if cont <> 0 then %>
    <p id="divExcel" align="right">
    <a href="javascript: paraExcel()" title="Exportar para Excel"><img src="images/bt_excel.gif" border="0"></a>
    </p>
    <% end if %>

    </form>
    </body>
    </html>
    <%
    'Fecha conexão no banco
    call FecharConexao()
    %>

     

    SE ALGUÉM PUDER ME AJUDAR PQ NÃO FAÇO IDÉIA OQUE ESTA ACONTECENDO!

    quarta-feira, 1 de setembro de 2010 12:43

Todas as Respostas