Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

PRWEB

Busca

Por , em ASP Clássico

Recommended Posts

PRWEB    0

PRWEB
Postado

Tudo bem pessoal?

 

Estou com um problema em funcionar este meu código, eu preciso que quando filtro um determinado campo de uma certa tabela ele venha so o que eu filtrei, só que ele ta vindo tudo.

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="../Connections/oConn.asp" -->

<%
if session ("v_o_f_visualizar") = 0 then
Response.redirect "erro.asp"
end if

Session.LCID = 4105 'INGLÊS

id_cliente = request.QueryString("id_cliente")
no_os = request.QueryString("no_os")
prod_pendente = request.QueryString("prod_pendente")

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Firebird/Interbase(r) driver}; DBNAME=localhost:c:\Inetpub\wwwroot\sistema_interno_hcs_v.1.0\bd\BD_HCS.GDB; UID=SYSDBA;PWD=masterkey")

Dim vi
Dim vi_numRows

Set vi = Server.CreateObject("ADODB.Recordset")
vi.ActiveConnection = MM_oConn_STRING

auxsql = "SELECT * FROM TB_GERAR_OF_OM_CAD WHERE "

'Nº ORDEM DE FORNECIMENTO
if (Request.QueryString("no_os") <> "") then
 auxsql = auxsql & "no_os = '" & Request.QueryString("no_os") & "' AND "
end if

'IMPRESSÃO
if (Request.QueryString("impresso") <> "") then
 auxsql = auxsql & "impresso = '" & Request.QueryString("impresso") & "' AND "
end if

'DATA ABERTURA O.F.
if (Request.QueryString("data_abertura") <> "") then
 auxsql = auxsql & "data_abertura = '" & Request.QueryString("data_abertura") & "' AND "
end if

'DEPARTAMENTO
if (Request.QueryString("departamento") <> "") then
 auxsql = auxsql & "departamento = '" & Request.QueryString("departamento") & "' AND "
end if

'SITUAÇÃO F. M.
if (Request.QueryString("situacao_of_om") <> "") then
 auxsql = auxsql & "situacao_of_om = '" & Request.QueryString("situacao_of_om") & "' AND "
end if

'NOME EMPRESA
if (Request.QueryString("nome_empresa") <> "") then
 Set cadastro = Server.CreateObject("ADODB.Recordset")
 cadastro.ActiveConnection = MM_oConn_STRING

 cadastro.source = "SELECT id_cliente FROM TB_DADOS_CLIENTES WHERE nome_empresa LIKE '" & Request.QueryString("nome_empresa") & "%'"
 cadastro.open()

 if not(cadastro.eof) then
  auxsql = auxsql & "id_cliente = " & cadastro("id_cliente") & " AND "
 end if 

 cadastro.close
end if

'PENDENTES
if (Request.QueryString("prod_pendente") = "1") then
 Set pend = Server.CreateObject("ADODB.Recordset")
 pend.ActiveConnection = oConn

 pend.source = "SELECT * FROM TB_GERAR_OF_OM_CAD_ITENS WHERE prod_pendente = '1'"
  pend.open()

 if not(pend.eof) then
  auxsql = auxsql & "no_os = " & pend("no_os") & " AND "
 end if 

 pend.close
end if

if (right(auxsql,6) = "WHERE ") then
 auxsql = left(auxsql,len(auxsql) - 6) & "WHERE (GERAR_OF_OM = 'OF') ORDER BY no_os ASC"
else
 auxsql = left(auxsql,len(auxsql) - 4) & "AND (GERAR_OF_OM = 'OF') ORDER BY no_os ASC"
end if

'Response.Redirect("teste.asp?teste=" & auxsql)

vi.source = auxsql

vi.CursorType = 0
vi.CursorLocation = 2
vi.LockType = 1
vi.Open()

if vi.eof then 
semregistro = 1
 else
semregistro = 0
 end if

