DEMANDE API Rest authentification

Quelle API exactement ?

Ici la méthode pour l'API : app.transfertbanque.fr

Code (Text):

Procedure gpGetReleveCFONB(p_sLogin est une chaîne, p_sPassword est une chaîne, p_dDebut est uneDate = "", p_dFin est une Date = "", p_bNonTraitesSeulement est un booléen = Faux)

// Variables
MaRequeteRest est une restRequête
LaReponseRest est une restRéponse
vParametresRequete est un Variant
vReponse est un Variant

sCFONB est une chaîne

// Initialisation de la requête REST
MaRequeteRest.URL = "https://app.transfertbanque.fr/releves/CFONB"
MaRequeteRest.ContentType = "application/json"
MaRequeteRest.Méthode = httpPost

// Initialisation des paramètres
vParametresRequete.Login = p_sLogin
vParametresRequete.Password = p_sPassword

SI p_dDebut <> Null ALORS
vParametresRequete.Debut = DateVersChaîne(p_dDebut, "JJMMAAAA")
FIN

SI p_dFin <> Null ALORS
vParametresRequete.Fin = DateVersChaîne(p_dFin, "JJMMAAAA")
FIN

SI p_bNonTraitesSeulement ALORS
vParametresRequete.NonTraitesSeulement = "1"
SINON
vParametresRequete.NonTraitesSeulement = "0"
FIN

// Initialisation du contenu de la requête REST
MaRequeteRest.Contenu = VariantVersJSON(vParametresRequete)

// Exécution de la requête REST
LaReponseRest = RESTEnvoie(MaRequeteRest)

SI ErreurDétectée ALORS
Erreur(HErreurInfo(hErrComplet))

SINON

// Traitement de la réponse au format JSON

vReponse = JSONVersVariant(LaReponseRest.Contenu)

SELON vReponse.Error

CAS 0 // ok, fichier File en retour
sCFONB = vReponse.File

CAS 1 // Erreur d'authentification
Erreur("Erreur d'authentification")

CAS 2 // Identifiants non autorisés à utiliser le service
Erreur("Identifiants non autorisés à utiliser le service")

AUTRE CAS // Erreur non identifiée
Erreur("Erreur non identifiée")
FIN

FIN

RENVOYER sCFONB
 

 

Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

Bonjour, merci pour la réponse, mais je ne parle pas pour la consommation de web service, mais lors de la création du web service

Cliquez pour agrandir...