<% 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 'Captura os valores da consulta a tabela Transacao_Visanet TID = RS_dadosVisa("tid") METODO = RS_dadosVisa("metodo") '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 '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") 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") End If Else 'Informa que houve um erro na finalização da transação Resposta_pagCerto = RS_dadosPagCerto("msgRetornoConsultaTransac") End If Else 'Informa que houve um erro no inicio da transação Resposta_pagCerto = RS_dadosPagCerto("msgRetornoInicioTransac") 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 '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") = "0" Then 'Captura os dados da transação codigoRetornoTransacao_Paggo = RS_dadosPaggo("codRetornoEstorno") msgRetornoTransacao_Paggo = RS_dadosPaggo("msgRetornoEstorno") nsu_Paggo = RS_dadosPaggo("nsuPaggo") Else 'Captura os dados da transação codigoRetornoTransacao_Paggo = RS_dadosPaggo("codRetornoTransacao") msgRetornoTransacao_Paggo = RS_dadosPaggo("msgRetornoTransacao") nsu_Paggo = RS_dadosPaggo("nsuPaggo") End If Else ' Não foi possível identificar o status da transação. msgRetornoTransacao_Paggo = Application("CtusmospedTxtStatusNaoIdent") End If End If 'Fecha e libera o objeto RecordSet RS_dadosPaggo.Close Set RS_dadosPaggo = 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")%> <%=Application("CtusmospedTxtDados")%> <%Call Mostra_Endereco("_cobranca",RS_Usuarios)%> + <%=Application("CtusmospedTxtDadosCobranca")%> <%Call Mostra_Endereco("_cobranca",RS_Pedidos)%> + <%=Application("CtusmospedTxtDadosEntrega")%> <%Call Mostra_Endereco("_entrega",RS_Pedidos)%> <%If RS_Pedidos("cancelado") = "1" Or RS_Pedidos("cancelado") = "2" Then%> <%End if%> <%If RS_Pedidos("devolvido") = "1" Then%> <%End if%> <%=Application("CtusmospedTxtInfoPed")%> <%=codigo_pedido%> <%= Application("CtusmospedTxtPedCan")%> <%=Application("CtusmospedTxtProdDelv")%> <% If RS_Pedidos("boleto_emitido") = "1" And RS_Pedidos("forma_pagamento") <> "Boleto" Then %> <% Else %> <% End If %> <%If tipo_taxa_adicional <> "" And RS_tipo_taxa_adicional <> "Juros do Emissor" Then%> <%End if%> <%If taxa_adicional <> "" And taxa_adicional <> "0" Then%> <%End if%> <%If RS_Pedidos("forma_pagamento") = "Visa" Or RS_Pedidos("forma_pagamento") = "VisaElectron" Then%> <%If RS_Pedidos("forma_pagamento") = "Visa" And captura_visa <> "" Then%> <%End If%> <%End if%> <%If RS_Pedidos("forma_pagamento") = "Mastercard" Or RS_Pedidos("forma_pagamento") = "Diners" Then%> <%If codautorRedecard <> "" Then%> <%End If%> <%If codautentRededcard <> "" Then%> <%End If%> <%End if%> <%If RS_Pedidos("forma_pagamento") = "Amex" Then%> <%End if%> <%If RS_Pedidos("forma_pagamento") = "Itau" Then%> <%If tipPag <> "" Then%> <%End If%> <%If sitPag <> "" Then%> <%End If%> <%If dtPag <> "" Then%> <%End If%> <%If codAut <> "" Then%> <%End If%> <%If numId <> "" Then%> <%End If%> <%If compVend <> "" Then%> <%End If%> <%If tipCart <> "" Then%> <%End If%> <%End If%> <%If RS_Pedidos("forma_pagamento") = "Unibanco" Then%> <%If numDocPedUnibanco <> "" Then%> <%End If%> <%End if%> <%If RS_Pedidos("forma_pagamento") = "Bradesco" Then%> <%If cod <> "" Then%> <%End If%> <%If errordesc <> "" Then%> <%End If%> <%If metPag <> "" Then%> <%End If%> <%If prazo <> "" Then%> <%End If%> <%If valParc <> "" Then%> <%End If%> <%If assinatura <> "" Then%> <%End If%> <%End If%> <%If RS_Pedidos("forma_pagamento") = "PagamentoCerto" Then%> <%If codigoTransacao_pagCerto <> "" Then%> <%End If%> <%If codigoTransacao_pagCerto <> "" Then%> <%End If%> <%End If%> <%If RS_Pedidos("forma_pagamento") = "Paggo" Then%> <%If codigoRetornoTransacao_Paggo <> "" Then%> <%End If%> <%If msgRetornoTransacao_Paggo <> "" Then%> <%End If%> <%If nsu_Paggo <> "" Then%> <%End If%> <%End If%> <%= Application("CtusmospedTxtPrimPagto")%> <%= Application("CtusmospedTxtFrmPag")%> <%=Application("CtusmospedTxtFrmPag")%>: <%=pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&RS_Pedidos("forma_pagamento")&"']","nome_visualizacao")%> <%=Application("CtusmospedTxtNumParc")%>: <%=RS_Pedidos("num_parcelas")%> <%=Application("CtusmospedTxtTipoTaxa")%>: <%=tipo_taxa_adicional%> <%=Application("CtusmospedTxtTaxa")%>: <%=taxa_adicional%>% <%=Application("CtusmospedTxtStatusVisa")%>: <%=Resposta_visa%> <%=Application("CtusmospedTxtCodIdent")%>: <%=TID%> <%=Application("CtusmospedTxtCodRet")%>: <%=LR%> <%=Application("CtusmospedTxtStatusCapt")%>: <%=captura_visa%> <%=Application("CtusmospedTxtMetUtil")%>: <%=METODO%> <%=Application("CtusmospedTxtStatusRedecard")%>: <%=status_redecard%> <%=Application("CtusmospedTxtCodAut")%>: <%=codautorRedecard%> <%=Application("CtusmospedTxtCodAutent")%>: <%=codautentRededcard%> <%=Application("CtusmospedTxtStatusAmex")%>: <%=status_Amex%> <%=Application("CtusmospedTxtStatusCapt")%>: <%=captura_amex%> <%=Application("CtusmospedTxtCodAut")%>: <%=codautAmex%> <%=Application("CtusmospedTxtCodRecept")%>: <%=ReceiptNo%> <%=Application("CtusmospedTxtTipPag")%>: <%= ITAU_TipPag(tipPag)%> <%=Application("CtusmospedTxtSitPag")%>: <%= ITAU_SitPag(sitPag)%> <%=Application("CtusmospedTxtDataPag")%>: <%=dtPag%> <%=Application("CtusmospedTxtNumPag")%>: <%=codAut%> <%=Application("CtusmospedTxtNSUTrans")%>: <%=numId%> <%=Application("CtusmospedTxtNumComp")%>: <%=compVend%> <%=Application("CtusmospedTxtTipoCartao")%>: <%=tipCart%> <%=Application("CtusmospedTxtStatusUnibanco")%>: <%=Resposta_unibanco%> <%=Application("CtusmospedTxtNumDocUnibanco")%>: <%= numDocPedUnibanco%> <%=Application("CtusmospedTxtCodRet")%>: <%= cod%> <%=Application("CtusmospedTxtMsgRet")%>: <%= errordesc%> <%=Application("CtusmospedTxtTipPag")%>: <%= tipPag%> - <%= metPag%> <%=Application("CtusmospedTxtPrazoBradesco")%>: <%= prazo%> <%=Application("CtusmospedTxtValParcBradesco")%>: <%= FormatCurrency(valParc)%> <%=Application("CtusmospedTxtAssinaturaBradesco")%>: <% Call FormataAssinaturaBradesco(assinatura)%> <%=Application("CtusmospedTxtTipPag")%>: <%=tipoPagto_pagCerto%> <%=Application("CtusmospedTxtSitPag")%>: <%=Resposta_pagCerto%> <%=Application("CtusmospedTxtCodTransacao")%>: <%=codigoTransacao_pagCerto%> <%=Application("CtusmospedTxtCodRet")%>: <%=codigoRetornoTransacao_Paggo%> <%=Application("CtusmospedTxtMsgRet")%>: <%=msgRetornoTransacao_Paggo%> NSU PAGGO: <%=nsu_Paggo%> <% If RS_Pedidos("boleto_emitido") = "1" And RS_Pedidos("forma_pagamento") <> "Boleto" Then %> <%= Application("CtusmospedTxtSegPagto")%> <%=Application("CtusmospedTxtFrmPag")%>: <%=pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='Boleto']","nome_visualizacao")%> <%=Application("CtusmospedTxtNumParc")%>: 1 <% End If %> <%If RS_Pedidos("instrucoes") <> "" Then%> <%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("boleto_emitido") = "1" Or RS_Pedidos("pago") = "0" And RS_Pedidos("forma_pagamento") = "PagamentoCerto" And Pega_DadoBanco("Transacao_PagamentoCerto","modulo","codigo_pedido",RS_Pedidos("codigo_pedido")) = "Boleto" Then %> <%End If%> <%End If%> <% varSubtotal = RS_Pedidos("subtotal")*FatorCambio(varValor_Cambio) varTaxa_envio = RS_Pedidos("taxa_envio")*FatorCambio(varValor_Cambio) varTotalPedido = RS_Pedidos("total")*FatorCambio(varValor_Cambio) %> <%= Application("CtusmospedTxtDadosPed")%> <%=Application("CtusmospedTxtPedPago")%>: <%If RS_Pedidos("pago") = "0" Then response.write Application("CtusmospedTxtNao") Else response.write Application("CtusmospedTxtSim") End if%> <%=Application("CtusmospedTxtPedAtend")%>: <%If RS_Pedidos("atendido") = "0" Then response.write Application("CtusmospedTxtNao") Else response.write Application("CtusmospedTxtSim") End if%> <%=Application("CtusmospedTxtDatPed")%>: <%=RS_Pedidos("data_pedido")%> <%=Application("CtusmospedTxtTipFrete")%>: <%=RS_Pedidos("tipo_frete")%>   <%=Application("CtusmospedTxtIP")%>: <%=RS_Pedidos("ip_cliente")%> <%=Application("CtusmospedTxtInstCli")%> <%=RS_Pedidos("instrucoes")%> <%=Application("CtusmospedTxtBoleto")%> <% Call geraboleto(RS_Pedidos("codigo_pedido")) %> <%=Application("CtusmospedTxtItPed")%> <%If VerificaExistenciaDado("codigo_cor","Cores","codigo_tamanho",Request("codigo_cor")) Then%> <%End if%> <%If VerificaExistenciaDado("codigo_tamanho","Tamanhos","codigo_tamanho",Request("codigo_tamanho")) Then%> <%End if%> <% Do Until RS_Pedidos.EOF If RS_Pedidos.AbsolutePosition Mod 2 = 0 Then strColor = "class='Linha2Tabela'" Else strColor = "class='Linha1Tabela'" End If %> > <%If VerificaExistenciaDado("codigo_cor","Cores","codigo_tamanho",Request("codigo_cor")) Then%> <%End if%> <%If VerificaExistenciaDado("codigo_tamanho","Tamanhos","codigo_tamanho",Request("codigo_tamanho")) Then%> <% 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 %> <% ' 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 = Application("CtusmospedTxtDesconto") varTaxaAdicional = (varTotalParcial - varTotalPedido) ElseIf tipo_taxa_adicional = "Com juros" Then ' Juros Lojista varTipoTaxaAdicional = Application("CtusmospedTxtAcrescimo") varTaxaAdicional = (varTotalPedido - varTotalParcial) End If ' Verifica se foi montado a exibição da taxa adicional If varTipoTaxaAdicional <> "" And varTaxaAdicional <> "" Then %> <% End If End If %> <% ' Verifica se há taxa adicional no pedido If tipo_taxa_adicional <> "" Then ' Verifica o tipo de taxa adicionado If tipo_taxa_adicional = "Desconto" Then ' Desconto sAdicionalInformativo = "* " & Application("CtusmospedTxtDescDe") & " " & taxa_adicional & "%" ElseIf tipo_taxa_adicional = "Com juros" Then ' Juros sAdicionalInformativo = "* " & Application("CtusmospedTxtJurosDe") & " " & taxa_adicional & "%" End If ' verifica se houve montagem do texto adicional informativo If sAdicionalInformativo <> "" Then %> <% End If End If %> <%=Application("CtusmospedTxtProd")%> <%=Application("CtusmospedTxtCor")%> <%=Application("CtusmospedTxtTam")%> <%=Application("CtusmospedTxtQte")%> <%=Application("CtusmospedTxtValor")%> <%=RS_Pedidos("nome_produto")%> <%=Pega_DadoBanco("Cores","nome_cor","codigo_cor",RS_Pedidos("codigo_cor"))%> <%=Pega_DadoBanco("Tamanhos","nome_tamanho","codigo_tamanho",RS_Pedidos("codigo_tamanho"))%><%End if%> <%=RS_Pedidos("quantidade")%> <%=VarSimboloMoeda%> <%=FormatNumber(RS_Pedidos("preco_unitario")*FatorCambio(varValor_Cambio))%> <%=Application("CtusmospedTxtSubtotal")%> <%=VarSimboloMoeda%> <%= FormatNumber(varSubtotal) %> <%=Application("CtusmospedTxtFrete")%> <%=VarSimboloMoeda%> <%= FormatNumber(varTaxa_envio) %> <%= varTipoTaxaAdicional%>* <%=VarSimboloMoeda%> <%= FormatNumber(varTaxaAdicional) %> <%=Application("CtusmospedTxtTotal")%> <%=VarSimboloMoeda%> <%= FormatNumber(varTotalPedido) %> <%=sAdicionalInformativo%>

<% Set RS_Pedidos = Nothing %>