Created
December 27, 2018 20:50
-
-
Save JuaniVeltri/70deccee2647b7a80c821e0dfa7c3406 to your computer and use it in GitHub Desktop.
VB demo Tokenizer
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Imports MercadoPago | |
Imports System.Net | |
Imports MercadoPago.Resources | |
Imports MercadoPago.DataStructures.Payment | |
Imports System | |
Public Class Application | |
Public Shared Sub Main() | |
Pagar("token", 1, "visa", "310", 100.0, "mail@pepito.com", "test_access_token") | |
End Sub | |
Public Shared Sub Pagar(ByVal token As String, ByVal numeroPagos As Integer, ByVal payment_method_id As String, ByVal issuer_id As String, | |
ByVal amount As Single, ByVal mail As String, ByVal accessToken As String) | |
System.Net.ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12 | |
MercadoPago.SDK.SetAccessToken(accessToken) | |
'Creamos el objeto pago | |
Dim payment As Payment = New Payment() | |
payment.TransactionAmount = amount | |
payment.Token = token | |
payment.Description = "descripcion" | |
payment.Installments = numeroPagos | |
payment.PaymentMethodId = payment_method_id | |
payment.IssuerId = issuer_id | |
payment.SponsorId = 1 | |
'Creamos el objeto comprador | |
Dim payer As New Payer() | |
payer.Email = mail | |
payment.Payer = payer | |
'Realizamos el pago | |
payment.Save() | |
'Establecemos el detalle del Status como Indefinido por si a la hora de obtener los errores es alguno de los no definidos | |
Dim statusDetail As String = "Undefined" | |
Console.WriteLine(payment.Status) | |
'Si hay status, es que el pago se ha realizado, con exito o sin el, por lo que pasamos a tratar la respuesta | |
'Si no lo hay, se obtiene el error y lo enviamos al Log de Respuesta | |
End Sub | |
End Class |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment