Comment faire des achats en ligne via l'API PayPal

Imports com.paypal.soap.api
	Imports com.paypal.sdk.profiles

Public Property panier As Panier

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            LoadData()
            Response.Write(PaiementParCarteDeCredit().PaymentTransactionDetails.PaymentInfo.Subject)
        End If
End Sub

Private Sub LoadData()
        Dim prd1 As Produit = New Produit(1, "Visual Studio", 1000, 10)
        Dim prd2 As Produit = New Produit(2, "MSDN", 500, 5)
        Dim prd3 As Produit = New Produit(3, "Formation", 100, 1)

        panier = New Panier(prd1, prd2, prd3)
End Sub

Public Function PaiementParCarteDeCredit() As GetTransactionDetailsResponseType
        'Profile Paypal
        Dim profile As IAPIProfile = ProfileFactory.createSignatureAPIProfile()
        profile.APIUsername = My.Settings.Username
        profile.APIPassword = My.Settings.Password
        profile.APISignature = My.Settings.Signature
        profile.Environment = My.Settings.Environment

        'Pays
        Dim paysPayPal As CountryCodeType
        If [Enum].IsDefined(GetType(CountryCodeType), "FR") Then
            paysPayPal = CType([Enum].Parse(GetType(CountryCodeType), "FR"), CountryCodeType)
        End If

        'Client
        Dim client As New PersonNameType
        client.Salutation = "M"
        client.FirstName = "Jean"
        client.LastName = "Dupont"

        'Adresse du payeur/livraison
        Dim addresse As New AddressType
        addresse.Name = client.Salutation + " " + client.FirstName + " " + client.LastName
        addresse.Street1 = "22 rue du Paradis"
        addresse.Street2 = ""
        addresse.CityName = "Mérignac"
        addresse.PostalCode = "33700"
        addresse.CountryName = "France"
        addresse.Country = paysPayPal
        addresse.CountrySpecified = True

        'Payeur
        Dim payeur As New PayerInfoType
        payeur.Payer = "jean.dupont@test.fr"
        payeur.PayerStatus = PayPalUserStatusCodeType.unverified
        payeur.PayerCountry = paysPayPal
        payeur.PayerCountrySpecified = True
        payeur.Address = addresse
        payeur.PayerName = client

        'Type de carte de crédit
        Dim typeCarteDeCredit As CreditCardTypeType
        If [Enum].IsDefined(GetType(CreditCardTypeType), "Visa") Then
            typeCarteDeCredit = CType([Enum].Parse(GetType(CreditCardTypeType), "Visa"), CreditCardTypeType)
        End If

        'Carte de crédit
        Dim carteDeCredit As New CreditCardDetailsType
        carteDeCredit.CreditCardNumber = "******************"
        carteDeCredit.CreditCardType = typeCarteDeCredit
        carteDeCredit.CreditCardTypeSpecified = True
        carteDeCredit.CVV2 = "***"
        carteDeCredit.ExpMonth = 12
        carteDeCredit.ExpMonthSpecified = True
        carteDeCredit.ExpYear = 2015
        carteDeCredit.ExpYearSpecified = True
        carteDeCredit.CardOwner = payeur

        'Code monnaie
        Dim codeMonnaiePayPal As CurrencyCodeType
        If [Enum].IsDefined(GetType(CurrencyCodeType), "EUR") Then
            codeMonnaiePayPal = CType([Enum].Parse(GetType(CurrencyCodeType), "EUR"), CurrencyCodeType)
        End If

        'Montant hors taxe au format 00.00
        Dim montantHT As New BasicAmountType
        montantHT.currencyID = codeMonnaiePayPal
        montantHT.Value = panier.GetMontantHT.ToString("N")

        'Montant des taxes au format 00.00
        Dim montantTaxe As New BasicAmountType
        montantTaxe.currencyID = codeMonnaiePayPal
        montantTaxe.Value = panier.GetMontantTaxe.ToString("N")

        'Montant toutes taxes comprises au format 00.00
        Dim montantTTC As New BasicAmountType
        montantTTC.currencyID = codeMonnaiePayPal
        montantTTC.Value = panier.GetMontantTTC.ToString("N")

        'Panier
        Dim panierPaypal As New List(Of PaymentDetailsItemType)
        For Each produit As Produit In panier.Produits
            Dim quantite As Integer = panier.Produits.Where(Function(p) p.ID = produit.ID).Count

            'Produit PayPal
            Dim produitPayPal As New PaymentDetailsItemType
            produitPayPal.Number = produit.ID.ToString
            produitPayPal.Name = produit.Nom
            produitPayPal.Quantity = quantite.ToString

            produitPayPal.Amount = New BasicAmountType
            produitPayPal.Amount.currencyID = codeMonnaiePayPal
            produitPayPal.Amount.Value = produit.Prix.ToString("N")

            produitPayPal.Tax = New BasicAmountType
            produitPayPal.Tax.currencyID = codeMonnaiePayPal
            produitPayPal.Tax.Value = produit.Taxe.ToString("N")

            panierPaypal.Add(produitPayPal)
        Next

        'Détails de la requête
        Dim detailsRequete As New DoDirectPaymentRequestDetailsType
        detailsRequete.IPAddress = HttpContext.Current.Request.UserHostAddress
        detailsRequete.PaymentAction = PaymentActionCodeType.Sale
        detailsRequete.CreditCard = carteDeCredit
        detailsRequete.ReturnFMFDetails = True
        detailsRequete.ReturnFMFDetailsSpecified = True

        'Montant
        detailsRequete.PaymentDetails = New PaymentDetailsType
        detailsRequete.PaymentDetails.ItemTotal = montantHT
        detailsRequete.PaymentDetails.TaxTotal = montantTaxe
        detailsRequete.PaymentDetails.OrderTotal = montantTTC

        'Adresse de livraison
        detailsRequete.PaymentDetails.ShipToAddress = addresse

        'Panier paypal
        detailsRequete.PaymentDetails.PaymentDetailsItem = panierPaypal.ToArray

        'Achat
        Dim achatPaypal As New DoDirectPaymentRequestType
        achatPaypal.Version = My.Settings.Version
        achatPaypal.DoDirectPaymentRequestDetails = detailsRequete

        'Demande de paiement
        Dim appel As New CallerServices
        appel.APIProfile = profile

        'Réponse à la demande de paiement
        Dim reponseAchatPaypal As New DoDirectPaymentResponseType
        reponseAchatPaypal = CType(appel.Call("DoDirectPayment", achatPaypal), DoDirectPaymentResponseType)

        'Gestion des erreurs
        If Not (reponseAchatPaypal.Ack = AckCodeType.Success OrElse reponseAchatPaypal.Ack = AckCodeType.SuccessWithWarning) Then
            If reponseAchatPaypal.Errors IsNot Nothing Then
                Throw New PayPalPaymentException(reponseAchatPaypal.Errors)
            End If
        End If

        'Demande d"informations concernant l'achat
        Dim infoAchatPayPal As New GetTransactionDetailsRequestType
        infoAchatPayPal.TransactionID = reponseAchatPaypal.TransactionID
        infoAchatPayPal.Version = My.Settings.Version

        'Réponse de PayPal à la demande d'informations
        Dim reponseInfoAchatPayPal As New GetTransactionDetailsResponseType
        reponseInfoAchatPayPal = CType(appel.Call("GetTransactionDetails", infoAchatPayPal), GetTransactionDetailsResponseType)

        Return reponseInfoAchatPayPal
End Function

This transaction cannot be processed due to an invalid merchant configuration.