<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 12/09/06 ' Arquivo: conta_usuario_mostra_pedido.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 30/04/08 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#- page="conta_usuario_mostra_pedido.asp" rodape = "no" 'Checa se o usuário está autenticado If Session("logado") = "" Then Response.Redirect "autentica.asp?lang="&Request("lang")&"&tipo_acesso=conta" End if %>
<% msg_resultado = request("msg_resultado") msg_resultadoPedidoExcluido = request("msg_resultadoPedidoExcluido") msg_resultadoMail = request("msg_resultadoMail") Set RS_Cambios = CreateObject("ADODB.Recordset") Set RS_Cambios.ActiveConnection = Conexao RS_Cambios.CursorLocation = 3 RS_Cambios.CursorType = 0 RS_Cambios.LockType = 1 RS_Cambios.Open "SELECT valor_moeda, simbolo_moeda FROM IdiomaseCambios WHERE sigla_idioma='"&varLang&"'", Conexao varValor_Cambio = RS_Cambios("valor_moeda") VarSimboloMoeda = RS_Cambios("simbolo_moeda") RS_Cambios.Close Set RS_Cambios = Nothing '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("codigo_pedido") = "" Then If Request("condicao") = "ultimo" Then codigo_pedido = Pega_DadoBanco("Pedidos","codigo_pedido","user_id","'" & session("user_id") & "' ORDER BY codigo_pedido DESC") Else codigo_pedido = Pega_DadoBanco("Pedidos","codigo_pedido","user_id","'" & session("user_id") & "' ORDER BY codigo_pedido ASC") End If adcAbacss0 = "ON" Else codigo_pedido = Request("codigo_pedido") adcAbacss1 = "ON" End If strSQL = "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.total, Pedidos.tipo_frete, Pedidos.codigo_frete, Pedidos.peso_total, Pedidos.forma_pagamento, Pedidos.num_parcelas, Pedidos.tipo_taxa_adicional, Pedidos.taxa_adicional, 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.user_ID = '" & session("user_id") & "'" If Trim(codigo_pedido) <> "" Then strSQL = strSQL & " AND Pedidos.codigo_pedido =" & codigo_pedido End If 'Monta a consulta as tabelas Pedidos e Pedido_Item RS_Pedidos.Open strSQL, Conexao 'Verifica se a consulta anterior obteve um resultado If RS_Pedidos.Eof Then %>
<%=Application("GblTxtVoltar")%>
<%=Application("CtusmospedTxtResultado")%>
<%=Application("CtusmospedTxtSemReg")%>
<% Response.end 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") '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 'Verifica se a consulta obteve um resultado If RS_dadosVisa("lr") <> "" 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",Application("CtusmospedTxtNao")),"30",Application("CtusmospedTxtSim")) 'Verifica se a transação Visanet foi aprovada If Cdbl(LR) = Cdbl(00) OR Cdbl(LR) = Cdbl(11) Then Resposta_visa = Application("CtusmospedTxtTransAprov") 'Ativa o botão de captura o pedido If IsNull(CAPTURA) Then captura_visa = Application("CtusmospedTxtTransNaoCapt") 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 = Application("CtusmospedTxtTransNeg") captura_visa = ""&Application("CtusmospedTxtTransNegCapt")&"" End If Else 'Informa que houve um erro na identificação do status da transação Resposta_visa = Application("CtusmospedTxtStatusNaoIdent") 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, NUMAUTENT, 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 = Application("CtusmospedTxtAprovada") codautorRedecard = RS_dadosRedecard("NUMAUTOR") codautentRedecard = RS_dadosRedecard("NUMAUTENT") Else status_redecard = Application("CtusmospedTxtNegada") & " - " & RS_dadosRedecard("CODRET_confirmacao") End If Else status_redecard = Application("CtusmospedTxtNegada") & " - " & RS_dadosRedecard("CODRET") End If numParcelaRedecard = RS_dadosRedecard("num_parcelas") jurosRedecard = Replace(Replace(RS_dadosRedecard("juros"),"0",Application("CtusmospedTxtNao")),"1",Application("CtusmospedTxtSim")) 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 é Amex 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 = Application("CtusmospedTxtAprovada") & " - " & RS_dadosAmex("TxnResponseCode") codautAmex = RS_dadosAmex("AuthorizeId") ReceiptNo = RS_dadosAmex("ReceiptNo") TransactionNo = RS_dadosAmex("TransactionNo") If IsNull(RS_dadosAmex("status_captura")) Then captura_amex = Application("CtusmospedTxtTransNaoCapt") acao_capturar = "capturar" Else If RS_dadosAmex("status_captura") = 0 Then MSG_CAPTURA = Application("CtusmospedTxtTransCaptOK") Else MSG_CAPTURA = Application("CtusmospedTxtTransCaptFalha") End If captura_amex = MSG_CAPTURA & " ( " & RS_dadosAmex("status_captura") & " )" End If Else status_amex = Application("CtusmospedTxtNegada") & " - " & RS_dadosAmex("TxnResponseCode") captura_amex = ""& Application("CtusmospedTxtTransNegCapt") &"" 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 '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 é Unibanco If RS_Pedidos("forma_pagamento") = "Unibanco" Then '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 = Application("CtusmospedTxtStatusNaoIdent") Else If RS_dadosUnibanco("situacao_pedido") <> "" Then Resposta_unibanco = Unibanco_SitPed(RS_dadosUnibanco("situacao_pedido")) numDocPedUnibanco = RS_dadosUnibanco("numdoc_pedido") Else Resposta_unibanco = Application("CtusmospedTxtStatusNaoIdent") End If End If 'Fecha e libera o objeto RecordSet RS_dadosUnibanco.Close Set RS_dadosUnibanco = 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 ' 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 'Define o número da remessa do pedido num_remessa = RS_Pedidos("num_remessa") 'Define as taxas utilizadas tipo_taxa_adicional = RS_Pedidos("tipo_taxa_adicional") taxa_adicional = RS_Pedidos("taxa_adicional") 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, cnpj_cobranca, inscricaoestadual_cobranca, nome_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 %>
<%=Application("GblTxtVoltar")%>
<%=Application("CtusmospedTxtTodPed")%> <%=UCase(RS_Pedidos("nome_cobranca"))%>
<%If request("user_id") <> "" Then%> <%Else%> <%End if%> <% Set RS_Usuarios = Nothing %> <%If request("user_id") = "" Then%> <%Else%> <%End if%>
<%Call lista_ItensPedidosContaUsuario(session("user_id"),codigo_pedido,"adminCliente")%>
<% Set RS_Pedidos = Nothing %>