leof

Prezados Colegas, Boa Tarde, Tenho uma tabela com um campo no formato data. Fiz um relatório que pega a data de hoje e subtrai a data do banco, gerando uma certa quantidade de dias. Pois bem, preciso que este relatório seja ordenado por essa quantidade de dias. alguém tem idéia de como fazer. Segue uma parte do código: OMR= "SELECT * FROM omr WHERE omr_servico='"& Request.form ("omr_servico_form") &"' AND omr_grupo='"& Request.form ("grupo_form") &"' AND omr_linha='"& Request.form ("linha_form") &"' AND omr_data_fim is null order by omr_cod_eqp, omr_item" Set RecOMR= Server.CreateObject("ADODB.Recordset") RecOMR.Activeconnection=bd_rental RecOMR.Open OMR, bd_rental,adOpestaticc, adLockOptimistic,adCmdText OMR_2= "SELECT COUNT (*) as total FROM omr WHERE omr_servico='"& Request.form ("omr_servico_form") &"' AND omr_grupo='"& Request.form ("grupo_form") &"' AND omr_linha='"& Request.form ("linha_form") &"' AND omr_data_fim is null" Set RecOMR_2= Server.CreateObject("ADODB.Recordset") RecOMR_2.Activeconnection=bd_rental RecOMR_2.Open OMR_2, bd_rental,adOpestaticc, adLockOptimistic,adCmdText %> <table align="center" border="0" width="700" cellspacing="0" height="40"> <tr> <td><font class="TEXTO4"><p align="left">OMS POR SERVIÇO</p></td> <td><font class="TEXTO8"><p align="right">< < < < <% Response.write Request.form ("omr_servico_form") %> > > > ></p></td> </tr> </table> <table align="center" border="0" width="0" cellspacing="5" height="0" bgcolor="ffffff"> <tr> <td align="center" width="75" height="25" bgcolor="#b9d3ee"><font class="texto4">OM</font></td> <td align="center" width="90" height="25" bgcolor="#b9d3ee"><font class="texto4">EQPTO</font></td> <td align="center" width="210" height="25" bgcolor="#b9d3ee"><font class="texto4">DESCRICAO</font></td> <td align="center" width="75" height="25" bgcolor="#b9d3ee"><font class="texto4">ABERTURA</font></td> <td align="center" width="120" height="25" bgcolor="#b9d3ee"><font class="texto4">DIAS</font></td> </tr> <% LINHA=1 DO While NOT (RecOMR.eof) '------------------------------------------------------------' A= RecOMR("omr_cod_eqp")&"-"&RecOMR("omr_item")&"-"&RecOMR("omr_digito") B= RecOMR("omr_fil_tra")&" . "&RecOMR("omr_nr") DIAS= (Date())-(RecOMR ("omr_data_abertura")) IF ((LINHA MOD 2)=1) THEN %> <tr> <td align="center" height="20" bgcolor="#e0eeee"><font class="texto5"><% Response.write (B) %></FONT></td> <td align="left" height="20" bgcolor="#e0eeee"><font class="texto5"><% Response.write (A) %></FONT></td> <td align="left" height="20" bgcolor="#e0eeee"><font class="texto5"><% Response.write RecOMR ("omr_descricao") %></FONT></td> <td align="center" height="20" bgcolor="#e0eeee"><font class="texto5"> <% Response.write RecOMR ("omr_data_abertura") %></FONT></td> <td align="center" height="20" bgcolor="#e0eeee"><font class="texto5"><% Response.write (DIAS) %></FONT></td> </tr> <% ELSE %> <tr> <td align="center" height="20" bgcolor="#b9d3ee"><font class="texto5"><% Response.write (B) %></FONT></td> <td align="left" height="20" bgcolor="#b9d3ee"><font class="texto5"><% Response.write (A) %></FONT></td> <td align="left" height="20" bgcolor="#b9d3ee"><font class="texto5"><% Response.write RecOMR ("omr_descricao") %></FONT></td> <td align="center" height="20" bgcolor="#b9d3ee"><font class="texto5"> <% Response.write RecOMR ("omr_data_abertura") %></FONT></td> <td align="center" height="20" bgcolor="#b9d3ee"><font class="texto5"><% Response.write (DIAS) %></FONT></td> </tr> <% END IF LINHA= (LINHA)+1 '------------------------------------------------------------' RecOMR.Movenext Loop Agradeço muito se alguém puder me ajudar. Leonardo

Pessoal, Consegui resolver. Depois de muito custo o pessoal do Suporte da Microsoft descobriu que o Internet Explorer, não é compatível com leitores de códigos de barras. Fiz a instalação do Navegador Opera e tudo voltou a funcionar normalmente. Att. Leonardo

