VAR_STRIPE_CLE_SECRET est une chaîne
VAR_STRIPE_CLE_PUBLIQUE est une chaîne
VAR_STRIPE_CHEMINOK est une chaîne
VAR_STRIPE_CHEMINPASOK est une chaîne

SI EnModeTest() = Faux ALORS
// VAR_STRIPE_CHEMINOK = fRepWeb()+[fSep]+"FR"+[fSep]+"TRANSACTION-OK.awp?session_id={CHECKOUT_SESSION_ID}"
// VAR_STRIPE_CHEMINPASOK = fRepWeb()+[fSep]+"FR"+[fSep]+"TRANSACTION-PASOK.awp?session_id={CHECKOUT_SESSION_ID}"
// VAR_STRIPE_CLE_SECRET = "XXXXXXXX" // Clé secrète production
// VAR_STRIPE_CLE_PUBLIQUE = "XXXXXXXX" // Clé publique production
SINON
VAR_STRIPE_CHEMINOK = "http://localhost/"+RépertoireWeb()+"/FR/TRANSACTION-OK.awp?session_id={CHECKOUT_SESSION_ID}"
VAR_STRIPE_CHEMINPASOK = "http://localhost/"+RépertoireWeb()+"/FR/TRANSACTION-PASOK.awp?session_id={CHECKOUT_SESSION_ID}"
VAR_STRIPE_CLE_SECRET = "XXXXXXXX" // Clé secrète test
VAR_STRIPE_CLE_PUBLIQUE = "XXXXXXXX" // Clé publique test
FIN

VARLOCAL_STRUCTURESESSION est une structure
VARLOCAL_success_url est une chaîne // Lien de la page de succès
VARLOCAL_cancel_url est une chaîne // Lien de la page de annulation
VARLOCAL_payment_method_types est une chaîne // type de méthodes de paiement
VARLOCAL_line_items_name est chaîne // nom
VARLOCAL_client_reference_id est une chaîne // référence du client
VARLOCAL_customer_email est une chaîne // e-mail du client
VARLOCAL_line_items_amount est entier // montant de la cotisation
VARLOCAL_line_items_currency est une chaîne // devise
VARLOCAL_line_items_quantity est entier // quantité
VARLOCAL_line_items_description est une chaîne // description
VARLOCAL_locale est une chaîne // langage (fr)
VARLOCAL_mode est une chaîne // mode de paiement (payment, setup, ou subscription)
VARLOCAL_submit_type est une chaîne // type de paiement (auto, book, donate, ou pay)
FIN

VARLOCAL_CONTENUSESSION est VARLOCAL_STRUCTURESESSION

nMontantEntier, nMontantEntier100 sont des entiers
xMontantMonétaire est un numérique
xMontantMonétaire = "10,00" // Exemple de montant
nMontantEntier = xMontantMonétaire
nMontantEntier100 = nMontantEntier*100

VARLOCAL_CONTENUSESSION.VARLOCAL_success_url = VAR_STRIPE_CHEMINOK
VARLOCAL_CONTENUSESSION.VARLOCAL_cancel_url = VAR_STRIPE_CHEMINPASOK
VARLOCAL_CONTENUSESSION.VARLOCAL_payment_method_types = "card"
VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_name = "NOM"
VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_amount = nMontantEntier100
VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_currency = "eur"
VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_quantity = "1"
VARLOCAL_CONTENUSESSION.VARLOCAL_customer_email = "client@mail.com"
VARLOCAL_CONTENUSESSION.VARLOCAL_client_reference_id = "REF CLIENT"
VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_description = "DESCRIPTION"
VARLOCAL_CONTENUSESSION.VARLOCAL_locale = "fr"
VARLOCAL_CONTENUSESSION.VARLOCAL_mode = "payment"
VARLOCAL_CONTENUSESSION.VARLOCAL_submit_type = "pay"

VARLOCAL_CONTENUREQUETE est une chaîne
VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
success_url=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_success_url)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
cancel_url=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_cancel_url)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
payment_method_types[]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_payment_method_types)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
line_items[][name]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_name)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
line_items[][amount]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_amount)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
line_items[][currency]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_currency)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
line_items[][quantity]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_quantity)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
line_items[][Description]=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_line_items_description)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
customer_email=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_customer_email)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
client_reference_id=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_client_reference_id)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
locale=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_locale)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
mode=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_mode)

