recordset vazio

[Fernando castillo 0]

AO EXECUTAR O CÓDIGO DA O SEGUINTE ERRO:

 

ADODB.Recordset erro '800a0cc1'

 

O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.

 

/Desenvolvimento/Cadastro/ProtPrincipal.asp, line 998

 

O código está baixo, me ajudem por favor!

 

-----------

<%@ language=VBScript%>
<%

If (Session("NUM_PROTOCOLO") = "" and Request.Form("ProtNumProtocolo") = "" and lsCommand <> "") or  Session("usuario") = "" or Session("unidade") = "" or Session("permissao") = "" then %>
<script language="JavaScript">
  window.parent.location = "../../default.asp?logoff=S";
</script>
<% Else

'Atualizado em 18/07/2005 - Hersio


Response.Expires = 0

Set Conexao = server.CreateObject("ADODB.Connection")
Conexao.CommandTimeout = 3000
Conexao.Open Session("Connection1_ConnectionString")



'PEGA DATA ATUAL

set rsData = Conexao.Execute("Select data = convert(char(10),getdate(),103)")
DataAtual = rsData("data")


If session("unidcorrelacao") = "09" Then
 vArquivo = "ProtSpu.asp?cmdCommand=Buscar"
Else
 vArquivo = "ProtInteressado.asp?status=1"
End If




function RecuperarDados()

'Dados Adicionais1
vProtNumDocumento              = Request.Form("ProtNumDocumento")
vTipoProcedencia               = Request.Form("tipoprocedencia")
vDscProcedencia                = Request.Form("dscprocedencia")
vClassificacao                 = Request.Form("classificacao")
vTempNumPrazoFaseCorrente      = Request.Form("FaseCorrente")
vTempNumPrazoFaseIntermediaria = Request.Form("FaseIntermediaria")
vTempIndDestinacaoFinal        = Request.Form("DestinacaoFinal")
vTempCodTemporalidade           = Request.Form("TempCodTemporalidade")




' vAtividade

if Trim(vTempIndDestinacaoFinal) = "0" then
   vTempDscDestinacaoFinal = "Não Tem"
elseif Trim(vTempIndDestinacaoFinal) = "1" then
   vTempDscDestinacaoFinal = "Guarda Permanente "
elseif Trim(vTempIndDestinacaoFinal) = "2" then
   vTempDscDestinacaoFinal = "Eliminação"
else 
   vTempDscDestinacaoFinal = vTempIndDestinacaoFinal
end if

 'Dados Principais
 if Session("NUM_PROTOCOLO") = "" then
   vProtCodBarra     = Request.Form("ProtCodBarra")
   vProtNumProtocolo = Request.Form("ProtNumProtocolo")
 else
   vProtCodBarra     = Session("COD_BARRA")
   vProtNumProtocolo = Session("NUM_PROTOCOLO")
 end if



 vProtIndTipoProtocolo = Request.Form("ProtIndTipoProtocolo")
 vProtNumProtocoloFormatado = Request.Form("ProtNumProtocoloFormatado")
 vProtDatDocumento = Request.Form("ProtDatDocumento") & " " & time()

 if Request.Form("ProtDatDocumento") = "00/00/0000" then 'xixi
