cRestRequete est un restRequête
cRestReponse est une restRéponse

client_id est une chaîne
client_secret est une chaîne
client_id = "xxxxx" // compte admin
client_secret = "xxxxx" // compte admin
cRestRequete.Méthode = httpPost
cRestRequete.User = client_id
cRestRequete.Password = client_secret
cRestRequete.Entête["Content-Type"] = "application/x-www-form-urlencoded"
cRestRequete.URL = "https://sandbox-oauth.aife.economie.gouv.fr/api/oauth/token"
cRestRequete.Contenu = ChaîneVersUTF8(ChaîneConstruit("grant_type=client_credentials&client_id=%1&client_secret=%2&scope=openid",client_id,client_secret))
cRestReponse = RESTEnvoie(cRestRequete)

v est un Variant = JSONVersVariant(cRestReponse.Contenu)

// Stocke le token
_gsToken est une chaîne
_gsToken = v.access_token

// Résumé : Appel une API ChorusPro

// Construction de l'entête de sécurité
//// Utilisateur technique
NomUtilisateurTechnique est une chaîne
MDPUtilisateurTechnique est une chaîne
NomUtilisateurTechnique = "XXXXX" // compte client
MDPUtilisateurTechnique = "XXXXXX" // compte client
// Obligatoirement une chaîne ANSI pour que la requête soit bien décodée
sEnteteAuthentification est une chaîne = NomUtilisateurTechnique+":"+MDPUtilisateurTechnique
//Trace("Bearer " + _gsToken)
//Trace(+ Encode(sEnteteAuthentification,encodeBASE64SansRC))
sEnteteAuthentification=Encode(sEnteteAuthentification,encodeBASE64)

//Construction des paramètres
ParametreEntree est un JSON
ParametreEntree= "{idFacture = 4057340},"



//Construction des paramètres de base
cRestRequete.URL ="https://sandboxapi.aife.economie.gouv.fr/cpro/factures/v1/consulter/historique"
cRestRequete.Méthode = httpPost
cRestRequete.ContentType = "application/json;charset=utf-8"

cRestRequete.Contenu = ParametreEntree

//paramètre d'autorisation
cRestRequete.Entête["Authorization"] = "Bearer " + _gsToken
cRestRequete.Entête["cpro-account"] = sEnteteAuthentification

//Exécution de l'API REST
cRestReponse = RESTEnvoie(cRestRequete)

// On force la conversion du résultat en JSON
ResultatAPI est un JSON
ResultatAPI = cRestReponse.Contenu
Info(cRestReponse.CodeEtat)
Info(cRestReponse.Contenu)
RENVOYER ResultatAPI