1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
//Récupération de tous les paramètres de la page
I est un entier=1
gsTemp=PageParamètre(I)
TANTQUE gsTemp<>"" ET gsTemp<>EOT
SI gsChaine<>"" ALORS
gsChaine+="&"
FIN
gsChaine+=gsTemp
I++
gsTemp=PageParamètre(I)
FIN
gsChaine="https://www.sandbox.paypal.com/cgi-bin/webscr?"+gsChaine
SI PAS gbBKO ALORS
//Vérifier que l'identifiant unique est bien unique
HLitRecherchePremier(Transactions_Paypal,ID_Transaction,gsUnikID)
SI HTrouve(Transactions_Paypal) ALORS
gsMessage="Erreur ID Duppliqué"
gbBKO=Vrai
FIN
FIN
//Envoi d'une requête au site paypal pour valider la transaction
SI PAS gbBKO ALORS
SI HTTPRequête(URLEncode(gsChaine)) ALORS
// INFO(gsCustom,gsChaine,HTTPDonneRésultat(HTTPRésultat))
SI Majuscule(HTTPDonneRésultat(httpRésultat))<>"VERIFIED" ALORS
gsMessage="RESULTAT : "+HTTPDonneRésultat(httpRésultat)
gbBKO=Vrai
FIN
SINON
gsMessage="ERREUR HTTP REQUETE"
gbBKO=Vrai
FIN
FIN |
Partager