vProtDatDocumento = "00/00/0000"
 end if
 '''''''''Hersio preenche combos

 if (Session("NUM_PROTOCOLO") = "") and (lsCommand = "Inicio") then
   vEsCoCodEspecie = -1
 else
   vEsDoCodEspecie = Request.Form("EsDoCodEspecie")
 end if

 'wellington ---------combo Anexo
  if (Session("NUM_PROTOCOLO") = "") and (lsCommand = "Inicio") then
   vAnexoSelecAnexo = -1
 else
   vAnexoSelecAnexo = Request.Form("AnexoSelecAnexo")
 end if
 'wellington---------fim


 vProcCodProcedencia = Request.Form("ProcCodProcedencia")

 if Request.Form("PaisSigPais") <> "-1" then
   vPaisSigPais = "'" & Request.Form("PaisSigPais") & "'"
 else
   vPaisSigPais = "Null"
 end if

 if Request.Form("UnFeSigUnidadeFederacao") <> "-1" then
   vUnFeSigUnidadeFederacao = "'" & Request.Form("UnFeSigUnidadeFederacao") & "'"
 else
   vUnFeSigUnidadeFederacao = "Null"
 end if

 if Request.Form("MuniCodMunicipio") <> "-1" then
   vMuniCodMunicipio = Request.Form("MuniCodMunicipio")
 else
   vMuniCodMunicipio = "Null"
 end if


 vProtHorRecebimento    = Left(Request.Form("ProtHorRecebimento"),2) + Right(Request.Form("ProtHorRecebimento"),2)
 vProtDatRecebimento    = Request.Form("ProtDatRecebimento") & " " & Request.Form("ProtHorRecebimento")
 vProtDscAssunto        = Request.Form("ProtDscAssunto")
 vProtDscComplemento    = Request.Form("ProtDscComplemento")




 if Request.Form("TempIndAtividade") <> "" then
   vProtIndTipoAtividade = Request.Form("TempIndAtividade")
 else
   vProtIndTipoAtividade = "''"
 end if




'set rsCodigoBarra = Conexao.Execute("SELECT ProtNumProtocolo FROM ProtocoloCodigoBarra WHERE ProtNumProtocolo = "&Session("NUM_PROTOCOLO") )
'if rsCodigoBarra.eof then
'	response.write("erro.asp")
'set rsParametro = Conexao.Execute("SELECT ParaNumEtiqueta FROM Parametro WHERE UnidCodUnidade = "&Session("codigoTopo"))
'if not rsParametro.eof then
'		Conexao.Execute("UPDATE Parametro SET ParaNumEtiqueta = " & rsParametro("ParaNumEtiqueta")+1&" WHERE UnidCodUnidade=" & Session("codigoTopo"))

'end if
'end if
end function

dim Conexao, rsLista, sSQL,sSQLAuxUpdate,sSQLAuxInsert, Mensagem, iNivel, iPais, vControle, i, vProtDatAbertura, vProtNumDocumento,_

vEsDoCodEspecie, vProtDatDocumento, vProcCodProcedencia, vPaisSigPais, vUnFeSigUnidadeFederacao,_
   vMuniCodMunicipio, vProtDatRecebimento, vProtHorRecebimento, vProtDscAssunto, vProtDscComplemento,_
   vTempCodTemporalidade, vTipoProcedencia, vDscProcedencia, rsTemp, SQLTemp, vAcao,_
   vProtIndTipoProtocolo, vProtCodBarra, vProtNumProtocolo, vProtNumProtocoloFormatado, vProtIndTipoAtividade,_
   vClassificacao, vTempNumPrazoFaseCorrente, vTempNumPrazoFaseIntermediaria, vTempIndDestinacaoFinal,_
   vTempDscDestinacaoFinal, vOk, vProtSelecionado_ ,rsListaAnexo,vAnexoSelecAnexo,vAnexoQuantAnexo,vAnexoDescAnexo,vAtividade, rsParametro,rsCodigoBarra



vSubmit = "S"
vAcao = False
vConsulta = True
vPermissaoForm = "Total"
vPermissaoFormAlteracao = "Total"

if Mensagem = "" then
Mensagem = Request.QueryString("mensagem")

if len(Trim(Request.Form("cmdCommand"))) > 0 then
 lsCommand = Request.Form("cmdCommand")
 lsComandoAnterior = Request.Form("ComandoAnterior")
else
 lsCommand = ""
 lsComandoAnterior = ""
end if

if (Request.QueryString("status") = 2) and (Session("NUM_PROTOCOLO") <> "") then
 lsCommand = "Pesquisar"
elseif (Request.QueryString("status") = 2) and (Session("NUM_PROTOCOLO") = "") then
 lsCommand = "Novo"
end if

if Session("PERMISSAO") <= 3 then
 vExcluir = "Esconde"
end if
if lsCommand = "" then
 if Request.QueryString("status") = 1 then
   Session("COD_BARRA")     = ""
   Session("NUM_PROTOCOLO") = ""
   Session("NUM_PROTOCOLO_FORMATADO") = ""
   lsCommand = "Novo"
   lsComandoAnterior = "Novo"
   Response.Redirect "ProtPrincipal.asp?status=2"
   Response.End 

 elseif Request.QueryString("status") = 0 then
   lsCommand = "Inicio"
   lsComandoAnterior = "Inicio"
   Response.Redirect "ProtPrincipal.asp?status=2"
   Response.End 

 end if
end if

if lsCommand = "Novo" then
 Session("COD_BARRA")               = ""
 Session("NUM_PROTOCOLO")           = ""
 Session("NUM_PROTOCOLO_FORMATADO") = ""
 Session("NUM_DOCUMENTO")           = ""
 Session("TIPO_PROTOCOLO")          = ""
 vProtDatAbertura  = DataAtual 'FMT_DT(date())
 vProtDatDocumento   = DataAtual
 vProtDatRecebimento = DataAtual
 vProtHorRecebimento = FMT_HR(time())
 vPaisSigPais = "'" & "BRA" & "'"
 vAcao = True
 vExcluir = "Esconde"
 VPermissaoForm = "Total"

 vVerificaEx = "S"

elseif lsCommand = "Inicio" then
 vGravar = "Esconde"
 if Session("NUM_PROTOCOLO") = "" then
   Session("COD_BARRA")               = Request.Form("ProtCodBarra")
   Session("NUM_PROTOCOLO")           = Request.Form("ProtNumProtocolo")
   if Request.Form("ProtNumProtocolo") = "" then
     vExcluir = "Esconde"
   end if
   Session("NUM_PROTOCOLO_FORMATADO") = Request.Form("ProtNumProtocoloFormatado")
   Session("NUM_DOCUMENTO")           = Request.Form("ProtNumDocumento")
   Session("TIPO_PROTOCOLO")          = Request.Form("ProtIndTipoProtocolo")


'Coletando os Dados
   if Session("NUM_PROTOCOLO") <> "" then
     vEsDoCodEspecie = Request.Form("EsDoCodEspecie")
   else
     vEsDoCodEspecie = "-1"
   end if

'wellington--------------combo anexo
 if Session("NUM_PROTOCOLO") <> "" then
    vAnexoSelecAnexo = Request.Form("AnexoSelecAnexo")
   else
     vAnexoSelecAnexo = "-1"
   end if
'wellington fim

   vProtDatAbertura    = DataAtual
   vProtDatDocumento   = DataAtual
   vProtDatRecebimento = DataAtual
   vProtHorRecebimento = FMT_HR(time())

   vProtIndTipoProtocolo              = Request.Form("ProtIndTipoProtocolo")
   vProcCodProcedencia                = Request.Form("ProcCodProcedencia")

   if Request.Form("PaisSigPais") <> "-1" then
     vPaisSigPais = "'" & Request.Form("PaisSigPais") & "'"
   else
     vPaisSigPais = "Null"
   end if

   if Request.Form("UnFeSigUnidadeFederacao") <> "-1" then
     vUnFeSigUnidadeFederacao = "'" & Request.Form("UnFeSigUnidadeFederacao") & "'"
   else
     vUnFeSigUnidadeFederacao = "Null"
   end if

   if Request.Form("MuniCodMunicipio") <> "-1" then
     vMuniCodMunicipio = Request.Form("MuniCodMunicipio")
   else
     vMuniCodMunicipio = "Null"
   end if



vProtDscAssunto                    = Request.Form("ProtDscAssunto")
   vProtDscComplemento                = Request.Form("ProtDscComplemento")
   vProtIndTipoAtividade              = Request.Form("TempIndAtividade")
   vTempCodTemporalidade              = Request.Form("TempCodTemporalidade")




   'vProtSelecionado                   = Request.Form("AcompanhamentoGM")
   'vProtCodRip                        = Request.Form("ProtCodRip")

   'Dados Adicionais

vProtNumDocumento                  = Request.Form("ProtNumDocumento")
   vTipoProcedencia                   = Request.Form("tipoprocedencia")
   vDscProcedencia                    = Request.Form("dscprocedencia")
   vClassificacao                     = Request.Form("classificacao")
   vTempNumPrazoFaseCorrente          = Request.Form("FaseCorrente")
   vTempNumPrazoFaseIntermediaria     = Request.Form("FaseIntermediaria")
   vTempIndDestinacaoFinal            = Request.Form("DestinacaoFinal")

vTempCodTemporalidade              = Request.Form("TempCodTemporalidade")

'hersio




   if vTempIndDestinacaoFinal = "0" then
     vTempDscDestinacaoFinal = "Não Tem"
   elseif vTempIndDestinacaoFinal = "1" then
     vTempDscDestinacaoFinal = "Guarda Permanente"
   elseif vTempIndDestinacaoFinal = "2" then
     vTempDscDestinacaoFinal = "Eliminação"
   else 
     vTempDscDestinacaoFinal = vTempIndDestinacaoFinal
   end if
 else
   sSQL = "SELECT * FROM Protocolo " &_
          "WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' " &_
          "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO")



  set rsLista = Server.CreateObject("ADODB.RecordSet")
   rsLista.Open sSQL, Conexao, 1, 3

   if rsLista.EOF then
     Session("COD_BARRA")     = ""
     Session("NUM_PROTOCOLO") = ""
     Response.Redirect("ProtPrincipal.asp")
     Response.End 
   end if


'Coletando os Dados
   if Session("NUM_PROTOCOLO") <> "" then
     vEsDoCodEspecie = rsLista("EsDoCodEspecie")
   else
     vEsDoCodEspecie = "-1"
   end if

'wellington  combo Anexo
 if Session("NUM_PROTOCOLO") <> "" then
     vAnexoSelecAnexo = rsLista("AnexoSelecAnexo")
   else
     vAnexoSelecAnexo = "-1"
   end if

'wellington   -------fim

   Session("NUM_DOCUMENTO")  = rsLista("ProtNumDocumento")
   Session("TIPO_PROTOCOLO") = rsLista("ProtIndTipoProtocolo")
   vProtIndTipoProtocolo     = rsLista("ProtIndTipoProtocolo")
   if rsLista("ProtDatAbertura") <> "" then
     vProtDatAbertura        = FMT_DT(rsLista("ProtDatAbertura"))
   else
     vProtDatAbertura        = DataAtual
   end if

   if rsLista("ProtDatDocumento") <> "" then
	if isNull(rsLista("ProtDatDocumento")) or rsLista("ProtDatDocumento") = null  then 'xixi null
		vProtDatDocumento = "00/00/0000"
	else
		vProtDatDocumento = FMT_DT(rsLista("ProtDatDocumento"))
	end if
   else
     vProtDatDocumento       = DataAtual
   end if


'combo well
vProcCodProcedencia       = rsLista("ProcCodProcedencia")
   vPaisSigPais              = rsLista("PaisSigPais")
   vUnFeSigUnidadeFederacao  = rsLista("UnFeSigUnidadeFederacao")
   vMuniCodMunicipio         = rsLista("MuniCodMunicipio")

'Preenche as Variáveis com os Valores dos Campos

vAnexoSelecAnexo                   = Request.Form("AnexoSelecAnexo")
vAnexoQuantAnexo                   = Request.Form("AnexoQuantAnexo") 
vAnexoDescAnexo                    = Request.Form("AnexoDescAnexo") 



if rsLista("ProtDatRecebimento") <> "" then
     vProtDatRecebimento     = FMT_DT(rsLista("ProtDatRecebimento"))
   else
     vProtDatRecebimento     = DataAtual
   end if
   if rsLista("ProtHorRecebimento") <> "" then
     vProtHorRecebimento     = Left(rsLista("ProtHorRecebimento"),2) & ":" & Right(rsLista("ProtHorRecebimento"),2)
   else
     vProtHorRecebimento     = FMT_HR(time())
   end if

   vProtDscAssunto           = rsLista("ProtDscAssunto")
   vProtDscComplemento       = rsLista("ProtDscComplemento")

   'Dados Adicionais
   vProtNumDocumento         = rsLista("ProtNumDocumento")

   SQLTemp = "SELECT ProcIndTipoProcedencia, ProcDscProcedencia FROM Procedencia WHERE ProcCodProcedencia = " & vProcCodProcedencia

set rsTemp = Conexao.Execute(SQLTemp)

vTipoProcedencia          = rsTemp("ProcIndTipoProcedencia")
   vDscProcedencia           = rsTemp("ProcDscProcedencia")





if "["&vTempCodTemporalidade&"]" <> "[]" then
     SQLTemp = "SELECT CT.ClteDscClasseTemporalidade, T.* " &_
               "FROM   ClasseTemporalidade CT (nolock), Temporalidade T (nolock)" &_
               "WHERE  CT.ClteCodClasseTemporalidade = T.ClteCodClasseTemporalidade " &_
               "AND    T.TempCodTemporalidade = " & vTempCodTemporalidade
     set rsTemp = Conexao.Execute(SQLTemp)



     vProtIndTipoAtividade          = rsTemp("TempInd ")
     vClassificacao                 = Trim(rsTemp("TempNumTemporalidade")) &" - "& Trim(rsTemp("ClteDscClasseTemporalidade"))
     vTempNumPrazoFaseCorrente      = rsTemp("TempNumPrazoFaseCorrente")
     vTempNumPrazoFaseIntermediaria = rsTemp("TempNumPrazoFaseIntermediaria")
     vTempIndDestinacaoFinal        = rsTemp("TempIndDestinacaoFinal")
     if vTempIndDestinacaoFinal = "0" then
       vTempDscDestinacaoFinal = "Não Tem"
     elseif vTempIndDestinacaoFinal = "1" then
       vTempDscDestinacaoFinal = "Guarda Permanente"
     elseif vTempIndDestinacaoFinal = "2" then
       vTempDscDestinacaoFinal = "Eliminação"
     else 
       vTempDscDestinacaoFinal = vTempIndDestinacaoFinal
     end if
   end if
 end if
end if

'Hersio

sSQL = "SELECT TiCoCodTipoControle FROM UnidadeTipoControle (nolock) WHERE UnidCodUnidade = '" & Session("UNIDADE") & "'"
set rsLista = Conexao.Execute(sSQL)
vControle = rsLista("TiCoCodTipoControle")
rsLista.Close

select case lsCommand

 case "Gravar"

if lsComandoAnterior = "Gravar" then
     lsComandoAnterior = "Novo"


   end if

   RecuperarDados

'wellington
vAnexoQuantAnexo                   = Request.Form("AnexoQuantAnexo") 
vAnexoDescAnexo                    = Request.Form("AnexoDescAnexo") 


' Verificar se o Protocolo já existe
   if ((lsComandoAnterior = "Novo") or (lsComandAnterior = "Inicio")) and (Mensagem = "") then
     if Request.Form("ProtNumProtocolo") <> "" then
       SQLTemp = "SELECT protcodprotocolo, protnumprotocolo, protindtipoprotocolo FROM Protocolo (nolock) " &_
                 "WHERE  ProtNumProtocolo = '" & Request.Form("ProtNumProtocolo") & "' "
       set rsTemp = Conexao.Execute(SQLTemp)
       if not rsTemp.EOF then
         Mensagem = "Protocolo " & Request.Form("ProtNumProtocoloFormatado") & " já existe."
         vExcluir = "Esconde"
         lsCommand = "Novo"
         vVerificaEx = "S"
       end if
     end if
   end if



   if Mensagem = "" then
     SQLTemp = "SELECT ProcIndEspecieProcedencia FROM Procedencia (nolock) WHERE ProcDscProcedencia = '" & vDscProcedencia & "'"
     set rsTemp = Conexao.Execute(SQLTemp)
       if not rsTemp.EOF then
         if rsTemp("ProcIndEspecieProcedencia") = "2" then
           vEspecie = "3"
         elseif rsTemp("ProcIndEspecieProcedencia") = "0" then
           vEspecie = "1"
         else
           vEspecie = rsTemp("ProcIndEspecieProcedencia")
         end if
       else
         vEspecie = "1"
       end if


      'Procedência
      'Procurar Pessoa Física em Procedência
      SQLTemp = "SELECT ProcCodProcedencia, ProcIndTipoProcedencia, ProcIndEspecieProcedencia FROM Procedencia (nolock) WHERE ProcDscProcedencia = '" & vDscProcedencia & "'"
      set rsTemp = Conexao.Execute(SQLTemp)
      'Pessoa Física Encontrada
      if not rsTemp.EOF then
        vProcCodProcedencia = rsTemp("ProcCodProcedencia")
        'Atualiza Status da Procedência
        sSQL = "UPDATE Procedencia " &_
               "SET    ProcIndEspecieProcedencia = " & vEspecie & " " &_
               "WHERE  ProcCodProcedencia = " & vProcCodProcedencia
        set rsLista = Conexao.Execute(sSQL)
      elseif vTipoProcedencia = "1" and rsTemp.EOF then
        'Procedência não encontrada
        'Adicionando Pessoa Física em Procedência
        sSQL = "INSERT INTO Procedencia " &_
               "(ProcIndTipoProcedencia, UsuaCodUsuario, ProcDscProcedencia, " &_
               " ProcCodValidacao, ProcCodUsuarioAtualizacao, ProcDatAtualizacao, ProcNumCPF, ProcIndEspecieProcedencia) " &_
               "VALUES (1," & Session("USUARIO") & ", Upper('" & vDscProcedencia & "')," &_
               "2,Null,Convert(datetime, getDate(), 103),Null, 1)"
        set rsLista = Conexao.Execute(sSQL)
        SQLTemp = "SELECT * FROM Procedencia WHERE ProcDscProcedencia = '" & vDscProcedencia & "'"
        set rsTemp = Conexao.Execute(SQLTemp)
        vProcCodProcedencia = rsTemp("ProcCodProcedencia")
        'Atualiza Campo Fonético
        SQLFon = "UpdProcedenciaFonema "&rsTemp("ProcCodProcedencia")
        Set rsFon = Conexao.Execute(SQLFon)
      end if

      'Ver se Este Número de Protocolo já Existe no Banco
      sSQL = "SELECT protcodprotocolo, protnumprotocolo, protindtipoprotocolo  FROM Protocolo (nolock) " &_
             "WHERE  ProtNumProtocolo = '" & vProtNumProtocolo & "' "
      set rsLista = Conexao.Execute(sSQL)

      'Protocolo Encontrado - Atualizar Dados

   'aqui update principal
   'response.write("teste ="&rsLista("ProtDatDocumento"))

   if(vProtDatDocumento = "00/00/0000") then  'xixi
		sSQLAuxUpdate = "ProtDatDocumento = NULL,"
    else
		sSQLAuxUpdate = "ProtDatDocumento = convert(datetime,'" & vProtDatDocumento & "',103), "
    end if

   if not rsLista.EOF then
        if lsComandoAnterior = "Pesquisar" then
          sSQL = "UPDATE Protocolo " &_
                 "SET    ProtIndTipoProtocolo      = " & vProtIndTipoProtocolo & ", " &_
                 "       ProtNumDocumento          = '" & vProtNumDocumento & "', " &_
                 "       EsDoCodEspecie            = " & vEsDoCodEspecie & ", " &_
			  "       ProcCodProcedencia        = " & vProcCodProcedencia & ", " &_
                 "       PaisSigPais               = " & vPaisSigPais & ", " &_
                 "       UnFeSigUnidadeFederacao   = " & vUnFeSigUnidadeFederacao & ", " &_
                 "       MuniCodMunicipio          = " & vMuniCodMunicipio & ", " &_
                 "       ProtHorRecebimento        = '" & vProtHorRecebimento & "', " &_
                 "       ProtDscAssunto            = '" & vProtDscAssunto & "', " &_
                 "       ProtDscComplemento        = '" & vProtDscComplemento & "', " &_
                 "       ProtIndTipoAtividade      = " & vProtIndTipoAtividade & ", " &_
                 "       ProtDatAtualizacao        = getdate(), " &_
                 "       ProtCodUsuarioAtualizacao = " & Session("usuario") & ", " &_
			  "       TempCodTemporalidade      = " & vTempCodTemporalidade & " " &_
                 "WHERE  ProtNumProtocolo          = '" & vProtNumProtocolo & "' " &_
                 "AND    ProtIndTipoProtocolo      = " & vProtIndTipoProtocolo

	 set rsLista = Conexao.Execute(sSQL)



	'ANEXO
	if(vAnexoSelecAnexo <>"" and vAnexoQuantAnexo<>"" and vAnexoDescAnexo<>"") then

	SSQL =  " UPDATE CADASTROANEXO " &_
			" SET  CadAnexCodAnexo		= " &  vAnexoSelecAnexo  & ", "&_
			" 	   CadAnexQuantidade	= " & vAnexoQuantAnexo & ", " &_
			" 	   CadAnexDescricao 	= '" & vAnexoDescAnexo & "' " &_
			" WHERE ProtNumProtocolo	= " & vProtNumProtocolo
	'response.write(sSQL)
	set rstemp = Conexao.Execute(sSQL)

	end if 

          'Hersio

          Mensagem = "Protocolo atualizado com sucesso !!!"
          vOk = True

	   vExcluir = "Esconde"
          SQLTemp = "SELECT Protocolo.UsuaCodUsuario, Unidade.UnidCodCorrelacao FROM Protocolo (nolock), Usuario (nolock), Unidade (nolock) " &_
                    "WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' " &_
                    "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO") &_
                    "AND    Protocolo.UsuaCodUsuario = Usuario.UsuaCodUsuario "&_
                    "AND    Usuario.UnidCodUnidade = Unidade.UnidCodUnidade "

          set rsTemp = Conexao.Execute(SQLTemp)


'==================================================
' IDENTIFICA QUEM PODERÁ EXCLUIR PROTOCOLOS
          sqlAcMod = "SELECT AcMoCodTipoAcesso FROM AcessoModulo (nolock) " &_
                     "WHERE  UsuaCodUsuario = " & Session("USUARIO") & " " &_
                     "AND    ModuCodModulo = 2"
          set rsAcMod = Conexao.Execute(sqlAcMod)

          sqlTrCount = "SELECT total, TramDatRecebimentoTramite as DatReceb FROM tramitemax " &_
                       "WHERE  ProtCodProtocolo = " & SESSION("COD_PROTOCOLO") & " " &_
                       "AND    TramNumCopia = 0"
          set rsTrCount = Conexao.Execute(sqlTrCount)


          if rsTrCount.eof then
            vTotal    = 0
            vDatReceb = ""
          else
            vTotal    = rsTrCount("total")
            vDatReceb = rsTrCount("DatReceb")
          End If

       '==================================================
       'PERMISSÕES DE EXCLUSÃO E ALTERAÇÃO DE PROTOCOLOS
       '==================================================
          'PERMISSÃO PARA USUÁRIO DA MESMA UNIDADE, ONDE EXISTE MENOS DE UM TRAMITE, NÃO RECEBIDO OU PERMISSÃO DE EXCLUSÃO
          '================================================================================================================       
          if ( ( (left(rsTemp("UnidCodCorrelacao"),Session("tamanho")) = Session("CodCorrelacao")) and (rsTemp("UsuaCodUsuario") = Session("USUARIO")) ) or (Session("Permissao") > 3) ) then
            vPermissaoForm = "Total"
            vPermissaoFormAlteracao = "Total"
          'PERMISSÃO PARA USUÁRIO DA MESMA UNIDADE E PARA BAIXO, QUE NÃO SEJA O USUARIO QUE CADASTROU
          '==========================================================================================
          elseif ((left(rsTemp("UnidCodCorrelacao"),Session("tamanho")) = Session("CodCorrelacao")) and (rsTemp("UsuaCodUsuario") <> Session("USUARIO"))) then
            vPermissaoFormAlteracao = "Total"
            vPermissaoForm = "Negado"
          else
            vPermissaoFormAlteracao = "Negado"
            vPermissaoForm = "Negado"
          end if

          'PERMISSÃO PARA EXCLUSÃO DE PROTOCOLO
          '==================================================
          if ( (left(rsTemp("UnidCodCorrelacao"),Session("tamanho")) = Session("CodCorrelacao")) and (vTotal < 2) and ("["&vDatReceb&"]" = "[]") ) or (Session("UsuaIndExclusaoProtocolo") = 1) then
            vExcluir = ""
          else
            vExcluir = "Esconde"
          end if        
       '==================================================

          lsCommand = "Pesquisar"
        end if

        'Protocolo Não Encontrado - Incluir Dados
      else
        if lsComandoAnterior = "Novo" then


'		aqui insert principal

	if(vProtDatDocumento = "00/00/0000") then  'xixi
		sSQLAuxInsert = " NULL,"
    else
		sSQLAuxInsert = "convert(datetime,'" & vProtDatDocumento & "',103), "
    end if

	 sSQL = "INSERT INTO Protocolo " &_
               "       (ProtIndTipoProtocolo,ProtNumProtocolo,ProtDatAbertura,ProtNumDocumento,EsDoCodEspecie," &_
               "        ProtDatDocumento,ProcCodProcedencia,PaisSigPais,UnFeSigUnidadeFederacao,MuniCodMunicipio," &_
               "        ProtDatRecebimento,ProtHorRecebimento,ProtDscAssunto,ProtDscComplemento,ProtIndTipoAtividade," &_
               "        UsuaCodUsuario,ProtQtdCopia,TempCodTemporalidade) " &_
               "VALUES (" & vProtIndTipoProtocolo & ",'" & Request.Form("ProtNumProtocolo") & "', getDate(), " &_
               "        '" & vProtNumDocumento & "'," & vEsDoCodEspecie & ", " & sSQLAuxInsert &_  
               "        " & vProcCodProcedencia & "," & vPaisSigPais & "," & vUnFeSigUnidadeFederacao & "," &_
               "        " & vMuniCodMunicipio & ", convert(datetime,'" & vProtDatRecebimento & "',103), " &_
               "        '" & vProtHorRecebimento & "', '" & vProtDscAssunto & "', '" & vProtDscComplemento & "'," &_
               "        " & vProtIndTipoAtividade & " , "  & Session("USUARIO") & ",0,'" & vTempCodTemporalidade & "')"










       set rsLista = Conexao.Execute(sSQL)


       'Gravação de dados

    'consulta protocolo meio



	'Modificação para cadastrar anexo somento quando o usuário selecionar um anexo - Raphael 22/06/2006

if vAnexoSelecAnexo <> "" Then


	SSQL=""




	 SSQL=" INSERT INTO CADASTROANEXO " &_
	 " (ProtNumProtocolo,CadAnexCodAnexo,CadAnexQuantidade,CadAnexDescricao ) " &_
	 " values(" & vProtNumProtocolo & "," & vAnexoSelecAnexo & ",'" & vAnexoQuantAnexo & "','" & vAnexoDescAnexo & "')"





	set rsLista = Conexao.Execute(sSQL)
        end if


       'Gravação de dados


	 'Pega o código de barras

        sSQL = "SELECT ProtCodBarra FROM Protocolo (nolock) WHERE ProtNumProtocolo = "&vProtNumProtocolo&" and ProtIndTipoProtocolo = "&vProtIndTipoProtocolo
        set rsBarra = Conexao.Execute(sSQL)

        Mensagem = "Protocolo adicionado com sucesso !!!"
        vGravar = "Esconde"
        Session("COD_BARRA")      = rsBarra("ProtCodBarra")
        Session("NUM_PROTOCOLO")  = vProtNumProtocolo
        Session("TIPO_PROTOCOLO") = vProtIndTipoProtocolo
        Session("NUM_PROTOCOLO_FORMATADO") = vProtNumProtocoloFormatado
        end if
      end if
   end if
   vAcao = True

 case "Pesquisar"



vVerificaEx = "N"


if Request.QueryString("status") <> "2" then
     vProtCodBarra     = Request.Form("ProtCodBarra")
     vProtNumProtocolo = Request.Form("ProtNumProtocolo")
     vProtNumProtocoloFormatado = Request.Form("ProtNumProtocoloFormatado")
     vProtIndTipoProtocolo = Request.Form("ProtIndTipoProtocolo")
else
     vProtCodBarra     = Session("COD_BARRA")
     vProtNumProtocolo = Session("NUM_PROTOCOLO")
     vProtNumProtocoloFormatado = Session("NUM_PROTOCOLO_FORMATADO")
     vProtIndTipoProtocolo = Session("TIPO_PROTOCOLO")
end if


'AQUI CONSULTA PRINCIPAL - HERSIO

if (vProtNumProtocolo <> "") and (vProtIndTipoProtocolo <> "") then



SSQL=" SELECT " &_

"	Protocolo.ProtNumProtocolo, Protocolo.ProtCodProtocolo, Protocolo.ProtIndTipoProtocolo, " &_
"	Protocolo.ProtCodBarra, Protocolo.ProcCodProcedencia, " &_
"   Protocolo.UsuaCodUsuario, Unidade.UnidCodCorrelacao, Protocolo.PaisSigPais, " &_
"	Protocolo.UnFeSigUnidadeFederacao, Protocolo.MuniCodMunicipio, " &_
"   Protocolo.EsDoCodEspecie, CONVERT(char(10), Protocolo.ProtDatAbertura, 103) AS ProtDatAbertura, " &_
"	Protocolo.ProtNumDocumento, CONVERT(char(10), Protocolo.ProtDatDocumento, 103) AS ProtDatDocumento, Protocolo.ProtDscAssunto, " &_
"	Protocolo.ProtDscComplemento, CONVERT(char(10), " &_
"   Protocolo.ProtDatRecebimento, 103) AS ProtDatRecebimento, Protocolo.ProtHorRecebimento," &_
"	Protocolo.ProtIndTipoAtividade, Protocolo.ProtQtdCopia, " &_
"   Protocolo.ProtQtdVolume, Protocolo.ProtQtdPagina, Protocolo.ProtDatUltimoTramite, " &_
"	Protocolo.ProtIndTipoProtocoloAnexado, " &_
"   Protocolo.ProtNumProtocoloAnexado, Protocolo.ProtDatAnexado, Protocolo.ProtNumProtocoloJuntada, " &_
"	Protocolo.ProtDatJuntada, " &_
"   Protocolo.ProtIndStatusJuntada, Protocolo.ProtDatArquivamento, " &_
"	Protocolo.ProtDatAtualizacao, Protocolo.ProtCodUsuarioAtualizacao, " &_
"   CadastroAnexo.CadAnexCodAnexo, CadastroAnexo.CadAnexQuantidade, CadastroAnexo.CadAnexDescricao," &_
"	Anexo.AnexDescAnexo,Protocolo.TempCodTemporalidade " &_




  " FROM      Protocolo INNER JOIN Usuario ON Protocolo.UsuaCodUsuario = Usuario.UsuaCodUsuario "&_
  " INNER JOIN Unidade ON Usuario.UnidCodUnidade = Unidade.UnidCodUnidade "&_

  " LEFT OUTER JOIN CadastroAnexo ON Protocolo.ProtNumProtocolo = CadastroAnexo.ProtNumProtocolo "&_
  " LEFT OUTER JOIN Anexo ON CadastroAnexo.CadAnexCodAnexo = Anexo.AnexCodAnexo " &_


		 " WHERE  Protocolo.ProtNumProtocolo = '" & vProtNumProtocolo & "' " &_
            " AND    ProtIndTipoProtocolo = " & vProtIndTipoProtocolo




'Response.write SSQL
'RESPONSE.END

'segunda

    'consulta protocolo meio



     set rsLista = Server.CreateObject("ADODB.RecordSet")
     rsLista.Open sSQL, Conexao, 1, 3

     if not rsLista.EOF then


	vTempCodTemporalidade= rsLista("TempCodTemporalidade")

'		response.write vTempCodTemporalidade
'		response.end


	'Pega o código de Barras
       vProtCodBarra     = rsLista("ProtCodBarra")


	'==================================================
       ' IDENTIFICA QUEM PODERÁ EXCLUIR PROTOCOLOS
       sqlAcMod = "SELECT AcMoCodTipoAcesso FROM AcessoModulo (nolock) " &_
                 "WHERE  UsuaCodUsuario = " & Session("USUARIO") & " " &_
                 "AND    ModuCodModulo = 2"
       set rsAcMod = Conexao.Execute(sqlAcMod)

       sqlTrCount = "SELECT total, TramDatRecebimentoTramite as DatReceb FROM tramitemax " &_
                    "WHERE  ProtCodProtocolo = " & rsLista("ProtCodProtocolo") & " " &_
                    "AND    TramNumCopia = 0"
       set rsTrCount = Conexao.Execute(sqlTrCount)

      if rsTrCount.eof then
         vTotal    = 0
         vDatReceb = ""
      else
         vTotal    = rsTrCount("total")
         vDatReceb = rsTrCount("DatReceb")
      End If


       '==================================================
       'PERMISSÕES DE EXCLUSÃO E ALTERAÇÃO DE PROTOCOLOS
       '==================================================
          'PERMISSÃO PARA USUÁRIO DA MESMA UNIDADE, ONDE EXISTE MENOS DE UM TRAMITE, NÃO RECEBIDO OU PERMISSÃO DE EXCLUSÃO 
          if ( ( (left(rsLista("UnidCodCorrelacao"),Session("tamanho")) = Session("CodCorrelacao")) and (rsLista("UsuaCodUsuario") = Session("USUARIO")) ) or (Session("Permissao") > 3) ) then
            vPermissaoForm = "Total"
            vPermissaoFormAlteracao = "Total"
          'PERMISSÃO PARA USUÁRIO DA MESMA UNIDADE E PARA BAIXO, QUE NÃO SEJA O USUARIO QUE CADASTROU
          elseif ((left(rsLista("UnidCodCorrelacao"),Session("tamanho")) = Session("CodCorrelacao")) and (rsLista("UsuaCodUsuario") <> Session("USUARIO"))) then
            vPermissaoFormAlteracao = "Total"
            vPermissaoForm = "Negado"
          else
            vPermissaoFormAlteracao = "Negado"
            vPermissaoForm = "Negado"
          end if

          'PERMISSÃO PARA EXCLUSÃO DE PROTOCOLO
          if ( (CStr(AchaTopo(rsLista("UnidCodCorrelacao"),0)) = CStr(AchaTopo(Session("CDCorrelacao"),0)) ) and (vTotal < 2) and ("["&vDatReceb&"]" = "[]") ) or (Session("UsuaIndExclusaoProtocolo") = 1) then
            vExcluir = ""
          else
            vExcluir = "Esconde"
          end if        
       '==================================================

       Session("COD_BARRA")     = vProtCodBarra
       Session("NUM_PROTOCOLO") = vProtNumProtocolo
       Session("NUM_PROTOCOLO_FORMATADO") = vProtNumProtocoloFormatado
       Session("TIPO_PROTOCOLO") = vProtIndTipoProtocolo
    	SQLTemp = "SELECT TramDatRecebimentoTramite FROM Tramite (nolock) " &_
                 "WHERE  ProtNumProtocolo = '" & vProtNumProtocolo & "' " &_
                 "AND    ProtIndTipoProtocolo = " & vProtIndTipoProtocolo & " " &_
                 "AND    TramDatTramite = (SELECT ProtDatUltimoTramite FROM Protocolo " &_
                 "                         WHERE  ProtNumProtocolo = '" & vProtNumProtocolo & "' " &_
                 "                         AND    ProtIndTipoProtocolo = " & vProtIndTipoProtocolo & ")"
       set rsTemp = Server.CreateObject("ADODB.RecordSet")
       rsTemp.Open SQLTemp, Conexao, 1, 3

       ' Protocolo em Trâmite (*)
       if not rsTemp.EOF then
         if (rsTemp("TramDatRecebimentoTramite") = "") then
           Mensagem = "Protocolo em Trâmite."
         end if
       end if
       rsTemp.Close
       set rsTemp = Nothing

       if ("["&rsLista("ProtNumProtocoloAnexado")&"]" <> "[]") then
         Session("COD_BARRA")     = ""
         Session("NUM_PROTOCOLO") = ""
         Response.Redirect("ProtPrincipal.asp?mensagem=Protocolo Anexado.&status=2")
         Response.End 
       elseif ("["&rsLista("ProtNumProtocoloJuntada")&"]" <> "[]" and rsLista("ProtIndStatusJuntada") <> "3") then
         Session("COD_BARRA")     = ""
         Session("NUM_PROTOCOLO") = ""
         Response.Redirect("ProtPrincipal.asp?mensagem=Protocolo Juntado.&status=2")
         Response.End 
       elseif ("["&rsLista("ProtDatArquivamento")&"]" <> "[]") then
         Session("COD_BARRA")     = ""
         Session("NUM_PROTOCOLO") = ""
         Response.Redirect("ProtPrincipal.asp?mensagem=Protocolo Arquivado.&status=2")
         Response.End 
       end if

       if Mensagem <> "" then
         Session("COD_BARRA")     = ""
         Session("NUM_PROTOCOLO") = ""
         Response.Redirect("ProtPrincipal.asp?mensagem=" & Mensagem)
         Response.End 
       end if


       ' OPERAÇÃO SEM LÓGICA (*)


	if rsLista.EOF then
         Session("COD_BARRA")     = ""
         Session("NUM_PROTOCOLO") = ""
         Response.Redirect("ProtPrincipal.asp")
         Response.End 
       end if


       'Coletando os Dados
       if Session("NUM_PROTOCOLO") <> "" then
         vEsDoCodEspecie = rsLista("EsDoCodEspecie")
       else
         vEsDoCodEspecie = "-1"
       end if


	 if Session("NUM_PROTOCOLO") <> "" then
         vAnexoSelecAnexo = rsLista("CadAnexCodAnexo")
       else
         vAnexoSelecAnexo = "-1"
       end if

  'Aqui Preenche o tipo de atividade Hersio'''''''''''''''''''''''''''''''''''''''
     vProtIndTipoAtividade                = rsLista("ProtIndTipoAtividade")
  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''	

       Session("NUM_DOCUMENTO")  = rsLista("ProtNumDocumento")
       Session("TIPO_PROTOCOLO") = rsLista("ProtIndTipoProtocolo")
       vProtIndTipoProtocolo     = rsLista("ProtIndTipoProtocolo")
       if rsLista("ProtDatAbertura") <> "" then
         vProtDatAbertura        = rsLista("ProtDatAbertura")
       else
         vProtDatAbertura = DataAtual
       end if



	if rsLista("ProtDatDocumento") <> "" then
		'xixi null2
		if isNull(rsLista("ProtDatDocumento"))or  rsLista("ProtDatDocumento") = "NULL" then
			vProtDatDocumento = "00/00/0000" 
		else
			vProtDatDocumento       = rsLista("ProtDatDocumento")
		end if
       else
         vProtDatDocumento = DataAtual 
       end if

	'if isNull(rsLista("ProtDatDocumento")) or  rsLista("ProtDatDocumento") = "NULL" then
	'		vProtDatDocumento = "00/00/0000" 
	'end if

       vProcCodProcedencia       = rsLista("ProcCodProcedencia")
       vPaisSigPais              = rsLista("PaisSigPais")
       vUnFeSigUnidadeFederacao  = rsLista("UnFeSigUnidadeFederacao")
       vMuniCodMunicipio         = rsLista("MuniCodMunicipio")


	'Preenche as Variáveis com os Valores dos Campos


    vAnexoQuantAnexo                   = Request.Form("AnexoQuantAnexo") 
    vAnexoDescAnexo                    = Request.Form("AnexoDescAnexo") 


       if rsLista("ProtDatRecebimento") <> "" then
         vProtDatRecebimento     = rsLista("ProtDatRecebimento")
       else
         vProtDatRecebimento = DataAtual
       end if
       if rsLista("ProtHorRecebimento") <> "" then
         vProtHorRecebimento       = Left(rsLista("ProtHorRecebimento"),2) & ":" & Right(rsLista("ProtHorRecebimento"),2)
       else
         vProtHorRecebimento = FMT_HR(time())
       end if

       vProtDscAssunto           = rsLista("ProtDscAssunto")
       vProtDscComplemento       = rsLista("ProtDscComplemento")

       'dados do Anexo

	vAnexoQuantAnexo           = rsLista("CadAnexQuantidade")
	vAnexoDescAnexo            = rsLista("CadAnexDescricao") 


	'Dados Adicionais


       vProtNumDocumento         = rsLista("ProtNumDocumento")
       SQLTemp = "SELECT ProcIndTipoProcedencia, ProcDscProcedencia FROM Procedencia (nolock) WHERE ProcCodProcedencia = " & vProcCodProcedencia
       set rsTemp = Conexao.Execute(SQLTemp)
       vTipoProcedencia          = rsTemp("ProcIndTipoProcedencia")
       vDscProcedencia           = rsTemp("ProcDscProcedencia")





       If "["&vTempCodTemporalidade&"]" <> "[]" then
         SQLTemp = "SELECT CT.ClteDscClasseTemporalidade, T.* " &_
                   "FROM   ClasseTemporalidade CT (nolock), Temporalidade T (nolock) " &_
                   "WHERE  CT.ClteCodClasseTemporalidade = T.ClteCodClasseTemporalidade " &_
                   "AND    T.TempCodTemporalidade = '" & vTempCodTemporalidade & "'"





	set rsTemp = Conexao.Execute(SQLTemp)

         if not rsTemp.EOF then
           vProtIndTipoAtividade          = rsTemp("TempIndAtividade")
           vClassificacao                 = Trim(rsTemp("TempNumTemporalidade")) &" - "& Trim(rsTemp("ClteDscClasseTemporalidade"))
           vTempNumPrazoFaseCorrente      = rsTemp("TempNumPrazoFaseCorrente")
           vTempNumPrazoFaseIntermediaria = rsTemp("TempNumPrazoFaseIntermediaria")
           vTempIndDestinacaoFinal        = rsTemp("TempIndDestinacaoFinal")
           if vTempIndDestinacaoFinal = "0" then
             vTempDscDestinacaoFinal = "Não Tem"
           elseif vTempIndDestinacaoFinal = "1" then
             vTempDscDestinacaoFinal = "Guarda Permanente"
           elseif vTempIndDestinacaoFinal = "2" then
             vTempDscDestinacaoFinal = "Eliminação"
           else 
             vTempDscDestinacaoFinal = vTempIndDestinacaoFinal
           end if
         end if
       End If
     else
       RecuperarDados
       lsCommand   = "Novo"
       Mensagem    = "Protocolo inexistente."
       vExcluir    = "Esconde"
       vVerificaEx = "S"
     end if
   else
     Mensagem = "É preciso entrar com o TIPO e NÚMERO do protocolo para consultar."
     vExcluir = "Esconde"
   end if

   vAcao = True


 case "Excluir"
   if Session("NUM_PROTOCOLO") <> "" then
     Mensagem = ""
     sSQL = "SELECT * FROM Protocolo " &_
            "WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' " &_
            "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO")

     set rsLista = Server.CreateObject("ADODB.RecordSet")
     rsLista.Open sSQL, Conexao, 1, 3

     if rsLista.EOF then
       Session("COD_BARRA")     = ""
       Session("NUM_PROTOCOLO") = ""
       Response.Redirect("ProtPrincipal.asp")
       Response.End
     end if

     'Coletando os Dados


     if Session("NUM_PROTOCOLO") <> "" then
       vEsDoCodEspecie = rsLista("EsDoCodEspecie")
     else
       vEsDoCodEspecie = "-1"
     end if


  'wellington ------ combo anexo

  if Session("NUM_PROTOCOLO") = "" then
      ' vAnexoSelecAnexo = rsLista("AnexoSelecAnexo")
     'else
     '  vAnexoSelecAnexo = "-1"
     end if

