<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.5
' Data: 12/09/06
' Arquivo: ADM_mostra_pedido.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 21/10/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Esta página só pode ser acessada se o visitante já se autenticou
checa_senha()
'Verifica se o perfil de usuário permite acesso a esta página
Call checa_perfil_admin(""&ADMPed&","&ADMRelat&"")
%>
<%=Application("NomeLoja")%>
<%
'Abre o banco de dados
Call abre_conexao(conexao)
msg_resultado = request("msg_resultado")
msg_resultadoPedidoExcluido = request("msg_resultadoPedidoExcluido")
msg_resultadoMail = request("msg_resultadoMail")
'Verifica se a ação solicita foi para remover o usuário
If request("acao_admin") = "Remover Usuário" Then
Conexao.Execute "DELETE FROM Usuarios WHERE user_id = '" & request("user_id") & "'"
msg_resultado = "Usuário excluido com sucesso."
Response.redirect("ADM_lista_usuario.asp?status=naocompraram&msg_resultado="&msg_resultado)
End If
'Verifica se os pedidos a serem exibidos é para apenas usuários que compraram na loja
If request("status") = "compraram" Then
'Abre o obejto RecordSet para consulta as tabelas Pedidos e Pedido_item
Set RS_Pedidos = CreateObject("ADODB.Recordset")
Set RS_Pedidos.ActiveConnection = Conexao
RS_Pedidos.CursorLocation = 3
RS_Pedidos.CursorType = 0
RS_Pedidos.LockType = 3
If request("user_id") <> "" Then
'Monta a consulta as tabelas Pedidos e Pedido_item
RS_Pedidos.Open "SELECT Pedido_item.codigo_produto, Pedido_item.codigo_categoria, Pedido_item.codigo_cor, Pedido_item.codigo_tamanho, Pedido_item.quantidade, Pedido_item.preco_unitario, Pedido_item.peso, Pedido_item.nome_produto, Pedido_item.sigla_moeda, Pedido_item.valor_moeda, Pedidos.codigo_pedido, Pedidos.data_pedido_inicio, Pedidos.data_pedido, Pedidos.user_ID, Pedidos.sessionID, Pedidos.ip_cliente, Pedidos.razaosocial_cobranca, Pedidos.cnpj_cobranca, Pedidos.inscricaoestadual_cobranca, Pedidos.nome_cobranca, Pedidos.cpf_cobranca, Pedidos.rg_cobranca, Pedidos.data_nascimento_cobranca, Pedidos.logradouro_cobranca, Pedidos.numero_cobranca, Pedidos.complemento_cobranca, Pedidos.bairro_cobranca, Pedidos.cidade_cobranca, Pedidos.estado_cobranca, Pedidos.cep_cobranca, Pedidos.pais_cobranca, Pedidos.ddd_cobranca, Pedidos.telefone_cobranca, Pedidos.razaosocial_entrega, Pedidos.cnpj_entrega, Pedidos.inscricaoestadual_entrega, Pedidos.nome_entrega, Pedidos.cpf_entrega, Pedidos.rg_entrega, Pedidos.data_nascimento_entrega, Pedidos.logradouro_entrega, Pedidos.numero_entrega, Pedidos.complemento_entrega, Pedidos.bairro_entrega, Pedidos.cidade_entrega, Pedidos.estado_entrega, Pedidos.cep_entrega, Pedidos.pais_entrega, Pedidos.ddd_entrega, Pedidos.telefone_entrega, Pedidos.email_entrega, Pedidos.subtotal, Pedidos.taxa_envio, Pedidos.tipo_taxa_adicional, Pedidos.taxa_adicional, Pedidos.total, Pedidos.tipo_frete, Pedidos.codigo_frete, Pedidos.peso_total, Pedidos.forma_pagamento, Pedidos.num_parcelas, Pedidos.cartao_encrypt, Pedidos.tipo_cartao, Pedidos.instrucoes, Pedidos.atendido, Pedidos.pago, Pedidos.falha, Pedidos.cancelado, Pedidos.devolvido, Pedidos.fraude, Pedidos.num_remessa, Pedidos.boleto_emitido, Pedidos.boleto_tipo, Pedidos.sigla_idioma, Pedidos.sigla_moeda, Pedidos.valor_moeda FROM Pedido_item INNER JOIN Pedidos ON Pedido_item.codigo_pedido = Pedidos.codigo_pedido WHERE user_id ='" & request("user_id") & "' ORDER BY Pedidos.codigo_pedido DESC", Conexao
adcAbacss0 = "ON"
Else
'Monta a consulta as tabelas Pedidos e Pedido_item
RS_Pedidos.Open "SELECT Pedido_item.codigo_produto, Pedido_item.codigo_categoria, Pedido_item.codigo_cor, Pedido_item.codigo_tamanho, Pedido_item.quantidade, Pedido_item.preco_unitario, Pedido_item.peso, Pedido_item.nome_produto, Pedido_item.sigla_moeda, Pedido_item.valor_moeda, Pedidos.codigo_pedido, Pedidos.data_pedido_inicio, Pedidos.data_pedido, Pedidos.user_ID, Pedidos.sessionID, Pedidos.ip_cliente, Pedidos.razaosocial_cobranca, Pedidos.cnpj_cobranca, Pedidos.inscricaoestadual_cobranca, Pedidos.nome_cobranca, Pedidos.cpf_cobranca, Pedidos.rg_cobranca, Pedidos.data_nascimento_cobranca, Pedidos.logradouro_cobranca, Pedidos.numero_cobranca, Pedidos.complemento_cobranca, Pedidos.bairro_cobranca, Pedidos.cidade_cobranca, Pedidos.estado_cobranca, Pedidos.cep_cobranca, Pedidos.pais_cobranca, Pedidos.ddd_cobranca, Pedidos.telefone_cobranca, Pedidos.razaosocial_entrega, Pedidos.cnpj_entrega, Pedidos.inscricaoestadual_entrega, Pedidos.nome_entrega, Pedidos.cpf_entrega, Pedidos.rg_entrega, Pedidos.data_nascimento_entrega, Pedidos.logradouro_entrega, Pedidos.numero_entrega, Pedidos.complemento_entrega, Pedidos.bairro_entrega, Pedidos.cidade_entrega, Pedidos.estado_entrega, Pedidos.cep_entrega, Pedidos.pais_entrega, Pedidos.ddd_entrega, Pedidos.telefone_entrega, Pedidos.email_entrega, Pedidos.subtotal, Pedidos.taxa_envio, Pedidos.tipo_taxa_adicional, Pedidos.taxa_adicional, Pedidos.total, Pedidos.tipo_frete, Pedidos.codigo_frete, Pedidos.peso_total, Pedidos.forma_pagamento, Pedidos.num_parcelas, Pedidos.cartao_encrypt, Pedidos.tipo_cartao, Pedidos.instrucoes, Pedidos.atendido, Pedidos.pago, Pedidos.falha, Pedidos.cancelado, Pedidos.devolvido, Pedidos.fraude, Pedidos.num_remessa, Pedidos.boleto_emitido, Pedidos.boleto_tipo, Pedidos.sigla_idioma, Pedidos.sigla_moeda, Pedidos.valor_moeda FROM Pedido_item INNER JOIN Pedidos ON Pedido_item.codigo_pedido = Pedidos.codigo_pedido WHERE Pedidos.codigo_pedido =" & Request("codigo_pedido") & "", Conexao
adcAbacss1 = "ON"
End If
'Verifica se a consulta anterior obteve um resultado
If RS_Pedidos.Eof Then
If request("user_id") <> "" Then
Response.redirect "ADM_mostra_pedido.asp?status=naocompraram&user_id=" & request("user_id")
Else
msg_resultado = "O pedido solicitado não foi encontrado."
Response.redirect("ADM_lista_pedido.asp?nome_pagto=Todos&msg_resultado="&msg_resultado)
End If
End if
'Verifica se foi passado um código do pedido
If Request("codigo_pedido") <> "" Then
'Captura o código do pedido pelo Request
codigo_pedido = Request("codigo_pedido")
Else
'Captura o código do pedido pelo RecordSet
codigo_pedido = RS_Pedidos("codigo_pedido")
End If
'Captura alguns valores do pedido
forma_pagamento = RS_Pedidos("forma_pagamento")
user_id = RS_Pedidos("user_id")
tipo_taxa_adicional = RS_Pedidos("tipo_taxa_adicional")
taxa_adicional = RS_Pedidos("taxa_adicional")
repositorProd = True
' Verifica se o Clear Sale está disponível
If Application("IdentificacaoClearSale") <> "" And Request("codigo_pedido") <> "" Then
' Verifica se há registro ou solicitação de consulta
If VerificaExistenciaDado("codigo_pedido, score","Consultas_ClearSale","codigo_pedido",Request("codigo_pedido") & " AND score Is Not Null") = False Or Request("acao_admin") = "Nova Verificação dos Dados" Or Request("acao_admin") = "Verificar Dados" Then
'Verifica o tipo de análise
If Request("acao_admin") = "Nova Verificação dos Dados" Then
sTipoVerif = "ReanaliseRisco"
Else
sTipoVerif = "analiserisco"
End If
'Chama a função de consulta do pedido
Call ConsultaClearSale(codigo_pedido,sTipoVerif)
End If
End If
'Verifica se a forma de pagamento do pedido é Visanet
If RS_Pedidos("forma_pagamento") = "Visa" Or RS_Pedidos("forma_pagamento") = "VisaElectron" Then
'Abre o obejto RecordSet para consulta a tabela Transacao_Visanet
Set RS_dadosVisa = CreateObject("ADODB.Recordset")
Set RS_dadosVisa.ActiveConnection = Conexao
RS_dadosVisa.CursorLocation = 3
RS_dadosVisa.CursorType = 0
RS_dadosVisa.LockType = 3
'Monta a consulta a tabela Transacao_Visanet
RS_dadosVisa.Open "SELECT codigo_pedido, price, tid, lr, arp, free, pan, bank, ars, authent, tipo_cartao, num_parcelas, juros, captura, msg_captura, metodo FROM Transacao_Visanet WHERE codigo_pedido =" & codigo_pedido& "", Conexao
If Not RS_dadosVisa.EOF Then
'Captura os valores da consulta a tabela Transacao_Visanet
LR = RS_dadosVisa("lr")
CAPTURA = RS_dadosVisa("captura")
MSG_CAPTURA = RS_dadosVisa("msg_captura")
TID = RS_dadosVisa("tid")
METODO = RS_dadosVisa("metodo")
numParcelaVisanet = RS_dadosVisa("num_parcelas")
jurosVisanet = Replace(Replace(RS_dadosVisa("juros"),"20","Não"),"30","Sim")
' Verifica a requisão do processo de captura
If Request("acao_admin") = "Capturar Pedido" And Trim(RS_dadosVisa("metodo")) = "MOSET" Then
' Processo de captura
Call CapturaPedidoVisaMoset(codigo_pedido)
Response.redirect ("ADM_mostra_pedido.asp?codigo_pedido=" & Request("codigo_pedido") & "&status=compraram&msg_resultado="&msg_resultado&"&#"&Request("codigo_pedido"))
Response.end
End If
End If
'Verifica se a transação Visanet foi aprovada
If LR <> "" OR NOT ISNULL(LR) Then
'Verifica se a transação Visanet foi aprovada
If Cdbl(LR) = Cdbl(00) OR Cdbl(LR) = Cdbl(11) Then
Resposta_visa = "Transação aprovada pela Visanet."
'Ativa o botão de captura o pedido
If IsNull(CAPTURA) Then
captura_visa = "Transação não capturada."
If RS_Pedidos("forma_pagamento") = "Visa" Then
acao_capturar = "capturar"
End If
Else
captura_visa = MSG_CAPTURA & " ( " & CAPTURA & " )"
End If
Else
'Informa que para transação negada não há captura
Resposta_visa = "Transação negada pela Visanet."
captura_visa = "Transação negada não tem captura."
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
Else
'Informa que para transação negada não há captura
Resposta_visa = "Transação não finalizada."
captura_visa = "Transação incompleta não tem captura."
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
'Fecha e libera o objeto RecordSet
RS_dadosVisa.Close
Set RS_dadosVisa = nothing
End If
'Verifica se a forma de pagamento do pedido é Redecard
If RS_Pedidos("forma_pagamento") = "Mastercard" Or RS_Pedidos("forma_pagamento") = "Diners" Then
'Abre o obejto RecordSet para consulta a tabela Transacao_Itau
Set RS_dadosRedecard = CreateObject("ADODB.Recordset")
Set RS_dadosRedecard.ActiveConnection = Conexao
RS_dadosRedecard.CursorLocation = 3
RS_dadosRedecard.CursorType = 0
RS_dadosRedecard.LockType = 3
'Monta a consulta a tabela Transacao_Redecard
RS_dadosRedecard.Open "SELECT codigo_pedido, CODRET, MSGRET, NUMAUTOR, NUMSQN, NUMCV, NUMAUTENT, RESPAVS, MSGAVS, num_parcelas, juros, CODRET_confirmacao, MSGRET_confirmacao FROM Transacao_Redecard WHERE codigo_pedido =" & codigo_pedido, Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosRedecard.EOF Then
'Captura os valores da consulta a tabela Transacao_Amex
If RS_dadosRedecard("CODRET") = "0" And RS_dadosRedecard("NUMAUTOR") <> "" Or RS_dadosRedecard("CODRET") = "" And RS_dadosRedecard("NUMAUTOR") <> "" Or ISNULL(RS_dadosRedecard("CODRET")) And RS_dadosRedecard("NUMAUTOR") <> "" Then
If RS_dadosRedecard("CODRET_confirmacao") = "0" Then
status_redecard = "Aprovada"
codautorRedecard = RS_dadosRedecard("NUMAUTOR")
codsqnRedecard = RS_dadosRedecard("NUMSQN")
codcvRedecard = RS_dadosRedecard("NUMCV")
codautentRedecard = RS_dadosRedecard("NUMAUTENT")
Else
status_redecard = "Desfeita - " & RS_dadosRedecard("CODRET_confirmacao")
mensagem_redecard = RS_dadosRedecard("MSGRET_confirmacao")
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
ElseIf RS_dadosRedecard("CODRET") <> "" Then
status_redecard = "Negada - " & RS_dadosRedecard("CODRET")
mensagem_redecard = RS_dadosRedecard("MSGRET")
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
Else
status_redecard = "Indefinido"
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
numParcelaRedecard = RS_dadosRedecard("num_parcelas")
jurosRedecard = Replace(Replace(RS_dadosRedecard("juros"),"0","Não"),"1","Sim")
If RS_dadosRedecard("RESPAVS") <> "" And Not ISNULL(RS_dadosRedecard("RESPAVS")) Then
status_AVSredecard = RS_dadosRedecard("MSGAVS") & " (" & RS_dadosRedecard("RESPAVS") & ")"
End If
End If
'Fecha e libera o objeto RecordSet
RS_dadosRedecard.Close
Set RS_dadosRedecard = nothing
End If
'Verifica se a forma de pagamento do pedido é Itau
If RS_Pedidos("forma_pagamento") = "Amex" Then
'Abre o obejto RecordSet para consulta a tabela Transacao_Itau
Set RS_dadosAmex = CreateObject("ADODB.Recordset")
Set RS_dadosAmex.ActiveConnection = Conexao
RS_dadosAmex.CursorLocation = 3
RS_dadosAmex.CursorType = 0
RS_dadosAmex.LockType = 3
'Monta a consulta a tabela Transacao_Itau
RS_dadosAmex.Open "SELECT codigo_pedido, TxnResponseCode, Message, BatchNo, TransactionNo, ReceiptNo, AuthorizeId, AcqResponseCode, CSCResultCode, CSCRequestCode, AcqCSCRespCode, num_parcelas, PlanType, status_captura FROM Transacao_Amex WHERE codigo_pedido =" & codigo_pedido, Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosAmex.EOF Then
'Captura os valores da consulta a tabela Transacao_Amex
If RS_dadosAmex("TxnResponseCode") = "0" Then
status_amex = "Aprovada - " & RS_dadosAmex("TxnResponseCode")
codautAmex = RS_dadosAmex("AuthorizeId")
ReceiptNo = RS_dadosAmex("ReceiptNo")
TransactionNo = RS_dadosAmex("TransactionNo")
If IsNull(RS_dadosAmex("status_captura")) Then
captura_amex = "Transação não capturada."
acao_capturar = "capturar"
Else
If RS_dadosAmex("status_captura") = 0 Then
MSG_CAPTURA = "Captura efetuada com sucesso."
Else
MSG_CAPTURA = "Falha na captura."
End If
captura_amex = MSG_CAPTURA & " ( " & RS_dadosAmex("status_captura") & " )"
End If
Else
status_amex = "Negada - " & RS_dadosAmex("TxnResponseCode")
captura_amex = "Transação negada não tem captura."
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
numParcelaAmex = RS_dadosAmex("num_parcelas")
End If
'Fecha e libera o objeto RecordSet
RS_dadosAmex.Close
Set RS_dadosAmex = nothing
End If
'Verifica se a forma de pagamento do pedido é Itau
If RS_Pedidos("forma_pagamento") = "Itau" Then
'Chama a função para consulta do pedido
If Request("acao_admin") = "Consultar Pedido" Then
'Chama a função de consulta do pedido
Call ConsultaItau(codigo_pedido)
End If
'Abre o obejto RecordSet para consulta a tabela Transacao_Itau
Set RS_dadosItau = CreateObject("ADODB.Recordset")
Set RS_dadosItau.ActiveConnection = Conexao
RS_dadosItau.CursorLocation = 3
RS_dadosItau.CursorType = 0
RS_dadosItau.LockType = 3
'Monta a consulta a tabela Transacao_Itau
RS_dadosItau.Open "SELECT codigo_pedido, tipPag, sitPag, dtPag, codAut, numId, compVend, tipCart FROM Transacao_Itau WHERE codigo_pedido =" & codigo_pedido, Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosItau.EOF Then
'Captura os valores da consulta a tabela Transacao_Itau
tipPag = RS_dadosItau("tipPag")
sitPag = RS_dadosItau("sitPag")
dtPag = RS_dadosItau("dtPag")
codAut = RS_dadosItau("codAut")
numId = RS_dadosItau("numId")
compVend = RS_dadosItau("compVend")
tipCart = RS_dadosItau("tipCart")
'Ativa o botão de consultar o pedido
acao_capturar = "consultar"
End If
'Fecha e libera o objeto RecordSet
RS_dadosItau.Close
Set RS_dadosItau = Nothing
End If
'Verifica se a forma de pagamento do pedido é BB Office Banking
If RS_Pedidos("forma_pagamento") = "Brasil" Then
'Chama a função para consulta do pedido
If Request("acao_admin") = "Consultar Pedido" Then
'Chama a função de consulta do pedido
Call ConsultaBB(codigo_pedido)
End If
'Abre o obejto RecordSet para consulta a tabela Transacao_Itau
Set RS_dadosBB = CreateObject("ADODB.Recordset")
Set RS_dadosBB.ActiveConnection = Conexao
RS_dadosBB.CursorLocation = 3
RS_dadosBB.CursorType = 0
RS_dadosBB.LockType = 3
'Monta a consulta a tabela Transacao_Itau
RS_dadosBB.Open "SELECT codigo_pedido, tpPagamento, situacao FROM Transacao_Brasil WHERE codigo_pedido =" & codigo_pedido, Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosBB.EOF Then
'Captura os valores da consulta a tabela Transacao_Itau
tipPag = RS_dadosBB("tpPagamento")
sitPag = RS_dadosBB("situacao")
'Ativa o botão de consultar o pedido
acao_capturar = "consultar"
End If
'Fecha e libera o objeto RecordSet
RS_dadosBB.Close
Set RS_dadosBB = Nothing
End If
'Verifica se a forma de pagamento do pedido é Bradesco
If RS_Pedidos("forma_pagamento") = "Bradesco" Then
'Abre o obejto RecordSet para consulta a tabela Transacao_Bradesco
Set RS_dadosBradesco = CreateObject("ADODB.Recordset")
Set RS_dadosBradesco.ActiveConnection = Conexao
RS_dadosBradesco.CursorLocation = 3
RS_dadosBradesco.CursorType = 0
RS_dadosBradesco.LockType = 3
'Monta a consulta a tabela Transacao_Itau
RS_dadosBradesco.Open "SELECT codigo_pedido, metodoPagto, tipoPagto, prazo, numParcelas, valorParcela, cctype, assinatura, cod, errordesc FROM Transacao_Bradesco WHERE codigo_pedido =" & codigo_pedido, Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosBradesco.EOF Then
'Captura os valores da consulta a tabela Transacao_Bradesco
metPag = RS_dadosBradesco("metodoPagto")
tipPag = RS_dadosBradesco("tipoPagto")
prazo = RS_dadosBradesco("prazo")
numParc = RS_dadosBradesco("numParcelas")
valParc = RS_dadosBradesco("valorParcela")
tipCart = RS_dadosBradesco("cctype")
assinatura = RS_dadosBradesco("assinatura")
cod = RS_dadosBradesco("cod")
errordesc = RS_dadosBradesco("errordesc")
End If
' Libera o repositor
If Trim(errordesc) <> "" And cod <> "0" Then
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
' Monta a exibição do status da transação
If cod = "0" Then
cod = cod & " - Aprovada"
Elseif Trim(cod) = "" Or IsNull(cod) Then
cod = "Indefinido"
Else
cod = cod & " - Erro"
End If
'Fecha e libera o objeto RecordSet
RS_dadosBradesco.Close
Set RS_dadosBradesco = nothing
End If
'Verifica se a forma de pagamento do pedido é Unibanco
If RS_Pedidos("forma_pagamento") = "Unibanco" Then
'Chama a função para consulta do pedido
If Request("acao_admin") = "Consultar Pedido" Then
'Chama a função de consulta do pedido
resultadoConsulta = ConsultaUnibanco(codigo_pedido)
End If
'Abre o obejto RecordSet para consulta a tabela Transacao_Unibanco
Set RS_dadosUnibanco = CreateObject("ADODB.Recordset")
Set RS_dadosUnibanco.ActiveConnection = Conexao
RS_dadosUnibanco.CursorLocation = 3
RS_dadosUnibanco.CursorType = 0
RS_dadosUnibanco.LockType = 3
'Monta a consulta a tabela Transacao_Visanet
RS_dadosUnibanco.Open "SELECT codigo_pedido, codigo_parceiro, sessao_parceiro, situacao_pedido, numdoc_pedido, data_atualizacao_pedido FROM Transacao_Unibanco WHERE codigo_pedido =" & codigo_pedido& "", Conexao
If RS_dadosUnibanco.EOF Then
Resposta_unibanco = "Transação não inicializada."
Else
If RS_dadosUnibanco("situacao_pedido") <> "" Then
Resposta_unibanco = Unibanco_SitPed(RS_dadosUnibanco("situacao_pedido"))
dataAtualPedUnibanco = RS_dadosUnibanco("data_atualizacao_pedido")
numDocPedUnibanco = RS_dadosUnibanco("numdoc_pedido")
Else
Resposta_unibanco = "Indeterminado."
End If
' Trava a consulta se o pedido estiver pago
If RS_dadosUnibanco("situacao_pedido") <> 2000 Then
acao_capturar = "capturar"
End If
End If
'Fecha e libera o objeto RecordSet
RS_dadosUnibanco.Close
Set RS_dadosUnibanco = Nothing
End If
' Verifica se o pedido não foi finalizado com Boleto Bancário
If RS_Pedidos("boleto_emitido") = "1" And RS_Pedidos("forma_pagamento") <> "Boleto" Then
' Habilita o repositor para cancelamento e exclusão de pedido
repositorProd = True
End If
'Verifica se a forma de pagamento do pedido é Pagamento Certo
If RS_Pedidos("forma_pagamento") = "PagamentoCerto" Then
'Abre o obejto RecordSet para consulta a tabela Transacao_PagamentoCerto
Set RS_dadosPagCerto = CreateObject("ADODB.Recordset")
Set RS_dadosPagCerto.ActiveConnection = Conexao
RS_dadosPagCerto.CursorLocation = 3
RS_dadosPagCerto.CursorType = 0
RS_dadosPagCerto.LockType = 3
'Monta a consulta a tabela Transacao_PagamentoCerto
RS_dadosPagCerto.Open "SELECT codigo_pedido, idTransacao, codigo, modulo, tipo, codRetornoInicioTransac, msgRetornoInicioTransac, codRetornoConsultaTransac, msgRetornoConsultaTransac, processadoPagamento, msgRetornoPagamento FROM Transacao_PagamentoCerto WHERE codigo_pedido =" & codigo_pedido & "", Conexao
'Verifica se a transação foi iniciada
If RS_dadosPagCerto("codRetornoInicioTransac") = "0" Then
'Captura o codigo da transação
codigoTransacao_pagCerto = RS_dadosPagCerto("codigo")
idTransacao_pagCerto = RS_dadosPagCerto("idTransacao")
codigoRetornoTransacao_pagCerto = RS_dadosPagCerto("codRetornoConsultaTransac")
'Verifica se a transação foi finalizada
If codigoRetornoTransacao_pagCerto = "15" Then
'Verifica se a transação foi aprovada
If RS_dadosPagCerto("processadoPagamento") = "true" Then
Resposta_pagCerto = RS_dadosPagCerto("msgRetornoPagamento")
Else
'Informa que a transação não foi aprovada
Resposta_pagCerto = RS_dadosPagCerto("msgRetornoPagamento")
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
Else
'Informa que houve um erro na finalização da transação
If RS_dadosPagCerto("msgRetornoConsultaTransac") <> "" And Not IsNull(RS_dadosPagCerto("msgRetornoConsultaTransac")) Then
Resposta_pagCerto = RS_dadosPagCerto("msgRetornoConsultaTransac")
Else
Resposta_pagCerto = "Indefinido"
End If
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
Else
'Informa que houve um erro no inicio da transação
If RS_dadosPagCerto("msgRetornoInicioTransac") <> "" And Not IsNull(RS_dadosPagCerto("msgRetornoInicioTransac")) Then
Resposta_pagCerto = RS_dadosPagCerto("msgRetornoInicioTransac")
Else
Resposta_pagCerto = "Indefinido"
End If
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
' Verifica a forma de pagamento escolhida
If RS_dadosPagCerto("modulo") <> "" Then
tipoPagto_pagCerto = RS_dadosPagCerto("modulo")
If RS_dadosPagCerto("tipo") <> "" Then
tipoPagto_pagCerto = tipoPagto_pagCerto & " - " & RS_dadosPagCerto("tipo")
End If
End If
'Fecha e libera o objeto RecordSet
RS_dadosPagCerto.Close
Set RS_dadosPagCerto = nothing
End If
'Verifica se a forma de pagamento do pedido é Paggo
If RS_Pedidos("forma_pagamento") = "Paggo" Then
' Processo de estorno da transação
If request("acao_admin") = "Estornar Transação" Then
Call EstornoPaggo(codigo_pedido)
Response.redirect ("ADM_mostra_pedido.asp?codigo_pedido=" & Request("codigo_pedido") & "&status=compraram&msg_resultado="&msg_resultado&"&#"&Request("codigo_pedido"))
Response.end
End If
'Abre o obejto RecordSet para consulta a tabela Transacao_PagamentoCerto
Set RS_dadosPaggo = CreateObject("ADODB.Recordset")
Set RS_dadosPaggo.ActiveConnection = Conexao
RS_dadosPaggo.CursorLocation = 3
RS_dadosPaggo.CursorType = 0
RS_dadosPaggo.LockType = 3
'Monta a consulta a tabela Transacao_PagamentoCerto
RS_dadosPaggo.Open "SELECT codigo_pedido, numeroCelular, merchantIdentification, idReqLocaWeb, codRetornoTransacao, msgRetornoTransacao, nsuPaggo, dataEstorno, codRetornoEstorno, msgRetornoEstorno FROM Transacao_Paggo WHERE codigo_pedido =" & codigo_pedido & "", Conexao
'Verifica se a consulta obteve um resultado
If Not RS_dadosPaggo.EOF Then
'Verifica se a transação foi iniciada
If RS_dadosPaggo("codRetornoTransacao") <> "" Then
' Verifica se a transação foi cancelada
If RS_dadosPaggo("codRetornoEstorno") <> "" And Not IsNull(RS_dadosPaggo("codRetornoEstorno")) Then
'Captura os dados do estorno
codigoEstornoTransacao_Paggo = RS_dadosPaggo("codRetornoEstorno")
msgEstornoTransacao_Paggo = RS_dadosPaggo("msgRetornoEstorno")
dataEstornoTransacao_Paggo = RS_dadosPaggo("dataEstorno")
End If
'Captura os dados da transação
celularTransacao_Paggo = RS_dadosPaggo("numeroCelular")
idReqLocawebTransacao_Paggo = RS_dadosPaggo("idReqLocaWeb")
codigoRetornoTransacao_Paggo = RS_dadosPaggo("codRetornoTransacao")
msgRetornoTransacao_Paggo = RS_dadosPaggo("msgRetornoTransacao")
nsu_Paggo = RS_dadosPaggo("nsuPaggo")
' Faz o tratamento no número do celular
If Trim(celularTransacao_Paggo) <> "" Then
celularTransacao_Paggo = Left(celularTransacao_Paggo,2) & " - " & Right(celularTransacao_Paggo,Len(celularTransacao_Paggo)-2)
End If
' Verifica se a transação foi aprovada
If codigoRetornoTransacao_Paggo <> "0" Then
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
' Libera o pedido para estorno
If codigoRetornoTransacao_Paggo = "0" And codigoEstornoTransacao_Paggo <> "0" Then
acao_capturar = "estornar"
End If
Else
' Não foi possível identificar o status da transação.
msgRetornoTransacao_Paggo = Application("CtusmospedTxtStatusNaoIdent")
' Desabilita o repositor para cancelamento e exclusão de pedido
repositorProd = False
End If
End If
'Fecha e libera o objeto RecordSet
RS_dadosPaggo.Close
Set RS_dadosPaggo = nothing
End If
If request("excluir") = "Remover Pedido" Then
If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then
' Pega o status do pedido
status_pedido = Pega_DadoBanco("Pedidos","cancelado","codigo_pedido",Request("codigo_pedido"))
' Verifica se o pedido não está cancelado e com o estoque reposto
If status_pedido <> "2" And repositorProd = True Or IsNull(status_pedido) And repositorProd = True Then
Call Repositor_Produtos(Request("codigo_pedido"),"delete")
End If
End If
Conexao.Execute "DELETE FROM Pedidos WHERE codigo_pedido = " & codigo_pedido
Conexao.Execute "DELETE FROM Pedido_item WHERE codigo_pedido = " & codigo_pedido
Conexao.Execute "DELETE FROM Transacao_Visanet WHERE codigo_pedido = " & codigo_pedido
Conexao.Execute "DELETE FROM Transacao_Redecard WHERE codigo_pedido = " & codigo_pedido
Conexao.Execute "DELETE FROM Transacao_Bradesco WHERE codigo_pedido = " & codigo_pedido
Conexao.Execute "UPDATE Transacoes_Negativadas SET status_pedido = 'apagado' WHERE codigo_pedido = " & codigo_pedido
msg_resultadoPedidoExcluido = "Pedido excluido com sucesso."
Response.redirect("ADM_mostra_pedido.asp?user_id="&user_id&"&orderby=codigo_pedido&status=compraram&msg_resultadoPedidoExcluido="&msg_resultadoPedidoExcluido)
Response.end
End if
If request("acao_admin") = "Registrar Dados" Then
Set RS_Pedidos_update = CreateObject("ADODB.Recordset")
Set RS_Pedidos_update.ActiveConnection = Conexao
RS_Pedidos_update.CursorLocation = 3
RS_Pedidos_update.CursorType = 0
RS_Pedidos_update.LockType = 3
RS_Pedidos_update.Open "SELECT pago, atendido, num_remessa, codigo_pedido FROM Pedidos WHERE codigo_pedido =" & Request("codigo_pedido") & "", Conexao
RS_Pedidos_update("pago") = request("pago")
RS_Pedidos_update("atendido") = request("atendido")
RS_Pedidos_update("num_remessa") = request("comprovante_envio")
RS_Pedidos_update.Update
Set RS_Pedidos_update = Nothing
'Notificação do envio de remessa ao comprador
If Request("notificar_cliente") = "sim" Then
Call Envia_Email_remessa(RS_Pedidos, Request("comprovante_envio"), codigo_pedido)
msg_resultadoMail = "Senha Enviada, com sucesso"
End If
msg_resultado = "Pedido alterado com sucesso."
Response.redirect ("ADM_mostra_pedido.asp?codigo_pedido=" & Request("codigo_pedido") & "&status=compraram&msg_resultado="&msg_resultado&"&#"&Request("codigo_pedido"))
Elseif request("acao_admin") = "Alterar Pedido" Then
exibeMsgEstoqueEsgotado = false
Set RS_Pedidos_update = CreateObject("ADODB.Recordset")
Set RS_Pedidos_update.ActiveConnection = Conexao
RS_Pedidos_update.CursorLocation = 3
RS_Pedidos_update.CursorType = 0
RS_Pedidos_update.LockType = 3
RS_Pedidos_update.Open "SELECT cancelado, devolvido, fraude, codigo_pedido FROM Pedidos WHERE codigo_pedido =" & Request("codigo_pedido") & "", Conexao
' Cancelou o pedido e solicitou reposição do estoque
If request("cancelado") <> "" And request("reposicao_estoque") <> "" Then
If pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" And RS_Pedidos_update("cancelado") <> "2" And repositorProd = True Or pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" And IsNull(RS_Pedidos_update("cancelado")) And repositorProd = True Then
' Repoe o estoque dos produtos do pedido
Call Repositor_Produtos(Request("codigo_pedido"),"delete")
End If
RS_Pedidos_update("cancelado") = "2"
' Cancelou o pedido e não solicitou reposição do estoque
ElseIf request("cancelado") <> "" And request("reposicao_estoque") = "" Then
' Verifica se o pedido já foi anteriormente reposto o estoque
If RS_Pedidos_update("cancelado") = "2" And pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then
If Checa_Estoque_Produtos(codigo_pedido,arrayProdEsgotado) Then
exibeMsgEstoqueEsgotado = true
Else
Call Repositor_Produtos(Request("codigo_pedido"),"update")
End If
End If
If exibeMsgEstoqueEsgotado <> true Then
RS_Pedidos_update("cancelado") = request("cancelado")
End If
' Desmarcou a opção de cancelar o pedido
Else
' Verifica se o pedido já foi anteriormente reposto o estoque
If RS_Pedidos_update("cancelado") = "2" And pegaValorAtrib(Application("XMLArquivoConfiguracao"),"dados/configuracao_dados","Estoque") = "sim" Then
If Checa_Estoque_Produtos(codigo_pedido,arrayProdEsgotado) Then
exibeMsgEstoqueEsgotado = true
Else
Call Repositor_Produtos(Request("codigo_pedido"),"update")
End If
End If
If exibeMsgEstoqueEsgotado <> true Then
RS_Pedidos_update("cancelado") = "0"
End If
End If
If exibeMsgEstoqueEsgotado <> true Then
If request("devolvido") <> "" Then
RS_Pedidos_update("devolvido") = request("devolvido")
Else
RS_Pedidos_update("devolvido") = "0"
End if
If request("fraude") <> "" Then
RS_Pedidos_update("fraude") = request("fraude")
'Checa antes para ver se o pedido ja se encontra negativado.
If Not VerificaExistenciaDado("codigo_pedido","Transacoes_Negativadas","codigo_pedido",Request("codigo_pedido")) Then
Call Alterar_dadosNegativos(Conexao,RS_Pedidos,"inserir")
End if
Else
RS_Pedidos_update("fraude") = "0"
Call Alterar_dadosNegativos(Conexao,RS_Pedidos,"excluir")
End if
RS_Pedidos_update.Update
Set RS_Pedidos_update = Nothing
msg_resultado = "Pedido alterado com sucesso."
Response.redirect "ADM_mostra_pedido.asp?codigo_pedido=" & Request("codigo_pedido") & "&status=compraram&msg_resultado="&msg_resultado&"&#"& Request("codigo_pedido")
End If
End If
'Define o número da remessa do pedido
num_remessa = RS_Pedidos("num_remessa")
End If
Set RS_Usuarios = Server.CreateObject("ADODB.Recordset")
RS_Usuarios.CursorLocation = 3
RS_Usuarios.CursorType = 0
RS_Usuarios.LockType = 3
If user_id = "" Then
user_id = request("user_id")
adcAbacss0 = "ON"
End if
RS_Usuarios.Open "SELECT user_id, chave, razaosocial_cobranca, nome_cobranca, cnpj_cobranca, inscricaoestadual_cobranca, cpf_cobranca, rg_cobranca, data_nascimento_cobranca, logradouro_cobranca, numero_cobranca, complemento_cobranca, bairro_cobranca, cidade_cobranca, estado_cobranca, cep_cobranca, pais_cobranca, ddd_cobranca, telefone_cobranca, razaosocial_entrega, cnpj_entrega, inscricaoestadual_entrega, nome_entrega, cpf_entrega, rg_entrega, data_nascimento_entrega, logradouro_entrega, numero_entrega, complemento_entrega, bairro_entrega, cidade_entrega, estado_entrega, cep_entrega, pais_entrega, ddd_entrega, telefone_entrega, email_entrega, cookieID, data_criacao FROM Usuarios WHERE user_id ='" & user_id & "'", Conexao
If Not RS_Usuarios.EOF Then
nomeExibicao = RS_Usuarios("nome_cobranca")
emailExibicao = RS_Usuarios("user_id")
Else
nomeExibicao = RS_Pedidos("nome_cobranca")
emailExibicao = RS_Pedidos("user_id")
End If
If request("acao_admin") = "Enviar Senha" Then
temporario = request("email_temporario")
Call Envia_mail_senha(RS_Usuarios("user_id"),"loja",temporario)
msg_resultadoMail = "Senha enviada com sucesso."
Response.redirect ("ADM_mostra_pedido.asp?user_id="&RS_Usuarios("user_id")&"&orderby=codigo_pedido&status=compraram&msg_resultadoMail="&msg_resultadoMail)
End if
%>
• Vida do cliente no site
<%
If RS_Pedidos("cancelado") = "1" Or RS_Pedidos("cancelado") = "2" Then
%>
PEDIDO CANCELADO
<%End If%>
<%
If RS_Pedidos("devolvido") = "1" Then
%>
PRODUTO DEVOLVIDO
<%End if%>
<%
If RS_Pedidos("fraude") = "1" Then
%>
<%If RS_Pedidos("devolvido") = "1" Then%> Você registrou que o produto foi devolvido, a informação de FRAUDE ESTA CORRETA? <%End if%>COMPRA REGISTRADA COMO FRAUDE
<%End If%>
<% If RS_Pedidos("boleto_emitido") = "1" And RS_Pedidos("forma_pagamento") <> "Boleto" Then %>
<%If RS_Pedidos("pago") = "0" Then response.write "NÃO" Else response.write "SIM" End if%>
Pedido atendido:
<%If RS_Pedidos("atendido") = "0" Then response.write "NÃO" Else response.write "SIM" End if%>
Data do pedido:
<%=RS_Pedidos("data_pedido")%>
Tipo de frete:
<%=RS_Pedidos("tipo_frete")%>
<%
If RS_Pedidos("tipo_frete") = "FEDEX" Then
' Verifica se já foi gerado o conhecimento
AWBnumber = Pega_DadoBanco("Transacao_Fedex","fdx_awbnumber","codigo_pedido",Request("codigo_pedido"))
' Monta o botão de acordo com o resultado da consulta anterior
If AWBnumber = "" Then
varBttnFEDEX = "Gerar conhecimento"
Else
varBttnFEDEX = "Visualizar conhecimento"
End If
%>
','Fedex','toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=yes, resizable=no, copyhistory=no, width=800, height=600')">
<%
End If
%>
<%End If%>
<%
If pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='Boleto']","disponivel") = "sim" Or pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='CobreBem']","disponivel") = "sim" Or pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='PagamentoCerto']","disponivel") = "sim" Then
If RS_Pedidos("pago") = "0" And RS_Pedidos("forma_pagamento") = "Boleto" Or RS_Pedidos("pago") = "0" And RS_Pedidos("forma_pagamento") = "CobreBem" Or RS_Pedidos("pago") = "0" And RS_Pedidos("forma_pagamento") = "PagamentoCerto" And Pega_DadoBanco("Transacao_PagamentoCerto","modulo","codigo_pedido",RS_Pedidos("codigo_pedido")) = "Boleto" Or RS_Pedidos("boleto_emitido") = "1" Then
%>
Para emitir o boleto bancário deste pedido utilize o botão abaixo. Esta funcionalidade possibilita o envio de um boleto impresso ao comprador.
<%
Do Until RS_Pedidos.EOF
If RS_Pedidos.AbsolutePosition Mod 2 = 0 Then
strColor = "class='Linha2Tabela'"
Else
strColor = "class='Linha1Tabela'"
End If
If RS_Pedidos("pago") = "0" then
Status_pago = "Não"
StatusNum_pago = "0"
Elseif RS_Pedidos("pago") = "1" then
Status_pago = "Sim"
StatusNum_pago = "1"
checked_Pago = "CHECKED"
End if
If RS_Pedidos("atendido") = "0" then
Status_atendido = "Não"
StatusNum_atendido = "0"
Elseif RS_Pedidos("atendido") = "1" then
Status_atendido = "Sim"
StatusNum_atendido = "1"
checked_Atendido = "CHECKED"
End if
If RS_Pedidos("cancelado") = "0" Or IsNull(RS_Pedidos("cancelado")) then
Status_Cancelado = "Não"
display_ReposicaoEstoque = "style=""display: none;"""
Elseif RS_Pedidos("cancelado") = "1" then
Status_Cancelado = "Sim"
checked_Cancelado = "CHECKED"
display_ReposicaoEstoque = "style=""display: '';"""
Elseif RS_Pedidos("cancelado") = "2" then
Status_Cancelado = "Sim"
checked_Cancelado = "CHECKED"
checked_ReposicaoEstoque = "CHECKED"
display_ReposicaoEstoque = "style=""display: '';"""
End if
If RS_Pedidos("devolvido") = "0" then
Status_Devolvido = "Não"
Elseif RS_Pedidos("devolvido") = "1" then
Status_Devolvido = "Sim"
checked_Devolvido = "CHECKED"
End if
If RS_Pedidos("fraude") = "0" then
Status_Fraude = "Não"
Elseif RS_Pedidos("fraude") = "1" then
Status_Fraude = "Sim"
checked_Fraude = "CHECKED"
End if
%>
<%
RS_Pedidos.MoveNext
Loop
'Define o número de agrupamento de celulas (td) conforme a existência de CORES e TAMANHOS cadastrados
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Verifica se existe cores cadastrados
varColspan = 2
If Pega_Cor(vazio) = Empty Then
TemCor = 0
Else
TemCor = 1
End If
'Verifica se existe tamanhos cadastrados
If Pega_tamanho(vazio) = Empty Then
TemTamanho = 0
Else
TemTamanho = 1
End If
TemFinal = TemCor + TemTamanho
Select Case TemFinal
Case 0
varColspan = "2"
Case 1
varColspan = "3"
Case 2
varColspan = "4"
End Select
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fim da definição
%>
SUBTOTAL
<%= FormatNumber(varSubtotal) %>
FRETE
<%= FormatNumber(varTaxa_envio) %>
<%
' Verifica se há taxa adicional
If taxa_adicional <> "" Then
' Monta o total parcial
varTotalParcial = FormatNumber(varSubtotal + varTaxa_envio)
' Verifica o tipo de taxa
If tipo_taxa_adicional = "Desconto" Then ' Desconto
varTipoTaxaAdicional = "DESCONTO"
varTaxaAdicional = (varTotalParcial - varTotal)
ElseIf tipo_taxa_adicional = "Com juros" Then ' Juros Lojista
varTipoTaxaAdicional = "ACRÉSCIMO"
varTaxaAdicional = (varTotal - varTotalParcial)
End If
' Verifica se foi montado a exibição da taxa adicional
If varTipoTaxaAdicional <> "" And varTaxaAdicional <> "" Then
%>
<%= varTipoTaxaAdicional%>
<%= FormatNumber(varTaxaAdicional) %>
<%
End If
End If
%>
TOTAL
<%= FormatNumber(varTotal) %>
AÇÕES ADMINISTRATIVA PARA ESTE PEDIDO
<%
If msg_resultado <> "" And exibeMsgEstoqueEsgotado = false Then
%>
