<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb 
' Versão: 6.4
' Data: 12/09/06
' Arquivo: funcoes_estrutura_recibo.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 06/05/08
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

'##########################################################################################################
'SUB Recibo
' - 
' - 
'##########################################################################################################
Sub Recibo(Conexao,forma_pagamento,compra,cod_erro,msg_erro,identificacao_pedido)

    'Abre conexao ao XML dos meios de pagto.
    Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRoot)
    Set configuracao = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='"&forma_pagamento&"']")

    'Abre conexao ao BD para captura dos dados do pedido
    Set RS_Pedido = CreateObject("ADODB.Recordset")
    Set RS_Pedido.ActiveConnection = Conexao
    RS_Pedido.CursorLocation = 3
    RS_Pedido.CursorType = 0
    RS_Pedido.LockType =  1

   If session("id_transacao") <> "" Then
        RS_Pedido.Open "SELECT TOP 1 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.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 Pedidos WHERE sessionID = '" & session("id_transacao") & "' ORDER BY Pedidos.codigo_pedido DESC" , Conexao
        
        If Not RS_Pedido.EOF Then
            Session("tipo_frete") = RS_Pedido("tipo_frete")
        Else
            compra = "negada"
            msg_erro = Application("FestrTxtPedNaoEncontrado")
        End If

    Else
        If request("numpedido") <> "" Then
            codigo_pedido = request("numpedido")
        End If
        
        If request("orderid") <> "" Then
            codigo_pedido = request("orderid")
        End If

        If request("vOrderInfo") <> "" Then
            codigo_pedido = request("vOrderInfo")
        End If
        
        If request("numOrder") <> "" Then
            codigo_pedido = request("numOrder")
        End if

        RS_Pedido.Open "SELECT 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.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 Pedidos WHERE codigo_pedido = " & codigo_pedido & "" , Conexao
        
        If Not RS_Pedido.EOF Then
            Session("id_transacao") = RS_Pedido("sessionID")
            Session("tipo_frete") = RS_Pedido("tipo_frete")
        Else
            compra = "negada"
            msg_erro = Application("FestrTxtPedNaoEncontrado")
        End If
    
    End If

    ' Apenas continua o processo caso não ocorra erros
    If msg_erro = "" And compra <> "negada" Then

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

    If forma_pagamento = "Amex" Then
        'Resgata novamente alguns dados de retorno para exibição ao comprador
        ReceiptNo = request("ReceiptNo")
        AuthorizeId = request("AuthorizeId")
        TxnResponseCode = request("TxnResponseCode")

        ' Imprime na tela os valores recebidos da operadora
        Response.write AMEX_getresponseDescription(TxnResponseCode) & "<br>"
        Response.write Application("FestrTxtCodigoReceptor") & ": " & ReceiptNo & "<br>"
        Response.write Application("FestrTxtCodigoTrans") & ": " & AuthorizeId  & "<br><br>"
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Visa" Or forma_pagamento = "VisaElectron" Then

        If request("tid") <> "" Then
            tid = request("tid")
        End if
        
        'Verifica a solução definida para uso da transação (VBV ou MOSET).
        If configuracao.getAttribute("VisanetTipo") = "VBV" Then

            'Usamos o Dynu.HTTP para ler o XML remoto
            Set objDynu = Server.Createobject("Dynu.HTTP")
            'Abaixo atribuímos o cabeçalho
            objDynu.SetHeader "user-agent","DynuHTTP"
            objDynu.SetURL Application("URLVisanetXMLVBV") & tid & ".xml"
            ResultadoVisanet = objDynu.GetURL()
            Set objDynu = Nothing

            set objFSO = Server.CreateObject("Scripting.FileSystemObject")
                
                set CriarArquivo = objFSO.CreateTextFile(Application("DiretorioResultsVBV") & tid & ".xml")
                CriarArquivo.Close
                set CriarArquivo = nothing

                set EditaArquivo = objFSO.OpenTextFile(Application("DiretorioResultsVBV") & tid & ".xml", 8)
                EditaArquivo.WriteLine(ResultadoVisanet)
                EditaArquivo.close
                set EditaArquivo = nothing
                
            set objFSO = nothing

            Set objSrvHTTP = Nothing
            Set objXML = Server.CreateObject("MSXML2.DOMDocument")
            objXML.async = False 
            caminho = Application("DiretorioResultsVBV") & tid & ".xml"
            objXML.load(caminho)
                                    
            If CStr(objXML.parseError.errorCode) <> "0" Then
              Response.Write Application("FestrTxtErroTratXML")
              Response.end					
            End If
                
            Set varTID=objXML.getElementsByTagName("TID")
            Set varLR = objXML.getElementsByTagName("LR")
            Set varARP = objXML.getElementsByTagName("ARP")
            Set varPRICE = objXML.getElementsByTagName("PRICE")
            Set varORDERID = objXML.getElementsByTagName("ORDERID")
            Set varFREE = objXML.getElementsByTagName("FREE")
            Set varPAN = objXML.getElementsByTagName("PAN")
            Set varBANK = objXML.getElementsByTagName("BANK")
            Set varARS = objXML.getElementsByTagName("ARS")
            Set varAUTHENT = objXML.getElementsByTagName("AUTHENT")
                        
            TID		=	varTID.item(0).text 
            session("TID") = TID
            LR		=	varLR.item(0).text 	
            session("LR") = LR
            ARP		=	varARP.item(0).text 	
            session("ARP") = ARP
            PRICE	=	varPRICE.item(0).text 	
            session("PRICE")
            ORDERID =	varORDERID.item(0).text 
            session("ORDERID") = ORDERID
            FREE	=	varFREE.item(0).text 	
            session("FREE") = FREE
            PAN		=	varPAN.item(0).text 	
            session("PAN") = PAN
            BANK	=	varBANK.item(0).text 	
            session("BANK") = BANK
            ARS		=	varARS.item(0).text 	
            session("ARS") = ARS
            AUTHENT	=	varAUTHENT.item(0).text 
            session("AUTHENT") = AUTHENT

            Set objSrvHTTP = Nothing

        Else

            Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
            
            objSrvHTTP.open "GET", Application("URLVisanetXMLMOSET") & tid & "_res", false
            objSrvHTTP.send
            
            If objSrvHTTP.Status = 200 Then
                XMLRetorno = objSrvHTTP.responseText
            Else
                Response.write "Error: (" & objSrvHTTP.Status & ") " & objSrvHTTP.statusText
                Response.end
            End If
            
            Set objSrvHTTP = Nothing

            XMLRetornoFrmt = Split(XMLRetorno,";")

            If XMLRetornoFrmt(0) = "aprovada" And XMLRetornoFrmt(1) = "00" Then
                LR    = XMLRetornoFrmt(1)
                session("LR") = LR
                TID   = XMLRetornoFrmt(3)
                session("TID") = TID
                ARP   = XMLRetornoFrmt(2)
                session("ARP") = ARP
                PRICE = XMLRetornoFrmt(4)
                session("PRICE") = PRICE
            Else
                LR    = XMLRetornoFrmt(1)
                session("LR") = LR
                TID   = XMLRetornoFrmt(2)
                session("TID") = TID
                PRICE = XMLRetornoFrmt(3)
                session("PRICE") = PRICE
                ARS = VISAMOSET_MSG_LR(LR)
                session("ARS") = ARS
            End If

            ORDERID = Session("codigo_pedido")

        End If

        'Grava os dados da transação Visanet no banco de dados
        Call GravaTransacaoFinalVisa(ORDERID,PRICE,TID,LR,ARP,FREE,PAN,BANK,ARS,AUTHENT)

        If Cdbl(LR) <> Cdbl(00) And Cdbl(LR) <> Cdbl(11) Then
            compra = "negada"
            cod_erro = LR
            msg_erro = ARS
            Session("codigo_pedido") = ORDERID
        End If
        Session("codigo_pedido") = ORDERID
        identificacao_pedido = TID

    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Mastercard" Or forma_pagamento = "Diners" Then
        Set RS_Pedido_redecard = CreateObject("ADODB.Recordset")
        Set RS_Pedido_redecard.ActiveConnection = Conexao
        RS_Pedido_redecard.CursorLocation = 3
        RS_Pedido_redecard.CursorType = 0
        RS_Pedido_redecard.LockType =  3

        RS_Pedido_redecard.Open "Select Pedidos.total, Transacao_redecard.num_parcelas FROM Pedidos INNER Join Transacao_redecard ON Pedidos.codigo_pedido = Transacao_redecard.codigo_pedido WHERE Pedidos.codigo_pedido = " & Request.Querystring("NUMPEDIDO"), Conexao

        ' ******************************** Dados obtidos de sua loja ***************
        ' valor total da compra (sem formatação).
        total = FormataValor(RS_Pedido_redecard("total"))
        ' número de parcelas da compra
        numparcelas = RS_Pedido_redecard("num_parcelas")
        ' número de afiliação junto à Redecard
        numafiliacao = configuracao.getAttribute("RedeCardFiliacao")
        ' habilita cobrança de juros em parcelamento de compras.
        RedeCardJurosParcelado = configuracao.getAttribute("juros")

        ' ********************* Dados obtidos do retorno da Redecard ***************
        'codigo da autorizacao, se tiver
        NUMAUTOR = Request.QueryString("NUMAUTOR")
        'comprovante de venda
        NUMCV = Request.QueryString("NUMCV")
        'número sequencial unico da transação
        NUMSQN = Request.QueryString("NUMSQN")
        'número de autenticação
        NUMAUTENT = Request.QueryString("NUMAUTENT")
        'parte do número do cartão utilizado
        NR_CARTAO = Request.QueryString("NR_CARTAO")
        'bin do cartão
        ORIGEM_BIN = Request.QueryString("ORIGEM_BIN")
        'campo livre
        PAX1 = Request.QueryString("PAX1")
        'data da transação
        DATA = Request.QueryString("DATA")
        'Codigo de retorno AVS
        RESPAVS = Request.QueryString("RESPAVS")
        'Mensagem de retorno do AVS
        MSGAVS = Request.Querystring("MSGAVS")
        'Número do pedido
        NUMPEDIDO = Request("NUMPEDIDO")

        'status transacao
        If (Request("CODRET") <> "" And Request("CODRET") <> "0") Then
           status = Request("CODRET")
           autent = Request.QueryString("MSGRET")
        Else
           status = 0
          'numero da autenticacao
           autent = Request.QueryString("NUMAUTENT") 
        End If


        ' **************************** Verifica se está permitido cartões estrangeiros ***************
        If configuracao.getAttribute("permite_cartoesestrangeiros") = "não" And ORIGEM_BIN <> "BRA" Then
            status = 999
            autent = Application("REDECARD_CODRET999")
        End If

        'Grava os dados finais da transação Redecard no banco de dados
        Call GravaTransacaoFinalRedecard(Request.Querystring("NUMPEDIDO"),status,autent,NUMAUTOR,NUMSQN,NUMCV,NUMAUTENT,NR_CARTAO,ORIGEM_BIN,PAX1,RESPAVS,MSGAVS,"","")

        ' ************************ Confirma transação com a Redecard ***************
        If (status = 0) Then
            valores = "DATA=" & DATA
            valores = valores & "&TRANSACAO=203"
            If Len(numparcelas) = 1 Then
                parcelas = "0" & numparcelas
            Else
                parcelas = numparcelas
            End If

            If parcelas = "01" or parcelas = "00" or numparcelas = "" Then 
                parcelas = "00"
                trans_orig = "04"
            Else 
                If RedeCardJurosParcelado = "emissor" Then
                    trans_orig = "06"
                Else 
                    trans_orig = "08"
                End If
            End If

            valores = valores & "&TRANSORIG=" & trans_orig
            valores = valores & "&PARCELAS=" & parcelas
            valores = valores & "&FILIACAO=" & numafiliacao
            valores = valores & "&DISTRIBUIDOR=" ' este campo deve ser nulo
            total = Left(total, Len(total)-2) & "." & Right(total,2)
            valores = valores & "&TOTAL=" & total
            valores = valores & "&NUMPEDIDO=" & NUMPEDIDO
            valores = valores & "&NUMAUTOR=" & NUMAUTOR
            valores = valores & "&NUMCV=" & NUMCV
            valores = valores & "&NUMSQN=" & NUMSQN

            ' contacta RedeCard e confirma transação
            Set objSrvHTTP = CreateObject("MSXML2.ServerXMLHTTP")
            objSrvHTTP.open "GET", Application("URLRedecardConfirma") & "?" & valores, false
            objSrvHTTP.send
            RetornoRedecard = objSrvHTTP.responseText
            Set objSrvHTTP = Nothing

           ' formata o retorno da confirmação da compra
            pos = Instr(1, RetornoRedecard, "&") 
            If (pos <> 0) Then
                expr1 = Left(RetornoRedecard, pos-1)
                expr2 = Mid(RetornoRedecard, pos+1, len(RetornoRedecard))

                pos = Instr(1, expr1, "=") 
                If (pos <> 0) Then
                    status = Mid(expr1, pos+1, len(expr1))
                End If

                pos = Instr(1, expr2, "=") 
                If (pos <> 0) Then
                    msg = Mid(expr2, pos+1, len(expr2))
                End If
                If (status > 1) Then
                    autent = msg
                End If
            End If

            ' Verifica se a transação não foi confirmada
            If (status <> 1) Then
                codRetConf = status
                msgRetConf = autent
            End If

            'Atualiza alguns dados restantes do final da transação Redecard no banco de dados
            Call GravaTransacaoFinalRedecard(NUMPEDIDO,"","","","","","","","","","","",codRetConf,msgRetConf)

        End If
        ' **************************** Em caso de falha na transação ***************
        If (status > 1) Then
            compra   = "negada"
            cod_erro = status
            msg_erro = URLDecode(URLDecode(autent))
        End If
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Deposito" Then
        Response.write "<b>"&Application("FestrTxtDadosParaDep")&":</b></center><br>"
        Response.write Application("FestrTxtCorrentista")& ": " & configuracao.getAttribute("DepositoCorrentista") & "<br>"
        Response.write "<b>"&Application("FestrTxtDadosDeposito") & "</b><br> " & Replace(configuracao.getAttribute("DadosDeposito"),vbcrlf,"<br>") & "<br><br>"
        Response.write Application("FestrTxtEnvieComprov")& ":<br>"
        Response.write Application("FestrTxtEmail") & ": " & configuracao.getAttribute("DepositoEnvioCompEmail") & "<br>"
        Response.write Application("FestrTxtFax") &": " & configuracao.getAttribute("DepositoEnvioCompFax")
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Itau" Then
        
        Set objSrvHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")
                                        
        'Monta os dados postados à operadora
        valores = "modulo=" & configuracao.getAttribute("modulo")
        valores = valores & "&ambiente=" & configuracao.getAttribute("ambiente")
        valores = valores & "&identificacao=" & configuracao.getAttribute("IdentificacaoLocaweb")
        valores = valores & "&DC=" & Request("DC")
        valores = valores & "&URLRETORNO=" & Application("URLRecibo")
        valores = valores & "&operacao=RETORNO"
        
        objSrvHTTP.open "POST", Application("URLItauShopline"), False

        objSrvHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        objSrvHTTP.send valores

        If objSrvHTTP.Status = 200 Then
            response.write objSrvHTTP.responseText
        Else
            Response.write "Error: (" & objSrvHTTP.Status & ") " & objSrvHTTP.statusText
        End If

        response.end
    
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Brasil" Then
        'Atualiza os dados da transação BB no banco de dados
        REFTRAN = CodPedBrasil(RS_Pedido("codigo_pedido"), configuracao.getAttribute("BBCodCobranca"))
        Call GravaTransacaoFinalBrasil(RS_Pedido("codigo_pedido"),REFTRAN,RS_Pedido("total"),Request("tpPagamento"))

        
        'Retira a pagina de recibo do popup
        URLRecibo = Application("URLRecibo") & "?refTran=" & Request("refTran") & "&idConv=" & Request("idConv") & "&tpPagamento=" & Request("tpPagamento") & "&RECIBOFIM=1"
            
    %>
        <script language="Javascript">
        if (top.opener && top.opener.top && typeof(top.opener.top.length)=="number") {
            top.opener.top.location = "<%= URLRecibo%>";
        } else {
            window.open("<%= URLRecibo%>", "loja", "toolbar=1,location=1,directories=1,status=1,menubar=1,scrollbars=1,resizable=1,width=760,height=440");
        }
        parent.close();
        </script>
    <%
        response.end
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Unibanco" Then
    %>
        <table border="0" cellpadding="4" cellspacing="2" style="background-color: #FFFFFF; border: #000000 1px solid;" align="center">
            <tr>
                <td Onclick="javascript:JanelaNova('dados_compra_unibanco.asp?pedido=<%= RS_Pedido("codigo_pedido")%>',800,500);" style="cursor: pointer;" align="center"><IMG border="0" src="config/templates/<%=varLang%>/<%=varSkin%>/banner_unibanco.gif" alt="<%= Application("FestrTxtCliqueAquiPagar")%>"><br><br><%= Application("FestrTxtCliqueAquiPagar")%></td>
            </tr>
        </table>
    <%
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "CobreBem" Then
        Call CriaLinkCobreBem(RS_Pedido, RS_Pedido("total"), URLBoleto)
        Response.write Application("FestrTxtParaImprimir") & "<a href=""javascript:JanelaNova('"&URLBoleto&"');"">"&Application("FestrTxtCliqueAqui")&"</a> ("&Application("FestrTxtUtilizeImpressora")&").<br><br>"
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Bradesco" Then
        ' ***** SOMENTE BRADESCONET *****
        Set RS_Bradesco = CreateObject("ADODB.Recordset")
        RS_Bradesco.CursorLocation = 3
        RS_Bradesco.CursorType = 0
        RS_Bradesco.LockType =  3

        RS_Bradesco.Open "SELECT codigo_pedido, metodoPagto, tipoPagto, prazo, numParcelas, valorParcela, total, dataCompra, status, ccname, ccemail, cctype, assinatura FROM Transacao_Bradesco WHERE codigo_pedido = " & RS_Pedido("codigo_pedido"), Conexao 
        
        Session("codigo_pedido") = RS_Pedido("codigo_pedido")

        Response.write Application("FestrTxtFormaPagBradesco") & ": "
        If (request("if") = "bradesco") Then
            Response.write TipoCartaoBradesco(RS_Bradesco("cctype")) & "<br>"
        Elseif (request("if") = "visanet") Then
            Response.write Application("FestrTxtPagtoFacilBradesco") & "<br>"
        Elseif (request("if") = "financiamento") Then
            Response.write Application("FestrTxtFinancBradesco") & "<br>"
        End If

        If (request("if") = "bradesco") Then
            Response.write Application("FestrTxtPrazoDebBradesco") & ": "
            If (Instr(RS_Bradesco("cctype"),"BradescoDebito") <> 0) Then
                Response.write configuracao.getAttribute("PrazoMaxBradescoDebito") & "<br>"
            Else
                Response.write Application("FestrTxtDataVenctoCartao") & "<br>"
            End If
            Response.write "<br>"
        End If

        NSUHost  = request("NSUHost")
        CodSitef = request("CodSitef")

        If ((IsNumeric(NSUHost)) and (IsNumeric(CodSitef))) Then
            If ((clng(NSUHost)>0) and (clng(codSitef)>0)) Then
                Response.write Application("FestrTxtNSUHost") &": " & NSUHost & "<br>"
                Response.write Application("FestrTxtCodigoSitef") & ": " & CodSitef & "<br>"
            End If
            Response.write "<br>"
        End If

        ' pagamento parcelado ou com juros
        If (request("if") = "bradesco") And Trim(RS_Bradesco("tipoPagto")) <> "" Then
            If (CInt(RS_Bradesco("tipoPagto"))) and (CInt(RS_Bradesco("tipoPagto")) < 4) Then
                Response.write Application("FestrTxtPagamentoEm") & RS_Bradesco("numParcelas") & Application("FestrTxtParcelasDe") & FormatCurrency(RS_Bradesco("valorParcela")) & "<br>"
            End If
            If (CInt(RS_Bradesco("tipoPagto")) = 4) Then
                Response.write Application("FestrTxtPagamentoEm") & RS_Bradesco("numParcelas") & Application("FestrTxtParcelasAcrescidas") & "<br>"
            End if
            Response.write "<br>"
        End If

        If Len(Trim(RS_Bradesco("assinatura"))) <> 0 Then
            Assinatura = RS_Bradesco("assinatura")
        Else
            Assinatura = Request("assinatura")
            RS_Bradesco("assinatura") = Assinatura
            RS_Bradesco.Update
        End If
        
        Response.write Application("FestrTxtAutenticacao") & "<br><br>"
        Call FormataAssinaturaBradesco(Assinatura)

        RS_Bradesco.Close
        Set RS_Bradesco = Nothing
        
    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "ABNCDC" Then
        'Transacao aprovada ou em analise

        ABN_status = Request("RET01")
        ABN_erro = Request("RET02")
        ABN_flv = Request("RET03")
        ABN_numero_prestacao = Request("RET04")
        ABN_valor_prestacao = Request("RET05")
        ABN_valor_entrada = Request("RET06")

        Response.write ABN_MSG_status(ABN_status, ABN_erro) & "<br>"
        Response.write Application("FestrTxtRetornoTransacao") & ": " & ABN_status & "<br>"
        Response.write Application("FestrTxtIdentificadorFLV") & ": " & ABN_flv & "<br>"
        Response.write Application("FestrTxtNumParcelas") & ": " & ABN_numero_prestacao & "<br>"
        Response.write Application("FestrTxtVlrParcela") & ": " & ABN_valor_prestacao & "<br>"
        Response.write Application("FestrTxtVlrEntrada") & ": " & ABN_valor_entrada & "<br>"

    End If

