Quantcast
Channel: Fórum ASP
Viewing all articles
Browse latest Browse all 1214

ADODB.Field error '800a0bcd'

$
0
0

Galera,

 

Não estou conseguindo resolver esse erro de nenhuma forma, podem me darem uma força ?

 

O erro e o seguinte:

 

ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/tramitacao/detalhaBuscaTramite.asp, line 396

 

Segue em o código. irei colocar a linha 396 em negrito

 

<%@ LCID = 1046 %>
<html>
<head>
<%
dim login
dim caracter
login = request("login")

%>
<!--#include virtual="/includes/db.asp"-->
<!--#include virtual="includes/funcoes.asp"-->
<!--#include virtual="/includes/validaSessaoAjax.asp"-->
 
<form>
<script language="javascript">   
function btnVoltar(pagAtual) {

               var tipoTramite = $("tipoTramite").value;
               var status = $("status").value;   
               var cor="<%=request("cor")%>";
               
               if (tipoTramite == 1) {              
                      recuperarPaginaGet("tramitacao/listarDocumento.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
               }

               else if (tipoTramite == 2) {              
                      recuperarPaginaGet("tramitacao/consultarTramite.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
               }
               
                else if (tipoTramite == 3) {                
                      recuperarPaginaGet("tramitacao/listarPesquisaTramite.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
               }
               
                else if (tipoTramite == 4) {                
                      recuperarPaginaGet("tramitacao/listarPesquisaGerencial.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite, 'resp');
               }
               
              else if (tipoTramite == 5) {              
                      recuperarPaginaGet("tramitacao/listarpesquisaDocumento.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite + "&status=" + status, 'resp');
               }
               
                else if (tipoTramite == 6) {               
                      recuperarPaginaGet("tramitacao/listarpesquisaDocumentoFinal.asp?pagina=" + pagAtual + "&tipoTramite=" + tipoTramite + "&status=" + status, 'resp');
               }
        }
    function retramitarDocumento() {
     var id = $("id").value;   
     var idTram = $("idTram").value;       
     var PessoaRem = $("PessoaRem").value;    
     var confirma = confirm('Tem certeza que deseja tramitar este documento para outro destinatário?');
    if (confirma)    
        recuperarPaginaGet('../tramitacao/retramitarDocumento.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '', 'resp');
    }
    function enviarEmail() {
     var id = $("id").value;   
     var confirma = confirm('Deseja reenviar este email ?');
    if (confirma)    
        recuperarPaginaGet('../tramitacao/reenviarEmailAutorizacao.asp?numero=' + id + '', 'resp');
    }
    function protocolarTramite() {
     var id = $("id").value;   
     var idTram = $("idTram").value;   
     var PessoaRem = $("PessoaRem").value;   
     var UserId = $("UserId").value;
     var confirma = confirm('Deseja protocolar este documento?');
    if (confirma)    
        recuperarPaginaGet('../tramitacao/atualizarStatusTramite.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1' , 'resp');
    }
    function recusarTramite() {
     var id = $("id").value;   
     var idTram = $("idTram").value;   
     var PessoaRem = $("PessoaRem").value;   
     var UserId = $("UserId").value;  
     var confirma = confirm('Deseja recusar este documento?');
    if (confirma)    
        recuperarPaginaGet('../tramitacao/atualizarStatusTramiterecusado.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1', 'resp');
    }
    function protocolarTramite2() {
     var id = $("id").value;   
     var idTram = $("idTram").value;   
     var PessoaRem = $("PessoaRem").value;   
     var UserId = $("valorUseridTram").value;
     var confirma = confirm('Deseja protocolar este documento?');
    if (confirma)    
        recuperarPaginaGet('../tramitacao/atualizarStatusTramite.asp?tramite=' + idTram + '&numero=' + id + '&id=' + PessoaRem + '&userId=' + UserId +'&flag=1' , 'resp');
    }
</script>
    


</head>
 
<%
dim id,rsdoc,sql
dim tipoTramite
dim status


tipoTramite = request("tipoTramite")
status = request("status")

id = cLng(Request.QueryString("id"))
sql = "select dc.id_tipo_documento, " & _
       "dc.nr_documento, " & _
       "to_char(dc.dt_criacao, 'dd/mm/rrrr') as dt_criacao, " & _
       "dc.id_documento, " & _
       "tp.id_tipo_documento, " & _
       "tp.ds_tipo_documento, " & _
       "dc.id_pessoa_criador " & _
       "from tb_doc_documento dc, tb_doc_tipo_documento tp " & _
       "where dc.id_tipo_documento = tp.id_tipo_documento " & _
       "and dc.id_documento ="&id
Set rsdoc = retornaRs(sql)


dim rs
dim sSql
dim ins
dim nome, numero
dim userId

userId = cLng(Session("userId"))
nome = Request.QueryString("nome")
numero = Request.QueryString("numero")
sSql ="SELECT ab.id_tramite,cd.nm_pessoa as de,ef.nm_pessoa as para,ab.dt_saida,ab.dt_recebimento,ab.id_pessoa_destino,ab.id_pessoa_remetente,ab.ds_motivo,ab.ds_observacao,ab.ds_motivo "&_
"from tb_doc_tramite ab, tb_ico_pessoa cd, tb_ico_pessoa ef "&_
"where ab.id_pessoa_remetente = cd.id_pessoa and ab.id_pessoa_destino = ef.id_pessoa and ab.id_documento ="&id& _
"order by ab.id_tramite desc"
Set rs = retornaRs(sSql)
if not rs.EOF then
%>

Total de registros: <%=rs.recordcount%>
<br/>Páginas:

<%
'''''''''''''''''''''''''''''''''''''PAGINAÇÃO'''''''''''''''''''''''''''''''''''''''''''''

Dim qtdRegistrosListados
Dim i, paginaParaListar, classe, tipoLista


qtdRegistrosListados = 10
rs.CacheSize = qtdRegistrosListados
rs.PageSize = qtdRegistrosListados
if request("pagina") = "" or request("pagina") = "0" then
    rs.absolutePage = 1
    session("paginaAtual") = 1
else
    rs.absolutePage = cLng(request("pagina"))
    session("paginaAtual") = cLng(request("pagina"))
end if

     
       paginaParaListar = "tramitacao/detalhaBuscaTramite.asp"
       
       IF (session("paginaAtual") >1) then
            response.Write( "<a class='quadroPaginacao' onmouseOver="&chr(13)&"document.getElementById('setaVoltar').src='../images/setaVoltar.gif'"&chr(13)&" onmouseOut="&chr(13)&"document.getElementById('setaVoltar').src='../images/setaVoltarBranca.png'"&chr(13)&" href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & session("paginaAtual")-1 & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & "><img id='setaVoltar' src='../images/setaVoltarBranca.png' /><a/>")           
       end if
       
 
      IF(rs.pagecount >9) THEN
      
               'A IDEIA É MOSTRAR NO MÁXIMO 10 PAGINAS NA LISTA
        
               'MOSTRA OS PRIMEIROS DA LISTA, PADRAO É 3, MAS PODE IR ATE 6
                
               IF(RS.PAGECOUNT >3) THEN
                       IF(session("paginaAtual") <6) THEN
                           
                           if(session("paginaAtual") < 3) then
                               limiteRegistroInicial = 3
                           elseif(session("paginaAtual") >= 3) then
                               limiteRegistroInicial = session("paginaAtual")+1
                           end if
                           
                           for i=1 to limiteRegistroInicial
                               'SELECIONA A CLASS CSS PARA O SELECIONADO
                               if(i =session("paginaAtual")) then
                                    classe= "paginaAtual"
                               else
                                    classe = "quadroPaginacao"
                               end if
                              Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                           next
                           Response.Write "... "
                            'MOSTRA OS 3 ULTIMOS
                               for i= rs.pagecount-2 to rs.pagecount
                                   
                                   'SELECIONA A CLASS CSS PARA O SELECIONADO
                                   if(i =session("paginaAtual")) then
                                        classe= "paginaAtual"
                                   else
                                        classe = "quadroPaginacao"
                                   end if
                              Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                              next                       
                       ELSE
                       
                        'MOSTRA OS 3 PRIMEIROS
                           for i=1 to 3
                                    'SELECIONA A CLASS CSS PARA O SELECIONADO
                                   if(i =session("paginaAtual")) then
                                        classe= "paginaAtual"
                                   else
                                        classe = "quadroPaginacao"
                                   end if                    
                                   Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                           next
                           Response.Write "... "
                        
                            if((rs.pagecount - session("paginaAtual")) >= 5 ) then
                                 'MOSTRA TRES PAGINAS, SENDO QUE A DO MEIO É A PAGINA ATUAL                   
                                   for i=session("paginaAtual")-1 to session("paginaAtual")+1
                                           'SELECIONA A CLASS CSS PARA O SELECIONADO
                                           if(i =session("paginaAtual")) then
                                                classe= "paginaAtual"
                                           else
                                                classe = "quadroPaginacao"
                                           end if
                                           Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                                   next
                                   Response.Write "... "
                                    'MOSTRA OS 3 ULTIMOS
                                   for i= rs.pagecount-2 to rs.pagecount
                                        'SELECIONA A CLASS CSS PARA O SELECIONADO
                                        if(i =session("paginaAtual")) then
                                            classe= "paginaAtual"
                                       else
                                            classe = "quadroPaginacao"
                                       end if
                                       Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                                 next                                   
                            else
                            
                               'MOSTRA AS ULTIMAS PAGINAS SENDO NO MAXIMO 6.
                               'MOSTRA A PAGINA ANTERIOR ANTES DA ATUAL
                               
                               if (session("paginaAtual") = rs.pagecount) then
                                   indice = session("paginaAtual")-2
                               else
                                   indice = session("paginaAtual")-1
                               end if
                               
                               for i=indice to rs.pagecount
                                   'SELECIONA A CLASS CSS PARA O SELECIONADO
                                   if(i =session("paginaAtual")) then
                                        classe= "paginaAtual"
                                   else
                                        classe = "quadroPaginacao"
                                   end if
                                   Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
                             next                       
                                                        
                            end if           
                       END IF
        
               END IF
       ELSE
          'SE O NUMERO DE PAGINAS FOREM MENOR QUE 9 ENTAO MOSTRA TODOS.
                                          
           for i=1 to rs.pagecount
                   'SELECIONA A CLASS CSS PARA O SELECIONADO
                   if(i =session("paginaAtual")) then
                        classe= "paginaAtual"
                   else
                        classe = "quadroPaginacao"
                   end if
                   Response.Write "<a class='"&classe&"' href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & i & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & ">" & i &"<a/>"           
             next    
       END IF
       
       IF (session("paginaAtual") < rs.pagecount ) then
            response.Write( "<a class='quadroPaginacao' onmouseOver="&chr(13)&"document.getElementById('setaAdiante').src='../images/setaAdiantar.gif'"&chr(13)&" onmouseOut="&chr(13)&"document.getElementById('setaAdiante').src='../images/setaAdiantarBranca.png'"&chr(13)&" href ='#'" & "onClick=""" & "recuperarPaginaGet(" & "'"&paginaParaListar&"?pagina=" & session("paginaAtual")+1 & "&id="&id&"&flag=1&tipoTramite=5','resp');""" & "><img id='setaAdiante' src='../images/setaAdiantarBranca.png' /><a/>")           
       end if

'''''''''''''''''''''''''''''''''''''FIM DA PAGINAÇÃO'''''''''''''''''''''''''''''''''''''''''''''
   
%><br><br />


 <body>
<div id="scriptsGerais">
<!-- Prototype e scriptaculous -->    
    <script src="Js/prototype.js"type="text/javascript"></script>
    <script  src="Js/Scriptaculous/scriptaculous.js" type="text/javascript"></script>
    <script src="Js/Scriptaculous/unittest.js" type="text/javascript"></script>
<!-- Final da declaração dos Js de framaworkjavascript -->
<!-- Modalbox para a vinculação de faturas -->
    <script type="text/javascript" src="Js/scriptaculous.js"></script>
    <script type="text/javascript" src="Js/modalbox/modalbox.js"></script>
<!-- Fim da declaração -->
    <script src="Js/funcoes_reembolso.js"type="text/javascript"></script>
    <script src="Js/preAjax.js" type="text/javascript"></script>
    <script src="Js/validaFormulario.js" type="text/javascript"></script>
    <script src="Js/tabelas.js" type="text/javascript"></script>
    <script src="validacao.js" type="text/javascript"></script>
    <script src="Js/menu.js" type="text/javascript"></script>
    
    <script src="Js/funcoes_hotel.js" type="text/javascript"></script>
    <script src="Js/funcoes_editarRequisicao.js" type="text/javascript"></script>
    <script src="Js/funcoes_prestacoesdeconta.js" type="text/javascript"></script>
</div>

<h3>Trâmites da(o) <U><%=rsdoc("ds_tipo_documento")%></U> Número <U><%=rsdoc("nr_documento")%></U></h3>
<table name"tblConteudo" id="tblConteudo" class="tablelist">            
    <tr class="tablelist_cat">
              <th>De:</th>
              <th>Para:</th>
              <th>Enviado</th>
              <th>Recebido</th>             
              <%if NOT rs.eof then%>
              <th>Motivo</th>
              <%end if%>
    </tr>



<%

        for i = 1 to qtdRegistrosListados
                if not rs.EOF then

 dim slt,aste
                    slt ="SELECT DECODE (count(ID_PESSOA_ASSISTENTE),0,0,1) as conta "&_
                         "FROM TB_DOC_ASSISTENTE WHERE ID_PESSOA_ASSISTIDA ="&cLng(rs("id_pessoa_remetente"))& "and sysdate between dt_inicio and dt_fim and id_pessoa_assistente =" &cLng(Session("userId"))
                    Set aste = retornaRs(slt)
 dim slt2,aste2
                    slt2 ="SELECT DECODE (count(ID_PESSOA_ASSISTENTE),0,0,1) as conta "&_
                         "FROM TB_DOC_ASSISTENTE WHERE ID_PESSOA_ASSISTIDA ="&cLng(rs("id_pessoa_destino"))& "and sysdate between dt_inicio and dt_fim and id_pessoa_assistente =" &cLng(Session("userId"))
                    Set aste2 = retornaRs(slt2)
dim consulta,cons
dim idteste,idteste2
dim rsRecebimento

sSql = "select nm_pessoa from tb_ico_pessoa "&_
"where id_pessoa = (select id_pessoa_recebimento from tb_doc_tramite "&_
"where id_tramite = "&rs("id_tramite")&")"
set rsRecebimento = retornaRs(sSql)







status = Request.QueryString("status")
consulta = "select ID_PERFIL from TB_ICO_USUARIO_SISTEMA_PERFIL where ID_SISTEMA = 5 AND ID_PESSOA ="&Session("userId")
set cons = retornaRs(consulta)
if Not cons.EOF then
cons = cLng(cons("ID_PERFIL"))
end if
sSql ="SELECT * from tb_ico_colaborador where id_pessoa =" &Session("userId")
Set rsCC = retornaRs(sSql)
centroCusto = rsCC("cd_centro_custo")
if cons = 24 then
sSql ="SELECT * from VW_DOC_CENTRO_EM_TRAMITE_FULL where id_documento_pai is null and cd_centro_custo_dest =" &centroCusto& " and id_documento = "& id &" order by id_documento desc"
Set rsCons = retornaRs(sSql)
if not rsCons.eof then
admCC = 1
else
    sSql ="SELECT * from VW_DOC_CENTRO_EM_TRAMITE_FULL where id_documento_pai is null and cd_centro_custo =" &centroCusto& " and id_documento = "& id &" order by id_documento desc"
Set rsCons = retornaRs(sSql)
if not rsCons.eof then
admCC = 2
end if
end if
end if

%>

<%
'guardar valor do id do usuario destinatário'
dim Idlogquery
dim Sqq

Sqq = "select e.ID_USUARIO from VW_ICO_COLABORADOR_FULL e, doc_apex.tb_doc_tramite d where d.id_pessoa_destino=e.ID_PESSOA and id_documento="&rsdoc("id_documento") & " and d. dt_recebimento is null"
set Idlogquery = retornaRs(Sqq)
%>

<%
'guardar id do tramite'
dim Idtram
dim Sqm

Sqm = "select d.id_tramite from VW_ICO_COLABORADOR_FULL e, doc_apex.tb_doc_tramite d where d.id_pessoa_destino=e.ID_PESSOA and id_documento="&rsdoc("id_documento") & " and d. dt_recebimento is null"
set Idtram = retornaRs(Sqm)
%>

<!-- primeira consulta destinatário assistido -->
<%
dim RsQtdeTramiteDest
dim sSql1
dim useridValidas
dim qtdeTramiteDest
  useridValidas = Idlogquery("id_usuario")
  sSql1 = "select count(*) as qtdeDest from tb_doc_tramite where id_tramite='"&Idtram("id_tramite")& "' and id_pessoa_destino=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(useridValidas)& "') "
  Set RsQtdeTramiteDest = retornaRs(sSql1)
  qtdeTramiteDest = RsQtdeTramiteDest("qtdeDest")

%>
<!-- segunda consulta destinatário assistente  -->
<%
dim sSql2
dim RsQtdeTramiteAssist
dim qtdeTramiteAssist

  sSql2 = "select count(*) as qtdeAssist from tb_doc_assistente where id_pessoa_assistente=(select id_pessoa from tb_ico_usuario where ds_login='"&trim(useridValidas)& "') and id_pessoa_assistida=(select id_pessoa_destino from tb_doc_tramite where id_tramite='"&Idtram("id_tramite") & "') and sysdate between dt_inicio and dt_fim"
 Set RsQtdeTramiteAssist = retornaRs(sSql2)
 qtdeTramiteAssist = RsQtdeTramiteAssist("qtdeAssist")
 'qtdeTramiteAssist = 0
  'response.write "</script>var nQtdeAssist="+qtdeTramiteAssist+";</script>"
 
%>

<%
dim sSql3
dim RsUserid
dim RsUseridTram
  sSql3 = "SELECT id_pessoa FROM tb_ico_usuario where ds_login='"&trim(useridValidas)& "'"
  Set RsUserid = retornaRs(sSql3)
  RsUseridTram = RsUserid("id_pessoa")
%>

<script type="text/javascript" language="javascript">
    
    
        
    function OpenSel(op) {

        if (op == 1) {
            document.getElementById('Layer1').style.display="block";
        }
        else if (op == 2) {

        document.getElementById('Layer1').style.display="none";
        }    
     }
    
    function validarLogin(){

        var useridValida = document.getElementById("useridValida").value;
        var passwdValida = document.getElementById("passwdValida").value;
                
        

        if ((useridValida == '') && (passwdValida == '')) {
            alert("Por favor informe seu login e senha de acesso ao sistema.");
            useridValida.focus();
            passwdValida.focus();
            return false;
                                                          }

        if (useridValida == '') {
            alert("Por favor informe seu login de acesso ao sistema.");
            useridValida.focus();
            return false;
                                }

        if (passwdValida == '') {
            alert("por favor informe sua senha de acesso ao sistema.");
            passwdValida.focus();
            return false;
                                }
        else{
            
            new Ajax.Request("../tramitacao/login_valida_teste.asp", {
                parameters: "useridValida="+useridValida+"&passwdValida="+passwdValida,
                method: 'post',
                onSuccess: function(response){
                console.log(response.responseText);
                var resultteste = response.responseText;
                var loginOk = "00";
                    if(resultteste == loginOk) {
                        Alerta();
                                            }
                    if(resultteste !== loginOk){
                        alert("Login e Senha invalidos! \n Digite novamente!");
                        passwdValida.focus();
                                                }
                                            }
});
}
             //pasando valor do userid para a consulta asp
            new Ajax.Request("../tramitacao/detalhaBuscaTramite.asp", {
                parameters: "useridValida="+useridValida,
                method: 'post',
                onSuccess: function(response){
                console.log(response.responseText); }
});

}


     function Alerta(){
        var nQtdeDest = document.getElementById("useriValida").value;
        var nQtdeAssist = document.getElementById("useriValidaAssis").value;
     if ( nQtdeDest > 0) {
        //alert(nQtdeDest);
        protocolarTramite2();
        fechaDiv2();
      }
      else if(nQtdeAssist > 0) {
      protocolarTramite2();
      fechaDiv2(); }
    
     else if(nQtdeDest == 0 && nQtdeAssist == 0 ) {
//      alert(nQtdeDest);
//      alert(nQtdeAssist);
      alert("Usuáro não pode protocolar este tramite!!");
       fechaDiv2(); }
}
    function fechaDiv2()
{
    Effect.Shrink('Layer1');
}
</script>

<script src="md5.js"></script>
 
              <tr>
                            <!-- div janela em tramite -->
              <style type="text/css">

#Layer1 {
    position:absolute;
    width:266px;
    height:140px;
    z-index:1;
    left: 560px;
    top: 199px;
    background-color: #685a2d;    
    display: none;
    
}
.style3 {

    text-align: center;
    
    color: #FFFFFF;
    font-weight:
    bold;
    ;

}

</style>

<style type="text/css">

.txtarea {

height: 15px;
margin-left: 2px;
}


</style>

<body onLoad="Alerta('<%=login%>');">
 <div id="login">
 
    <div id="Layer1">
    
        
            <fieldset> <br>
        
                       <span class="style3"> Usuário: </span> <br>
                       <input id="useridValida" name="useridValida" class="txtarea" type="text" value="<%=Idlogquery("id_usuario")%>" style="width:150px" /> <br><br>
                       <span class="style3"> Senha:</span> <br>
                       <input id="passwdValida" name="passwdValida" class="txtarea" type="password"  value="" style="width:150px" /> <br><br>
                     
        
                 <div style="position:absolute;top:80%;left:16%;float:left" id="divBotoes" >
                       <input type="button" value="Validar" id="validar" onclick="validarLogin();" />
                 </div>          
                 <div style="position:absolute;top:80%;left:53%;float:left" id="divBotoes">
                    <input type=button value="Cancelar" onclick="fechaDiv2()" />
                 </div>
            
            </fieldset>

    </div> <!-- fim de div -->
    </div>
    
    <style type="text/css">
#valorAssist {
    display: none;
    }
#valorAssistente {
    display: none;
    }    
#valorUseridProtTram {
    display: none;
    }        
</style>    
    </body>
    
<div id="valorAssist">
        <input id="useriValida" name="useriValida" class="txtarea" type="text" value="<%=qtdeTramiteDest%>" style="width:150px" /> <br><br>
            </div> <!-- fim de div -->
            <div id="valorAssistente">
        <input id="useriValidaAssis" name="useriValidaAssis" class="txtarea" type="text" value="<%=qtdeTramiteAssist%>" style="width:150px" /> <br><br>
            </div> <!-- fim de div -->
            <div id="valorUseridProtTram">
        <input id="valorUseridTram" name="valorUseridTram" class="txtarea" type="text" value="<%=RsUseridTram%>" style="width:150px" /> <br><br>
            </div> <!-- fim de div -->
            
                <td>
                <%=rs("de")%>
                </td>
                <td>
                <%=rs("para")%>
                </td>
                <td>
                <%=rs("dt_saida")%>
                </td>
                <% if(IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) <> 84  then%>
                        <td>
                        
                           <img src="../images/icon_certo.png"  type="button" onClick="OpenSel(1)" title="Protocolar Trâmite"  />
                                   
                                
                           
                           <img src="../images/excluir.png"  type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
                         
                         </td>
                        
                        <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
                          <input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
                          <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                        
                <%elseif (IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) = cLng(rs("id_pessoa_remetente")) then%>
                <td>
                <img src="../images/carta.png"  type="button" onClick="enviarEmail()" title="Reenviar Email"  />
                     
                <img src="../images/alterarC.gif"  type="button" onClick="retramitarDocumento()" title="Retramitar" />
                  <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
                  <input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
                    <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                </td>
                <% elseif (aste.recordcount<>0) then
                      if cLng(aste("conta"))=1 and IsNull(rs("dt_recebimento")) then %>
                        <td>
                        <img src="../images/carta.png"  type="button" onClick="enviarEmail()" title="Reenviar Email" />
                             
                         <img src="../images/alterarC.gif"  type="button" onClick="retramitarDocumento()" title="Retramitar" />
                           <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
                           <input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
                              <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                         </td>
                             <% elseif (aste2.recordcount<>0) then
                      if cLng(aste2("conta"))=1 and IsNull(rs("dt_recebimento")) then %>
                        <td>
                       <img src="../images/icon_certo.png"  type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
                            
                <img src="../images/excluir.png"  type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
                         </td>
                          <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
                          <input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
                          <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                        <%elseif (IsNull(rs("dt_recebimento"))) and cLng(Session("userId")) = cLng(rs("id_pessoa_destino")) then%>
                        <td>
                <img src="../images/icon_certo.png"  type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
                     
                <img src="../images/excluir.png"  type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
                </td>
                             <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
<input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                        <% elseif admCC = 1 and IsNull(rs("dt_recebimento")) then%>
            <td>
                       <img src="../images/icon_certo.png"  type="button" onClick="protocolarTramite()" title="Protocolar Trâmite" />
                            
                <img src="../images/excluir.png"  type="button" onClick="recusarTramite()" title="Recusar Trâmite" />
                         </td>
                          <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
<input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
 <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />       
                <% elseif admCC = 2 and IsNull(rs("dt_recebimento")) then%>
                           <td>
                        <img src="../images/carta.png"  type="button" onClick="enviarEmail()" title="Reenviar Email" />
                             
                         <img src="../images/alterarC.gif"  type="button" onClick="retramitarDocumento()" title="Retramitar" />
                           <input type="hidden" id="idTram" name="idTram" value="<%=rs("id_tramite")%>" />
                           <input type="hidden" id="PessoaRem" name="PessoaRem" value="<%=rs("id_pessoa_remetente")%>" />
                           <input type="hidden" id="UserId" name="UserId" value="<%=userId%>" />
                         </td>
                        <%else %>                        
                <td>
                <% if not rsRecebimento.eof then %>
                <span title="Protocolado por <%=rsRecebimento("nm_pessoa")%>">
                <%=rs("dt_recebimento")%>
                   </span>
                <%end if %>
                </td>            
                <%end if %>        
                <%end if %>
                <%end if %>               
                        
                <td>
                <%=rs("ds_motivo")%>
                </td>
                </tr>
<%
rs.movenext
else
                 exit for                
                end if
        next
        else
%>
<br />
Este documento ainda não foi tramitado...<br>
<br />
<%
end if
%>
</table>
 <input type="button" value="<< Voltar" onClick="recuperarPaginaGet('../tramitacao/listarPesquisaTramite.asp?numero=<%=numero%>&nome=<%=nome%>&pagina=<%=session("paginaAtual")%>', 'resp');" name="BOTAOVOLTAR">
<input type="hidden" id="id" name="id" value="<%=rsdoc("id_documento")%>" />
<input type="hidden" value="<%=tipoTramite%>"    id="tipoTramite" name="tipoTramite"/>
<input type="hidden" value="<%=status%>"    id="status" name="status"/>
</form>



</body>
</html>


Viewing all articles
Browse latest Browse all 1214

Trending Articles