GeneXus - Genexus + PayPal

//PayPalSettings.Host = api-3t.sandbox.paypal.com

//PayPalSettings.BaseURL = /

//PayPalSettings.API = nvp

&HTTPClient.Host = PayPalSettings.Host

&HTTPClient.Secure = IIf( PayPalSettings.Secure = !"true", true, false)

&HTTPClient.BaseUrl = PayPalSettings.BaseURL

&Querystring  = Format(!"?USER=%1&PWD=%2&SIGNATURE=%3", PayPalSettings.User, PayPalSettings.Password, PayPalSettings.Signature) //Credentials always required

&Querystring += Format(!"&METHOD=SetExpressCheckout&VERSION=%1", PayPalSettings.Version) //Method and API version

&Querystring += Format(!"&PAYMENTREQUEST_0_PAYMENTACTION=SALE&PAYMENTREQUEST_0_AMT=%1&PAYMENTREQUEST_0_CURRENCYCODE=%2", &Parms.Amount, PayPalSettings.CurrencyCode ) //Set a sale, the amount and currency code

&Querystring += Format(!"&L_BILLINGTYPE0=RecurringPayments&L_BILLINGAGREEMENTDESCRIPTION0=%1&NOSHIPPING=1&ALLOWNOTE=0",  &Parms.ProductDescription) //Set a Recurring Payments, the description for the agreement and ser no data for shipping and not allow any notes

&Querystring += Format(!"&BRANDNAME=%1", PayPalSettings.BrandName) //Set the brandname or product name

If &Parms.cancelURL.IsEmpty() //Set the cancel URL to return when the user cancel the agreement in Paypal

	&Querystring += Format(!"&cancelUrl=%1", PayPalSettings.CancelURL)

Else

	&Querystring += Format(!"&cancelUrl=%1", &Parms.cancelURL)

Endif

If &Parms.returnURL.IsEmpty() //Set the URL to return after the user authorize the recurring payments.

	&Querystring += Format(!"&returnUrl=%1", PayPalSettings.ReturnURL )

Else

	&Querystring += Format(!"&returnUrl=%1", &Parms.returnURL)

Endif

&HTTPClient.Host += PayPalSettings.BaseURL + PayPalSettings.API + &Querystring.Trim()

&HttpClient.Execute('GET','')

&Response = &HTTPClient.ToString()

If StrSearch(&Response, !"ACK=Success", 1) > 0

	//Get Token returned by Paypal

	&StartPosition = StrSearch(&Response, !"TOKEN=", 1)

	&StartPosition += 6

	&EndPosition   = StrSearch(&Response, !"&", &StartPosition)

	&Length = &EndPosition - &StartPosition

	&Token = &Response.Substring(&StartPosition, &Length )

	&isOK = true

Else

	&isOK = false

Endif