'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
    If forma_pagamento = "Boleto" Then
        
        'Definições globais as formas de pagamento
        Session("URLBoleto") = Application("URLCompleta")
        valor = RS_Pedido("total")
        'Verifica se o dia de vencimento definido é numérico
        If IsNumeric(configuracao.getAttribute("DiasdeVencimento")) Then
            vencimento = Formatdatetime(DateAdd("d", configuracao.getAttribute("DiasdeVencimento"), RS_Pedido("data_pedido")), 2)
        Else
            vencimento = configuracao.getAttribute("DiasdeVencimento")
        End If

        ' Para uso do Boleto do Banco do Brasil
        If configuracao.getAttribute("BoletoTipo") = "BoletoBancoBrasil" Then

            Set configuracaoBB = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='Brasil']")

            'Verifica se o dia de vencimento definido é numérico
            If IsNumeric(configuracaoBB.getAttribute("BBDiasdeVencimento")) Then
                vencimentoBB = Formatdatetime(DateAdd("d", configuracaoBB.getAttribute("BBDiasdeVencimento"), RS_Pedido("data_pedido")), 2)
            Else
                vencimentoBB = Formatdatetime(Date, 2)
            End If

            Response.write Application("FestrTxtCliqueLinkBoleto") &" ("&Application("FestrTxtUtilizeImpressora")&")"

            Call CriaBoletoBancoBrasil(RS_Pedido, vencimentoBB, configuracaoBB.getAttribute("BBConvenio"), configuracaoBB.getAttribute("BBCodCobranca"), configuracaoBB.getAttribute("BBComentario"))
            
            Session("URLBoleto") = Application("URLLoja") & "/conta_usuario_gerar_boleto.asp?codigo_pedido=" & Session("codigo_pedido") & "&cpf=" & RS_Pedido("cpf_cobranca")

            Set configuracaoBB = Nothing

        ' Para uso do Boleto do Bradesco
        Elseif configuracao.getAttribute("BoletoTipo") = "BoletoBradesco" Then

            Set configuracaoBradesco = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='Bradesco']")

            If configuracaoBradesco.getAttribute("ambiente") = "TESTE" Then
                varURLBradescoBoleto = Application("URLTESTEBradescoBoleto")
            Else
                varURLBradescoBoleto = Application("URLPRODBradescoBoleto")
            End If
            
            URLBoleto = varURLBradescoBoleto & configuracaoBradesco.getAttribute("BradescoLoja") & "/prepara_pagto.asp?merchantid=" & configuracaoBradesco.getAttribute("BradescoLoja") & "&orderid=" & Session("codigo_pedido")   
            
            Response.write Application("FestrTxtParaImprimir") &"<a href=""javascript:JanelaNova('"&URLBoleto&"');"">"&Application("FestrTxtCliqueAqui")&"</a> ("&Application("FestrTxtUtilizeImpressora")&").<br><br>"

			Session("URLBoleto") = Application("URLLoja") & "/conta_usuario_gerar_boleto.asp?codigo_pedido=" & Session("codigo_pedido") & "&cpf=" & RS_Pedido("cpf_cobranca")
            
            Set configuracaoBradesco = Nothing

        ' Para uso do Boleto do Itaú
        Elseif configuracao.getAttribute("BoletoTipo") = "BoletoItau" Then
            
            Set configuracaoItau = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='Itau']")

            'Verifica se o dia de vencimento definido é numérico
            If IsNumeric(configuracaoItau.getAttribute("ItauDiasdeVencimento")) Then
                vencimentoItau = Formatdatetime(DateAdd("d", configuracaoItau.getAttribute("ItauDiasdeVencimento"), RS_Pedido("data_pedido")), 2)
            Else
                vencimentoItau = Formatdatetime(Date, 2)
            End If

            Set configuracaoItau = Nothing

            Response.write "<center>" & Application("FestrTxtCliqueLogoBoleto") & "</center><br>"

            Call CriaLinkItau(RS_Pedido, vencimentoItau)

            Session("URLBoleto") = Application("URLLoja") & "/conta_usuario_gerar_boleto.asp?codigo_pedido=" & Session("codigo_pedido") & "&cpf=" & RS_Pedido("cpf_cobranca")
    
        ' Para uso do Boleto do CobreBem
        Elseif configuracao.getAttribute("BoletoTipo") = "BoletoCobreBem" Then
            
            Call CriaLinkCobreBem(RS_Pedido, valor, URLBoleto)
            
            Response.write Application("FestrTxtParaImprimir") & "<a href=""javascript:JanelaNova('"&URLBoleto&"');"">"&Application("FestrTxtCliqueAqui")&"</a> ("&Application("FestrTxtUtilizeImpressora")&").<br><br>"

            Session("URLBoleto") = Application("URLLoja") & "/conta_usuario_gerar_boleto.asp?codigo_pedido=" & Session("codigo_pedido") & "&cpf=" & RS_Pedido("cpf_cobranca")
    
        ' Para uso do Boleto Genérico
        Else
            
            str_Boleto = "identificacao=" & configuracao.getAttribute("IdentificacaoLocaweb")
            str_Boleto = str_Boleto & "&modulo=" & configuracao.getAttribute("modulo")
            str_Boleto = str_Boleto & "&ambiente=" & configuracao.getAttribute("ambiente")

            str_Boleto = str_Boleto & "&valor=" & FormatNumber(valor, 2)
            str_Boleto = str_Boleto & "&numdoc=" & RS_Pedido("codigo_pedido")
            str_Boleto = str_Boleto & "&vencto="& vencimento

			If RS_Pedido("razaosocial_cobranca") <> "" And RS_Pedido("cnpj_cobranca") <> "" Then
                str_Boleto = str_Boleto & "&sacado=" & Server.URLEncode(RS_Pedido("razaosocial_cobranca"))
                str_Boleto = str_Boleto & "&cgccpfsac=" & Server.URLEncode(RS_Pedido("cnpj_cobranca"))
			Else
                str_Boleto = str_Boleto & "&sacado=" & Server.URLEncode(RS_Pedido("nome_cobranca"))
                str_Boleto = str_Boleto & "&cgccpfsac=" & Server.URLEncode(RS_Pedido("cpf_cobranca"))
			End If
            str_Boleto = str_Boleto & "&enderecosac=" & Server.URLEncode(RS_Pedido("logradouro_cobranca"))
            str_Boleto = str_Boleto & "&numeroendsac=" & Server.URLEncode(RS_Pedido("numero_cobranca"))
            str_Boleto = str_Boleto & "&complementosac=" & Server.URLEncode(RS_Pedido("complemento_cobranca"))
            str_Boleto = str_Boleto & "&bairrosac=" & Server.URLEncode(RS_Pedido("bairro_cobranca"))
            str_Boleto = str_Boleto & "&cidadesac=" & Server.URLEncode(RS_Pedido("cidade_cobranca"))
            str_Boleto = str_Boleto & "&cepsac=" & Server.URLEncode(RS_Pedido("cep_cobranca"))
            str_Boleto = str_Boleto & "&ufsac=" & Server.URLEncode(RS_Pedido("estado_cobranca"))
            
            str_Boleto = str_Boleto & "&logoloja="& Application("URLLogoLoja")
            str_Boleto = str_Boleto & "&instr1="& Server.URLEncode(configuracao.getAttribute("instrucoesboleto1"))
            str_Boleto = str_Boleto & "&instr2="& Server.URLEncode(configuracao.getAttribute("instrucoesboleto2"))
            str_Boleto = str_Boleto & "&instr3="& Server.URLEncode(configuracao.getAttribute("instrucoesboleto3"))
            str_Boleto = str_Boleto & "&instr4="& Server.URLEncode(configuracao.getAttribute("instrucoesboleto4"))
            str_Boleto = str_Boleto & "&instr5="& Server.URLEncode(configuracao.getAttribute("instrucoesboleto5"))
            str_Boleto = str_Boleto & "&tituloloja="& Server.URLEncode(configuracao.getAttribute("titulo_boleto"))
            str_Boleto = str_Boleto & "&botoesboleto="& configuracao.getAttribute("botoesboleto")
			
            ' URL para geração do boleto
    		URLBoleto = Application("URLLocaWebBoleto") & "?" & str_Boleto    
    
            Session("URLBoleto") = Application("URLLoja") & "/conta_usuario_gerar_boleto.asp?codigo_pedido=" & Session("codigo_pedido") & "&cpf=" & RS_Pedido("cpf_cobranca") 

            If Session("perfil_usuario") <> "" And session("LogadoAdmin") = "LogadoAdmin" Then
                response.write "<input type=""button"" value=""Reemissão do Boleto"" onclick=""javascript:JanelaNova('"&URLBoleto&"');"" class=""Buttons"">"
            Else
                Response.write Application("FestrTxtParaImprimir") & "<a Onclick=""javascript:JanelaNova('"&URLBoleto&"');"" style=""cursor:pointer;"">"&Application("FestrTxtCliqueAqui")&"</a> ("&Application("FestrTxtUtilizeImpressora")&")."
            End If

        End If

    End If