'  wellingtgon -- fim

     vProtIndTipoProtocolo    = rsLista("ProtIndTipoProtocolo")
     if rsLista("ProtDatAbertura") <> "" then
       vProtDatAbertura       = FMT_DT(rsLista("ProtDatAbertura"))
     else
       vProtDatAbertura = ""
     end if

     if rsLista("ProtDatDocumento") <> "" then
	if isNull(rsLista("ProtDatDocumento")) or rsLista("ProtDatDocumento") = null  then 'xixi null
		vProtDatDocumento = "00/00/0000"
	else
		vProtDatDocumento       = FMT_DT(rsLista("ProtDatDocumento"))
	end if
     else
       vProtDatDocumento = ""
     end if


  vProcCodProcedencia      = rsLista("ProcCodProcedencia")
     vPaisSigPais             = rsLista("PaisSigPais")
     vUnFeSigUnidadeFederacao = rsLista("UnFeSigUnidadeFederacao")
     vMuniCodMunicipio        = rsLista("MuniCodMunicipio")



 'Preenche as Variáveis com os Valores dos Campos


  vAnexoQuantAnexo                   = Request.Form("AnexoQuantAnexo") 
  vAnexoDescAnexo                    = Request.Form("AnexoDescAnexo") 


     if rsLista("ProtDatRecebimento") <> "" then
       vProtDatRecebimento    = FMT_DT(rsLista("ProtDatRecebimento"))
     else
       vProtDatRecebimento = ""
     end if
     vProtHorRecebimento      = Left(rsLista("ProtHorRecebimento"),2) & ":" &  Right(rsLista("ProtHorRecebimento"),2)
     vProtDscAssunto          = rsLista("ProtDscAssunto")
     vProtDscComplemento      = rsLista("ProtDscComplemento")
     vTempCodTemporalidade    = rsLista("TempCodTemporalidade")
     'vProtCodRip              = rsLista("ProtCodRip")

     'Dados Adicionais
     vProtNumDocumento        = rsLista("ProtNumDocumento")

     SQLTemp = "SELECT * FROM Procedencia WHERE ProcCodProcedencia = " & vProcCodProcedencia
     set rsTemp = Conexao.Execute(SQLTemp)
     vTipoProcedencia         = rsTemp("ProcIndTipoProcedencia")
     vDscProcedencia          = rsTemp("ProcDscProcedencia")

  If "["&vTempCodTemporalidade&"]" <> "[]" Then
       SQLTemp = "SELECT CT.ClteDscClasseTemporalidade, T.* " &_
                 "FROM   ClasseTemporalidade CT (nolock), Temporalidade T (nolock) " &_
                 "WHERE  CT.ClteCodClasseTemporalidade = T.ClteCodClasseTemporalidade " &_
                 "AND    T.TempCodTemporalidade = '" & vTempCodTemporalidade & "'"

