Skip to content
master
Go to file
Code

Latest commit

 

Git stats

Files

Permalink
Failed to load latest commit information.
Type
Name
Latest commit message
Commit time
 
 
 
 
 
 
 
 
 
 
 
 

README.md

Locaweb Gateway ASP

Configuração

  • Copie a pasta "locaweb" para sua aplicação.
  • No arquivo locaweb/LocawebGatewayConfig.asp configure seu token e ambiente.
  • Em todos os arquivos ASP que você for utilizar o Locaweb Gateway ASP, faça o include do arquivo locaweb/LocawebGateway.asp, como no exemplo abaixo:

Exemplo

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
  'Seu código aqui...'
%>

Uso

Criação de transação

Exemplo de Boleto Itaú

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
Set boleto = New LocawebGatewayTransacaoDados

With boleto
  .PagamentoMeioPagamento = "boleto_itau"
  .PagamentoDataVencimento = "23122012"

  .PedidoNumero = "72812923"
  .PedidoTotal = 123.45
  .PedidoMoeda = "real"
  .PedidoDescricao = "Bola de Basquete Never Flat Spalding (1)"

  .CompradorNome = "Pedro Bonamides"
  .CompradorDocumento = "12345678909"
  .CompradorEndereco = "Rua Itapaiúna"
  .CompradorNumero = "5434"
  .CompradorBairro = "Jardim Morumbi"
  .CompradorCidade = "São Paulo"
  .CompradorEstado = "SP"
  .CompradorCEP = "05707-001"
End With

Set gateway = New LocawebGateway
Set transacao = gateway.Criar(boleto)

If transacao.TemErro Then
  Response.Write("<h2>Erros encontrados</h2>")
  Response.Write("Código de erro: " & transacao.ErroCodigo & "<br />")
  Response.Write("Mensagem de erro: " & transacao.ErroMensagem & "<br />")
Else
  Response.Write("<h2>Dados da transação</h2>")
  Response.Write("ID: " & transacao.ID & "<br />")
  Response.Write("Status: " & transacao.Status & "<br />")
  Response.Write("Número do pedido: " & transacao.NumeroPedido & "<br />")
  Response.Write("Meio de pagamento: " & transacao.MeioPagamento & "<br />")
  Response.Write("URL de acesso: " & transacao.UrlAcesso & "<br />")
End If

'Sempre libere os recursos dos objetos após utilizá-los.'
Set boleto = Nothing
Set transacao = Nothing
Set gateway = Nothing
%>

Exemplo de Cielo E-Commerce

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
Set cielo = New LocawebGatewayTransacaoDados

With cielo
  .UrlRetorno = "http://www.sualoja.com.br/retorno"
  .Capturar = True

  .PedidoNumero = "987654"
  .PedidoTotal = 123.45
  .PedidoMoeda = "real"
  .PedidoDescricao = "Bola de Basquete Never Flat Spalding (1)"

  .PagamentoMeioPagamento = "cielo"
  .PagamentoBandeira = "Visa"
  .PagamentoCartaoNumero = "4012001037141112"
  .PagamentoCartaoCvv = "123"
  .PagamentoCartaoValidade = "082015"
  .PagamentoTipoOperacao = "credito_a_vista"
  .PagamentoParcelas = 1

  .CompradorNome = "Pedro Bonamides"
  .CompradorDocumento = "1234568909"
  .CompradorEndereco = "Rua Itapaiúna"
  .CompradorNumero = "5434"
  .CompradorBairro = "Jardim Morumbi"
  .CompradorCidade = "São Paulo"
  .CompradorEstado = "SP"
  .CompradorCEP = "05707-001"
End With

Set gateway = New LocawebGateway
Set transacao = gateway.Criar(cielo)

If transacao.TemErro Then
  Response.Write("<h2>Erros encontrados</h2>")
  Response.Write("Código de erro: " & transacao.ErroCodigo & "<br />")
  Response.Write("Mensagem de erro: " & transacao.ErroMensagem & "<br />")
Else
  Response.Write("<h2>Dados da transação</h2>")
  Response.Write("ID: " & transacao.ID & "<br />")
  Response.Write("Status: " & transacao.Status & "<br />")
  Response.Write("Número do pedido: " & transacao.NumeroPedido & "<br />")
  Response.Write("Meio de pagamento: " & transacao.MeioPagamento & "<br />")
  Response.Write("URL de acesso: " & transacao.UrlAcesso & "<br />")
  Response.Write("Detalhes: <br />")

  'A propriedade Detalhes é um objeto do tipo "Scripting.Dictionary".'
  'As chaves do dicionário variam de acordo com o meio de pagamento da transação.'
  Dim key : For Each key In transacao.Detalhes.keys()
      Response.Write("- " & key & ": " & transacao.Detalhes(key) & "<br />")
  Next