'|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||

    End If

    Set configuracao = Nothing

    'Fecha conexao ao XML dos meios de pagto.
    Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),FctobjXML,FctobjRoot) 

End Sub
'########################################################################################################
'--> FIM SUB Recibo
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB CriaBoletoBancoBrasil
' - 
' - 
'##########################################################################################################
Sub CriaBoletoBancoBrasil(RS_Pedido, vencimento, BBConvenio, BBCodCobranca, BBComentario) 

    total      = FormataValor(RS_Pedido("total"))
    vencimento = FormataData(vencimento)
    endereco   = Server.htmlEncode(RS_Pedido("logradouro_cobranca") & ", " & RS_Pedido("numero_cobranca"))
    If (RS_Pedido("complemento_cobranca") <> "") Then
        endereco = endereco & Server.htmlEncode(" - " & RS_Pedido("numero_cobranca"))
    End If

    If Session("codigo_pedido_remissao") <> "" Or Session("perfil_usuario") <> "" Or Session("logado") <> "" And Session("id_transacao") = "" Then
%>
        <FORM action="<%= Application("URLBancoBrasil") %>" method="post" name="brasil<%= RS_Pedido("codigo_pedido") %>" target="vpos"> 
            <input type="hidden" name="idConv" value="<%= BBConvenio %>">
            <input type="hidden" name="valor" value="<%= total %>">
            <input type="hidden" name="refTran" value="<%= CodPedBrasil(RS_Pedido("codigo_pedido"), BBCodCobranca) %>">
            <input type="hidden" name="urlRetorno" value="<%= Application("URLRecibo") %>">
            <% If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then %>
            <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("razaosocial_cobranca")) %>">
            <% Else %>
            <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("nome_cobranca")) %>">
            <% End If %>
            <input type="hidden" name="endereco" value="<%= endereco %>">
            <input type="hidden" name="cidade" value="<%= Server.htmlEncode(RS_Pedido("cidade_cobranca")) %>">
            <input type="hidden" name="uf" value="<%= Server.htmlEncode(RS_Pedido("estado_cobranca")) %>">
            <input type="hidden" name="cep" value="<%= Server.htmlEncode(RS_Pedido("cep_cobranca")) %>">
            <input type="hidden" name="dtVenc" value="<%= vencimento %>">
            <input type="hidden" name="msgLoja" value="<%= BBComentario %>">
            <input type="hidden" name="versao" value="002">
            <input type="hidden" name="moeda" value="986">
            <input type="hidden" name="convClasse" value="001">
            <input type="hidden" name="tpPagamento" value="21">
        </FORM>
