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 

Posts postados por Clauido José

  2. DateDiff

    em ASP

    Postado

    vou tentar isso já coloque o resulto

    Pergunta se for por exemplo em cima da hora em vez do dia?

    'define as datas

    data_inicio='#12:30#'

    data_termino=datadd("h",20,data_inicio)

    'verifica se está dentro do prazo

    if now>=data_termino then

    response.write("você não pode")

    elseif datediff("h",now,data_termino)<=1

    response.write("você tem menos de 1h")

    else

    response.write("você tem mais de 1h")

    end if

  3. DateDiff

    em ASP

    Postado

    é case isso tipo assim tenho um serviço que começou as 12:00 em cima desse 12:00 eu tenho 20 horas para execultar o serviço então quando tiver com 19 horas eu eu tenho que avisar o operador, e 20 travar o serviço

  4. DateDiff

    em ASP

    Postado

    Ola pessoal to com uma duvida tenho um sistema feito em asp, e tem um modulo do sistema que tenho que contar o tempo de serviço restante.Por exemplo, tenho um serviço que importei pro banco ele foi iniciado as 12:00 h eu tenho que 20h para execultar essa tarefa,quando faltar 19 h do termino do serviço ele tem que deixar uma linha amarela e quando tiver com 20h ele deixa uma linha.Detalhe isso é contado em cima da hora de nisso por exemplo 19 h de 12:00 a linha ficaria amarela as 19:00 H do dia seguinte, 20h ficaria vermelho 20:00 h do dia seguinte

  16. Montando relatorio de servico

    em ASP

    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

  18. (Resolvido) Upload sem componente

    em ASP

    Postado

    Pessoal é seguinte sempre usei componentes para fazer uploads mas desta vez eu resolvi fazer um sistema onde tenho que enviar fotos para cadastramento mesmo para aprender. Bom no meu pc ele vai tranquilo mas quando mando para o server ele me da uma mensagem de erro na hora de enviar a foto. A mensagem de erro é a seguinte.

    Microsoft VBScript runtime error '800a0005'

    Invalid procedure call or argument: 'MidB'

    /dth/popupload.asp, line 104

    Alinha onde da erro é seguinte

    boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)

×
×
  • Criar Novo...