'response.write sqltemp
'reponse.end

       set rsTemp = Conexao.Execute(SQLTemp)
       vProtIndTipoAtividade          = rsTemp("TempIndAtividade")
       vClassificacao                 = Trim(rsTemp("TempNumTemporalidade")) &" - "& Trim(rsTemp("ClteDscClasseTemporalidade"))
       vTempNumPrazoFaseCorrente      = rsTemp("TempNumPrazoFaseCorrente")
       vTempNumPrazoFaseIntermediaria = rsTemp("TempNumPrazoFaseIntermediaria")
       vTempIndDestinacaoFinal        = rsTemp("TempIndDestinacaoFinal")
     End If
     Mensagem = ""


     'Verificar Permissão do Usuário
     if Session("PERMISSAO") <= 2 then
       Mensagem = "Você não possui privilégio para excluir. Ação encerrada."
     end if


     'Verificar se Protocolo Possui Anexos
     sSQL = "SELECT ProtNumProtocolo, ProtIndTipoProtocolo FROM Anexado (nolock) " &_
            "WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' " &_
            "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO")
     set rsLista = Conexao.Execute(sSQL)
     if not rsLista.EOF then
          Session("NUM_PROTOCOLO") = ""
          Mensagem = "Protocolo Possui Anexos. Ação encerrada."
          'Response.Redirect("ProtPrincipal.asp?mensagem=Protocolo Possui Anexos. Ação encerrada.&status=2")
     end if

     'Verificar se Protocolo Possui Apensos
     sSQL = "SELECT ProtNumProtocolo, ProtIndTipoProtocolo FROM Juntada (nolock) " &_
            "WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' " &_
            "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO") & " " &_
            "AND    JuntIndStatus <> 3"

     set rsLista = Conexao.Execute(sSQL)
     if not rsLista.EOF then
          Session("COD_BARRA")     = ""
          Session("NUM_PROTOCOLO") = ""
          Mensagem = "Protocolo Possui Anexos/Apensos."
          'Response.Redirect("ProtPrincipal.asp?mensagem=Protocolo Possui Apensos.&status=2")
     end if

     if Mensagem = "" then
       %>
         <script language="JavaScript">
           var newwin = window.open('motivo_exclusao.asp?protocolo=<%=Session("NUM_PROTOCOLO_FORMATADO")%>&tipo=<%=Session("TIPO_PROTOCOLO")%>&unidade=<%=Session("UNIDADE")%>','MotivoDelecao','scrollbars=no, width=620, height=300, left=60, top=60');
         </script>
       <%
     end if
   else
     Mensagem = "Primeiramente, escolha um protocolo."
   end if
   vAcao = True

