Clauido José
-
Total de itens
457 -
Registro em
-
Última visita
Posts postados por Clauido José
-
-
ainda não consegui resovler o gosado é que se eu peguar um periodo do mes ele traz de boa agora um data proxima não ta trazendo o uma data do dia.
-
Bom pessoa estou com um problema tenho um sistema feito em asp onde tem um tela que tem que mostrar a quantidade de serviço de cada tecnico tem por exemplo o Tecnico Claudio tem 4 serviço o relatorio tem que mostra o nome Claudio com a quantidade de serviços pendentes o status de cada serviço e a hora de inicio de do primeiro serviço feito vou postar o codigo para que você possa analizar o problema ta que na hora de mostra a hora de inico não ta mostrando.
<html> <head> <title>SISTEMA LIDERTEL - DTH</title> <script> function chamatecnicosservico(sData,idEmpresa,idTecnico,sStatus,idServico,sTabela){ url="objempresatecnicosservicoos.asp?sData="+sData+"&idEmpresa="+idEmpresa+"&idTecnico="+idTecnico+"&idServico="+idServico+"&sStatus="+sStatus+"&sTabela="+sTabela; document.form2.action=url document.form2.method="post" document.form2.submit(); } function voltar(sData,idEmpresa,sStatus){ document.location="pesquisarota.asp" } </script> <link href="css/estilos.css" rel="stylesheet" type="text/css"> </head> <body> <!--#include file="strcon.asp"--> <% Server.ScriptTimeout = 9999999 dim strSql,Conexao call abreConexao() sOpcao = Request("sOpcao") sdata = Request("sData") sStatus = Request("sStatus") idServico=Request("idServico") sTabela=Request("sTabela") idServico = Request("idServico") idEmpresa = Request("idEmpresa") Tecnico = Request("idTecnico") dia = day(sdata) mes = month(sdata) ano = year(sdata) data = (ano&"/"&mes&"/"&dia) if sTabela<>"" then if sTabela=1 then Tabelas="tabDth" else if sTabela=2 then Tabelas="tabHistorico" else Tabelas="tabDTh" else Tabelas="tabDth" end if ' if sStatus="" then sStatus=0 campo = "tabDth.*,tabTecnicos.Nome_Tecnico" Sql = "SELECT " & campo & " FROM tabDth RIGHT JOIN tabTecnicos ON tabDth.idTecnico =tabTecnicos.idTecnico " Sql = Sql & "WHERE tabDth.DatCompromisso= '" & (Data) & "' and tabDth.idTecnico<>0 " if session("idEmpresa")=0 then if idEmpresa <> "" and sIdEmpresa<>"" then Sql = Sql & " and tabDth.idEmpresa = " & idEmpresa else Sql = Sql & " and tabDth.idEmpresa = " & session("idEmpresa") end if sql = Sql & " order by tabTecnicos.Nome_Tecnico " if sStatus<>"" then Sql = Sql & ", tabDth.idStatus " if rsRota.state=1 then rsRota.Close rsRota.Open Sql,Conexao,1,1 if rsRota.RecordCount>0 then %> <form name="form2" method="post" action=""> <table width="840" border="0" align="center" cellpadding="1" cellspacing="1" class="tabela_escura"> <tr> <td><table width="100%" border="0" cellpadding="1" cellspacing="1" class="Tabela1"> <%Bg="#5082B4"%> <tr bgcolor="<%=Bg%>"> <td colspan="11" align="center" bgcolor="<%=Bg%>" class="SubTitulo"><table width="100%" border="0" cellpadding="2" cellspacing="2" class="Tabela"> <tr> <td width="92%" height="18" class="SubTitulo"> Ola <strong class="Titulo"><%=session("Usuario")%> </strong> você está na Intranet DTH <strong>»</strong> Rota <strong>» Pesquisa » Resultado</strong><strong>»Empresa </strong>» Técnicos</td> <td width="8%" class="SubTitulo"><input name="butVoltar" type="button" id="butVoltar" value="Voltar" onClick="voltar('<%=rsRota("DatCompromisso")%>','<%=rsRota("idEmpresa")%>','<%=sStatus%>')" /></td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td height="15" colspan="11" class="tabela_escura"></td> </tr> <tr> <td colspan="15" align="left" bgcolor="<%=Bg%>" height="420" class="SubTitulo"><table width="800" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela"> <%Bg="#FFFFFF"%> <tr> <td width="300" align="left" class="Titulo" bgcolor="<%=Bg%>">TÉCNICOS</td> <td width="60" align="center" class="Titulo" bgcolor="<%=Bg%>">PENDENTES</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">AB</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">AC</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">AV</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">BX</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">CA</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">NF</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">PV</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">RA</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">RP</td> <td width="25" align="center" class="Titulo" bgcolor="<%=Bg%>">SB</td> <td width="60" align="center" class="Titulo" bgcolor="<%=Bg%>">TEMPO</td> <td width="80" align="center" bgcolor="<%=Bg%>" class="Titulo"> </td> </tr> <!--EXIBE CABEÇALHO--> <tr> <td colspan="14" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><div style="height:300;overflow:auto"><table width="770" border="0" cellpadding="2" cellspacing="2" class="Tabela"> <% sTotalPendente=0 ContarAb=0 ContarAc=0 ContarAV=0 ContarBN=0 ContarBX=0 ContarCA=0 ContarNF=0 ContarPV=0 ContarRA=0 ContarRP=0 ContarSO=0 sTotalPendente=0 I = 1 Sobra=0 idTecnico=rsRota("idTecnico") NomeTecnico=rsRota("nome_tecnico") while not rsRota.Eof if idTecnico=rsRota("idTecnico") then if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if if session("idEmpresa")<66 then if rsRota("idStatus") = 1 then if rsRota("idServico")=7 or rsRota("idServico")=5 or rsRota("idServico")=17 then if rsRota("periodo")="MANHA" then Sobra=1 if sTime1>="11:01:00" then Bg="#FFFF00" if sTime1>="12:01:00" then Bg="#FF0000" elseif rsRota("periodo")="TARDE" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then Bg="#FF0000" elseif rsRota("periodo")="COMERCIAL" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then Bg="#FF0000" elseif rsRota("periodo")="08:00 às 12:00" then Sobra=1 if sTime1>="11:01:00" then Bg="#FFFF00" if sTime1>="12:01:00" then Bg="#FF0000" elseif rsRota("periodo")="13:00 às 18:00" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then bg="#FF0000" end if elseif rsRota("idServico")=9 or rsRota("idServico")=1 or rsRota("idServico")=2 or rsRota("idServico")=3 or rsRota("idServico")=4 then if rsRota("periodo")="MANHA" then Sobra=1 if sTime1>="11:01:00" then Bg="#FFFF00" if sTime1>="12:01:00" then Bg="#FF0000" elseif rsRota("periodo")="TARDE" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then Bg="#FF0000" elseif rsRota("periodo")="COMERCIAL" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then Bg="#FF0000" elseif rsRota("periodo")="08:00 às 12:00" then Sobra=1 if sTime1>="11:01:00" then Bg="#FFFF00" if sTime1>="12:01:00" then Bg="#FF0000" elseif rsRota("periodo")="13:00 às 18:00" then Sobra=1 if sTime1>="17:01:00" then Bg="#FFFF00" if sTime1>="18:01:00" then bg="#FF0000" end if end if end if end if if rsRota("baixado")=1 then Bg="#66CCCC" else if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if end if elseif idTecnico<>rsRota("idTecnico") then campo = "tabDth.DatCompromisso,tabDth.idStatus,Count(tabDth.idStatus) AS ContarStatus,tabDth.idEmpresa,tabDth.IdTecnico" strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=1 and tabDth.IdTecnico=" & idTecnico strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarAb=0 else ContarAB = rsBusca("ContarStatus") end if rsBusca.Close strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=2 and tabDth.IdTecnico=" & idTecnico strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarAC=0 else ContarAC = rsBusca("ContarStatus") end if rsBusca.Close strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=18 and tabDth.IdTecnico=" & idTecnico strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarBX=0 else ContarBX = rsBusca("ContarStatus") end if rsBusca.Close strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=6 and tabDth.IdTecnico=" & idTecnico strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarCA=0 else ContarCA = rsBusca("ContarStatus") end if rsBusca.Close strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=7 and tabDth.IdTecnico=" & rsRota("idTecnico") strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarNF=0 else ContarNF = rsBusca("ContarStatus") end if rsBusca.Close strSql = "SELECT " & campo & " FROM tabDth GROUP BY tabDth.DatCompromisso,tabDth.idStatus,tabDth.idEmpresa,tabDth.IdTecnico " strSql = strSql & "HAVING tabDth.DatCompromisso='" & Data & "' AND tabDth.idStatus=10 and tabDth.IdTecnico=" & idTecnico strSql = strSql & " AND tabDth.idEmpresa=" & rsRota("idEmpresa") rsbusca.Open strSql,Conexao,1,1 if rsBusca.RecordCount = 0 then ContarRP = 0 else ContarRP = rsBusca("ContarStatus") end if rsBusca.Close sTotalGeral=Total+1 idEmpresa=rsRota("idEmpresa") 'ROTINA DA SOBRA sDatCompromisso=rsRota("DatCompromisso") sSql="SELECT * FROM tabTecnicos where idTecnico="&idTecnico if rsTecnicos.State=1 then rsTecnicos.Close rsTecnicos.open sSql,Conexao,1,1 if rsTecnicos.RecordCOunt>0 then sTecnico=rsTecnicos("Nome_Tecnico") %> <tr bgcolor="<%=Bg%>"> <td width="283" class="SubTitulo"><%=sTecnico%></td> <td width="55" align="center" class="SubTitulo"><%=ContarAB%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAB%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAC%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAV%></td> <td width="25" align="center" class="SubTitulo"><%=ContarBX%></td> <td width="25" align="center" class="SubTitulo"><%=ContarCA%></td> <td width="25" align="center" class="SubTitulo"><%=ContarNF%></td> <td width="25" align="center" class="SubTitulo"><%=ContarPV%></td> <td width="25" align="center" class="SubTitulo"><%=ContarRA%></td> <td width="25" align="center" class="SubTitulo"><%=ContarRP%></td> <td width="25" align="center" class="SubTitulo"><%=ContarSO%></td> <td width="60" align="center" class="SubTitulo"><%=sHoraInicio%></td> <td width="50" align="center" class="SubTitulo"><img src="imagem/icon_mini_search.gif" width="15" height="13" style="cursor:hand" border="0" onClick="chamatecnicosservico('<%=rsRota("DatCompromisso")%>','<%=idEmpresa%>','<%=idTecnico%>','<%=sStatus%>','<%=idServico%>','<%=sOrdena%>','<%=sTabela%>')"></p></td> </tr> <!--EXIBE ROTA--> <% i=1 sTotalPendente=0 sContarAb=0 sContarAc=0 sContarAV=0 sContarBN=0 sContarBX=0 sContarCA=0 sContarNF=0 sContarPV=0 sContarRA=0 sContarRP=0 sContarSO=0 'ZERA SUB TOTAL idTecnico=rsRota("idTecnico") NomeTecnico=rsRota("nome_tecnico") end if if idTecnico=rsRota("idTecnico") then sHoraInicio=rsRota("HoraInicio") sTime1=FormataHora(time()) if rsRota("idStatus")=1 or rsRota("idStatus")=0 then sContarAb=sContarAb+1 sTotalAb=sTotalAb+1 end if if rsRota("idStatus")=2 or rsRota("idStatus")=0 then sContarAC=sContarAC+1 sTotalAC=sTotalAC+1 end if if rsRota("idStatus")=3 or rsRota("idStatus")=0 then sContarAV=sContarAV+1 sTotalAV=sTotalAV+1 end if if rsRota("idStatus")=5 or rsRota("idStatus")=0 then sContarBC=sContarBC+1 sTotalBC=sTotalBC+1 end if if rsRota("idStatus")=6 or rsRota("idStatus")=0 then sContarCA=sContarCA+1 sTotalAC=sTotalAC+1 end if if rsRota("idStatus")=7 or rsRota("idStatus")=0 then sContarNF=sContarNF+1 sTotalNF=sTotalNF+1 end if if rsRota("idStatus")=8 or rsRota("idStatus")=0 then sContarPV=sContarPV+1 sTotalPV=sTotalPV+1 end if if rsRota("idStatus")=6 or rsRota("idStatus")=0 then sContarRA=sContarRA+1 sTotalRA=sTotalRA+1 end if if rsRota("idStatus")=10 or rsRota("idStatus")=0 then sContarRP=sContarRP+1 sTotalRP=sTotalRP+1 end if if rsRota("idStatus")=18 or rsRota("idStatus")=0 then sContarBX=sContarBX+1 sTotalBX=sTotalBX+1 end if if rsRota("idStatus")=20 or rsRota("idStatus")=0 then sContarSO=sContarSO+1 sTotalSO=sTotalSO+1 end if sTotalPendente=sTotalPendente+1 sTotalPendenteAb=sTotalPendenteAb+1 if rsRota("baixado")=1 then Bg="#66CCCC" else if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if end if rsRota.movenext wEnd Bg="#5082B4" %> <tr bgcolor="<%=Bg%>"> <td width="283" class="SubTitulo"><%=NomeTecnico%></td> <td width="55" align="center" class="SubTitulo"><%=sTotalPendente%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAB%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAC%></td> <td width="25" align="center" class="SubTitulo"><%=ContarAV%></td> <td width="25" align="center" class="SubTitulo"><%=ContarBX%></td> <td width="25" align="center" class="SubTitulo"><%=ContarCA%></td> <td width="25" align="center" class="SubTitulo"><%=ContarNF%></td> <td width="25" align="center" class="SubTitulo"><%=ContarPV%></td> <td width="25" align="center" class="SubTitulo"><%=ContarRA%></td> <td width="25" align="center" class="SubTitulo"><%=ContarRP%></td> <td width="25" align="center" class="SubTitulo"><%=ContarSO%></td> <td width="60" align="center" class="SubTitulo"><%=sTime%></td> <td width="50" align="center" class="SubTitulo"><img src="imagem/icon_mini_search.gif" width="15" height="13" style="cursor:hand" border="0" onClick="chamatecnicosservico('<%=sDatCompromisso%>','<%=idEmpresa%>','<%=idTecnico%>','<%=sStatus%>','<%=idServico%>','<%=sOrdena%>','<%=sTabela%>')"></p></td> </tr> <!--EXIBE ULTIMO REGISTRO DA ROTA--> </table><div></td> </tr> <tr> <td width="230" align="left" class="SubTitulo" bgcolor="<%=Bg%>"></td> <td width="60" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalPendenteAb%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalPendenteAb%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalAC%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"> </td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalBx%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalCa%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalNf%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalPv%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalRa%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalRp%></td> <td width="25" align="center" class="SubTitulo" bgcolor="<%=Bg%>"><%=sTotalSo%></td> <td width="63" align="center" class="SubTitulo" bgcolor="<%=Bg%>"> </td> <td width="9" align="center" class="SubTitulo" bgcolor="<%=Bg%>"> </td> </tr> </table></td> </tr> </table> </form> <% 'end if elseif rsRota.RecordCount = 0 then Response.Write("<script>") Response.Write("alert('Não foi encontrado registro com a consulta informada');") Response.Write("history.back()") Response.Write("</script>") end if call fechaConexao set rsRota=nothing set rsBusca=nothing set rsRota=nothing %> </body> </html> -
Ola pessoal tenho um sistema feito em vb 6.0 e uso o mysql 4.1.22 como banco de dados, e utilizo mySql Connector 3.51 para fazer a conexão to com um problema na hora de fazer pesquisas por data tipo assim quando eu informo uma data distante por exemplo '01/08/2009' a '31/08/2009' ele traz o resultado da pesquisa certinho agora por exemplo se eu quero uma unica data '26/08/2009' a '26/08/2009' ele não fala que o banco não encontrou resultado algum. Estou fazendo da seguinte maneira.
Dim adores As New DBRecordset Dim indice As Integer Dim DataInicial As String Dim DataFinal As String If Not FormConsiste(Me) Then Exit Sub DataInicial = Me.Controls((FormControl.GetIndex("PesDatIni"))) DataFinal = Me.Controls(FormControl.GetIndex("PesDatFim")).Text DataFinal = (Year(DataFinal) & "-" & Month(DataFinal) & "-" & Day(DataFinal)) DataInicial = (Year(DataInicial) & "-" & Month(DataInicial) & "-" & Day(DataInicial)) Dim Sql As String Sql = "SELECT * FROM Processos WHERE ProDatIni >= '" & Format(DataInicial, "YYYY-MM-DD HH:MM:SS") & _ "' OR ProDatFim <= '" & Format(DataFinal, "YYYY-MM-DD HH:MM:SS") & "' AND ProSta = 1 Order by ProDatIni" adores.OpenRecordset DBCnx, Sql, CTForwardOnly, CLServer, LTReadOnly lstField(LstIdxPro).ListItems.Clear indice = 1 If adores.EOF Then MsgAtt "Não foram encontrados processos neste periodo" Exit Sub Else Do While Not adores.EOF lstField(LstIdxPro).ListItems.Add , , adores.GetFieldValue("ProRec") lstField(LstIdxPro).ListItems.Item(indice).Tag = adores.GetFieldValue("ProCod") lstField(LstIdxPro).ListItems.Item(indice).SubItems(1) = adores.GetFieldValue("ProDatIni") lstField(LstIdxPro).ListItems.Item(indice).SubItems(2) = adores.GetFieldValue("ProDatFim") lstField(LstIdxPro).ListItems.Item(indice).SubItems(3) = Format(adores.GetFieldValue("ProPesPro"), "00000") lstField(LstIdxPro).ListItems.Item(indice).SubItems(4) = Format(adores.GetFieldValue("ProPesRea"), "00000") lstField(LstIdxPro).ListItems.Item(indice).SubItems(5) = adores.GetFieldValue("ProUsr") adores.MoveNext indice = indice + 1 Loop End If -
Ola pessoal tenho uma pagina que gera uma consulta de um query e preciso gerar um relatorio no excel no que não to conseguindo fazer ele só exibe na tela e não gera o excel aguem pode me ajudar
<%@ Language="VBScript" %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>Gerando Planilhas em EXCEL</title> </head> <body> <% %> <!--#include file="strcon.asp"--> <% Response.ContentType = "application/vnd.ms-excel" Response.AddHeader "Content-Disposition", "attachment;filename=PlanilhaVisitantesBuscaAvancada.xls" end if dim strSql,Conexao call abreConexao() sDataInicio="2009-08-21 00:00:00" session("idEmpresa")=18 sSql="SELECT * FROM tabDth where datCompromisso='" & sDataInicio & "'" if dataF<>"" then sSql=sSql&" and datCompromisso<='" & sDataFinal & "'" sSql=sSql & " and idEmpresa="&session("idEmpresa") if rsBusca.state=1 then rsBusca.Close rsBusca.Open sSql,Conexao,1,1 if not rsBusca.Eof then do while not rsBusca.Eof if rsBusca("IdTipoOs")<>"" then sSql="SELECT * FROM tabTipoOs where idTipoOs="& rsBusca("idTipoOs") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sTipoOs=rsAuxilia("Descricao") end if if rsBusca("idProduto")<>"" then sSql="SELECT * FROM tabProdutos where idProduto="&rsBusca("idProduto") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sProduto=rsAuxilia("DescricaoProduto") end if if rsBusca("idCliente")<>"" then sSql ="SELECT * FROM tabCliente where idCLiente=" & rsBusca("idCliente") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sCliente=rsAuxilia("NomeCliente") sEnderec=rsAuxilia("endereco") sBairro=rsAuxilia("Bairro") scep=rsAuxilia("cep") sSql ="SELECT * FROM tabCidades where idCidade=" & rsAuxilia("idCidade") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sCidade=rsAuxilia("Cidade") end if end if if rsBusca("idTecnico")<>0 then sSql="SELECT * FROM tabTecnicos where idTecnico="&rsBusca("idTecnico") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sTecnico=rsAuxilia("Nome_Tecnico") sRe=rsAuxilia("rE") end if end if sSql="select * from tabEmpresa where idEmpresa="&rsEmpresa("idEmpresa") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sEmpresa=rsEmrpesa("Responsavel") if rsBusca("idStatus")<>0 then sSql="SELECT * FROM tabStatus where idStatus="& rsBusca("idStatus") if rsAuxilia.state=1 then rsAuxilia.close rsAuxilia.open sSql,Conexao,1,1 if rsAuxilia.RecordCount>0 then sDStatus=rsAuxilia("CODIGO") end if %> <table width="2000" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela"> <tr> <td width="10%" class="SubTitulo">Nº Os </td> <td width="10%" class="SubTitulo">COMPRIMISSO </td> <td width="10%" class="SubTitulo">TIPO OS </td> <td width="10%" class="SubTitulo">PRODUTO</td> <td width="10%" class="SubTitulo">CLIENTE</td> <td width="10%" class="SubTitulo">ENDERECO</td> <td width="10%" class="SubTitulo">BAIRRO</td> <td width="10%" class="SubTitulo">CIDADE</td> <td width="10%" class="SubTitulo">CEP</td> <td width="10%" class="SubTitulo">ES</td> <td width="10%" class="SubTitulo">TIPO_RESIDENCIA</td> <td width="10%" class="SubTitulo">Dat_solicitação</td> <td width="10%" class="SubTitulo">Periodo</td> <td width="10%" class="SubTitulo">TERMINAL</td> <td width="10%" class="SubTitulo">Qtd_Ponto</td> <td width="10%" class="SubTitulo">Tarefa_Assist_Tec</td> <td width="10%" class="SubTitulo">RE</td> <td width="10%" class="SubTitulo">Empresa</td> <td width="10%" class="SubTitulo">Status</td> <td width="10%" class="SubTitulo">TA</td> <td width="10%" class="SubTitulo">Data Baixa</td> <td width="10%" class="SubTitulo">Horario Inicio</td> <td width="10%" class="SubTitulo">Horario Termino</td> <td width="10%" class="SubTitulo">Contagen de dias</td> <td width="10%" class="SubTitulo">Tecnico</td> <td width="10%" class="SubTitulo">OBS SERVIÇOS</td> <td width="10%" class="SubTitulo"> </td> <td width="10%" class="SubTitulo">Tarefa</td> <td width="10%" class="SubTitulo">CONTATO</td> <td width="10%" class="SubTitulo">INF ADICIONAL</td> <td width="10%" class="SubTitulo">RESULTADO</td> <td width="10%" class="SubTitulo">DESCRIÇÃO</td> <td width="10%" class="SubTitulo">Serviço</td> <td width="10%" class="SubTitulo">DATA DE INSTALAÇÃO</td> <td width="10%" class="SubTitulo">TIPO</td> <td width="10%" class="SubTitulo">Nº</td> <td width="10%" class="SubTitulo">COMPLEMENTO</td> <td width="10%" class="SubTitulo">Atendente</td> <td width="10%" class="SubTitulo">RE atendente</td> <td width="10%" class="SubTitulo">Senha BX</td> <td width="10%" class="SubTitulo">Atribuido</td> <td width="10%" class="SubTitulo">Alterado</td> <td width="10%" class="SubTitulo">Data da alteração</td> <td width="10%" class="SubTitulo">Pacote</td> <td width="10%" class="SubTitulo">Observação</td> <td width="10%" class="SubTitulo">Age</td> <td width="10%" class="SubTitulo">Motivo da Baixa</td> <td width="10%" class="SubTitulo">Alterado técnico</td> <td width="10%" class="SubTitulo">Alterado empresa</td> <td width="10%" class="SubTitulo">Status AC</td> <td width="10%" class="SubTitulo">Danos</td> <td width="10%" class="SubTitulo">Codigo serviço</td> <td width="10%" class="SubTitulo">Nº OS Garantia</td> <td width="10%" class="SubTitulo">DT BX Garantia</td> <td width="10%" class="SubTitulo">Tecnico Garantia</td> </tr> <tr> <td width="10%" class="SubTitulo"><%=rsBusca("NoOs")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("datCompromisso")%></td> <td width="10%" class="SubTitulo"><%=sTipOs%></td> <td width="10%" class="SubTitulo"><%=sProduto%></td> <td width="10%" class="SubTitulo"><%=sCliente%></td> <td width="10%" class="SubTitulo"><%=sEnderec%></td> <td width="10%" class="SubTitulo"><%=sBairro%></td> <td width="10%" class="SubTitulo"><%=sCidade%></td> <td width="10%" class="SubTitulo"><%=sCep%></td> <td width="10%" class="SubTitulo"><%=rsBusca("ES")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("TipoResidencia")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("DatSolicitada")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Periodo")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("QtdPontos")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("TarAssisTecnico")%></td> <td width="10%" class="SubTitulo"><%=sRe%></td> <td width="10%" class="SubTitulo"><%=sEmpresa%></td> <td width="10%" class="SubTitulo"><%=sDStatus%></td> <td width="10%" class="SubTitulo"><%=rsBusca("NoTa")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("DatBaixa")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("HoraInicio")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("HoraTermino")%></td> <td width="10%" class="SubTitulo"><%=sTecnico%></td> <td width="10%" class="SubTitulo"><%=rsBusca("ObsServico")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Tarefa")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Contato")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("InfoAdcionais")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Descricao")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Resultado")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("ObsLaudo")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("idServico")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("DatInstalacao")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Tipo")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("No")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Complemento")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("ReAtendente")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Atendente")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("SenhaBx")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Atribuido")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Alterado")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("DatAlterado")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Observacao")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Pacote")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("AGE")%></td> <td width="10%" class="SubTitulo"><%=sMotivo%></td> <td width="10%" class="SubTitulo"><%=rsBusca("alteradoEmpresa")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("alteradoTecnico")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("StatusAC")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("Danos")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("codServico")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("NoGarantia")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("DtDatBaiGarantia")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("TecnicoGarantia")%></td> <td width="10%" class="SubTitulo"><%=rsBusca("EmpresaGarantia")%></td> </tr> </table> <p> <% rsBusca.movenext loop call fechaConexao() set Conexao=nothing set rsBusca=nothing set rsAuxilia=nothing end if %> </p> <table width="840" border="0" cellspacing="2" cellpadding="2"> <tr> <td><span class="SubTitulo"> <input name="butGravar2" type="button" id="butGravar2" value="GERAR XLS" onclick="subMit2()" /> </span></td> <td> </td> </tr> <tr> <td> </td> <td> </td> </tr> </table> <p> </p> </body> </html> -
valeu Andrei vou ver o link
-
Ola pessoal tenho um sistema que fiz em asp e js para validar os formularios só que fiz somente o IIE e agora preciso validar nos outros navegadores alguém tem algum tutorial que possa me ajudar:
-
Ola pessoal tenho um sistema feito em asp, estou fazendo os relatórios em html, css, e javascript mas não se este post é aqui se não for gostaria de saber ondel coloco.
È seguinte gostaria que meu relatorios não sai-se o titulo da pagina por exemplo "RELATORIO DE ORDEM DE SERVIÇOS PAGINA 1 DE 17" e tambêm gostaria de tirar o botão "Imprimir e fechar" na hora de imprimir na impressora.
Já tinha postado antes um tópico parecido mas não procurei e não tive a soluçãos se alguém pode me ajudar
Estou fazendo da seguinte forma mas não ta saindo.alguém pode me ajudar.
Detalhe mesmo colocando o div ele aparele na impressao
Segue o codigo:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Relatorio de Ordem de Serviços</title>
<script>
function fechar(){
if (window.confirm("Deseja sair do relatorio?")){
document.location="default.asp"
}
}
function Imprimindo(){
if (window.confirm("Deseja imprimir este relatorio")){
window.print();
}
}
</script>
<style type="text/css">
<!--
body {
margin-left: 3px;
margin-top: 3px;
margin-right: 3px;
margin-bottom: 3px;
}
div.invisivel {
display: none;
}
div.conteudo {
display: block;
}
-->
</style>
<link rel="stylesheet" type="text/css" media="print" href="css/imprime.css">
</head>
<body>
<!--#include file="strcon.asp"-->
<%
call abreConexao()
Server.ScriptTimeout = 999999
sEmpresa = Request("sEmpresa")
sTecnico = Request("sTecnico")
sServico = Request("sServico")
sTipo = Request("sTipo")
sData = Request("sData")
dia = day(sdata)
mes = month(sdata)
ano = year(sdata)
data = (ano&"/"&mes&"/"&dia)
Sql = "Select * from tabDth where tabDth.DatCompromisso='" & Data & "'"
if sServico<>"" then Sql = Sql & " and tabDth.idServico = " & sServico
if sEmpresa<>"" then Sql = Sql & " and tabDth.idEmpresa = " & sEmpresa
if sTecnico<>"" then Sql = Sql & " and tabDth.idTecnico = " & sTecnico
if sTipo=1 then Sql = Sql & " and tabDth.idEmpresa<>0 or idTecnico<>0 " else if sTodos=2 then Sql = Sql & " and tabDth.idEmpresa=0 and idTecnico=0 "
Sql =Sql & " order by tabDth.idTecnico,tabDth.idEmpresa,tabDth.idServico "
if rsBusca.State = 1 then rsBusca.close
rsBusca.Open Sql,conexao,1,1
if rsBusca.Eof then
Response.Write("<script>")
Response.Write("alert('Não foram atribuidos dados para esta empresa');")
Response.Write("history.back();")
Response.Write("</script>")
else
%>
<table width="730" height="299" border="0" align="center" cellpadding="0" cellspacing="0">
<div id="invisivel">
<form name="form1" method="post" action="">
<tr>
<td height="20" colspan="3"><table width="848" border="0" cellpadding="2" cellspacing="2">
<tr>
<td height="19" colspan="3" align="right"> </td>
</tr>
<tr>
<td width="45%" height="24" align="right"><input name="butImprimi" type="button" id="butImprimi" value="IMPRIMIR" onclick="Imprimindo();"></td>
<td width="5%" align="center"> </td>
<td width="45%"><input name="butFechar" type="button" id="butFechar" value=" FECHAR " onclick="fechar();"></td>
</tr>
</table></td>
</tr>
</form>
</div>
<tr>
<td colspan="9"><div id="conteudo" style=""><table width="850" border="0" cellpadding="2" cellspacing="2">
<tr>
<td>conteudo do relatório</td
</tr>
</table></div></td
</tr>
</table>
</body>
</html>
-
Então pelo que entendi é melhor eu transformar esse arquivo doc em arquivo texto ou Html?
Correto?
-
Salve galera,
Pessoal sou programador asp+vb a 7 anos estou querendo me aventurar com Java tenho facilidade e tempo para aparender sozinho, mas gostaria de ums toques onde consigo o Java para downloads e apostilas e sites com dicas de programação Java.
Desde de já agradeço
Att.
-
Isso é bom mas rsrs, já fuciona na net procurei e não achei nenhum como meu ingles a ruin nem me aventurei a ir na paginas em ingles
preciso fazer um curso de ingles urgente rsrs.
alguém pode me ajudar.
-
Ai pessoal é seguinte já tentei fazer isso com o FSO mas não da certo é que aparece
'ÐÏࡱá'.
Ele ta reconhecendo assim o arquivo doc.
-
Pessoal tem como acessar word e importar para db, alguém tem sabe se tem possibilidade o arquivo word que tenho que importar está separado por tabelas.
-
Ola pessoa existe alguma forma de acessar Usb no vb, bom é seguinte tenho um sistema de dosagem de peso nele o sistema se comunica com uma balança de peso via porta paralela, preciso fazer isso em usb tb tem como?
-
Ola para todos.
Estou com uma duvida tenho um cliente um sistema simples de dosagem de peso, bom ele ta feito em windows xp gostaria de saber se tenho que fazer alguns ajustes ou não, alguém pode me ajudar?
-
pessoal pequisei sobre store procedure no access e não achei nada alguém pode me ajudar
-
estava pensando mesmo em usar stored procedure vou dar uma pesquisada no google
-
meu não deu certo fiz da seguinte maniera
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>SISTEMA LIDERTEL - GERADOR DE RELATÓRIO DE SERVIÇO</title>
<LINK rel="stylesheet" type="text/css" media="print, handheld" href="css/imprime.css">
<script>
function imprimir(){
if (window.confirm("Deseja imprimir relatorio?")){
window.print();
}
}
function fechar(){
if (window.confirm("Deseja sair do relatorio?")){
document.location.href="default.asp"
}
}
</script>
<style media="print">
div.invisivel {
display: none;
}
div.conteudo {
display: block;
}
</style>
</head>
<body>
<div id="invisivel">
<tr>
<td><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="12%" class="SubTitulo">PERIODO</td>
<td width="7%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10"></td>
<td width="10%" class="SubTitulo">RAZÃO SOCIAL: </td>
<td width="26%" class="SubTitulo"><input name="txRazao" type="text" class="campo" id="txRazao" onKeyUp="Somaiuscula('Somaiuscula', window.event.keyCode, 'document.frmCep.txRazao')" size="30" maxlength="50" value="LIDER SP-ALEX" ></td>
<td class="SubTitulo"><input name="txRazao2" type="text" class="campo" id="txRazao2" onKeyUp="Somaiuscula('Somaiuscula', window.event.keyCode, 'document.frmCep.txRazao')" size="30" maxlength="50" value="LIDER SP-ALF"></td>
<td class="SubTitulo"><input name="butGerar" type="button" id="butGerar" value="GERAR" onClick="chamarelat();"></td>
<td class="SubTitulo"><input type="submit" name="Submit" value="IMPRIMIR" onClick="imprimir();"></td>
<td class="SubTitulo"><input name="butFechar" type="button" id="butFechar" value=" SAIR " onClick="fechar();"></td>
</tr>
<tr>
<td colspan="4" class="SubTitulo">para mais de um periodo colocar, exemplo "1,2,3,...." </td>
<td width="25%" class="SubTitulo"> </td>
<td width="6%" class="SubTitulo"> </td>
<td width="8%" class="SubTitulo"> </td>
<td width="6%" class="SubTitulo"> </td>
</tr>
</table></td>
</tr>
</div>
<form name="frmCep" method="post" action="">
<table width="100%" border="0" cellpadding="2" cellspacing="2" class="Tabela">
<tr>
<td class="SubTitulo">OLA VOÇÊ ESTÁ EM RELATÓRIO DE SERVIÇO POR CEP </td>
</tr>
<tr>
<td> </td>
</tr>
<div id="invisivel">
<tr>
<td><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="12%" class="SubTitulo">PERIODO</td>
<td width="7%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10"></td>
<td width="10%" class="SubTitulo">RAZÃO SOCIAL: </td>
<td width="26%" class="SubTitulo"><input name="txRazao" type="text" class="campo" id="txRazao" onKeyUp="Somaiuscula('Somaiuscula', window.event.keyCode, 'document.frmCep.txRazao')" size="30" maxlength="50" value="LIDER SP-ALEX" ></td>
<td class="SubTitulo"><input name="txRazao2" type="text" class="campo" id="txRazao2" onKeyUp="Somaiuscula('Somaiuscula', window.event.keyCode, 'document.frmCep.txRazao')" size="30" maxlength="50" value="LIDER SP-ALF"></td>
<td class="SubTitulo"><input name="butGerar" type="button" id="butGerar" value="GERAR" onClick="chamarelat();"></td>
<td class="SubTitulo"><input type="submit" name="Submit" value="IMPRIMIR" onClick="imprimir();"></td>
<td class="SubTitulo"><input name="butFechar" type="button" id="butFechar" value=" SAIR " onClick="fechar();"></td>
</tr>
<tr>
<td colspan="4" class="SubTitulo">para mais de um periodo colocar, exemplo "1,2,3,...." </td>
<td width="25%" class="SubTitulo"> </td>
<td width="6%" class="SubTitulo"> </td>
<td width="8%" class="SubTitulo"> </td>
<td width="6%" class="SubTitulo"> </td>
</tr>
</table></td>
</tr>
</div>
<tr>
<td><%=state%></td>
</tr>
<tr>
<td height="400" valign="top"><div id="conteudo" style="height:390;overflow:auto"><table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td width="10%" class="SubTitulo">CONTA</td>
<td width="7%" class="SubTitulo">CA_S</td>
<td width="12%" class="SubTitulo">DATA AGENDADA </td>
<td width="9%" class="SubTitulo">DATA BAIXA </td>
<td width="13%" class="SubTitulo">DATA CONCLUIDA</td>
<td width="29%" class="SubTitulo">RZ SOCIAL </td>
<td width="12%" class="SubTitulo">END. CEP</td>
<td width="8%" class="SubTitulo">CEP</td>
</tr>
<%
if rsBusca.state=1 then
do while not rsBusca.Eof
%>
<tr>
<td width="10%" class="SubTitulo"><%=rsBusca("Conta")%></td>
<td width="7%" class="SubTitulo"><%=rsBusca("CA_S")%></td>
<td width="12%" class="SubTitulo"><%=rsBusca("DT_AGENDA")%></td>
<td width="9%" class="SubTitulo"><%=rsBusca("DT_BAIXA")%></td>
<td width="13%" class="SubTitulo"><%=rsBusca("DT_CONCL")%></td>
<td width="29%" class="SubTitulo"><%=rsBusca("AN_RZ_SOCIAL")%></td>
<td width="12%" class="SubTitulo"><%=rsBusca("END_CEP_")%></td>
<td width="8%" class="SubTitulo"><%=rsBusca("Cep")%></td>
</tr>
<%
rsBusca.MoveNext
LOOP
end if
%>
</table></div></td>
</tr>
</table>
</form>
</body>
</html>
Mas ele continua imprimindo os botões e não imprimi o div="conteudo" inteiro.
-
Ola pessoal tenho uma duvia exite uma maneira para fazer uma consulta com referencia cruzada no asp, tipo o exemplo que vou colocar aqui tenho uma consulta feito no access e outra é uma referencia cruzada desta consulta.Duvida existe alguma maneira de fazer uma consulta com referencia cruzada com asp
Consulta Cep
SELECT OSS_BAGA_may09.Conta, OSS_BAGA_may09.CA_S, OSS_BAGA_may09.DT_AGENDA, OSS_BAGA_may09.DT_BAIXA, OSS_BAGA_may09.DT_CONCL, OSS_BAGA_may09.AN_RZ_SOCIAL, OSS_BAGA_may09.END_CEP_, Mid([END_CEP_],2,2) AS CEP
FROM OSS_BAGA_may09
WHERE (((OSS_BAGA_may09.Conta) Is Not Null) AND ((OSS_BAGA_may09.DT_BAIXA) Like "*ma*") AND ((OSS_BAGA_may09.AN_RZ_SOCIAL) Like "LIDER SP-ALEX*" Or (OSS_BAGA_may09.AN_RZ_SOCIAL) Like "LIDER SP-ALF*"))
ORDER BY OSS_BAGA_may09.END_CEP_
Referencia crzada no access
TRANSFORM Count(CEP.Conta) AS ContarDeConta
SELECT CEP.CA_S, Count(CEP.Conta) AS [Total de Conta]FROM CEP
GROUP BY CEP.CA_S
PIVOT CEP.CE
-
Ola pessoa estou gerando um relatório feito em pagina asp e html bom o que eu quero tem a haver com css mas não me lembro como faz nesse reltorio tem uma caixa de texto onde informo a data do periodo do relatorio jundo um botão imprimir e fechar, bom em abaixo aparece o relatorio como faço para não imprimir a caixa de texto e os botões só o conteudo do relatorio.A detalhe o conteudo esta dentro de uma div com style="height=390" muita das vezes ele tem mais que 390px
-
valeu resolvi essa
-
era isso mesmo o datediff só me banano mais resovi é isso mesmo rafa
-
na verdade a empresa pela qual trabalho é uma prestadora de serviço da telefonica de TV digital, eles recebem o serviço via ftp em arquivo excell, bom o que sistema que eu fiz importa esse aquivo para banco de dados Sql Server, e contrala a rota do tecnico minha duvida que é no serviço de Assitencia tecnica que tem o Codigo do serviço como AT, ele não pode passar de 4 horas se não vira sobra, multa pra empresa por exemplo a gente importa o sistema 3 vezes gravando a hora do sistema.O primeiro lote vem antes das 8 da manha o segundo 11 da manha e terceiro as 16 horas, o serviço das 8 por exemplo quando for 11 horas tem que ficar amarelo para avisar o operdor do sistema e quando for 12 h tem que ficar vermelho pois gerou uma sobra. Endeu agora.
-
ok obrigado
-
Pessoal to com um problema tenho que fazer uma função da seguinte maneira, quando um serviço for executado na parte da manha que começe as 8:00 h quando for 12:00 ele tem que me mostrar uma linha vermelha porque virou sobra, estou fazendo com DateDiff() mas não to conseguindo resultado.
Faço da seguinte maneira.
sHoraImp=Hour(rsDth("HoraImportada")) sTime=Hour(time()) sTempo = DateDiff ("h",sHoraImp ,sTime) if rsDth("codServico")="ATDM" OR rsDth("codServico")="ATDH" then if rsDth("HoraImportada")<>"" then if rsRota("idStatus") = 1 or rsDth("idStatus") = 19 then if sTempo=>48 then Bg="#FFFF00" if sTempo=>72 then Bg="#FF0000" end if end ifA detalhe tava esquecendo quando for no periodo da tarde o serviço vai começar 13:00 h e quando for 17:00 tem que ficar vermelho tb.
como imprimir uma pagina ASP
em Ajax, JavaScript, XML, DOM
Postado
Ola pessoal to com uma duvida meio de iniciante mas tudo bem como faço para imprimir uma pagina sem precionar botão quero que ao chamar esta pagina em vez de ir pra tela ir direto para impressora padrão