VARLOCAL_CONTENUREQUETE += ["&"] + ChaîneConstruit([
submit_type=%1
],VARLOCAL_CONTENUSESSION.VARLOCAL_submit_type)

REST_Stripe est un restRequête
REST_Reponse est un restRéponse
vReponse est Variant

REST_Stripe..URL = "https://api.stripe.com/v1/checkout/sessions"
REST_Stripe..Méthode = httpPost
REST_Stripe..Utilisateur = VAR_STRIPE_CLE_SECRET + ":"
REST_Stripe..Contenu = VARLOCAL_CONTENUREQUETE
REST_Reponse = RESTEnvoie(REST_Stripe)

SI ErreurDétectée ALORS
Erreur("Accès au serveur impossible. Opération annulée")
RETOUR
FIN

SI REST_Reponse.CodeEtat<>200 ALORS
Erreur("Erreur dans l’exécution de la requête" + RC+ REST_Reponse.EntêteBrut+RC+REST_Reponse.Contenu)
RETOUR
FIN

vReponse=JSONVersVariant(REST_Reponse..Contenu)

sCodeHtml est une chaîne=[
<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<script src="https://js.stripe.com/v3/"></script>
</head>
<body>
<script type="text/javascript">
<!--
var stripe = Stripe('%1');

stripe.redirectToCheckout({
sessionId: '%2'
}).then(function (result) {
});
//-->
</script>
</body>
</html>
]

sCodeHtml = ChaîneConstruit(sCodeHtml,VAR_STRIPE_CLE_PUBLIQUE,vReponse.Id)

CHAMP_HTML_CACHE = sCodeHtml // Envoi du code au champ HTML caché

VAR_ADRESSEWEB est une chaîne = "http://www.monsite.fr/INTEGRATION_MOLLIE_WEB/"

SI EnModeTest() = Faux ALORS
Info("En réel")
VAR_MOLLIE_URL_RETOUR = VAR_ADRESSEWEB+"/"+RépertoireWeb()+"/FR/RETOUR.awp?session_id=}"
VAR_MOLLIE_URL_WEBHOOK = VAR_ADRESSEWEB+"/"+RépertoireWeb()+"/FR/WEBHOOCK.awp"
SINON
Info("en mode test")
// VAR_MOLLIE_URL_RETOUR = "http://localhost/"+RépertoireWeb()+"/FR/TRANSACTION-OK.awp?session_id="
// //VAR_MOLLIE_URL_WEBHOOK = "https://localhost/"+RépertoireWeb()+"/FR/PAGE_WEBHOOCK.awp" // Interdit en mode http/localhost
// VAR_MOLLIE_URL_WEBHOOK = "https://www.argiko-azia.fr/ARGIKO-AZIA_WEB/FR/TRANSACTION-OK.awp"

// TRANSACTION-OK.awp n'est pas trouvée !!! On essaye avec PAGE_RETOUR
VAR_MOLLIE_URL_RETOUR = "http://localhost/"+RépertoireWeb()+"/FR/RETOUR.awp?session_id="
//VAR_MOLLIE_URL_WEBHOOK = "https://localhost/"+RépertoireWeb()+"/FR/PAGE_WEBHOOCK.awp" // Interdit en mode http/localhost
VAR_MOLLIE_URL_WEBHOOK = "https://www.argiko-azia.fr/ARGIKO-AZIA_WEB/FR/WEBHOOCK.awp"
FIN

// La page WebHoock ne peut être testée en mode http/localhost, utilisez NGROK pour simuler un https sur le localhost
// https://ngrok.com

//// Génération d'un ID de transaction unique
VAR_MOLLIE_ID_TRANSACTION="ID_"+GénèreMotDePasse(25, "abcdefghijklmnopqrstuvwzABCDEFGHIJKLMNOPQRSYUVWZ1234567890")
BOUCLE
SI HLitRecherche(transaction,ID,VAR_MOLLIE_ID_TRANSACTION,hIdentique+hBlocageNon)=Vrai ALORS
VAR_MOLLIE_ID_TRANSACTION="ID_"+GénèreMotDePasse(25, "abcdefghijklmnopqrstuvwzABCDEFGHIJKLMNOPQRSYUVWZ1234567890")
SINON
SORTIR
FIN
FIN