end select
end if

if vAcao then
 lsComandoAnterior = lsCommand
end if

' Essa parte serve apenas para atualizar as datas e hora
if Mensagem <> "" and lsCommand = "Novo" then
 vProtDatAbertura    = DataAtual
 vProtDatDocumento   = DataAtual
 vProtDatRecebimento = DataAtual
 vProtHorRecebimento = FMT_HR(time())
else
 if lsCommand <> "Novo" then
   SQLTemp = "SELECT Convert(char(10), ProtDatAbertura, 103) ProtDatAbertura, " &_
             "       Convert(char(10), ProtDatDocumento, 103) ProtDatDocumento, " &_
             "       Convert(char(10), ProtDatRecebimento, 103) ProtDatRecebimento, " &_
             "       ProtHorRecebimento " &_
             "FROM Protocolo (nolock) "
   if Session("NUM_PROTOCOLO") = "" then
     SQLTemp = SQLTemp & " WHERE  ProtNumProtocolo = '" & Request.Form("ProtNumProtocolo") & "' "' &_
'      "AND    ProtIndTipoProtocolo = " & Request.Form("ProtIndTipoProtocolo")
   else
     SQLTemp = SQLTemp & " WHERE  ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "' "' &_
'      "AND    ProtIndTipoProtocolo = " & Session("TIPO_PROTOCOLO")
   end if

set rsTemp = Conexao.Execute(SQLTemp)
   If not rsTemp.EOF then
     vProtDatAbertura    = rsTemp("ProtDatAbertura")
     vProtDatDocumento   = rsTemp("ProtDatDocumento") 'xixi x
	  if isNull(vProtDatDocumento) then
		vProtDatDocumento = "00/00/0000"
  end if	  

     vProtDatRecebimento = rsTemp("ProtDatRecebimento")
     vProtHorRecebimento = Left(rsTemp("ProtHorRecebimento"), 2) & ":" & Right(rsTemp("ProtHorRecebimento"), 2)
   Else
     vProtDatAbertura    = DataAtual
     vProtDatDocumento   = DataAtual
     vProtDatRecebimento = DataAtual
     vProtHorRecebimento = FMT_HR(time())
   End If
 end if
end if

'Coletando os Dados do Formulário
if Session("NUM_PROTOCOLO") <> "" then
 sSQL = "SELECT ProtCodProtocolo FROM Protocolo (nolock) WHERE ProtNumProtocolo = '" & Session("NUM_PROTOCOLO") & "'"
 set rsLista = Conexao.Execute(sSQL)
 if not rsLista.EOF then
   Session("COD_PROTOCOLO") = rsLista("ProtCodProtocolo")
 end if
end if

sSQL = "EXEC ListaUF"
set rsLista = Conexao.Execute(sSQL)
iNivel = 0
iPais = ""
%>

<html>
<!-- #include file ="../../Desenvolvimento/Funcoes/Funcoes.INC" -->
<!-- #include file ="../Generic/GenericMenuHeader.htm" -->
</script>
<script language="javaScript">
ProgArray = new Array();
ProgArrayUF = new Array();

<%
do while not rsLista.Eof
  if Trim(rsLista("PaisSigPais")) <> iPais then
     if iNivel > 0 then 
        linha = linha & "]"
        Response.Write linha & chr(13) & chr(10)
     end if
     iNivel = iNivel + 1
     linha = "ProgArray[" & iNivel & "] = ['" & Trim(rsLista("PaisSigPais")) & "',''"
  end if
  linha = linha & ",'" &  Trim(rsLista("UnFeDscUnidadeFederacao")) & "','" & Trim(rsLista("UnFeSigUnidadeFederacao")) & "'"
  iPais = Trim(rsLista("PaisSigPais"))
  rsLista.movenext
loop
linha = linha & "]"
Response.Write linha & chr(13) & chr(10)
rsLista.close

sSQL = "EXEC ListaMunicipio"
set rsLista = Conexao.Execute(sSQL)
iNivel = -1
iPais = ""

do while not rsLista.Eof
  if Trim(rsLista("UnFeSigUnidadeFederacao")) <> iPais then
     if iNivel > -1 then 
        linha = linha & "]"
        Response.Write linha & chr(13) & chr(10)
     end if
     iNivel = iNivel + 1
     linha = "ProgArrayUF[" & iNivel & "] = ['" & Trim(rsLista("PaisSigPais")) & "','" & Trim(rsLista("UnFeSigUnidadeFederacao")) & "',''"
  end if
  linha = linha & ",'" & Trim(rsLista("MuniDscMunicipio")) & "','" & Trim(rsLista("MuniCodMunicipio")) & "'"

  iPais = Trim(rsLista("UnFeSigUnidadeFederacao"))
  rsLista.movenext
loop
linha = linha & "]"
Response.Write linha & chr(13) & chr(10)
rsLista.close

%>

function envia(objeto) {
var i;
 document.form.UnFeSigUnidadeFederacao.length = 1;
 document.form.MuniCodMunicipio.length = 1;
 if (objeto.selectedIndex>0) {
   for (i = 2; i < ProgArray[objeto.selectedIndex].length; i = i + 2) {
     newProg = new Option(ProgArray[objeto.selectedIndex][i],ProgArray[objeto.selectedIndex][i+1]);
     document.form.UnFeSigUnidadeFederacao.options[(i/2)] = newProg;
   }
 }
 document.form.UnFeSigUnidadeFederacao.selectedIndex = 0;
 document.form.MuniCodMunicipio.selectedIndex = 0;
}
//combo wellington
function enviaUF(objeto) {
var i, posicao = 0;
 document.form.MuniCodMunicipio.length = 1;
 if (objeto.selectedIndex>0) {
   var pos = ProgArray[document.form.PaisSigPais.selectedIndex][0];
   while ((ProgArrayUF[posicao][0] != pos) || (ProgArrayUF[posicao][1] != document.form.UnFeSigUnidadeFederacao.value)) {
     if (posicao >= ProgArrayUF.length - 1) 
       break;
     posicao++;
   }
   var ant = ProgArrayUF[posicao][0];
   if (ant == pos) {
     for (i = 3; i < ProgArrayUF[posicao].length; i = i + 2) {
       if (ProgArrayUF[posicao][1] == document.form.UnFeSigUnidadeFederacao.value) {
         newProg = new Option(ProgArrayUF[posicao][i],ProgArrayUF[posicao][i+1]);
         document.form.MuniCodMunicipio.options[(i/2)] = newProg;
       }
     }
   }
   else {
     document.form.MuniCodMunicipio.length = 1;  
   }
 }
 document.form.MuniCodMunicipio.selectedIndex = 0;
}


function buscar(campo) {
 if ((document.form.tipoprocedencia[0].checked || document.form.tipoprocedencia[1].checked) && (document.form.dscprocedencia.value.substr(0,1) != ' ') && (document.form.dscprocedencia.value != '')) {
    if (document.form.tipoprocedencia[0].checked) {
      var tipoproc = 1;
    } else {
      var tipoproc = 2;
    }
    var newwin = window.open('frmBusca.asp?procedencia=' + campo +'&tipoproc=' + tipoproc, 'BuscaProcedência', 'scrollbars=yes, width=640, height=349, left=149, top=174');
 }
}

function buscaratividade(meio, fim, campo) {
 if ((meio == false) && (fim == false)) {
   showMessage(2, 'É preciso escolher o tipo de atividade. (MEIO ou FIM)');
 }
 else {
   var tipoatividade = ((meio == true) ? 1 : 2);
   if (document.form.classificacao.value != '' && (document.form.classificacao.value.substr(0,1) != ' ')) {
      var newwin = window.open('frmBuscaAtividade.asp?tipoatividade=' + tipoatividade + '&atividade=' + campo, 'BuscaAtividade', 'scrollbars=yes, width=640, height=349, left=149, top=174');
   }
 }
}

function diferenca(maior, menor) {
 var primeiro, segundo;

 primeiro = maior.value.substr(6, 4);
 primeiro += maior.value.substr(3, 2);
 primeiro += maior.value.substr(0, 2);

 segundo =  menor.value.substr(6, 4);
 segundo += menor.value.substr(3, 2);
 segundo += menor.value.substr(0, 2);

 return (primeiro < segundo);
}

function verificaExistencia(tipo, documento, especie, datadocumento) {
 if ((tipo != '0') && (documento != '') && (especie != '') && (datadocumento != '')) {
   simpleMessage(2,'Verificando se existe registro deste documento. Por favor, aguarde...', tipo, documento, especie, datadocumento);
 }
}

