Procedure GetJson(table est une chaîne, Id est une chaîne, ListeChamps est une chaîne) //tabMonTablo est un tableau de chaînes

Trace("###############################################################################################################")
//Définition de le requete
maRequeteREST est un restRequête
maRequeteREST.Méthode = httpGet //select_all.php?search=
SI Taille(SAI_RECHERCHER) = 0 ALORS
maRequeteREST.URL = "https:xx/api/"+table+"/"+ Id +"/"+ gsApikey_private /
SINON
maRequeteREST.URL = "https:/xx/api/"+table+"/" + SAI_RECHERCHER + "/" + gsApikey_private
FIN

//Définition de la réponse
maReponseREST est une restRéponse = RESTEnvoie(maRequeteREST)

//Si réponse
SI maReponseREST..CodeEtat = 200 ALORS
MonJson est un JSON = maReponseREST.Contenu
//Info(MonJson.success + MonJson.message)

vJSON est un Variant = JSONVersVariant(MonJson)
QUAND EXCEPTIONEXCEPTION DANS
// Transforme le code source JSON

ParcoursMembresVariant(vJSON)


PROCEDURE INTERNE ParcoursMembresVariant(_ObjetOuTableau)

ListeChamps2 est une chaîne = ListeChamps


SELON _ObjetOuTableau..Type

CAS wlVariantObjet :

POUR TOUT _Membre de _ObjetOuTableau..Membre

SI _Membre..Membre..Occurrence = 0 ALORS

SELON _Membre..Type
CAS wlVariantTableau :

Trace("**********************") //DEBUT de l'enregistrement
ParcoursMembresVariant(_Membre)

AUTRES CAS :

SI (Contient(ListeChamps2,_Membre..Nom) = 1 ) ALORS
Trace(_Membre..Valeur)
FIN

FIN
SINON
Trace(Répète("--", ChaîneOccurrence(dbgInfo(dbgPile), RC)) +...
"Le membre " + _Membre..Nom + " a " +...
_Membre..Membre..Occurrence + " autres membres...")

Trace("bbbbbbbbbbbbbbbbbbbb")
ParcoursMembresVariant(_Membre)
FIN
FIN

CAS wlVariantTableau :


POUR TOUT ÉLÉMENT UnElement, Compteur de _ObjetOuTableau

Trace(Compteur +"/"+_ObjetOuTableau..Occurrence) // N° d'enregistrement

ParcoursMembresVariant(UnElement)
Trace("**********************") //Fin de l'enregistrement


FIN

AUTRES CAS : Trace("A gérer ("+_ObjetOuTableau..Type+") !?"+_ObjetOuTableau)
FIN
FIN

FAIRE
// Traitement à faire si le JSON est invalide
Erreur("Erreur de chargement des données Json")

FIN

SINON
Info("Erreur", "Problème de connection")

FIN

//Définition des champs à remonter du JSON
ListeChamps est une chaîne = "Lien|ID"
GetJson("Liens","%20",ListeChamps)