<%
        If Session("perfil_usuario") <> "" Then
            response.write "<input type=""button"" value=""Reemissão do Boleto"" onclick=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();"" class=""bttn1"">"
        Elseif Session("logado") <> "" Then
            Response.write "<a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();""><img src='config/templates/"&varLang&"/default/gerarboleto.gif' border='0' bgcolor=''></A>"
        Else
            Response.write "<p align='center'><a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();""><IMG border=0 src='config/templates/" & varLang & "/" & varSkin & "/banner_bb.gif'></a></p>"
        End If
    Else
%>
        <FORM action="<%= Application("URLBancoBrasil") %>" method="post" name="brasil<%= RS_Pedido("codigo_pedido") %>" target="vpos"> 
            <input type="hidden" name="idConv" value="<%= BBConvenio %>">
            <input type="hidden" name="valor" value="<%= total %>">
            <input type="hidden" name="refTran" value="<%= CodPedBrasil(RS_Pedido("codigo_pedido"), BBCodCobranca) %>">
            <input type="hidden" name="urlRetorno" value="<%= Application("URLRecibo") %>">
            <% If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then %>
            <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("razaosocial_cobranca")) %>">
            <% Else %>
            <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("nome_cobranca")) %>">
            <% End If %>
            <input type="hidden" name="endereco" value="<%= endereco %>">
            <input type="hidden" name="cidade" value="<%= Server.htmlEncode(RS_Pedido("cidade_cobranca")) %>">
            <input type="hidden" name="uf" value="<%= Server.htmlEncode(RS_Pedido("estado_cobranca")) %>">
            <input type="hidden" name="cep" value="<%= Server.htmlEncode(RS_Pedido("cep_cobranca")) %>">
            <input type="hidden" name="dtVenc" value="<%= vencimento %>">
            <input type="hidden" name="msgLoja" value="<%= BBComentario %>">
            <input type="hidden" name="versao" value="002">
            <input type="hidden" name="moeda" value="986">
            <input type="hidden" name="convClasse" value="001">
            <input type="hidden" name="tpPagamento" value="2">
        </FORM>