function verificaDatas(objeto) {
 var documento   = document.form.ProtDatDocumento;
 var recebimento = document.form.ProtDatRecebimento;
 var abertura    = document.form.ProtDatAbertura;
 var atual       = document.form.DataAtual;
 var erro = 0;

 if (diferenca(abertura, recebimento)) {
   erro = 1;
 }
 else if (diferenca(abertura, documento)) {
   erro = 3;
 }
 else if (diferenca(recebimento, documento)) {
   erro = 2;
 }

 if (erro == 1) {
   msg = 'ERRO !!! Data de Recebimento maior que a data de Abertura.';
   objeto.focus();
   showMessage(2,msg);
   recebimento.value = abertura.value;
   return (false);
 }
 else if (erro == 2) {
   if (objeto == recebimento) {
     msg = 'ERRO !!! Data do Recebimento menor que a data do Documento.';
     objeto.focus();
     showMessage(2,msg);
     recebimento.value = documento.value;
   }
   else if (objeto == documento) {
     msg = 'ERRO !!! Data do Documento maior que a data do Recebimento.';
     objeto.focus();
     showMessage(2,msg);
     documento.value = recebimento.value;
   }
   return (false);
 }
 else if (erro == 3) {
   msg = 'ERRO !!! Data do Documento maior que a data de Abertura.';
   objeto.focus();
   showMessage(2,msg);
   documento.value = abertura.value;

   return (false);
 }
 else {
   return (true);
 }
}

function trataData(obj) {
	  if ((obj.value.length != 0) && (obj.value.length < 10)) {
	    return (false);
	  }
	  else if (obj.value.length == 10) {
	    //return verificaData(texto);

	    //---------
	    dia = parseFloat(obj.value.substr(0,2));
	    mes = parseFloat(obj.value.substr(3,2));
	    ano = parseFloat(obj.value.substr(6,4));

	    if (mes == 1 || mes == 3 || mes == 5 || mes == 7 || mes == 8 || mes == 10 || mes == 12) {
	      mes = 1;
	    }
	    else if (mes == 4 || mes == 6 || mes == 9 || mes == 11) {
	      mes = 4;
	    }

	    switch (mes) {
	      case 1 :
	        if (dia > 31) {
	          return (false);
	        }
	        break;
	      case 4 :
	        if (dia > 30) {
	          return (false);
	        }
	        break;
	      case 2 :
	        if (ano % 4 == 0) {
	          if (dia > 29) {
	            return (false);
	          } else {}
	        }
	        else {
	          if (dia > 28) {
	            return (false);
	          }
	        }
	        break;
	      default :
	        return (false);
	        break;
	    }

	    if (ano < 1900) {
	      return (false);
	    }
	    return (true);
	    //-------------
	  }
}

function validaDataDoc(obj) {
	//alert(document.form.ProtDatDocumento.value);
		if (trataData(obj) == false) { 

			if(document.form.ProtDatDocumento.value!="00/00/0000"){
				document.form.ProtDatDocumento.focus();
				showMessage(2, 'Data Inválida.');
			}
			else{
				//document.form.ProtDatDocumento.value = "00/00/0000";
				document.form.ProtDatRecebimento.disabled = false;
			}
		 } 
		 else {
		   if (verificaDatas(obj)) {
			 document.form.ProtDatRecebimento.disabled = false;
			 var acao = '<%=vVerificaEx%>';
			 if (acao == 'S') { 
			   if (document.form.ProtIndTipoProtocolo[0].checked) {
				 Tipo = '1'; }
			   else if (document.form.ProtIndTipoProtocolo[1].checked) {
				 Tipo = '2'; }
			   else {
				 Tipo = '0' }
			   verificaExistencia(Tipo, document.form.ProtNumDocumento.value, document.form.EsDoCodEspecie.value, document.form.ProtDatDocumento.value);
			 }
		   }
		   else {
			 this.focus();
		   }
		 }

	return true;
}

function validarSubmit() {


var cAnterior = '<%=lsComandoAnterior%>';
//    nTempCodTemporalidade = '('+document.form.TempCodTemporalidade.value+')';
   msg = '';

 if (document.form.ProtDatDocumento.disabled == false && document.form.ProtDatRecebimento.disabled == false){

   if (document.form.cmdCommand.value == 'Pesquisar') {
     var protocoloLimpo = document.forms[0].ProtNumProtocoloFormatado.value;
     protocoloLimpo = document.forms[0].ProtNumProtocoloFormatado.value.replace(".","");

     var arProtocoloLimpo = protocoloLimpo.split("/");

     protocoloLimpo = arProtocoloLimpo[0] + arProtocoloLimpo[1];

     document.forms[0].ProtNumProtocolo.value = protocoloLimpo.split("-")[0];

     if ((document.form.ProtIndTipoProtocolo[0].checked == false && document.form.ProtIndTipoProtocolo[1].checked == false) || 
         (document.form.ProtNumProtocolo.value == '')) {
       msg = 'Dado não digitado. Entre com o tipo e número de protocolo antes de clicar em buscar.';
       document.form.ProtIndTipoProtocolo[0].focus();
     }
   }


   else if (document.form.cmdCommand.value == 'Gravar') {

     var protocoloLimpo = document.forms[0].ProtNumProtocoloFormatado.value;
     protocoloLimpo = document.forms[0].ProtNumProtocoloFormatado.value.replace(".","");

     var arProtocoloLimpo = protocoloLimpo.split("/");

     protocoloLimpo = arProtocoloLimpo[0] + arProtocoloLimpo[1];

     document.forms[0].ProtNumProtocolo.value = protocoloLimpo.split("-")[0];

     //alert("gravar ok");
     if (document.form.ProtIndTipoProtocolo[0].checked == false && document.form.ProtIndTipoProtocolo[1].checked == false) {
       msg = 'Dado não digitado. Entre com o tipo de protocolo antes de clicar em gravar.';
       document.form.ProtIndTipoProtocolo[0].focus();
     }
     else if (document.form.ProtNumProtocoloFormatado.value == '') {
       msg = 'Dado não digitado. Entre com o número de protocolo antes de clicar em gravar.';
       document.form.ProtNumProtocoloFormatado.focus();
     }
     else if (parseFloat(document.form.ProtNumProtocolo.value.substr(11,4)) > parseFloat(document.form.DataAtual.value.substr(6,4))) {
       showMessage(2, 'ERRO !!! o Ano embutido no código do protocolo (' + document.form.ProtNumProtocolo.value.substr(11,4) + ') não pode ser maior que o ano atual (' + document.form.DataAtual.value.substr(6,4) + ').');
     }          

  else if (document.form.EsDoCodEspecie.selectedIndex == 0) {
       msg = 'Dado não digitado. Entre com a espécie do documento antes de clicar em gravar.';
       document.form.EsDoCodEspecie.focus();
     }
     else if (document.form.ProtDatDocumento.value == '') {
       msg = 'Dado não digitado. Entre com data do documento antes de clicar em gravar.';
	document.form.ProtDatDocumento.focus();
     }
     else if (document.form.dscprocedencia.value == '' || document.form.dscprocedencia.value == ' ') {
       msg = 'Dado não digitado. Entre com a procedência antes de clicar em gravar.';
       document.form.dscprocedencia.focus();
     }


//Valida se o usuario preencher os dados do anexo sem selecionar o anexo - Raphael 22/06/2006
     else if (document.form.AnexoSelecAnexo.value == '' && document.form.AnexoQuantAnexo.value != '') {
       msg = 'Dado não digitado. Selecione o anexo antes de clicar em gravar.';
       document.form.AnexoSelecAnexo.focus();
     }

     else if (document.form.AnexoSelecAnexo.value == '' && document.form.AnexoDescAnexo.value != '') {
       msg = 'Dado não digitado. Selecione o anexo antes de clicar em gravar.';
       document.form.AnexoSelecAnexo.focus();
     }


     else if (document.form.ProcCodProcedencia.value == '' && document.form.tipoprocedencia[1].checked && (document.form.dscprocedencia.value != '' && document.form.dscprocedencia.value != ' ')) {
       msg = 'Dado não escolhido. Tecle ENTER e escolha uma procedência antes de clicar em gravar.';
       document.form.dscprocedencia.focus();
     }
    //wellington  mensagem de classificação//


  /*else if (document.form.classificacao.value =='')
  {
     msg = 'Dado não digitado. Entre com a Classificação antes de clicar em gravar.';
       document.form.classificacao.focus();
  } */ 
  else if (document.form.ProtDscAssunto.value == '' || document.form.ProtDscAssunto.value == ' ') {
       msg = 'Dado não digitado. Entre com o assunto antes de clicar em gravar.';
       document.form.ProtDscAssunto.focus();
     }

    }


   if (msg == '') {
	//alert("submit okokokokok");
  document.form.submit(); 
   }
   else {
     showMessage(2, msg);
   }
 }
}
</script>
<link rel="stylesheet" href="../../estilo.css" type="text/css">
</head>

<script language="javascript">

function Corretor(nome, valor) {
 if (valor != '' && valor != ' ' && valor != '  ') {
   var i = 0;
   for (i=0; i < document.form.elements.length; i++) {
     var ii = 0;
     if (document.form.elements[i].name == nome){
       ii = i;
       break;
     }
   }
   window.open('CorretorWeb.asp?indice='+ ii +'&texto=' + valor, 'Corretor', 'scrollbars=no, width=510, height=395, left=149, top=174');
 }
}


</script>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" onLoad="JavaScript:window.scrollTo(0,0); MM_preloadImages('../cadastro/imagens/menu_novo_over.jpg','../cadastro/imagens/menu_gravar_over.jpg','../cadastro/imagens/menu_excluir_over.jpg','../cadastro/imagens/menu_ajuda_over.jpg','../cadastro/imagens/menu_paginaprincipal_over.jpg');" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form name="form" method="POST" action="ProtPrincipal.asp">
<input type="hidden" name="Permissao" value="<%=vPermissaoForm%>">
<input type="hidden" name="ConfirmaDelecao">
<input type="hidden" name="EspecieProcedencia">
<input type="hidden" name="DataAtual" value="<%=DataAtual%>">
<input type="hidden" name="Processo" value="false">


<div id="LayerMenu" style="position:absolute; width:147; height:100%; z-index:2; left: 0; top: 0"><!-- #include file = "..\Generic\GenericMenuCadastro.htm" --></div>

