Ir para conteúdo
Fórum Script Brasil
  • 0

Montando relatorio de servico

Clauido José

Perguntado por Clauido José,

 Share

Pergunta

Clauido José

Clauido José

Postado
Postado

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>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Clauido José

Clauido José

Postado
  • Autor
Postado

Bareta é seguinte se você perceber esse recordsets que você fala ta contando um campo da tabela que chama status esse campo é o status da os existem os seguintes status AB,AC,AV,NF,RA,RP,BX esse campo reprensenta por exemplo as OS baixadas assim sucessivamente existe uma manieira de fazer isso sem o count? Hoje estou fazendo da seguinte forma já tentei usar o if mas como tenho que contar o status das OS de cada tecnico não dava um valor exato.

HOje faço assim, se tiver como fazer diferente para melhorar o sistema eu agradeço desde já

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

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...