<%
        If Session("perfil_usuario") <> "" Then
            response.write "<input type=""button"" value=""Reemissão do Boleto"" onclick=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();"" class=""bttn1"">"
        Elseif Session("logado") <> "" And Session("id_transacao") = "" Then
            Response.write "<a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();""><img src='config/templates/"&varLang&"/default/gerarboleto.gif' border='0' bgcolor=''></A>"
        Else
            Response.write "<p align='center'><a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil" & RS_Pedido("codigo_pedido") & ".submit();""><IMG border=0 src='config/templates/" & varLang & "/" & varSkin & "/banner_bb.gif'></a></p>"
        End If

    End If

End Sub
'########################################################################################################
'--> FIM SUB CriaBoletoBancoBrasil
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB CriaTransfBancoBrasil
' - 
' - 
'##########################################################################################################
Sub CriaTransfBancoBrasil(RS_Pedido, vencimento, BBConvenio, BBCodCobranca, BBComentario, BBTipoPagamento) 

    total      = FormataValor(RS_Pedido("total"))
    vencimento = FormataData(vencimento)
    endereco   = Server.htmlEncode(RS_Pedido("logradouro_cobranca") & ", " & RS_Pedido("numero_cobranca"))
    If (RS_Pedido("complemento_cobranca") <> "") Then
        endereco = endereco & Server.htmlEncode(" - " & RS_Pedido("numero_cobranca"))
    End If

    'Verifica se a variável é vazia e assume um valor padrão
    If Trim(BBTipoPagamento) = "" Then
        BBTipoPagamento = "0"
    End If