<div style="POSITION: absolute;LEFT: 0px;OVERFLOW: auto;WIDTH: 100%;TOP: 0px;HEIGHT: 100%">
<table WIDTH="100%" border="0" cellpadding="0" cellspacing="0">
 <tr>
   <td>
     <table border="0" height="100%" width="780" cellpadding="0" cellspacing="0">
       <tr>   
          <td width="147" height="100%" bgcolor="#336666"> </td>
          <td align="right" valign="top">
            <!-- Aqui inserimos o conteúdo principal da página -->     
          <table colspan="3" bgcolor="#336666" width="600" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td><a name="Alterar"><img src="imagens/topo_cadastramento_r1_c1.jpg" cellspacing="0" WIDTH="357" HEIGHT="30"></a></td>
              </tr>
              <table width="600" border="0" cellpadding="0" cellspacing="0">
                <tr bgcolor="#FFCC00"> 
                  <td><img src="imagens/tit_processodocumento.jpg" width="180" height="22"></td>
                   <% if Session("NUM_PROTOCOLO") <> "" then %>
                    <td align="right">
                    <!--

				 <a href="../Relatorio/tram_entregue/SimpleADORecordSet.asp?status=1&ProtIndTipoProtocolo=<% If vProtIndTipoProtocolo = 1 Then Response.Write "2" Else Response.Write "1" End If %>&ProtNumProtocolo=<%=Session("NUM_PROTOCOLO")%>&dt1=&dt2=&UnidCodUnidadeDestino=&NumCopia=0&reportname=tram_entregue.rpt" target="_Blank">REL</a>-->
                    <img src="Imagens/img_protocolo.gif" border="0" alt="Protocolo" WIDTH="25" HEIGHT="18">
                    <% If session("unidcorrelacao") = "09" Then %>
                    <a href="ProtSpu.asp?cmdCommand=Buscar">
                    <img src="Imagens/img_spu.gif" border="0" alt="Dados SPU" WIDTH="25" HEIGHT="18"></a>
                    <% End If %>
                    <a href="ProtInteressado.asp">
                    <img src="Imagens/img_interessado.gif" border="0" alt="Interessado" WIDTH="25" HEIGHT="18"></a>
                   <!-- <a href="ProtSolicitante.asp">
                    <img src="Imagens/img_solicitante.gif" border="0" alt="Solicitante" WIDTH="25" HEIGHT="18"></a>

				 -->
                    <a href="../../Desenvolvimento/Cadastro/ProtTramite.asp?status=2">
                    <img src="Imagens/img_tramitacao.gif" border="0" alt="Tramitação" WIDTH="30" HEIGHT="18"></a>
                    </td></tr>
                  <% end if %>
              </table>
              <br>
              <table width="600" border="0" height="14" cellpadding="0" cellspacing="0">
                <tr border="1"> 
                  <td width="212" height="1" bordercolor="#000000"> 
                    <p align="center" style="border: 1 solid #C0C0C0"> 
                     <% If lsCommand = "teste" Then  %>
                       <% If vProtIndTipoProtocolo = "1" then %>
                         <font face="Verdana" size="2"><b>Processo</b></font>
                        <% Else %>
                         <font face="Verdana" size="2"><b>Documento</b></font>
                      <% End If %>
                       <% Else %>
      <!---   wellington   Função para definir Cadastro de Documento/Processo de acordo com o perfil-->

				 <% If VR_permissao("77",Session("NumPermissao")) and VR_permissao("03",Session("NumPermissao")) then %>
                           <input type="radio" name="ProtIndTipoProtocolo"   onClick="document.form.ProtNumProtocoloFormatado.focus();"  value="1"
				        <% if vProtIndTipoProtocolo = "1" then %> checked <% end if%>>
                           <font face="Verdana" size="2"><b>Processo</b></font>
				        <input type="radio" name="ProtIndTipoProtocolo"  onClick="document.form.ProtNumProtocoloFormatado.focus();" value="2"
				        <% if vProtIndTipoProtocolo = "2" then %> checked <% end if%>>
                          <font face="Verdana" size="2"><b>Documento</b></font>
                    <%else%>      
				       <input type="radio" name="ProtIndTipoProtocolo" style="visibility:hidden" onClick="document.form.ProtNumProtocoloFormatado.focus();" value="1" <% if vProtIndTipoProtocolo = "1" then %> checked <% end if%>>
                          <font face="Verdana" size="2"><b></b></font>
                         <input type="radio" name="ProtIndTipoProtocolo" onClick="document.form.ProtNumProtocoloFormatado.focus();" value="2" <% if vProtIndTipoProtocolo = "2" then %> checked <% end if%>>
                        <font face="Verdana" size="2"><b>Documento</b></font>
                    <%End if %>
      <!--    wellington  -->

				  <% End If %>
                    </p>
                  </td>
                  <td width="34" height="1" bordercolor="#000000"> </td>
                  <td width="354" height="1" bgcolor="#FFFFFF"> 
                    <p><font color="#000000"> <font face="Verdana" size="2"><b>Número do Protocolo:</b></font>
                    <font face="Verdana" size="2">
                    <b><font color="#FFFFFF"> 
                    <input type="text" value="<%if Session("NUM_PROTOCOLO") <> "" then %> <%=Session("NUM_PROTOCOLO_FORMATADO")%> <% else %> <%=vProtNumProtocoloFormatado%><% end if %>" size="20" maxlength="17" OnkeyUp="if (event.keyCode == 13 && this.value.length == 20) {document.form.cmdCommand.value='Pesquisar'; document.form.submit()} else if (this.value.length != 17 && this.value.length != 20) { mascaraProtocolo(this,event);} else {if (event.keyCode != 8) {campo = (this.value.substr(0,5)+this.value.substr(6,6)+this.value.substr(13,4)); this.value = formataprotocolo(campo);}}" onblur="
                   if (this.value.length == 20){
                       //this.value = this.value.substr(0,5)+this.value.substr(6,6)+this.value.substr(13,4);
                       if ((this.value.substr(13,4)) > (document.forms[0].elements['DataAtual'].value.substr(6,4))) {
                           showMessage(2, 'o Ano embutido no código do protocolo (' + this.value.substr(13,4) + ') não pode ser maior que o ano atual (' + document.forms[0].elements['DataAtual'].value.substr(6,4) + ').');
                           this.value = '';                         
                       } 
                   } else {    
                       this.focus();
                       showMessage(2, 'Digite o nº do protocolo completo ! ! !'); 
                   }
                   " name="ProtNumProtocoloFormatado" <% if not vConsulta then %> disabled <% end if %>>

                    <!-- <input type="text" name="ProtNumProtocoloFormatado" value="<%=Session("NUM_PROTOCOLO_FORMATADO")%>" maxlength="17" size="25" onFocus="this.value = ''" onBlur="validaProt(this)"> -->
                    <input type="hidden" name="ProtNumProtocolo" value="<%if Session("NUM_PROTOCOLO") <> "" then %> <%=Session("NUM_PROTOCOLO")%> <% else %> <%=vProtNumProtocolo%><% end if %>">
                    </font></b></p>
                  </td>
                </tr>
              </table>
              <br>
              <table width="600" border="0" cellpadding="0" cellspacing="2">
                <tr bgcolor="#FFFFCC"> 
                  <td width="101"> 
                    <div align="left">
                    <font color="#336666" size="1" face="Verdana"><b>Data Abertura</b></font>
                    </div>
                  </td>
                  <td width="120"> 
                    <div align="left">
                    <font color="#336666" size="1" face="Verdana"><b>Nº do Documento</b></font>
                    </div>
                  </td>
                  <td width="261"> 
                    <div align="left">
                    <font color="#336666" size="1" face="Verdana"><b>Espécie do Documento</b></font>
                    </div>
                  </td>
                  <td colspan="2" width="108"> 
                    <div align="left">
                    <font color="#336666" size="1" face="Verdana"><b>Data Documento</b></font>
                    </div>
                  </td>
                </tr>
                <tr> 
                  <td width="101" height="2"> 
                    <div align="left"> 


				<!-- Temporalidade classificaçao -->

				<input type="hidden" name="TempCodTemporalidade" value="<%=vTempCodTemporalidade%>">



			  <!--    wellington

			  <td width="184">
                     <font size="1"></font>
                   </td>
                   <td width="133">

				<!-- Temporalidade classificaçao -->


                    <input type="text" name="ProtDatAbertura" size="12" value="<%=vProtDatAbertura%>" readonly class="CampoL" onFocus="document.form.ProtNumDocumento.focus();" maxlength="10">
                    </div>
                  </td>
                  <td width="120" height="2"> 
                    <div align="left"> 
             	 <input type="text" name="ProtNumDocumento" class="CaixaAlta" size="16" value="<%=vProtNumDocumento%>"  maxlength="20">

				 <!--     fim modificação  value="<%=vProtNumDocumento%>"---->
				 </div>
                  </td>
                  <td width="261" height="2"> 
                    <div align="left"> 
                    <select style="HEIGHT: 2px; WIDTH: 245px" name="EsDoCodEspecie" onFocus="if ('<%=vPermissaoFormAlteracao%>' != 'Total') { posicao = this.selectedIndex; } else { posicao = -1 }" onBlur="if (posicao > -1) { this.selectedIndex = posicao; }">
                    <option value="-1" selected><... Selecione ...></option>
                   <%
                     sSQL = "EXEC ListaEspecieDocumento"
                     set rsLista = Conexao.Execute(sSQL)
                     do while not rsLista.Eof
                     %>
	                     <option value="<%=rsLista("EsDoCodEspecie")%>" <% if Trim(rsLista("EsDoCodEspecie")) = Trim(vEsDoCodEspecie) then %> selected <% end if %>><%=rsLista("EsDoDscEspecie")%></option>
                     <%
	                     rsLista.MoveNext
	                   loop		
	                   rsLista.close
                   %>	
                    </select>
                    </div>
                  </td>
                  <td height="2" colspan="2" width="108"> 
                    <div align="left"> 
                    <input type="text" name="ProtDatDocumento" size="13" value="<%=vProtDatDocumento%>" <% if vPermissaoForm <> "Total" then %> readonly <% else %> onFocus="document.form.ProtDatRecebimento.disabled = true;" onBlur="validaDataDoc(this)" <% end if %> onKeyUp="mascaraData(this,event)" maxlength="10">
                    </div>
                  </td>
                </tr>
              </table>
              <table width="600" border="0" cellpadding="0" cellspacing="0">
                <tr bgcolor="#FFFFCC"> 
                  <td colspan="4">
                    <div align="center">
                    <font color="#336666" size="1" face="Verdana"><b>Procedência</b></font>
                    </div>
                  </td>
                </tr>
              </table>
              <table width="600" border="0" cellpadding="0" cellspacing="0" height="11">
                <tr> 
                  <td colspan="5" height="6" bgcolor="#ffffff">
                    <font color="#336666" size="1" face="Verdana"><b>
                    <input type="hidden" name="mudanca" value>
                    <input type="radio" name="tipoprocedencia" onClick="if (document.form.mudanca.value != 1) { document.form.mudanca.value = 1; document.form.ProcCodProcedencia.value = ''; document.form.dscprocedencia.value = ''; document.form.dscprocedencia.focus(); }" <% if vPermissaoForm <> "Total" then %> readonly <% end if %> value="1" <% if vTipoProcedencia = "1" then Response.Write "checked" end if%>>Pessoa Física
                    <input type="radio" name="tipoprocedencia" onClick="if (document.form.mudanca.value != 2) { document.form.mudanca.value = 2; document.form.ProcCodProcedencia.value = ''; document.form.dscprocedencia.value = ''; document.form.dscprocedencia.focus(); }" <% if vPermissaoForm <> "Total" then %> readonly <% end if %> value="2" <% if vTipoProcedencia = "2" then Response.Write "checked" end if%>>Pessoa Jurídica
                    </b></font><br>
                    <input type="hidden" name="ProcCodProcedencia" value="<%=Trim(vProcCodProcedencia)%>">
                    <input type="text" class="CaixaAlta" name="dscprocedencia" onKeyUp="if (event.keyCode == 13) {buscar(this.value);} else {xoPlics(this);}" onBlur="this.value = this.value.toUpperCase();" value="<%=Trim(vDscProcedencia)%>" <% if vPermissaoForm <> "Total" then %> readonly <% end if %> size="80" <% if PermissaoForm = "Total" then %> onFocus="if ((document.form.tipoprocedencia[0].checked == false) && (document.form.tipoprocedencia[1].checked == false)) { this.blur(); showMessage(2, 'É preciso escolher entre Pessoa Física e Pessoa Jurídica.');}" <% end if %> onChange="document.form.ProcCodProcedencia.value = '';" onBlur="this.value = this.value.toUpperCase();">
                    <a href="JavaScript:void(0)" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Botao','','Imagens/plus_over.jpg',1)">
                    <img name="Botao" border="0" alt="Busca Procedência" src="imagens/plus.jpg" onClick="buscar(document.form.dscprocedencia.value);" WIDTH="18" HEIGHT="18"></a>
                  </td>      
                </tr>
              </table>
              <table width="600" border="0" cellpadding="0" cellspacing="2">
                <tr bgcolor="#FFFFCC"> 
                  <td width="245">
                    <font color="#336666" size="1" face="Verdana"><b>País</b></font>
                  </td>
                  <td width="350">
                    <font color="#336666" size="1" face="Verdana"><b>UF</b></font>
                  </td>
                </tr>
                <tr bgcolor="#CCCCCC"> 
                  <td bgcolor="#FFFFFF" width="245">     
                    <select style="HEIGHT: 2px; WIDTH: 245px" name="PaisSigPais" onchange=" if (document.form.Permissao.value == 'Total') { envia(this); }" onFocus="if (document.form.Permissao.value != 'Total') { posicao = this.selectedIndex; } else { posicao = -1 }" onBlur="if (posicao > -1) { this.selectedIndex = posicao; }">>
                    <option value="-1"><... Selecione ...></option>
 	                 <%
                     sSQL = "EXEC ListaPais"
                     set rsLista = server.CreateObject("ADODB.Recordset")
                     set rsLista = Conexao.Execute(sSQL)
                     do while not rsLista.eof
                     %>
	                     <option value="<%=rsLista("PaisSigPais")%>"><%=rsLista("PaisDscPais")%></option>
                     <%
	                     rsLista.MoveNext
	                   loop		
	                   rsLista.close
                   %>	
                    </select>
                  </td>
                  <td bgcolor="#FFFFFF" width="350"> 
                    <select style="HEIGHT: 2px; WIDTH: 350px" name="UnFeSigUnidadeFederacao" onchange=" if (document.form.Permissao.value == 'Total') { enviaUF(this); }" onFocus="if (document.form.Permissao.value != 'Total') { posicao = this.selectedIndex; } else { posicao = -1 }" onBlur="if (posicao > -1) { this.selectedIndex = posicao; }">>
                    <option value="-1"><... Selecione ...></option>
                    </select>
                  </td>
                </tr>
              </table>

		   <table width="600" border="0" cellpadding="0" cellspacing="2">
                <tr bgcolor="#FFFFCC"> 
                  <td width="170">
                    <font color="#336666" size="1" face="Verdana"><b>Município</b></font>
                  </td>
                  <td width="100">
                    <font color="#336666" size="1" face="Verdana"><b>Dt. Receb.</b></font>
                  </td>
                  <td width="60">
                    <font color="#336666" size="1" face="Verdana"><b>Hr. Receb.</b></font>
                  </td>
                </tr>  
                <tr>
                  <td bgcolor="#FFFFFF" width="440"> 
                    <select style="HEIGHT: 2px; WIDTH: 440px" name="MuniCodMunicipio" onFocus="if (document.form.Permissao.value != 'Total') { posicao = this.selectedIndex; } else { posicao = -1 }" onBlur="if (posicao > -1) { this.selectedIndex = posicao; }">>>
                    <option value="-1"><... Selecione ...></option>
                    </select>
                  </td>
                  <td bgcolor="#FFFFFF" width="100"> 
                    <input type="text" name="ProtDatRecebimento" size="10" <% if vPermissaoForm <> "Total" then %> readonly <% end if %> maxlength="10" value="<%=vProtDatRecebimento%>" onKeyUp="mascaraData(this,event)" onFocus="document.form.ProtDatDocumento.disabled = true;" onBlur="if (trataData(this) == false) { 
                              this.focus(); 
                              showMessage(2, 'Data Inválida.'); 
                            } 
                            else { 
                              if (verificaDatas(this)) {
                                document.form.ProtDatDocumento.disabled = false;
                              };
                            }">
                  </td>
                  <td bgcolor="#FFFFFF" width="60"> 
                    <input type="text" name="ProtHorRecebimento" onFocus="document.form.HoraAnterior.value = this.value;" size="7" <% if vPermissaoForm <> "Total" then %> readonly <% end if %> maxlength="5" value="<%=vProtHorRecebimento%>" onKeyUp="mascaraHora(this,event)" onBlur="if (trataHora(this) == false) { this.value = document.form.HoraAnterior.value; this.focus(); showMessage(2, 'Hora Inválida.'); }">
                    <input type="hidden" name="HoraAnterior" value>
                  </td>
                </tr>
              </table>

		   <!--wellington 19/05/2005 mudar o  campo classificacao -->


		   <table width="600" border="0">
                <tr bgcolor="#FFFFCC"> 
                  <td colspan="2">
                    <font color="#336666" size="1" face="Verdana"><b>Atividade</b></font>
                  </td>
                  <td colspan="3">
                    <font color="#336666" size="1" face="Verdana"><b>Classificação (Código/Assunto)</b></font>
                  </td>
                </tr>
                <tr bgcolor="#FFFFFF"> 
                  <td width="81">
                    <font color="#336666" size="1" face="Verdana"><b> 
                    <input type="radio" value="1" name="TempIndAtividade" onClick="document.form.classificacao.focus();" <% if vProtIndTipoAtividade = "1" then Response.Write("checked") end if%>>Meio</b></font>
                  </td>
                  <td width="91">
                    <font color="#336666" size="1" face="Verdana"><b> 
                    <input type="radio" value="2" name="TempIndAtividade" onClick="document.form.classificacao.focus();" <% if vProtIndTipoAtividade = "2" then Response.Write("checked") end if%>>Fim</b></font>
                  </td>
                  <td colspan="3"> 
                    <textarea class="CaixaAlta" name="classificacao" OnKeyDown="if (event.keyCode == 13) {buscaratividade(TempIndAtividade[0].checked, TempIndAtividade[1].checked, this.value);}" onKeyUp="xoPlics(this)" cols="46" rows="3"><%=vClassificacao%></textarea>
                    <a href="JavaScript:void(0)" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Botao1','','Imagens/plus_over.jpg',1)">
                    <img name="Botao1" border="0" alt="Busca Classificação" src="imagens/plus.jpg" onClick="buscaratividade(TempIndAtividade[0].checked, TempIndAtividade[1].checked, document.form.classificacao.value)" WIDTH="18" HEIGHT="18"></a>
                  </td> 
                </tr>
              </table>

           <!--   -->
		   <table width="600" border="0" cellpadding="0" cellspacing="0">
                <tr bgcolor="#FFFFCC"> 
                  <td align="left"><font color="#336666" size="1" face="Verdana"><b>Assunto</b></font></td>
                  <td align="right"><input type="button" value="ABC" name="abc" class="bt_abc" onclick="Corretor(document.form.ProtDscAssunto.name,document.form.ProtDscAssunto.value);"> </td>
                </tr>
              	 <tr bgcolor="#FFFFFF"> 
             	<td colspan="2">
                    <textarea name="ProtDscAssunto" <% if vPermissaoFormAlteracao <> "Total" then %> readonly <% end if %> onKeyUp="xoPlics(this);" cols="72" rows="2"value="teste"><%=vProtDscAssunto%></textarea>
                  </td>

			 </tr>
                <tr bgcolor="#FFFFCC"> 

			 <td align="left"><font color="#336666" size="1" face="Verdana"><b>Descrição</b></font></td>
                  <td align="right"><input type="button" value="ABC" name="abc" class="bt_abc" onclick="Corretor(document.form.ProtDscComplemento.name,document.form.ProtDscComplemento.value);"> </td>
                </tr>
                <tr bgcolor="#FFFFFF">
                  <td colspan="2" height="38">
                    <textarea name="ProtDscComplemento" onKeyUp="xoPlics(this);" cols="72" rows="8"><%=vProtDscComplemento%></textarea>
                  </td>
                </tr>
              </table>

	 <!--wellingtton   Ocultar os campos temporalidade --> 


                <!--wellington  incluir campo Anexo --->
		  	   <table width="600" border="0" cellpadding="0" cellspacing="2">
                <tr bgcolor="#FFFFCC"> 
                  <td width="170">
                    <font color="#336666" size="1" face="Verdana"><b>Anexo</b></font>
                  </td>
                  <td width="60">
                    <font color="#336666" size="1" face="Verdana"><b>Quantidade</b></font>
                  </td>
			   <td width="220">
                    <font color="#336666" size="1" face="Verdana"><b>Descrição</b></font>
                  </td>
                  </tr>  
                <tr>
                  <td bgcolor="#FFFFFF" width="170"> 
                    <!-- COMBO ANEXO -->
				 <select style="HEIGHT: 2px; WIDTH: 170px" name="AnexoSelecAnexo" onFocus="if ('<%=vPermissaoFormAlteracao%>' != 'Total') { posicao = this.selectedIndex; } else { posicao = -1 }" onBlur="if (posicao >-1) { this.selectedIndex = posicao; }">
                    <option value="" selected><... Selecione ...></option>
                   <%
                     sSQL = "EXEC ListaAnexo"
                     set rsListaAnexo = Conexao.Execute(sSQL)
                     do while not rsListaAnexo.Eof


					%>
	                      <option value="<%=rsListaAnexo("AnexCodAnexo")%>" <% if Trim(rsListaAnexo("AnexCodAnexo")) = Trim(vAnexoSelecAnexo) then %> selected <% end if %>><%=rsListaAnexo("AnexDescAnexo")%></option>
                     <%
	                     rsListaAnexo.MoveNext
	                   loop		

	                   rsListaAnexo.close


                   %>	
                    </select>

				<!--WELLINGTON -->					
                  </td>
                  <td bgcolor="#FFFFFF" width="60"> 
                    <input type="text" name="AnexoQuantAnexo" size="7" maxlength="5" value="<%= vAnexoQuantAnexo%>" OnKeyup="xoLetra(this, event)">
                  </td>
                   <td bgcolor="#FFFFFF" width="220"> 
                    <input type="text" name="AnexoDescAnexo" size="54" maxlength="50" value="<%=vAnexoDescAnexo%>" class="CaixaAlta">
                  </td>
                </tr>
              </table>
             <!-- campo anexo -->


		  <p></p>
             <table width="600" border="0" height="30" align="right" cellpadding="0" cellspacing="0">
               <tr bgcolor="#336666">
                 <td>
                     <div align="right">
                   <% if Session("NUM_PROTOCOLO") <> "" then %>
                       <a href="<%=vArquivo%>" target="corpo" onClick="JavaScript:this.blur();">
                       <img border="0" src="imagens/btn_avancar.jpg" width="41" height="30" name="Avancar1" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Avancar1','','imagens/btn_avancar_over.jpg',1)">
                   <% else %> 
                       <a href="JavaScript:void(0)" onClick="window.scrollTo(0,0);">
                       <img border="0" src="imagens/btn_cima.jpg" width="41" height="30" name="Cima" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Cima','','imagens/btn_cima_over.jpg',1)">
                   <% end if %>
                     </a>
                     </div>
                 </td>
               </tr>
             </table>
           </td>
         </tr>
       </table>
     </td> 
   </tr>
 </table>