vi_numRows = 0

Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 100000
Repeat1__index = 0
vi_numRows = vi_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>

<script>
function abrir(URL) {

  var width = 1440;
  var height = 900;

  var left = 99;
  var top = 99;

  window.open(URL,'janela', 'width='+width+', height='+height+', top='+top+', left='+left+', scrollbars=yes, status=no, toolbar=no, location=no, directories=no, menubar=no, resizable=no, fullscreen=no');

}
</script>

<script type="text/javascript" src="validations.js"></script>
<script type="text/javascript" src="jquery.js"></script>
<script type="text/javascript" src="jquery.mask.js"></script>
<script type="text/javascript">
	$(document).ready(function(){
		//Ativando as mascaras
		$('input:text').setMask();
	});
</script>

<script>
function func_imp()
{
	num_comp = document.forms["form1"].length;  //Numero de componentes

	marcou = 0;
	for(i=0;i<=num_comp-1;i++)
	 if(document.forms["form1"].elements[i].type == 'checkbox')
	  if(document.forms["form1"].elements[i].checked)
	   marcou = 1;
	
	if(marcou)
	 return true;
	else
	{
	 alert('Selecione a O.F. para impressão!');
	 return false;
	}
}
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
</script>

<link href="../css/campo_branco.css" rel="stylesheet" type="text/css">

<style type="text/css">
BODY {background-color:transparent}
</style>

<style type="text/css">
<!--
@import url("../css/campo_branco_ng.css");