Caros colegas, Estou tendo um problema estranho. Tenho um leitor de código de barras que esta funcionando perfeitamente. Quando faço a leitura do código em um aplicativo ou no notepad o código aparece normal, quando a leitura é feita em qualquer tela ou site do IE ele elimina os dígitos repetidos. Tipo: O código é: 010100 Aparece: 01010 O código é: 00112233445566 Aparece: 0123456 Alguém já viu esse erro? Poderia me ajudar? Grato. Leonardo

Amigo, Obrigado pela ajuda! Mas estive analisando e acabei esquecendo uma informação. A consulta seria assim: PROCURA2= "Select TOP 1 * FROM historico where patrimonio='"& (RecConsulta ("patrimonio")) & "' AND situacao LIKE '%"&Preventiva&"%' order by data_historico desc" Eu consultei o registro mais recente de HISTORICO que seja igual ao campo RecConsulta("patrimonio") e que no campo SITUAÇÃO contenha palavra "PREVENTIVA". Porem o código que postei acima somente apresenta a ultima SITUAÇÃO do equipamento sendo que deveria ser apresentado a ultima SITUAÇÃO do equipamento em que APARECA "PREVENTIVA". Voce sabe como fazer este select? Obrigado! Leo

Pessoal, Boa Tarde, Tenho um codigo que procura os registros em uma tabela que sejam coincidentes em uma clausula. Tipo: Preciso de um codigo que a clausula não seja "=" e sim "CONTENHA". Assim: Select * from compressores_om where ordem_servico_tipo CONTENHA A PALAVRA "Preventiva" Este campo é composto por: Manutenção Corretiva Entrega Retirada Assistencia Preventiva 300 Preventiva 600 Preventiva 900 Preventiva 1200 Preciso selecionar somente os equipamentos que no campo Ordem_servico_tipo iniciem com o termo Preventiva. alguém pode me ajudar? Leo

Amigo, desculpe o erro, mas eu fiz um teste com o código que você me mandou no formato e não no como eu postei, porem o mesmo não fez nenhuma diferença. Leo

Pessoal obrigado pelas dicas. No formulario, consegui resolver da seguinte forma: (Somente para inclusão) já na hora da consulta continua aparecendo em outro formato mes / dia e no lugar do ano AAAA. Tipo: 11/22/aaaa (omitindo o 2004) Tentei incluir o codigo e aparece o seguinte erro:

Amigo, a minha pagina esta Intranet. Não tenho como testa-la em servidor. Leonardo

Amigos, Criei uma caixa de texto com a data atual em que o usuario não consegue alterar. Porem a data esta aparecendo no formulario como: 11/22/aaaa Como faço para alterar? Leo

Boa tarde, Tentei o seguinte: PROCURA1 = "Select * FROM equipamentos UNION select top 1 * from historico where historico.patrimonio=equipamento.patrimonio order by horainclusao desc" Mas o seguinte erro esta ocorrendo: Microsoft OLE DB Provider for ODBC Drivers (0x80040E07) [Microsoft][Driver ODBC para Microsoft Access] A expressão ORDER BY (horainclusao) inclui campos que não estão selecionados na consulta. Somente os campos solicitados na primeira consulta podem ser incluídos em uma expressão ORDER BY. Tentei retirar o ORDER BY HORAINCLUSAO DESC, e apareceu este erro: Poderia me ajudar? Leo.

OK Eu preciso pegar todos os registros da tabela EQUIPAMENTOS. "PATRIMONIO" e "DESCRICAO" e somente o registro MAIS RECENTE da tabela HISTORICO. "PATRIMONIO","DATA" e "HORIMETRO" As duas tabelas são relacionadas pelo campo PATRIMONIO. BASICAMENTE O RELATORIO SERIA ASSIM: EQUIPAMENTOS.PATRIMONIO EQUIPAMENTOS.DESCRICAO HISTORICO.DATA HISTORICO.HORIMETRO Grato Leo

Pessoal, boa tarde! Preciso fazer um relatorio com todos os registros de uma tabela com nome de equipamentos e nesta tabela incluir os registros relacionados na tabela historico. Porem irei utilizar todos os registros de EQUIPAMENTOS e apenas o último registro de HISTORICO em ordem decrescente. Tentei o seguinte: E acontece o seguinte erro Agradeco se alguém puder me ajudar. Grato. Leo

Amigo, muito obrigado!!! Funcionou perfeitamente! Leo

Meu amigo obrigado pelo ajuda, porém esta acontecendo o seguinte erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta '* top 3'. Leo

Como faço para mostrar apenas os 3 ultimos registros da consulta abaixo: Procura1= "select * from compressores_om where ordem_servico_patrimonio='"& request.form("patrimonioForm") & "'" Tenho uma tabela com os campos: ordem_servico_data ordem_servico_patrimonio ordem_servico_horimetro Preciso realizar esta procura organizando pela Ordem_servico_data. alguém pode me ajudar? Leo