</div>
</form>

<script language="JavaScript">
 document.form.cmdCommand.value = '';

 <% if (vPaisSigPais <> "") and (vPaisSigPais <> "Null") then %>
    <% if Left(vPaisSigPais,1) = "'" then %>
         var pais = <%=Trim(vPaisSigPais)%>;
    <% else %>
         var pais = '<%=Trim(vPaisSigPais)%>';
    <% end if %>

    if (pais != '') {
      //Setar Pais
      var posicao=0;
      with (document.form) {
        for (var i=0;i<PaisSigPais.length;i++) {
          if (PaisSigPais[i].value == pais) {
            posicao = i;
            break;
          }
        }
        PaisSigPais.selectedIndex = posicao;
        //Carregar Estados
        envia(PaisSigPais);
      }
      <% if (vUnFeSigUnidadeFederacao <> "" and vUnFeSigUnidadeFederacao <> "Null") then %>
      //Setar Estado
      posicao=0;
      <% if Left(vUnFeSigUnidadeFederacao,1) = "'" then %>
           var uf = <%=Trim(vUnFeSigUnidadeFederacao)%>;
      <% else %>
           var uf = '<%=Trim(vUnFeSigUnidadeFederacao)%>';
      <% end if %>
      with (document.form) {
        for (var i=0;i<UnFeSigUnidadeFederacao.length;i++) {
          if (UnFeSigUnidadeFederacao[i].value == uf) {
            posicao = i;
            break;
          }
        }
        UnFeSigUnidadeFederacao.selectedIndex = posicao;
        //Carregar Municípios
        enviaUF(UnFeSigUnidadeFederacao);
      }
      //Setar Município
      posicao=0;
      with (document.form) {
        for (var i=0;i<MuniCodMunicipio.length;i++) {
          if (MuniCodMunicipio[i].value == '<%=Trim(vMuniCodMunicipio)%>') {
            posicao = i;
            break;
          }
        }
        MuniCodMunicipio.selectedIndex = posicao;
      }
      <% end if %>
    }
 <% end if %>

 document.form.ComandoAnterior.value = '<%=lsCommand%>';

 <% if Mensagem <> "" then
      if Mensagem = "Sessão Expirada." then %>
        showMessage(2, '<%=Mensagem%>');
        window.parent.location.href = '../../default.asp';
   <% elseif Mensagem = "Protocolo adicionado com sucesso !!!" then %>
     <% if SESSION("CodCorrelacao") = "09" Then %>
          showMessage(2, '<%=Mensagem%>', '../Cadastro/ProtSpu.asp');
     <% else %>
          showMessage(2, '<%=Mensagem%>', '../Cadastro/ProtInteressado.asp');
     <% end if %>
   <% else %>
        showMessage(2, '<%=Mensagem%>');
   <% end if
     end if %>
</script>
</body>
</html>


<% End If %>

[~Thiago Lara 0]

Qual é exatamente a linha 998? rs

[Mário Monteiro 179]

De fato não precisa por o codigo completo

 

Post o trecho do codigo e exatamente onde o erro ocorre

[xanburzum 169]

verifique se o nome da coluna esta incorreto, ou fez referência a um nome da coluna que aparece mais de uma vez na lista SELECT (por exemplo, uma junção entre duas tabelas que têm um coluna comum), ou ainda referenciando o resultset errado no caso de múltiplos conjuntos de resultados.