<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: dados_compra_bradesco.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
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
%>
<!--#INCLUDE FILE="funcoes/funcoes_valida.asp" -->
<!--#INCLUDE FILE="funcoes/funcoes.asp" -->
<!--#INCLUDE FILE="funcoes/funcoes_config_loja.asp" -->
<% 
' *********************************************************
' dados_compra_bradesco.asp 
' ATENÇÃO: NAO MODIFIQUE ESTE ARQUIVO !!!!!!!!
' *********************************************************
Call Valida_Request()

Response.Buffer = TRUE 
Response.ContentType = "text/plain"

' esses parametros são passados pelo servidor da Scopus
tipo_tran     = request("transId")
codigo_pedido = request("numOrder")

'Abre conexão com o Banco de dados
Call abre_conexao(Conexao)

'Abre conexao ao XML dos meios de pagto.
forma_pagamento = "Bradesco"

Call abre_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRoot)
Set configuracao = VarobjRoot.selectSingleNode("configuracao/pagto[@nome_pagto='"&forma_pagamento&"']")

' Aqui monta a mensagem com os dados da compra que serão repassados para o MUP
' Preste muita atenção na formatação dos dados :  Após o <BEGIN_ORDER_DESCRIPTION> Não poderá
' conter quebra de linha ou espaços, o mesmo devendo acontecer com o <END_ORDER_DESCRIPTION>, que  
' não poderá ser precedido de quebra de linha nem espaços. 

