Publicado em 3 de mar.

ADODB.Field error '800a0bcd'

#asp classico

Galera,

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

O erro e o seguinte:

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")

%>

<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">

 <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>

 <script type="text/javascript" src="Js/scriptaculous.js"></script>
 <script type="text/javascript" src="Js/modalbox/modalbox.js"></script>

 <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)
%>

<%
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")

%>

<%
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>

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...