//// Alimentation de la requête de demande de paiement
VARLOCAL_CONTENUREQUETE est une chaîne
VARLOCAL_CONTENUREQUETE += ["&"] + "amount[currency]="+SAI_currency+"" // Devise (obligatoire)
VARLOCAL_CONTENUREQUETE += ["&"] + "amount[value]="+NumériqueVersChaîne(SAI_value, "1.2f")+"" // Montant de la transaction (obligatoire)
VARLOCAL_CONTENUREQUETE += ["&"] + "description="+ChaîneVersUTF8(SAI_description)+"" // Description de la transaction (obligatoire)
VARLOCAL_CONTENUREQUETE += ["&"] + "redirectUrl="+VAR_MOLLIE_URL_RETOUR+VAR_MOLLIE_ID_TRANSACTION+"" // URL de retour + ID de la transaction unique (obligatoire)
VARLOCAL_CONTENUREQUETE += ["&"] + "webhookUrl="+VAR_MOLLIE_URL_WEBHOOK+"" // URL du WebHook (obligatoire mais non utilisé)
VARLOCAL_CONTENUREQUETE += ["&"] + "locale=fr_FR" // Langue utilisée dans les pages de paiement (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "method=creditcard" // Force la méthode de paiement : ici par carte bancaire, si plusieurs mode de paiement , ne pas intégrer (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "metadata[Detail]="+ChaîneVersUTF8("XXXXXXXXXXXXXXXX")+"" // Détail qui apparait sur le relevé de paiement MOLLIE , invisible pour le client
VARLOCAL_CONTENUREQUETE += ["&"] + "sequenceType=oneoff" // Type de paiement fixe ou récurent (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "billingAddress[streetAndNumber]="+SAI_billingAddress_streetAndNumber+"" // Adresse postale du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "billingAddress[postalCode]="+SAI_billingAddress_postalCode+"" // Code-Postal du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "billingAddress[city]="+SAI_billingAddress_city+"" // Ville du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "billingAddress[region]="+SAI_billingAddress_region+"" // Région du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "billingAddress[country]="+SAI_billingAddress_country+"" // Pays du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "shippingAddress[streetAndNumber]="+SAI_shippingAddress_streetAndNumber+"" // Adresse postale du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "shippingAddress[postalCode]="+SAI_shippingAddress_postalCode+"" // Code-Postal du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "shippingAddress[city]="+SAI_shippingAddress_city+"" // Ville du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "shippingAddress[region]="+SAI_shippingAddress_region+"" // Région du client (optionnel)
VARLOCAL_CONTENUREQUETE += ["&"] + "shippingAddress[country]="+SAI_shippingAddress_country+"" // Pays du client (optionnel)

REST_REQUETE est un restRequête
REST_Reponse est un restRéponse

REST_REQUETE..URL = "https://api.mollie.com/v2/payments"
REST_REQUETE..Méthode = httpPost
REST_REQUETE..Utilisateur = VAR_MOLLIE_CLE_TEST
REST_REQUETE..Contenu = VARLOCAL_CONTENUREQUETE
//////REST_REQUETE..Utilisateur = VAR_MOLLIE_PROFILE_ID
REST_Reponse = RESTEnvoie(REST_REQUETE)
SI ErreurDétectée ALORS
Erreur("Accès au serveur impossible. Opération annulée")
RETOUR
FIN
SI REST_Reponse.CodeEtat<>201 ALORS
Erreur("Erreur dans l’exécution de la requête" + RC+ REST_Reponse.EntêteBrut+RC+REST_Reponse.Contenu)
RETOUR
FIN

//info( REST_Reponse.EntêteBrut+RC+REST_Reponse.Contenu)

vReponse est Variant = JSONVersVariant(REST_Reponse..Contenu)

// Ajoute la transaction dans la base TRANSACTION
SI HLitRecherche(transaction,ID,vReponse.id,hIdentique+hBlocageNon)=Vrai ALORS HSupprime(transaction,hNumEnrEnCours)
transaction.date_heure=DateHeureSys()
transaction.ID=vReponse.id
transaction.MONTANT=SAI_value
transaction.REF=VAR_MOLLIE_ID_TRANSACTION
HAjoute(transaction,hEcritureDéfaut+hBlocageNon)
HFerme(transaction)

VAR_MOLLIE_URL_CHECKOUT = ""
CREATION_PAIEMENT(vReponse)
CHAMP_HTML_CACHE="<meta http-equiv=""refresh"" content=""1;"+VAR_MOLLIE_URL_CHECKOUT+""">"