Ir para conteúdo
Fórum Script Brasil

Clauido José

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    457

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que Clauido José postou

  1. Clauido José
    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
  2. 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.
  3. Clauido José
    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&ecirc; est&aacute; na Intranet DTH <strong>&raquo;</strong> Rota <strong>&raquo; Pesquisa &raquo; Resultado</strong><strong>&raquo;Empresa </strong>&raquo; T&eacute;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&Eacute;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">&nbsp;</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%>">&nbsp;</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%>">&nbsp; </td> <td width="9" align="center" class="SubTitulo" bgcolor="<%=Bg%>">&nbsp;</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>
  4. Clauido José
    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
  5. Clauido José
    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&ordm; 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&ccedil;&atilde;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&Ccedil;OS</td> <td width="10%" class="SubTitulo">&nbsp;</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&ordm;</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&ccedil;&atilde;o</td> <td width="10%" class="SubTitulo">Pacote</td> <td width="10%" class="SubTitulo">Observa&ccedil;&atilde;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&eacute;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&ccedil;o</td> <td width="10%" class="SubTitulo">N&ordm; 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>&nbsp;</td> </tr> <tr> <td>&nbsp;</td> <td>&nbsp;</td> </tr> </table> <p>&nbsp; </p> </body> </html>
  6. Clauido José
    valeu Andrei vou ver o link
  7. Clauido José
    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:
  8. Clauido José
    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:
  9. Clauido José
    Então pelo que entendi é melhor eu transformar esse arquivo doc em arquivo texto ou Html? Correto?
  10. Clauido José
    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.
  11. Clauido José
    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.
  12. Clauido José
    Ai pessoal é seguinte já tentei fazer isso com o FSO mas não da certo é que aparece 'ÐÏࡱá'. Ele ta reconhecendo assim o arquivo doc.
  13. Clauido José
    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.
  14. Clauido José
    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?
  15. Clauido José
    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?
  16. Clauido José
    pessoal pequisei sobre store procedure no access e não achei nada alguém pode me ajudar
  17. Clauido José
    estava pensando mesmo em usar stored procedure vou dar uma pesquisada no google
  18. Clauido José
    meu não deu certo fiz da seguinte maniera Mas ele continua imprimindo os botões e não imprimi o div="conteudo" inteiro.
  19. Clauido José
    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 Referencia crzada no access
  20. Clauido José
    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
  21. Clauido José
    valeu resolvi essa
  22. Clauido José
    era isso mesmo o datediff só me banano mais resovi é isso mesmo rafa
  23. Clauido José
    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.
  24. Clauido José
    ok obrigado
  25. Clauido José
    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 if A 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.
×
×
  • Criar Novo...