%>
    <FORM action="<%= Application("URLBancoBrasil") %>" method="post" name="brasil<%=RS_Pedido("codigo_pedido")%>" target="vpos"> 
        <input type="hidden" name="idConv" value="<%= BBConvenio %>">
        <input type="hidden" name="valor" value="<%= total %>">
        <input type="hidden" name="refTran" value="<%= CodPedBrasil(RS_Pedido("codigo_pedido"), BBCodCobranca) %>">
        <input type="hidden" name="urlRetorno" value="<%= Application("URLRecibo") %>">
        <% If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then %>
        <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("razaosocial_cobranca")) %>">
        <% Else %>
        <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("nome_cobranca")) %>">
        <% End If %>
        <input type="hidden" name="endereco" value="<%= endereco %>">
        <input type="hidden" name="cidade" value="<%= Server.htmlEncode(RS_Pedido("cidade_cobranca")) %>">
        <input type="hidden" name="uf" value="<%= Server.htmlEncode(RS_Pedido("estado_cobranca")) %>">
        <input type="hidden" name="cep" value="<%= Server.htmlEncode(RS_Pedido("cep_cobranca")) %>">
        <input type="hidden" name="dtVenc" value="<%= vencimento %>">
        <input type="hidden" name="msgLoja" value="<%= BBComentario %>">
        <input type="hidden" name="versao" value="002">
        <input type="hidden" name="moeda" value="986">
        <input type="hidden" name="convClasse" value="001">
        <input type="hidden" name="tpPagamento" value="<%= BBTipoPagamento %>">
        <p align="center"><a href="javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.brasil<%=RS_Pedido("codigo_pedido")%>.submit();"><img border=0 src="config/templates/<%=varLang%>/<%=varSkin%>/banner_bb.gif"></a></p>
    </FORM>
<%
End Sub
'########################################################################################################
'--> FIM SUB CriaTransfBancoBrasil
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB CriaLinkItau
' - 
' - 
'##########################################################################################################
Sub CriaLinkItau(RS_Pedido, vencimento)

    'Abre conexao ao XML dos meios de pagto.
    Call  abre_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXMLItau,VarobjRootItau)
    Set configuracaoItau = VarobjRootItau.selectSingleNode("configuracao/pagto[@nome_pagto='Itau']")

    valor = FormataValor(RS_Pedido("total"))
    
    If Session("perfil_usuario") <> "" And RS_Pedido("boleto_tipo") <> "" Or Session("logado") <> "" And Session("id_transacao") = "" And RS_Pedido("boleto_tipo") <> "" Then
        acao = "REEMISSAO"
    Else
        acao = "BOLETO"
    End If

    endereco = Server.htmlEncode(RS_Pedido("logradouro_cobranca") & ", " & RS_Pedido("numero_cobranca"))
    If (RS_Pedido("complemento_cobranca") <> "") Then
        endereco = endereco & Server.htmlEncode(" - " & RS_Pedido("complemento_cobranca"))
    End If
    cep = (RS_Pedido("cep_cobranca")) 
    cep = replace(cep,"-","")
%>
    <form method="POST" target="vpos" name="itaushopline<%=RS_Pedido("codigo_pedido")%>" action="<%= Application("URLItauShopline") %>">
        <input type="hidden" name="identificacao" value="<%= configuracaoItau.getAttribute("IdentificacaoLocaweb") %>">
        <input type="hidden" name="modulo" value="<%= configuracaoItau.getAttribute("modulo") %>">
        <input type="hidden" name="ambiente" value="<%= configuracaoItau.getAttribute("ambiente") %>">
        <input type="hidden" name="operacao" value="<%= acao %>">
        <input type="hidden" name="pedido" value="<%= RS_Pedido("codigo_pedido") %>">
        <input type="hidden" name="valor" value="<%= valor %>">
        <% If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then %>
        <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("razaosocial_cobranca")) %>">
        <input type="hidden" name="cpfcgc" value="<%= RS_Pedido("cnpj_cobranca") %>">
        <% Else %>
        <input type="hidden" name="nome" value="<%= Server.htmlEncode(RS_Pedido("nome_cobranca")) %>">
        <input type="hidden" name="cpfcgc" value="<%= RS_Pedido("cpf_cobranca") %>">
        <% End If %>
        <input type="hidden" name="obs" value="<%= Server.htmlEncode(configuracaoItau.getAttribute("OBSItau")) %>">
        <input type="hidden" name="endereco" value="<%= endereco %>">
        <input type="hidden" name="bairro" value="<%= Server.htmlEncode(RS_Pedido("bairro_cobranca")) %>">
        <input type="hidden" name="cep" value="<%= Server.htmlEncode(cep) %>">
        <input type="hidden" name="cidade" value="<%= Server.htmlEncode(RS_Pedido("cidade_cobranca")) %>">
        <input type="hidden" name="estado" value="<%= Server.htmlEncode(RS_Pedido("estado_cobranca")) %>">
        <input type="hidden" name="vencimento" value="<%= vencimento %>">
    </form>
<%

    If Session("perfil_usuario") <> "" Then
        response.write "<input type=""button"" value=""Reemissão do Boleto"" onclick=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.itaushopline" & RS_Pedido("codigo_pedido") & ".submit();"" class=""bttn1"">"
    Elseif Session("logado") <> "" And Session("id_transacao") = "" Then
        Response.write "<a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.itaushopline" & RS_Pedido("codigo_pedido") & ".submit();""><img src='config/templates/"&varLang&"/default/gerarboleto.gif' border='0' bgcolor=''></A>"
    Else
        Response.write "<p align='center'><a href=""javascript: vpos=window.open('','vpos','toolbar=yes,menubar=yes,resizable=yes,status=no,scrollbars=yes,width=675,height=485'); document.itaushopline" & RS_Pedido("codigo_pedido") & ".submit();""><IMG border=0 src='config/templates/" & varLang & "/" & varSkin & "/banner_itau.gif'></a></p>"
    End If

    'Fecha conexao ao XML dos meios de pagto.
    Set configuracaoItau = Nothing