.style10 {
	font-family: Calibri;
	font-size: 12px;
}
.style11 {
	color: #000000;
	font-weight: bold;
}
.style14 {font-family: Calibri}
.style15 {font-size: 12px}
.style18 {color: #000000}
.style21 {
	font-size: 14px;
	color: #FF0000;
}
body {
	margin-left: 2px;
	margin-top: 2px;
	margin-right: 2px;
	margin-bottom: 2px;
}
.style28 {
	font-family: Calibri;
	font-size: 12px;
}
.style31 {
	font-size: 15px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style64 {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
	color: #000000;
}
.style66 {
	font-family: Calibri;
	font-size: 20px;
	color: #FF0000;
	font-weight: bold;
}
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
}
a:link {
	color: #003366;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #003366;
}
a:hover {
	text-decoration: none;
	color: #FF0000;
}
a:active {
	text-decoration: none;
	color: #FF0000;
}
.style106 {font-size: 12}
.style117 {font-family: Verdana, Arial, Helvetica, sans-serif}
.style123 {font-size: 10px}
.style124 {
	font-size: 10px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-style: normal;
}
.style43 {	font-family: Calibri;
	font-size: 10px;
	color: #000000;
	font-weight: bold;
}

.style65 {font-family: Calibri; font-size: 10px; font-weight: bold; }
.style125 {font-size: 18px}
.style126 {
	font-size: 10px
}
.style128 {font-size: 13px; font-weight: bold; }
.style102 {	font-size: 10px;
	font-family: Verdana, Arial, Helvetica, sans-serif;
}
.style180 {font-weight: bold}
.style181 {font-weight: bold}
.style182 {font-weight: bold}
.style183 {font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; }
-->
</style>
</head>

<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="22" valign="top"><div align="left"><a href="filtros_ordem_fornecimento.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('Image1','','img/buscar_2.gif',1)"><img src="img/buscar_1.gif" name="Image1" width="74" height="22" border="0" id="Image1" /></a></div></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><form id="form1" name="form1" method="post" action="imprime_os.asp" onSubmit="return func_imp()">
      <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
conta_os = 1
While ((Repeat1__numRows <> 0) AND (NOT vi.EOF))

set cadastro = oConn.execute("select * from TB_DADOS_CLIENTES where id_cliente = " & vi("id_cliente") & "")
if not(cadastro.EOF) then
 nome_emp = cadastro("nome_empresa")
else
 nome_emp = ""
end if

'set pend = oConn.execute ("select * from TB_GERAR_OF_OM_CAD where id_cliente = "& vi("id_cliente") &" ORDER BY data_abertura ASC")
%>
            
            <tr>
              <td colspan="2"> </td>
<%
'Pega as Ordens de Manutenção referente a no_os e aparece a imagem se caso tenha O.M em aberto
set manut1 = oConn.execute ("select * from TB_GERAR_OF_OM_CAD where (gerar_of_om = 'OM') and (situacao_of_om = '2') and (id_cliente = "& cadastro("id_cliente") &")")
%>
              <td colspan="3"><div align="left"><a href="lista_om.asp?id_cliente=<%=cadastro("id_cliente")%>&no_os=<%if not manut1.eof then Response.Write(manut1("no_os")) end if%>" target="content" >
                <%
if not manut1.eof then
response.write ("<img src=""img/manut_1.gif"" border=""0"">")
 else
 response.Write ("")
end if
%>
              </a> </div></td>
          </tr>
            <tr>
              <td width="93"><span class="style11 style117 style123">EMPRESA:</span></td>
              <td colspan="3"><span class="style128"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#000000"><%=nome_emp%></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></span></td>
              <td width="188"><div align="right"><span class="style10 style14 style21"><span class="style10 style14 style31"><span class="style15"><strong><span class="style117 style123 style18"><strong>N.º O.F.: </strong></span><span class="style125"><a href="#" onClick="abrir('gerar_os.asp?id_cliente=<%=vi("id_cliente")%>&codigo=<%=codigo%>&no_os=<%=vi("no_os")%>')">0<%=vi("no_os")%>/10 </a></span></strong></span></span></span></div></td>
            </tr>
            <tr>
              <td><span class="style124"><font color="#000000"><strong>Solicitado Por:</strong></font></span></td>
              <td width="489"><span class="style124"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#000000"><%=vi("solicitado_por")%></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></span></td>
              <td width="249"><span class="style123"><span class="style64"><strong><strong><strong><strong>DATA:</strong></strong></strong></strong>  <%=replace(vi("data_abertura"),".","/")%></span></span></td>
              <td colspan="2" class="style123"><font color="#000000"><span class="style14"><span class="style124"><strong>EXPEDIÇÃO: </strong><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#000000"> <%=vi("departamento")%></font><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><strong><strong><strong><strong><strong><strong><font color="#000000">  </font></strong><font color="#000000"> -   </font></strong></strong><font color="#000000" class="style124">SITUAÇÃO O.F.:</font><font color="#000000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><strong><strong><strong><font color="#000000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><font color="#000000"> </font></font></font></font></font></font></font></font></font></strong></strong></strong><font color="#000000"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FFFFFF"><font color="#FF0000"><font color="#FF0000"><font color="#FF0000"><font color="#000000">
<%
situacao_of_om = vi("situacao_of_om")

if situacao_of_om = "0" then
   Response.Write ("CANCELADA")
else
  if situacao_of_om = "1" then
    Response.Write ("CONCLUÍDO")
  else
     if situacao_of_om = "2" then
       response.write("EM ANDAMENTO")
  end if
 end if
end if
%>
              </font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></font></strong></strong></strong></font></font></font></font></font></font></font></font></font></font></font></span></span></font></td>
          </tr>
            
            <tr>
              <td colspan="5"><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000" bgcolor="#FFFFFF">

              <tr bordercolor="#C0C0C0">
                  <td width="4%" height="14" bordercolor="#C0C0C0" class="style124 style123"><div align="center" class="style18 style68"><span class="style84 style83 style60"><strong>QUANT. SOLIC.</strong></span></div></td>
                  <td width="5%" bordercolor="#000000"><div align="center" class="style166">
                      <div align="center" class="style107"><strong><span class="style139 style123">QUANT</span><span class="style126">.</span> ENTREGA</strong></div>
                  </div></td>
                  <td width="5%" bordercolor="#000000"><div align="center" class="style155"><strong>DATA ENTREGUE</strong></div></td>
                  <td width="5%" bordercolor="#C0C0C0" class="style123 style124"><div align="center"><strong>QUANT.<br />
                  PENDENTE</strong></div></td>
                  <td width="64%" bordercolor="#C0C0C0" class="style124 style123"><div align="center" class="style18 style68"><strong>PRODUTO(s)</strong></div></td>
                  <td width="6%" bordercolor="#C0C0C0" class="style124 style123"><div align="center"><strong>PENDENTE</strong></div></td>
                  <td width="6%" bordercolor="#C0C0C0" class="style124 style123"><div align="center" class="style18 style68"><strong>VALOR UNIT.</strong></div></td>
                  <td width="5%" bordercolor="#C0C0C0" class="style124 style123"><div align="center" class="style68 style18 style11">VALOR TOTAL</div></td>
                </tr>
<%
set itens = oConn.execute("select * from TB_GERAR_OF_OM_CAD_ITENS where no_os = "& vi("no_os") &" ORDER BY data_abertura ASC")

conta_os = 1
While ((Repeat1__numRows <> 0) AND (NOT itens.EOF))
%>
                 <tr bordercolor="#C0C0C0">
                  <td class="style124 style123"><div align="center" class="style18 "><%=itens("quant")%></div></td>
                  <td class="style124 style123"><div align="center"><span class="style84 style83 style54"><strong><%=itens("quant_entregue")%></strong></span></div></td>
                  <td bordercolor="#000000" class="style46"><div align="center"><span class="style54 style83 style84"><%=itens("data_entregue")%></span></div></td>
                  <td class="style124 style123"><div align="center"><span class="style84 style83 style54"><strong><%=itens("quant_pendente")%></strong></span></div></td>
                  <td class="style124 style123"><div align="center" class="style18 ">
                    <div align="left" class="style36"><%=itens("sistema")%> </div>
                  </div></td>
                  <td class="style124 style123"><div align="center"><span class="style84 style83 style54"><strong>
<%
prod_pendente = itens("prod_pendente")

if prod_pendente = "1" then
   Response.Write ("PENDENTE")
else
if prod_pendente = "0" then
   Response.Write ("OK")
 end if
end if
%></strong></span></div></td>
                  <td class="style124 style123"><div align="center" class="style43 style18 "><span class="style43">
                    <input name="v_unitario_<%=i%>" type="text" class="campo_branco" id="v_total_<%=i%>" value="<%=ROUND(itens("v_unitario"),2)%>" size="10" alt="decimal"/>
                  </span></div></td>
                  <td class="style124 style123"><div align="center" class="style36 style18 ">
                    <input name="v_total_<%=i%>" type="text" class="campo_branco" id="v_total_<%=i%>" value="<%=ROUND(itens("v_total"),2)%>" size="10" alt="decimal"/>
                  </div></td>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  conta_os = conta_os + 1
  itens.MoveNext()
  session("conta_os2") = conta_os
Wend

set itens = oConn.execute("select * from TB_GERAR_OF_OM_CAD_ITENS where no_os = "& vi("no_os") &" ORDER BY data_abertura ASC")
%>                </tr>

       <tr><td colspan="6" rowspan="4" class="style124 style123"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
         <tr>
           <td height="76" colspan="3" valign="top"><table width="100%" height="89" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000000">
             <tr>
               <td width="198" height="14"><div align="center" class="style102 style83 style180">
                   <div align="center"> TIPO </div>
               </div></td>
               <td width="237"><div align="center" class="style102 style83 style181">
                   <div align="center">NUMERAÇÃO</div>
               </div></td>
               <td width="158"><div align="center" class="style102 style83 style182">
                   <div align="center">VALOR</div>
               </div></td>
               <td width="153"><div align="center" class="style183"><span class="style102">DATA</span></div></td>
             </tr>
             <%
'set campos_cheque = oConn.execute ("select * from TB_INFO_PAGTO where no_os = '"&no_os&"' order by id_ch ASC")

'i = 1
'while (not campos_cheque.EOF)
%>
             <tr>
               <td> </td>
               <td> </td>
               <td> </td>
               <td> </td>
             </tr>
             <tr>
               <td> </td>
               <td> </td>
               <td> </td>
               <td> </td>
             </tr>
             <tr>
               <td> </td>
               <td> </td>
               <td> </td>
               <td> </td>
             </tr>
             <tr>
               <td> </td>
               <td> </td>
               <td> </td>
               <td> </td>
             </tr>
             <%
'campos_cheque.MoveNext()
'i = i + 1
'wend

'set campos_cheque = oConn.execute ("select * from TB_INFO_PAGTO where no_os = '"&no_os&"' order by id_ch ASC")
%>
           </table></td>
           <td width="37%"><div align="center" class="style123">
               <div align="left">TIPO COLETA:<span class="style18"> <strong> </strong> <strong>
<%
set gerar_os_itens = oConn.execute("select * from TB_GERAR_OF_OM_CAD_ITENS where (no_os = "& vi("no_os") &") or (prod_pendente = '1')  ORDER BY data_abertura ASC")

tipo_coleta = gerar_os_itens("tipo_coleta")

if tipo_coleta = "1" then
   Response.Write ("CLIENTE RETIRA")
else
 if tipo_coleta = "2" then
     response.write("SEDEX")
   else
    if tipo_coleta = "3" then
      response.write("VARILOG")
	 else
 	  if tipo_coleta = "4" then
       response.write("TRANSPORTADORA")
   end if
  end if
 end if
end if
%>
                  <br />
                 <br />
               </strong>NOME TRANSPORTADORA:<strong><strong> <strong>   <%=gerar_os_itens("outras")%> </strong></strong></strong></span></div>
           </div></td>
         </tr>
       </table></td>
          <td width="6%" bordercolor="#C0C0C0" class="style124"><div align="right" class="style36 "><strong>SUBTOTAL:</strong></div></td>
      <td bordercolor="#C0C0C0" class="style54 style117 style123"><div align="center" class="style14 "><span class="style65">
        <input name="sub_total_<%=i%>" type="text" class="campo_branco_ng" id="sub_total_<%=i%>" value="<%=ROUND(gerar_os_itens("sub_total"),2)%>" size="10" alt="decimal"/>
      </span></div></td>
        </tr>    <tr>
          <td bordercolor="#C0C0C0" class="style124"><div align="right" class="style36 "><span class="style115"><strong>C. ENVIO: </strong></span></div></td>
          <td bordercolor="#C0C0C0" class="style54 style117 style123"><div align="center" class="style14 ">
            <div align="center" class="style65">
              <input name="custo_envio_<%=i%>" type="text" class="campo_branco_ng" id="custo_envio_<%=i%>" value="<%=ROUND(gerar_os_itens("custo_envio"),2)%>" size="10" alt="decimal"/>
            </div>
          </div></td>
        </tr>
        <tr>
          <td bordercolor="#C0C0C0" class="style124"><div align="right" class="style36 "><span class="style115"><strong>OUTROS:</strong></span></div></td>
          <td bordercolor="#C0C0C0" class="style54 style117 style123"><div align="center" class="style14 "><span class="style65">
            <input name="outros_<%=i%>" type="text" class="campo_branco_ng" id="outros_<%=i%>" value="<%=ROUND(gerar_os_itens("outros"),2)%>" size="10" alt="decimal"/>
          </span></div></td>
        </tr>
        <tr>
          <td height="21" bordercolor="#C0C0C0" class="style124"><div align="right" class="style36 "><span class="style115"><strong>TOTAL:</strong></span></div></td>
          <td bordercolor="#C0C0C0" class="style54 style117 style123"><div align="center" class="style14 "><span class="style65">
            <input name="total_geral_<%=i%>" type="text" class="campo_branco_ng" id="total_geral_<%=i%>" value="<%=ROUND(gerar_os_itens("total_geral"),2)%>" size="10" alt="decimal"/>
          </span></div></td>
        </tr>
             </table>              
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><span class="style54 texto"><strong>OBSERVAÇÕES: </strong> <br />
                        <%=Replace(gerar_os_itens("observacoes"), vbcrlf,"<br>")%></span></td>
                  </tr>
                </table></td>
                <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  conta_os = conta_os + 1
  gerar_os_itens.MoveNext()
  session("conta_os2") = conta_os
%>  
            </tr>
            <tr>
              <td colspan="5"><hr noshade="noshade" /></td>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  conta_os = conta_os + 1
  vi.MoveNext()
Wend
session("conta_os2") = conta_os
%>            </tr>
      </table>
        <label>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><label></label>            </td>
          </tr>
        </table>
        </form>
    </td>
  </tr>
</table>
<div align="center"><span class="style66">
<%
if semregistro = 1 then
response.write "NÃO HÁ NENHUMA ORDEM DE FORNECIMENTO"
end if
%>
</span></div>
</body>
</html>
<%
vi.Close()
Set vi = Nothing
%>
Estou a alguns dias quebrando a cabeça e não consigo, tipo assim, explicar melhor:

 

Tenho uma tela de filtro com os campos, quando seleciono o campo PROD_PENDENTE e seleciono PENDENTES ele tem que buscar so os pendentes, se TODOS buscar todos.

 

Se alguém puder me ajudar, fico agradecido.

 

Muito Obrigado

 

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ele gera algum erro ????

existem exemplos de filtro no fórum, pode te ajudar

Compartilhar este post

Link para o post
Compartilhar em outros sites

saloeric    1

saloeric
Postado

Já experimentou ao invés de utilizar o =, utilizar o like?

 

 pend.source = "SELECT * FROM TB_GERAR_OF_OM_CAD_ITENS WHERE prod_pendente like '1'"
  pend.open()

, o ideal seria para testar tirar os ifs "if (Request.QueryString("prod_pendente") = "1") then" e testar sem os ifs, fica mais fácil saber onde está o erro.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olá Amigo...

existe um exemplo de filtro, onde você pode fazer a busca, por tres modos, tipo usando o AND , OR ou palavra exta, no seu caso, se usar o LIKE, ele irá buscar tudo que contenha a string s ser buscada, na sua string SQL voce^esta usando o operador AND, tente limitar sua SQL. e para teste dê um response.write na sua string sql para ver o que esta sendo passado.

 

response.write(auxsql)
response.end()

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRWEB    0

PRWEB
Postado

Então, eu coloquei isso:

 

'PENDENTES

if (Request.QueryString("prod_pendente") = "1") then

Set pend = Server.CreateObject("ADODB.Recordset")

pend.ActiveConnection = oConn

 

pend.source = "SELECT * FROM TB_GERAR_OF_OM_CAD_ITENS WHERE prod_pendente like '1'"

pend.open()

 

if not(pend.eof) then

auxsql = auxsql & "no_os = " & pend("no_os") & " AND "

end if

 

pend.close

end if

 

Mas mesmo assim ele busca PENDENTE e OK juntos no mesmo no_os.

Não sei se é os select´s abaixo, não sei mais o que faço, to desesperado.

 

Muito Obrigado,

 

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

para teste tire o LIKE e ponha =1

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRWEB    0

PRWEB
Postado

Tudo bem pessoal?

 

Por favor galera será que alguém pode ma ajudar?

Estou desesperado pois não consigo ter idéia de como resolver esse problema.

 

Por favor me ajudem!!!

 

Agradeço deste de já pela ajuda.

 

Muito Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito