<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: ADM_apagardadonegativado.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 16/10/06
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
%>
<!--#INCLUDE FILE="../funcoes/funcoes.asp" -->
<!--#INCLUDE FILE="funcoes/ADM_funcoes_checa_senha.asp"-->
<%
'Verifica se o perfil de usuário permite acesso a esta página
If checa_perfil_admin_menu(""&ADMPed&"") = false Then
    Response.redirect "ADM_home.asp?msg=SEU PERFIL DE USUÁRIO NÃO PERMITE ACESSO A ESTA PÁGINA"
    Response.end
End If

Call abre_conexao(conexao)

    Set RS_ConsultaTransNegativas = CreateObject("ADODB.Recordset")
    Set RS_ConsultaTransNegativas.ActiveConnection = Conexao
    RS_ConsultaTransNegativas.CursorLocation = 3
    RS_ConsultaTransNegativas.CursorType = 0
    RS_ConsultaTransNegativas.LockType =  3

    RS_ConsultaTransNegativas.Open "SELECT codigo_transacao, codigo_pedido, user_ID,ip_cliente,razaosocial_cobranca,cnpj_cobranca,nome_cobranca,cpf_cobranca,rg_cobranca,telefone_cobranca,razaosocial_entrega,cnpj_entrega,rg_entrega,telefone_entrega,email_entrega FROM Transacoes_negativadas WHERE codigo_transacao = " & request("codigo_transacao") & ""

    RS_ConsultaTransNegativas(""&request("campo")&"") = ""
    RS_ConsultaTransNegativas.Update


    consultaDados = consultaDados & RS_ConsultaTransNegativas("user_ID")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("ip_cliente")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("razaosocial_cobranca")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("cnpj_cobranca")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("cpf_cobranca")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("rg_cobranca")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("telefone_cobranca")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("razaosocial_entrega")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("cnpj_entrega")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("rg_entrega")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("telefone_entrega")
    consultaDados = consultaDados & RS_ConsultaTransNegativas("email_entrega")

    If Len(consultaDados) = 0 Then
        Conexao.execute "DELETE FROM Transacoes_negativadas WHERE codigo_transacao = " & request("codigo_transacao") & ""
        Conexao.execute "UPDATE Pedidos SET fraude=0 WHERE codigo_pedido = " & RS_ConsultaTransNegativas("codigo_pedido") & ""
    End if

    Set RS_ConsultaTransNegativas = Nothing

Call fecha_conexao()

Response.redirect "ADM_lista_negativados.asp?codigo_transacao=" & request("codigo_transacao")
%>