Busca
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'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.closeif (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">](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"></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;
}.style21 {
font-size: 14px;
color: #FF0000;
} 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;
} font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 10px;
} color: #003366;
text-decoration: none;
} text-decoration: none;
color: #003366;
} text-decoration: none;
color: #FF0000;
} text-decoration: none;
color: #FF0000;
}.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> <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" >
<%response.write ("<img src=""img/manut_1.gif"" border=""0"">")
else
response.Write ("") </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">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
Discussão (11)
Carregando comentários...