End Sub
'########################################################################################################
'--> FIM SUB CriaLinkItau
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB CriaLinkCobreBem
' - 
' - 
'##########################################################################################################
Sub CriaLinkCobreBem(RS_Pedido, valor, URLBoleto)

    'Abre conexao ao XML dos meios de pagto.
    Call  abre_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRootCB)
    Set configuracaoCB = VarobjRootCB.selectSingleNode("configuracao/pagto[@nome_pagto='CobreBem']")
            
    vencimento = Formatdatetime(DateAdd("d", configuracaoCB.getAttribute("DiasdeVencimento"), RS_Pedido("data_pedido")), 2)
    vencimento = PreparaData(vencimento)

    endereco = RS_Pedido("logradouro_cobranca") & ", " & RS_Pedido("numero_cobranca")
    If (RS_Pedido("complemento_cobranca") <> "") Then
        endereco = endereco & " - " & RS_Pedido("numero_cobranca")
    End If

    URLBoleto = Application("URLLocaWebBoletoCobreBem") & "?ValorDocumento=" & FormatNumber(valor, 2)
    URLBoleto = URLBoleto & "&IdentificacaoPagina=" & configuracaoCB.getAttribute("IdentificacaoPagina")
    URLBoleto = URLBoleto & "&NumeroDocumento=" & RS_Pedido("codigo_pedido")
    URLBoleto = URLBoleto & "&UsuarioBoleto=" & configuracaoCB.getAttribute("UsuarioBoleto")
    URLBoleto = URLBoleto & "&CSID=" & configuracaoCB.getAttribute("CSID")
    URLBoleto = URLBoleto & "&DataVencimento=" & vencimento
    If RS_Pedido("razaosocial_cobranca") <> "" and RS_Pedido("cnpj_cobranca") <> "" Then
        URLBoleto = URLBoleto & "&NomeSacado=" & Server.URLEncode(RS_Pedido("razaosocial_cobranca")) & "&CNPJSPFSacado=" & Server.URLEncode(RS_Pedido("cnpj_cobranca"))
    Else
        URLBoleto = URLBoleto & "&NomeSacado=" & Server.URLEncode(RS_Pedido("nome_cobranca")) & "&CNPJSPFSacado=" & Server.URLEncode(RS_Pedido("cpf_cobranca"))
    End if
    URLBoleto = URLBoleto & "&EnderecoSacado=" & Server.URLEncode(endereco)
    URLBoleto = URLBoleto & "&CepSacado=" & Server.URLEncode(RS_Pedido("cep_cobranca")) 
    URLBoleto = URLBoleto & "&BairroSacado=" & Server.URLEncode(RS_Pedido("bairro_cobranca")) 
    URLBoleto = URLBoleto & "&CidadeSacado=" & Server.URLEncode(RS_Pedido("cidade_cobranca")) 
    URLBoleto = URLBoleto & "&EstadoSacado=" & Server.URLEncode(RS_Pedido("estado_cobranca"))
    URLBoleto = URLBoleto & "&Demonstrativo="
    URLBoleto = URLBoleto & "&InstrucoesCaixaCedente=" & configuracaoCB.getAttribute("InstrucoesCaixaCedente")

    'Fecha conexao ao XML dos meios de pagto.
    Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRootCB) 
    Set configuracaoCB = Nothing

End Sub
'########################################################################################################
'--> FIM SUB CriaLinkCobreBem
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION TipoCartaoBradesco
' - 
' - 
'##########################################################################################################
Function TipoCartaoBradesco(FCTtipo)
    select case FCTtipo
        case "102BradescoPoupCardCertless"
			VARTipoCartao = Application("FestrTxtBradescoPopCard")
		case "101BradescoDebitoCertless"
			VARTipoCartao = Application("FestrTxtBradescoCartaoDebito")
		case "005BradescoVisaCertless"
			VARTipoCartao = Application("FestrTxtBradescoCartaoVisa")
		case "006BradescoMasterCardCertless"
			VARTipoCartao = Application("FestrTxtBradescoCartaoMastercard")
		case else
			VARTipoCartao = FCTtipo
	end select

    TipoCartaoBradesco = VARTipoCartao

End Function
'########################################################################################################
'--> FIM FUNCTION TipoCartaoBradesco
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB FormataAssinaturaBradesco
' - Esta função formata a assinatura digital da transação, que é um número de 256 caracteres.
' - A formatação consiste em colocar todos esses caracteres em uma tabela, separando-os em grupos de 4 caracteres cada um
'##########################################################################################################
Sub FormataAssinaturaBradesco(FCTentrada)
    dim VARsaida
    dim VARpos
    dim VARtam
    dim VARnumColunas
%>
    <table border="0" ALIGN="CENTER" width="60%">
        <tr> 
<%
            VARpos=1
            VARtam = len(FCTentrada)
            VARnumColuna=0
            Do While VARpos<VARtam
%>
                <td class="FundoTabItem"><a class="TextoItem"><B><%= mid(FCTentrada, VARpos, 4)%></B></a> </td>
<%
                VARpos = VARpos + 4
                VARnumColuna = VARnumColuna + 1
                
                If VARnumColuna = 16 Then
                    VARnumColuna = 0
%>
                    </tr>
                    <tr>
<%
                End if
            Loop
%>
        </tr>
    </table>
<%
End Sub
'########################################################################################################
'--> FIM SUB FormataAssinaturaBradesco
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION ABN_MSG_status
' - Trata o RET02 que é diferente de vazio quando o RET01 for igual a 0
' - 
'##########################################################################################################
Function ABN_MSG_status(FCTABN_status, FCTABN_erro)
    ' Trata o RET01
    If (FCTABN_status = 0) Then
        varMsgABN = Application("FestrTxtErroProcessamento") & ABN_MSG_erro(FCTABN_erro)
    ElseIf (FCTABN_status = 1) Then
        varMsgABN = Application("FestrTxtPropostaAprovada")
    ElseIf (FCTABN_status = 2) Then 
        varMsgABN = Application("FestrTxtPropostaEmAnalise")
    ElseIf (FCTABN_status = 3) Then 
        varMsgABN = Application("FestrTxtTransacaoCancelada") & FCTABN_status
    Else
        varMsgABN = Application("FestrTxtCancelamentoSimulacao") & FCTABN_status
    End If

    ABN_MSG_status = varMsgABN
End Function
'########################################################################################################
'--> FIM FUNCTION ABN_MSG_status
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION ABN_MSG_erro
' - 
' - 
'##########################################################################################################
Function ABN_MSG_erro(FCTABN_erro)
    ' Trata o RET02
    If (FCTABN_erro = "-8001") Then
        varMsg_status = Application("FestrTxtIdentificacaoCertificado") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8002") Then
        varMsg_status = Application("FestrTxtVersaoLayout") & FCTABN_erro 
    ElseIf (FCTABN_erro = "-8003") Then 
        varMsg_status = Application("FestrTxtEnderecoPagRetorno") & FCTABN_erro 
    ElseIf (FCTABN_erro = "-8004") Then 
        varMsg_status = Application("FestrTxtCodSequencialOper") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8005") Then 
        varMsg_status = Application("FestrTxtProdutoDoFinanciamento") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8006") Then 
        varMsg_status = Application("FestrTxtTipoPessoa") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8007") Then 
        varMsg_status = Application("FestrTxtNomeCompRazaoSoc") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8008") Then 
        varMsg_status = Application("FestrTxtEnderecoEmail")  & FCTABN_erro
    ElseIf (FCTABN_erro = "-8009") Then 
        varMsg_status = Application("FestrTxtCNPJCPF") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8021") Then 
        varMsg_status = Application("FestrTxtTabelaFinanciamento") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8022") Then 
        varMsg_status = Application("FestrTxtVlrCompra") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8023") Then 
        varMsg_status = Application("FestrTxtDataPrimeiroVencto") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8024") Then 
        varMsg_status = Application("FestrTxtQtePrestacoes") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8025") Then 
        varMsg_status = Application("FestrTxtVlrPrestacao") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8026") Then 
        varMsg_status = Application("FestrTxtGarantia") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8027") Then 
        varMsg_status = Application("FestrTxtDescricaObjeto") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8028") Then 
        varMsg_status = Application("FestrTxtVlrEntrada") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8029") Then 
        varMsg_status = Application("FestrTxtCodPropostaFLV") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8030") Then 
        varMsg_status = Application("FestrTxtFormaPagtoInvalIntermed") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8032") Then 
        varMsg_status = Application("FestrTxtTaxaAnoABN") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8033") Then 
        varMsg_status = Application("FestrTxtValorIOF") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8034") Then 
        varMsg_status = Application("FestrTxtValorFinanciado") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8035") Then 
        varMsg_status = Application("FestrTxtValorTotalFinanciamento") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8036") Then 
        varMsg_status = Application("FestrTxtDataUltimoVencto") & FCTABN_erro
    ElseIf (FCTABN_erro = "-8116") Then 
        varMsg_status = Application("FestrTxtDigitoVerifCCorrente") & FCTABN_erro
    ElseIf (FCTABN_erro = "-9000") Then 
        varMsg_status = Application("FestrTxtErroInfraABN") & FCTABN_erro
    End If

    ABN_MSG_erro = varMsg_status