End If

'Sempre libere os recursos dos objetos após utilizá-los.'
Set cielo = Nothing
Set transacao = Nothing
Set gateway = Nothing
%>

Consulta de transação

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
Set gateway = New LocawebGateway
Set transacao = gateway.Consultar(999) 'O parâmetro é o ID da transação.'

Response.Write("<h2>Dados da transação</h2>")
Response.Write("ID: " & transacao.ID & "<br />")
Response.Write("Status: " & transacao.Status & "<br />")
Response.Write("Número do pedido: " & transacao.NumeroPedido & "<br />")
Response.Write("Meio de pagamento: " & transacao.MeioPagamento & "<br />")
Response.Write("URL de acesso: " & transacao.UrlAcesso & "<br />")
Response.Write("Detalhes: <br />")

'A propriedade Detalhes é um objeto do tipo "Scripting.Dictionary".'
'As chaves do dicionário variam de acordo com o meio de pagamento da transação.'
Dim key : For Each key In transacao.Detalhes.keys()
  Response.Write("- " & key & ": " & transacao.Detalhes(key) & "<br />")
Next

If transacao.TemErro Then
  Response.Write("<h2>Erros encontrados</h2>")
  Response.Write("Código de erro: " & transacao.ErroCodigo & "<br />")
  Response.Write("Mensagem de erro: " & transacao.ErroMensagem & "<br />")
End If

'Sempre libere os recursos dos objetos após utilizá-los.'
Set transacao = Nothing
Set gateway = Nothing
%>

Cancelamento de transação

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
Set gateway = New LocawebGateway
Set transacao = gateway.Cancelar(999) 'O parâmetro é o ID da transação.'

Response.Write("<h2>Dados da transação</h2>")
Response.Write("ID: " & transacao.ID & "<br />")
Response.Write("Status: " & transacao.Status & "<br />")
Response.Write("Número do pedido: " & transacao.NumeroPedido & "<br />")
Response.Write("Meio de pagamento: " & transacao.MeioPagamento & "<br />")
Response.Write("URL de acesso: " & transacao.UrlAcesso & "<br />")
Response.Write("Detalhes: <br />")

'A propriedade Detalhes é um objeto do tipo "Scripting.Dictionary".'
'As chaves do dicionário variam de acordo com o meio de pagamento da transação.'
Dim key : For Each key In transacao.Detalhes.keys()
  Response.Write("- " & key & ": " & transacao.Detalhes(key) & "<br />")
Next

If transacao.TemErro Then
  Response.Write("<h2>Erros encontrados</h2>")
  Response.Write("Código de erro: " & transacao.ErroCodigo & "<br />")
  Response.Write("Mensagem de erro: " & transacao.ErroMensagem & "<br />")
End If

'Sempre libere os recursos dos objetos após utilizá-los.'
Set transacao = Nothing
Set gateway = Nothing
%>

Captura de transação

<!-- #include file="locaweb/LocawebGateway.asp" -->
<%
Set gateway = New LocawebGateway
Set transacao = gateway.Capturar(999) 'O parâmetro é o ID da transação.'

Response.Write("<h2>Dados da transação</h2>")
Response.Write("ID: " & transacao.ID & "<br />")
Response.Write("Status: " & transacao.Status & "<br />")
Response.Write("Número do pedido: " & transacao.NumeroPedido & "<br />")
Response.Write("Meio de pagamento: " & transacao.MeioPagamento & "<br />")
Response.Write("URL de acesso: " & transacao.UrlAcesso & "<br />")
Response.Write("Detalhes: <br />")

'A propriedade Detalhes é um objeto do tipo "Scripting.Dictionary".'
'As chaves do dicionário variam de acordo com o meio de pagamento da transação.'
Dim key : For Each key In transacao.Detalhes.keys()
  Response.Write("- " & key & ": " & transacao.Detalhes(key) & "<br />")
Next

If transacao.TemErro Then
  Response.Write("<h2>Erros encontrados</h2>")
  Response.Write("Código de erro: " & transacao.ErroCodigo & "<br />")
  Response.Write("Mensagem de erro: " & transacao.ErroMensagem & "<br />")
End If

'Sempre libere os recursos dos objetos após utilizá-los.'
Set transacao = Nothing
Set gateway = Nothing
%>

About

Plugin em ASP para integração com o Novo Gateway de Pagamento

Resources

Releases

No releases published

Packages

No packages published

Contributors 4

  •  
  •  
  •  
  •  
You can’t perform that action at this time.