Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

michelsilvasz

ADODB.Field error '800a0bcd'

Por , em ASP Clássico

Recommended Posts

michelsilvasz    0

michelsilvasz
Postado

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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

O erro ocorre porque está tentando exibir um registro que de uma consulta que não retornou nada

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito