none
JavaScript ou VBScript + ASP + SQL Server 2000 RRS feed

  • Pergunta

  • Olá Gente,

     

    Estou com um problema no meu formulário, nele é mostardo como resultado de uma consulta, vários campos referentes a advogado, porém gostaria de implementar uma funcionalidade para o usuário, que quando ele passasse o mouse em cima no nº do advogado, aparecesse o nome do advogado...

     

    PERGUNTA: Isso é possível? Caso seja, como posso fazer  isso?

     

    Vou postar o código para vocês darem uma olhada...

     

    Grato por qualquer tipo de ajuda...

     

    Code Snippet

    <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
    <%
    Session.LCID = 1046
    %>
    <%
    Response.Expires=0
    Response.Buffer = TRUE
    Response.Clear

    login = session("login")
    If login = ""  or isnull(login) Then
        server.Transfer("Error404.asp")   
    End If
    set objCmm = CreateObject("ADODB.Connection")
    objCmm.Open  Application("strConn")

    'sqlADV = "select top 3 at_usuar_logname, at_NOME  from sapj2000..vw_advogados_terc where ai_nivel in (0,1) order by at_nome"
    sqlADV = "select at_usuar_logname, at_NOME  from sapj2000..vw_advogados_terc where ai_nivel in (0,1) and At_usuar_logname is not null and At_usuar_logname <> ''  order by at_nome"
    set objCmm  = CreateObject("ADODB.Connection")
    set advogados   = server.CreateObject("ADODB.Recordset")
    objCmm.Open  Application("strConn")
    SET advogados = objCmm.Execute(sqlADV)

    If request("Gravar") = "Gravar" Then
     dim chave1
        prazo = request("prazo")
        ano = cstr(year(prazo))
        mes = mid(prazo,4,2)
        dia = mid(prazo,1,2)       
        prazo = ano + "-" + mes + "-" + dia          
           
        anoAtual = cstr(year(date()))
        mesAtual = mid(cstr(100 + month(date())),2,2)
        diaAtual = mid(cstr(100 + day(date())),2,2)       
        Hoje = anoAtual + "-" + mesAtual + "-" + diaAtual
             
        If request("Arquivo") = "1" Then
            destino = 0
        Else
            destino = Request("Destino")
        End If       
           
        chave1 = Request("Chave1")
        ano = cstr(year(chave1))
        mes = mid(chave1,4,2)
        dia = mid(chave1,1,2)    
          
        chave1 = ano + "-" + mes + "-" + dia
        chave2 = Request("Chave2")
        chave3 = Request("Chave3")
           
        atualiza = "Set nocount on Update tbresenha set dtmRes_Prz = '" + prazo + "' , numRes_EncAdv = " + cstr(destino) + ", dtmRes_datEnc = '" + Hoje + "', chrRes_StaVis = 'N'"
        atualiza = atualiza + " Where numRes_NumProc = " + chave2 + " and numRes_NumVar = " + chave3
        atualiza = atualiza + " and dtmRes_DatRes = '" + Chave1 + "'"
       
        set rs = objCmm.Execute(Atualiza)
     If chave2 <> "" Then
      Response.Write("<script language='JavaScript'>alert('" &  "Gravação feita com sucesso" & "');</script>")
     End If        
    End If


    sql = "select numRes_NumProc, numRes_NumVar, Convert(char(10), dtmRes_DatRes,103) as 'dtmRes_DatRes', "
    sql = sql + "Convert(char(10), dtmRes_DatEnc,103) as 'dtmRes_DatEnc', vchRes_MatJur, vchRes_Anexo, chrRes_StaVis, numRes_EncAdv, "
    sql = sql + " Convert(char(10), dtmRes_Prz,103) as 'dtmRes_Prz', numRes_Aviso, vchRes_UsuCod, "
    sql = sql + "Convert(char(10), dtmRes_DatAtu,103) as 'dtmRes_DatAtu',  Convert(char(10), dtmRes_DatVis,103) as 'dtmRes_DatVis', "
    sql = sql + "datediff(day,getdate(),dtmRes_Prz) as 'Diferenca' from tbresenha where ResDestinacao = 'CAGER' "

    set sqlC = server.CreateObject("ADODB.Recordset")
    SET sqlC = objCmm.Execute (sql)


    Set objScap1 = Server.CreateObject("SCAP1.clsSisLock")
    objScap1.UsuarioLogin = Session("Login")
     
    wResultAtual = objScap1.Mensagem
        
    If wResultAtual <> vbNullString  Then
     Response.Status = "401 Acesso Negado"
     Response.Write wResultAtual
     Response.End
    End if 

    %>
    <html>
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
    <!-- #include file="ValidaData.Inc" -->
    <title>cager</title>
    <link rel="stylesheet" type="text/css" href="estilos/css.css">
    </head>

    <script language="javascript">
    function consultarADV(codigodoadv)
    {
      if (document.getElementById("mensagem_layer").style.visibility == 'visible') 
        document.getElementById("mensagem_layer").style.visibility = 'hidden';
      else               
        document.getElementById("mensagem_layer").style.visibility = 'visible';
     document.resenhacager.chave4.value = codigodoadv  
     chave4=codigodoadv
    }
    </script>

    <script language="JavaScript">
    function txtBoxFormat(objForm, strField, sMask, evtKeyPress) {
         var i, nCount, sValue, fldLen, mskLen,bolMask, sCod, nTecla;

         if(document.all) { // Internet Explorer
           nTecla = evtKeyPress.keyCode; }
         else if(document.layers) { // Nestcape
           nTecla = evtKeyPress.which;
         }

         sValue = objForm[strField].value;
         sValue = sValue.toString().replace( "-", "" );
         sValue = sValue.toString().replace( "-", "" );
         sValue = sValue.toString().replace( ".", "" );
         sValue = sValue.toString().replace( ".", "" );
         sValue = sValue.toString().replace( "/", "" );
         sValue = sValue.toString().replace( "/", "" );
         sValue = sValue.toString().replace( "(", "" );
         sValue = sValue.toString().replace( "(", "" );
         sValue = sValue.toString().replace( ")", "" );
         sValue = sValue.toString().replace( ")", "" );
         sValue = sValue.toString().replace( " ", "" );
         sValue = sValue.toString().replace( " ", "" );
         fldLen = sValue.length;
         mskLen = sMask.length;

         i = 0;
         nCount = 0;
         sCod = "";
         mskLen = fldLen;

         while (i <= mskLen) {
           bolMask = ((sMask.charAt(i) == "-") || (sMask.charAt(i) == ".") || (sMask.charAt(i) == "/"))
           bolMask = bolMask || ((sMask.charAt(i) == "(") || (sMask.charAt(i) == ")") || (sMask.charAt(i) == " "))

           if (bolMask) {
             sCod += sMask.charAt(i);
             mskLen++; }
           else {
             sCod += sValue.charAt(nCount);
             nCount++;
           }

           i++;
         }

         objForm[strField].value = sCod;

         if (nTecla != 8) { // backspace
           if (sMask.charAt(i-1) == "9") { // apenas números...
             return ((nTecla > 47) && (nTecla < 58)); } // números de 0 a 9
           else { // qualquer caracter...
             return true;
           } }
         else {
           return true;
         }
       }
    </script>

    <script language="VBScript">
        Function VerConteudo(KeyCod)
          If KeyCod <> vbKeyBack Then
          If Not (KeyCod >= 48 And KeyCod <= 57) Then
           window.event.keyCode = 0
       End If   
         End If
        End Function
       
        Function checado()
            If document.resenhacager.arquivo.checked = true Then
                document.resenhacager.destino.disabled = true
                document.resenhacager.prazo.focus()           
                document.resenhacager.arquivo.value = "1"
            Else
                document.resenhacager.destino.disabled = false
                document.resenhacager.arquivo.value = "0"
                document.resenhacager.destino.focus()
            End If
        End Function  
       
        Function HabilitaBotao()   
      If document.resenhacager.prazo.value = "" Then
       Msgbox("Informe o prazo")
       document.resenhacager.prazo.focus
       Exit Function
      Else
       If document.resenhacager.arquivo.checked = true Then
        If document.resenhacager.Chave1.value = "" and document.resenhacager.chave2.value = "" and document.resenhacager.chave3.value = ""  Then
         Msgbox("Selecione o registro ")
         Exit Function
        End If
       Else
        If document.resenhacager.destino.value = "0"  and document.resenhacager.arquivo.checked = false Then
         Msgbox("Selecione um destino ou arquivo")
         document.resenhacager.destino.focus
         Exit Function
        Else
         If document.resenhacager.Chave1.value = "" and document.resenhacager.chave2.value = "" and document.resenhacager.chave3.value = ""  Then
          Msgbox("Selecione o registro ")
          Exit Function
         End If
        End If
       End If
      End If
      document.resenhacager.submit
        End Function
       
        Function selecionar(chave)
            document.resenhacager.Gravar.disabled = false     
            tam = 1
            tamanho = len(chave)
            while tam <= tamanho
                If mid(chave,tam,1) = "@" Then
        chave1 = mid(chave,1,tam-1)
                     pos = tam
                     tam = tamanho + 1
                End If
                tam = tam + 1
            WEnd
           
      document.resenhacager.chave1.value = right("00" & day(chave1) ,2 ) & "/" &   right("00" & MONTH(chave1) ,2 )  &"/" & YEAR(chave1)
            NovaChave = mid(chave,pos+1,tamanho)
            tam = 1
            tamanho = len(NovaChave)
            while tam <= tamanho
       If mid(NovaChave,tam,1) = "@" Then
        pos = tam
                    document.resenhacager.chave2.value = left(NovaChave,pos-1)
                    Tam = Tamanho + 1
                End If
                tam = tam + 1
            WEnd
            NovaChave = mid(novachave,pos+1,tamanho)
            document.resenhacager.chave3.value = left(novachave,len(novachave))
        End Function
    </script>

    <body leftmargin="0" topmargin="6">
    <form  id="resenhacager"   name="resenhacager"  action="rescager.asp"    method="get">

    <table width="600" align="center" border="0">
     <tr>
      <td class="textoscenter" background="images/bg_titc.jpg" style="background-repeat:no-repeat; background-position:center" >
      CAGER
      </td>
     </tr>
    </table>
    <br />

    <table width="600"  class="borda" align="center" border="0">
        <tr>
         <td ><font class="textoss">Destino:</font></td>  
            <td align="left">
              <select name="destino" id="destino">
                <option selected value="0">Selecione um Nome</option>
               <%while not Advogados.EOF
                  if codadv <> "0" Then
                 if trim(Advogados("at_usuar_logname")) = trim(at_usuar_logname) Then%>
                          <option selected value="<%=Advogados("at_usuar_logname")%>"><%=sqlC("at_NOME")%></option><%
                       else%>
                          <option value="<%=Advogados("at_usuar_logname")%>"><%=Advogados("at_NOME")%></option><%
                       end if
                    else%>
                        <option value="<%=Advogados("at_usuar_logname")%>"><%=Advogados("at_NOME")%></option>                   
                  <%end if
                  Advogados.moveNext
               wend%>   
              </select>
              </td>
              <td width="2%"><input style=" border:none;" type="checkbox" name="arquivo" value="1" id="arquivo" onClick="BLOCKED SCRIPTchecado()" /><font class="textoss">Arquivo</font>
              </td>         
        </tr>
        <tr>
         <td ><font class="textoss">Prazo:</font></td>
         <td align="left"><input name="prazo" type="text" class="textoss" id="prazo" size="10" maxlength="10" onKeyPress="return txtBoxFormat(document.resenhacager, 'prazo', '99/99/9999', event)" onBlur="BLOCKED SCRIPTValida_data(prazo,prazo,'Anterior','','','')"></td>
        </tr> 
    </table>
    <br />
    <div class="links"  style="position:relative; width:620; height:200;scrollbar-3d-light-color:#ffcc33;scrollbar-arrow-color:#000000;scrollbar-base-color:#333333;scrollbar-dark-shadow-color:#333333;scrollbar-face-color:#C4C4C3;scrollbar-highlight-color:#eeeeee;scrollbar-shadow-color:#ffffff; overflow:auto">
    <table width="600"  class="borda" align="center" border="0">
     <tr>
      <td width="2%"><font class="textoss">&nbsp;</font></td>
      <td ><font class="textoss">Matéria</font></td>
      <td ><font class="textoss">Dt. Ent</font></td>  
      <td ><font class="textoss">Processo No</font></td>       
      <td ><font class="textoss">Vara No</font></td>  
      <td ><font class="textoss">Arquivo - Resenha</font></td>  
      <td ><font class="textoss">Destino</font></td>  
      <td ><font class="textoss">Data Env. Adv.</font></td>  
      <td ><font class="textoss">Vis. p/ Adv.</font></td>  
      <td ><font class="textoss">Dat. Acesso</font></td>  
      <td ><font class="textoss">Prazo</font></td>  
     </tr>
     <%
     Contador = 0
     IF not sqlC.EOF then
         CorAtu = "#FFFFFF"
         while not sqlC.EOF
             If contador = 0 then
                contador = 1 %>
             <tr bgcolor="#C2E9A9">
             <%else
                contador = 0 %>
             <tr bgcolor="#ffffff">
             <%End if %>
                 <%
                 chave = cstr(sqlC("dtmRes_DatRes")) + "@" + + cstr(sqlC("numRes_NumProc")) + "@" +cstr(sqlC("numRes_NumVar"))
                 %>
                 <td width="2%"><input style=" border:none;" id="Selecionado" name="Selecionado" type="radio" value="<%=chave%>" name="list" onclick="BLOCKED SCRIPTselecionar('<%=chave%>')"</td>
              <td ><font class="textosc" value="<%=sqlC("vchRes_MatJur")%>"><%=sqlC("vchRes_MatJur")%></font></td>
              <td ><font class="textosc" value="<%=sqlC("dtmRes_DatRes")%>"><%=sqlC("dtmRes_DatRes")%></font></td>
              <td ><font class="textosc" value="<%=sqlC("numRes_NumProc")%>"><%=sqlC("numRes_NumProc")%></font></td>       
              <td ><font class="textosc" value="<%=sqlC("numRes_NumVar")%>"><%=sqlC("numRes_NumVar")%></font></td>  
              <td ><font class="textosc" style='cursor:hand' onclick="BLOCKED SCRIPTwindow.open('arquivos/<%=sqlC("vchRes_Anexo")%>')" value="<%=sqlC("vchRes_Anexo")%>"><%=sqlC("vchRes_Anexo")%></font></td>
              <td ><font class="textosc" value="<%=sqlC("numRes_EncAdv")%>"><%=sqlC("numRes_EncAdv")%></font></td>
              <%If sqlC("dtmRes_DatEnc") = "01/01/1753" Then %>
                  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"></font></td>
              <%else %>
                  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatEnc")%>"><%=sqlC("dtmRes_DatEnc")%></font></td>
              <%End If %>
              <%If sqlC("chrRes_StaVis") = "N"  Then %>
                  <td align=center><font class="textosc" value="N")>NÃO</font></td>  
              <%Else
                  If sqlC("chrRes_StaVis") = "S"  Then%>
                      <td align=center><font class="textosc" value="S")>SIM</font></td>  
                  <%Else%>
                      <td align=center><font class="textosc" value="S")> </font></td>     
                  <%End If %>
              <%End If %>   
              <%If sqlC("dtmRes_DatVis") = "01/01/1753" Then %>
                  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"></font></td>
              <%Else %>
                  <td ><font class="textosc" value="<%=sqlC("dtmRes_DatVis")%>"><%=sqlC("dtmRes_DatVis")%></font></td>
              <%End If %>
              <%If sqlC("dtmRes_Prz") = "01/01/1753" Then %>
                  <td ><font class="textosr"  value="<%=sqlC("dtmRes_Prz")%>"></font></td>
              <%Else
                  If sqlC("diferenca") <= 2 Then %>                   
                      <td class="textosr"><font  value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td>  
                  <%else %>   
                      <td class="textosc"><font value="<%=sqlC("dtmRes_Prz")%>"><%=sqlC("dtmRes_Prz")%></font></td>  
                  <%End if %>
              <%End If %>     
             </tr> 
         <%sqlC.moveNext
         wEnd
             Else%>
         
         <tr bgcolor="#C2E9A9">
         <td colspan=11    align=center>
              <font face="Arial, Helvetica, sans-serif" size="1" color="#000000" >Nenhuma informação foi localizada.</font></td>
             </tr>
        <%end if %>

    </table>
    </div> 
    <br />
    <div id="mensagem_layer" style="cursor: pointer; position:absolute; width:500px; height:80px; z-index:1; visibility:
    hidden; overflow: hidden; left: 80px; top: 360px; background-color: #F0F9FF;
    layer-background-color: #F0F8FF; border: 1px none #000000;" onClick="consultarADV(document.resenhacager.chave4.value)">
    <table width="100%" border="1" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#6495ED">
    <tr>   
      <td align="center"><input type="hidden" name="chave4"  class="textoss" id="chave4" size="20" maxlength="30"/>
      <font size="1" face="Verdana"><b>
      O Advogado selecionado foi:<br>
      <%
        'listaADV = "select at_NOME  from sapj2000..vw_advogados_terc where at_usuar_logname = '6990'"
        'set objCmm  = CreateObject("ADODB.Connection")
        'set listaC  = server.CreateObject("ADODB.Recordset")
        'objCmm.Open  Application("strConn")
        'SET listagem = objCmm.Execute (listaADV)
        'response.Write(listagem("at_nome"))
        'Response.Write ("<br>")
      %>
      <u>fechar</u><br></font>
      </td>
      </tr>
    </table>
    </div>

    <table width="600" align="center">
     <tr>
      <td colspan="10" align="center">
          <input class="bt" onMouseOut="BLOCKED SCRIPTthis.className='bt'" style="width:65"  value="Gravar"    name="Gravar" onClick="BLOCKED SCRIPTHabilitaBotao()" <%=objScap1.RestObj (54)%>>&nbsp;
       <input class="bt" onMouseOut="BLOCKED SCRIPTthis.className='bt'" onMouseOver="BLOCKED SCRIPTthis.className='bthover'" style="width:65" type="button" value="Retornar"  name="Retornar" onClick="self.location='inicial.asp'" <%=objScap1.RestObj (55)%>>&nbsp;
      </td>
     </tr>
    </table>
       <td align="left"><input type="hidden" name="chave1" class="textoss" id="Chave1" size="20" maxlength="30"></td>
       <td align="left"><input type="hidden" name="chave2" class="textoss" id="chave2" size="20" maxlength="30"></td>
       <td align="left"><input type="hidden" name="chave3" class="textoss" id="chave3" size="20" maxlength="30"></td>
    </form>
    </body>
    </html>

    <%
    objCmm.close
    set objCmm = Nothing
    %>

     

     

    segunda-feira, 20 de agosto de 2007 15:25

Todas as Respostas

  • Augusto... blz???

     

    Cara passei por uma situação parecida, porém encontrei uma saída um pouco diferente da solicitada por vc.

     

    Eu fiz o seguinte... ao invés de passar o mouse sobre o código do usuário, era necessário clicar sobre o mesmo, e ao clicar sobre esse código, abria um iframe dentro do própria página, com os dados do usuário.

     

    Não se se serve essa solução à vc... porém caso sim, consulte no google sobre iframes.

     

    Abçs!

    segunda-feira, 20 de agosto de 2007 17:21
  • Já é de grande valia, posta o código pra mim dá uma olhadinha, ok?!??! pode ser?!?!?!

     

    Grato,

     

    Augusto

    segunda-feira, 20 de agosto de 2007 18:12
  • Augusto... na verdade os exemplos estão em casa.. e, infelizmente, não trabalho na área.

     

    Faça como eu te disse.. dê uma procurada no google que foi lá que encontrei exemplos que me ajudaram bastante.

     

    abçs!

    segunda-feira, 20 de agosto de 2007 19:09