End Function
'########################################################################################################
'--> FIM FUNCTION ABN_MSG_erro
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION AMEX_getResponseDescription
' - Trata o valor do TxnResponseCode (status da transação)
' - 
'##########################################################################################################
Function AMEX_getResponseDescription(FCTvResponseCode)
    Select Case FCTvResponseCode
        Case "0" AMEX_getResponseDescription = Application("AMEX_getResponseDescription0")
        Case "1" AMEX_getResponseDescription = Application("AMEX_getResponseDescription1")
        Case "2" AMEX_getResponseDescription = Application("AMEX_getResponseDescription2")
        Case "3" AMEX_getResponseDescription = Application("AMEX_getResponseDescription3")
        Case "4" AMEX_getResponseDescription = Application("AMEX_getResponseDescription4")
        Case "5" AMEX_getResponseDescription = Application("AMEX_getResponseDescription5")
        Case "6" AMEX_getResponseDescription = Application("AMEX_getResponseDescription6")
        Case "7" AMEX_getResponseDescription = Application("AMEX_getResponseDescription7")
        Case "8" AMEX_getResponseDescription = Application("AMEX_getResponseDescription8")
        Case "9" AMEX_getResponseDescription = Application("AMEX_getResponseDescription9")
        Case "A" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionA")
        Case "C" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionC")
        Case "D" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionD")
        Case "F" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionF")
        Case "I" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionI")
        Case "L" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionL")
        Case "N" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionN")
        Case "P" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionP")
        Case "R" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionR")
        Case "T" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionT")
        Case "U" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionU")
        Case "V" AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionV")
        Case "?" AMEX_getResponseDescription = Application("AMEX_getResponseDescription_")
        Case Else AMEX_getResponseDescription = Application("AMEX_getResponseDescriptionIndef")
    End Select
End Function
'########################################################################################################
'--> FIM FUNCTION AMEX_getResponseDescription
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION ITAU_TipPag
' - Trata o valor do tipPag (tipo de pagamento do Itaú Shopline)
'##########################################################################################################
Function ITAU_TipPag(TipPag)
    If TipPag <> "" then
        Select Case TipPag
            Case "0" ITAU_TipPag = Application("ITAU_TipPag0")
            Case "1" ITAU_TipPag = Application("ITAU_TipPag1")
            Case "2" ITAU_TipPag = Application("ITAU_TipPag2")
            Case "3" ITAU_TipPag = Application("ITAU_TipPag3")
            Case Else ITAU_TipPag = Application("ITAU_TipPagIndef")
        End Select
    Else
        ITAU_TipPag = Application("ITAU_TipPagIndef")
    End If
End Function
'########################################################################################################
'--> FIM FUNCTION ITAU_TipPag
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION VISAMOSET_MSG_LR
' - Trata o valor do LR (status da transação Visanet MOSET)
'##########################################################################################################
Function VISAMOSET_MSG_LR(lr)

    If (lr = 1) or (lr = 2) or (lr = 3) or (lr = 12) or (lr = 21) or (lr = 22) or (lr = 25) or (lr = 28) or (lr = 28) or (lr = 54) or (lr = 57) or (lr = 62) or (lr = 63) or (lr = 76) or (lr = 77) or (lr = 80) or (lr = 93) Then
        VISAMOSET_MSG_LR = Application("VISA_LR0") & lr
    ElseIf (lr = 4) or (lr = 5) or (lr = 7) or (lr = 14) or (lr = 41) or (lr = 43) or (lr = 51) or (lr = 52) or (lr = 53) or (lr = 65) Then
        VISAMOSET_MSG_LR = Application("VISA_LR1") & lr  
    ElseIf (lr = 6) or  (lr = 19) or (lr = 55) or (lr = 81) or (lr = 82) or (lr = 83) or (lr = 86) Then 
	    VISAMOSET_MSG_LR = Application("VISA_LR2") & lr  
    ElseIf (lr = 61) Then 
	    VISAMOSET_MSG_LR = Application("VISA_LR3") & lr    
    ElseIf (lr = 114) Then 
    	VISAMOSET_MSG_LR = Application("VISA_LR4") & lr    
    ElseIf (lr = 15) or (lr = 91) or (lr = 98) or (lr = 99) Then
      	VISAMOSET_MSG_LR = Application("VISA_LR5") & lr  
    Else
    	VISAMOSET_MSG_LR = Application("VISA_LR0") & lr     
    End If

End Function
'########################################################################################################
'--> FIM FUNCTION VISAMOSET_MSG_LR
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION Unibanco_SitPed
' - Trata o valor do SITUPEDI (situação do pedido do Clique Pague Unibanco)
'########################################################################################################
Function Unibanco_SitPed(SitPed)
    If SitPed <> "" then
        Select Case SitPed
            Case "1000" Unibanco_SitPed = Application("UNIBANCO_SitPed1000")
            Case "1001" Unibanco_SitPed = Application("UNIBANCO_SitPed1001")
            Case "1002" Unibanco_SitPed = Application("UNIBANCO_SitPed1002")
            Case "1003" Unibanco_SitPed = Application("UNIBANCO_SitPed1003")
            Case "1008" Unibanco_SitPed = Application("UNIBANCO_SitPed1008")
            Case "1012" Unibanco_SitPed = Application("UNIBANCO_SitPed1012")
            Case "1013" Unibanco_SitPed = Application("UNIBANCO_SitPed1013")
            Case "1015" Unibanco_SitPed = Application("UNIBANCO_SitPed1015")
            Case "1016" Unibanco_SitPed = Application("UNIBANCO_SitPed1016")
            Case "1018" Unibanco_SitPed = Application("UNIBANCO_SitPed1018")
            Case "1019" Unibanco_SitPed = Application("UNIBANCO_SitPed1019")
            Case "1020" Unibanco_SitPed = Application("UNIBANCO_SitPed1020")
            Case "1021" Unibanco_SitPed = Application("UNIBANCO_SitPed1021")
            Case "1022" Unibanco_SitPed = Application("UNIBANCO_SitPed1022")
            Case "2000" Unibanco_SitPed = Application("UNIBANCO_SitPed2000")
            Case "3000" Unibanco_SitPed = Application("UNIBANCO_SitPed3000")
            Case Else Unibanco_SitPed = Application("UNIBANCO_SitPedIndet")
        End Select
    Else
        Unibanco_SitPed = Application("UNIBANCO_SitPedIndet")
    End If
End Function
'########################################################################################################
'--> FIM FUNCTION Unibanco_SitPed
'########################################################################################################
%>