If (tipo_tran = "getOrder") or (tipo_tran = "getBoleto") or (tipo_tran = "getTransfer") then 

    ' Le informacoes dos pedidos 
    Set RS_Pedido = Server.CreateObject("ADODB.Recordset")
    RS_Pedido.CursorLocation = 3
    RS_Pedido.CursorType = 0
    RS_Pedido.LockType =  3

    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.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.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 Pedidos.codigo_pedido = " & codigo_pedido , Conexao
    
    ' Checa se pedido ja foi deletado
    If Not RS_Pedido.Eof then 

        Set RS_Pedido_Item = Server.CreateObject("ADODB.Recordset")
        RS_Pedido_Item.CursorLocation = 3
        RS_Pedido_Item.CursorType = 0
        RS_Pedido_Item.LockType =  3
        RS_Pedido_Item.Open "SELECT Pedido_Item.codigo_pedido, 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.sigla_moeda, Pedido_Item.valor_moeda, Produtos.nome_produto FROM Pedido_Item, Produtos WHERE Pedido_Item.codigo_pedido = " & codigo_pedido & " AND Pedido_Item.codigo_produto = Produtos.codigo_produto order by Produtos.nome_produto", Conexao
        RS_Pedido_Item.MoveFirst

        Resposta = "<BEGIN_ORDER_DESCRIPTION><orderid>=(" & codigo_pedido & ")" 

        While Not RS_Pedido_Item.EOF
            
            total_aux = Cdbl(RS_Pedido_Item("quantidade")) * Cdbl(RS_Pedido_Item("preco_unitario"))
            total_aux = replace(Cstr(FormatNumber(total_aux,2)), "," , "")
            total = replace(Cstr(total_aux), "." , "")
            nome = replace(RS_Pedido_Item("nome_produto"),")","") 
            nome = replace(nome,"(","") 

            Resposta = Resposta & chr(13) & chr(10) & "<descritivo>=(" & nome & ")" & chr(13) & chr(10) 
            Resposta = Resposta & "<quantidade>=(" & RS_Pedido_Item("quantidade") & ")" & chr(13) & chr(10) 
            Resposta = Resposta & "<unidade>=(pc)" & chr(13) & chr(10) 
            Resposta = Resposta & "<valor>=(" & total & ")"

            RS_Pedido_item.MoveNext
        Wend 
        total = replace(Cstr(FormatNumber(RS_Pedido("taxa_envio"),2)), ",", "") 
        total = replace(Cstr(total), ".", "") 
        If RS_Pedido("taxa_envio") <> "0" Then
            Resposta = Resposta & chr(13) & chr(10) & "<adicional>=(Taxa de envio)" & chr(13) & chr(10)
            Resposta = Resposta & "<valorAdicional>=(" & total & ")" 
        End If
        If configuracao.getAttribute("BradescoTaxaBoleto") = "sim" And tipo_tran = "getBoleto" Then
            Resposta = Resposta & chr(13) & chr(10) & "<adicional>=(Taxa de emissão do boleto)" & chr(13) & chr(10) 
            Resposta = Resposta & "<valorAdicional>=("&Replace(Replace(configuracao.getAttribute("BradescoValorTaxaBoleto"),",",""),".","")&")"
        End If

        Resposta = Resposta & "<END_ORDER_DESCRIPTION>" & chr(13) & chr(10)

        RS_Pedido_item.close
        Set RS_Pedido_item = Nothing

        Response.Write Resposta

        '****** transferencia entre contas
        If (tipo_tran = "getTransfer") then
            Resposta = ""

            Resposta = Resposta & chr(13) & chr(10)	
            Resposta = Resposta & "<BEGIN_TRANSFER_DESCRIPTION><NUMEROAGENCIA>=(" & configuracao.getAttribute("BradescoAgencia") & ")" & chr(13) & chr(10)
            Resposta = Resposta & "<NUMEROCONTA>=(" & configuracao.getAttribute("BradescoCodigoCedente") & ")" & chr(13) & chr(10)
            Resposta = Resposta & "<ASSINATURA>=(" & configuracao.getAttribute("BradescoAssinaturaTransfer") & ")<END_TRANSFER_DESCRIPTION>" & chr(13) & chr(10)

            Response.Write Resposta
        End IF

        '****** geracao do boleto
        If (tipo_tran = "getBoleto") then 

            Resposta = ""

            VARcpf = RS_Pedido("cpf_cobranca")
            For i=1 To Len(VARcpf)
                If (isNumeric(Mid(VARcpf, i, 1))) Then
                    VARcpf_corrigido = VARcpf_corrigido & Mid(VARcpf, i, 1)
                End If
            Next

            VARcnpj = RS_Pedido("cnpj_cobranca")
            If Trim(VARcnpj) <> "" Then
                For i=1 To Len(VARcnpj)
                    If (isNumeric(Mid(VARcnpj, i, 1))) Then
                        VARcnpj_corrigido = VARcnpj_corrigido & Mid(VARcnpj, i, 1)
                    End If
                Next
            End If

            hoje = Formatdatetime(Now, 2)
            
            If configuracao.getAttribute("BradescoTaxaBoleto") = "sim" Then
                total = FormatCurrency(RS_Pedido("total")+configuracao.getAttribute("BradescoValorTaxaBoleto"))
            Else
                total = FormatCurrency(RS_Pedido("total"))
            End if
            
            total = replace(total, " ", "")
            vencimento = Formatdatetime(DateAdd("d", configuracao.getAttribute("BradescoDiasdeVencimento"), Now), 2)

            If IsNull(RS_Pedido("boleto_emitido")) Then

                Resposta = Resposta & chr(13) & chr(10)	
                Resposta = Resposta & "<BEGIN_BOLETO_DESCRIPTION><CEDENTE>=(" & configuracao.getAttribute("BradescoRazaoSocial") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<BANCO>=(237)" & chr(13) & chr(10)
                Resposta = Resposta & "<NUMEROAGENCIA>=(" & configuracao.getAttribute("BradescoAgencia") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<NUMEROCONTA>=(" & configuracao.getAttribute("BradescoCodigoCedente") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<ASSINATURA>=(" & configuracao.getAttribute("BradescoAssinaturaBoleto") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAEMISSAO>=(" & hoje & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAPROCESSAMENTO>=(" & hoje & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAVENCIMENTO>=(" & vencimento & ")" & chr(13) & chr(10)

                If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then
                VARrazaosocial = replace(RS_Pedido("razaosocial_cobranca"),")","") 
                VARrazaosocial = replace(VARrazaosocial,"(","")
                Resposta = Resposta & "<NOMESACADO>=(" & VARrazaosocial & ")" & chr(13) & chr(10)
                Else
                VARnome = replace(RS_Pedido("nome_cobranca"),")","") 
                VARnome = replace(VARnome,"(","")
                Resposta = Resposta & "<NOMESACADO>=(" & VARnome & ")" & chr(13) & chr(10)
                End If

                VARrua = replace(RS_Pedido("logradouro_cobranca"),")","") 
                VARrua = replace(VARrua,"(","") 
                VARcomplemento = replace(RS_Pedido("complemento_cobranca"),")","") 
                VARcomplemento = replace(VARcomplemento,"(","") 
                Resposta = Resposta & "<ENDERECOSACADO>=(" & VARrua & ", " & VARcomplemento & ")" & chr(13) & chr(10)

                VARcidade = replace(RS_Pedido("cidade_cobranca"),")","") 
                VARcidade = replace(VARcidade,"(","") 
                Resposta = Resposta & "<CIDADESACADO>=(" & VARcidade & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<UFSACADO>=(" & RS_Pedido("estado_cobranca") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<CEPSACADO>=(" & RS_Pedido("cep_cobranca") & ")" & chr(13) & chr(10)
                If Trim(VARcnpj_corrigido) <> "" Then
                Resposta = Resposta & "<CPFSACADO>=(" & VARcnpj_corrigido & ")" & chr(13) & chr(10)
                Else
                Resposta = Resposta & "<CPFSACADO>=(" & VARcpf_corrigido & ")" & chr(13) & chr(10)
                End If                
                Resposta = Resposta & "<NUMEROPEDIDO>=(" & codigo_pedido & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<VALORDOCUMENTOFORMATADO>=(" & total & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<SHOPPINGID>=(" & configuracao.getAttribute("BradescoShopFacil") & ")<END_BOLETO_DESCRIPTION>" & chr(13) & chr(10)

                If RS_Pedido("forma_pagamento") = "Boleto" Then
                    RS_Pedido("boleto_emitido") = "1"
                End If

                RS_Pedido.Update

            ElseIf RS_Pedido("boleto_emitido") = "1" Then

                hoje = Formatdatetime(RS_Pedido("data_pedido"), 2)
                vencimento = Formatdatetime(DateAdd("d", configuracao.getAttribute("BradescoDiasdeVencimento"), RS_Pedido("data_pedido")), 2)

                Resposta = Resposta & chr(13) & chr(10)	
                Resposta = Resposta & "<BEGIN_BOLETO_DESCRIPTION><CEDENTE>=(" & configuracao.getAttribute("BradescoRazaoSocial") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<BANCO>=(237)" & chr(13) & chr(10)
                Resposta = Resposta & "<NUMEROAGENCIA>=(" & configuracao.getAttribute("BradescoAgencia") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<NUMEROCONTA>=(" & configuracao.getAttribute("BradescoCodigoCedente") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<ASSINATURA>=(" & configuracao.getAttribute("BradescoAssinaturaBoleto") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAEMISSAO>=(" & hoje & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAPROCESSAMENTO>=(" & hoje & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<DATAVENCIMENTO>=(" & vencimento & ")" & chr(13) & chr(10)

                If Trim(RS_Pedido("razaosocial_cobranca")) <> "" Then
                VARrazaosocial = replace(RS_Pedido("razaosocial_cobranca"),")","") 
                VARrazaosocial = replace(VARrazaosocial,"(","")
                Resposta = Resposta & "<NOMESACADO>=(" & VARrazaosocial & ")" & chr(13) & chr(10)
                Else
                VARnome = replace(RS_Pedido("nome_cobranca"),")","") 
                VARnome = replace(VARnome,"(","")
                Resposta = Resposta & "<NOMESACADO>=(" & VARnome & ")" & chr(13) & chr(10)
                End If

                VARrua = replace(RS_Pedido("logradouro_cobranca"),")","") 
                VARrua = replace(VARrua,"(","") 
                VARcomplemento = replace(RS_Pedido("complemento_cobranca"),")","") 
                VARcomplemento = replace(VARcomplemento,"(","") 
                Resposta = Resposta & "<ENDERECOSACADO>=(" & VARrua & ", " & VARcomplemento & ")" & chr(13) & chr(10)

                VARcidade = replace(RS_Pedido("cidade_cobranca"),")","") 
                VARcidade = replace(VARcidade,"(","") 
                Resposta = Resposta & "<CIDADESACADO>=(" & VARcidade & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<UFSACADO>=(" & RS_Pedido("estado_cobranca") & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<CEPSACADO>=(" & Replace(RS_Pedido("cep_cobranca"),"-","") & ")" & chr(13) & chr(10)
                If Trim(VARcnpj_corrigido) <> "" Then
                Resposta = Resposta & "<CPFSACADO>=(" & VARcnpj_corrigido & ")" & chr(13) & chr(10)
                Else
                Resposta = Resposta & "<CPFSACADO>=(" & VARcpf_corrigido & ")" & chr(13) & chr(10)
                End If 
                Resposta = Resposta & "<NUMEROPEDIDO>=(" & codigo_pedido & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<VALORDOCUMENTOFORMATADO>=(" & total & ")" & chr(13) & chr(10)
                Resposta = Resposta & "<SHOPPINGID>=(" & configuracao.getAttribute("BradescoShopFacil") & ")<END_BOLETO_DESCRIPTION>" & chr(13) & chr(10)
            End If

            Response.Write Resposta

        End If

        RS_Pedido.close
        Set RS_Pedido = Nothing
    Else
        Response.Write "<ERRO>"
    End If

ElseIf (tipo_tran = "putAuth") And (CInt(request("cod")) = 0) Then

    ' Le informacoes dos pedidos 
    Set RS_Transacao = Server.CreateObject("ADODB.Recordset")
    RS_Transacao.CursorLocation = 3
    RS_Transacao.CursorType = 0
    RS_Transacao.LockType =  3

    RS_Transacao.Open "SELECT Transacao_Bradesco.* FROM Transacao_Bradesco WHERE Transacao_Bradesco.codigo_pedido = " & codigo_pedido , Conexao
    If Not RS_Transacao.EOF Then

        ' ATUALIZA A BASE DE DADOS DA LOJA COM OS DADOS DO PAGAMENTO
        If  request("tipopagto") = "0" or request("tipopagto") = "1" or request("tipopagto") = "2" or request("tipopagto") = "3" or request("tipopagto") = "4" then
            metodoPagto = "CEB"
        Elseif request("tipopagto") = "101" or request("tipopagto") = "102" or request("tipopagto") = "103" or request("tipopagto") = "104" then
            metodoPagto = "PgtoFácil"
        Else
            metodoPagto = "Transfer/Financ"
        End If
        RS_Transacao("metodoPagto") = metodoPagto
        If request("tipopagto") <> "" then
            RS_Transacao("tipoPagto") = CInt(request("tipopagto"))
        End If
        If request("prazo") <> "" then
            RS_Transacao("prazo") = CInt(request("prazo"))
        End If
        If request("numparc") <> "" then
            RS_Transacao("numParcelas") = request("numparc")
        End If

        If request("valparc") <> "" Then
            If request("valparc") = "0" Then            
                VARvalparc = request("valparc")
            Else
                VARvalparc = mid(request("valparc"),1,len(request("valparc"))-2) & "." & right(request("valparc"),2)
            End if
            RS_Transacao("valorParcela") = VARvalparc
        End If

        If request("valtotal") <> "" then
            VARvaltotal = mid(request("valtotal"),1,len(request("valtotal"))-2) & "." & right(request("valtotal"),2)
            RS_Transacao("total") = VARvaltotal
        End If
        RS_Transacao("dataCompra") = CStr(Now())
        RS_Transacao("status") = 3
        If request("ccname") <> "" then
            RS_Transacao("ccname") = request("ccname")
        End If
        If request("ccemail") <> "" then
            RS_Transacao("ccemail") = request("ccemail")
        End If
        If request("cctype") <> "" then
            RS_Transacao("cctype") = request("cctype")
        End If
        RS_Transacao("assinatura") = request("assinatura")
        RS_Transacao.Update

%>
        <PUT_AUTH_OK>
<%
    Else
%>
        <ERRO>
<%
    End If

    RS_Transacao.Close
    ' outros dados repassados são:
    Set RS_Transacao = Nothing

Else
%>
    <ERRO>
<%
End If
Set configuracao = Nothing
Call fecha_ArquivoXML(Application("XMLMeiosPagamentos"),VarobjXML,VarobjRoot)
Conexao.Close
Set Conexao = Nothing
%>