//Déclaration dans le code du webservice
MDataTrucks est une Classe <MAPPING=DataTrucks>

// Le code se trouvant entre <MAPPING> et <FIN> est généré automatiquement.
// Il sera effacé et recréé entièrement à chaque génération depuis l'analyse.
<MAPPING>
m_nIDDataTrucks est un entier sur 8 octets <MAPPING=IDDataTrucks, clé unique , Sérialise=Faux>
m_sImmat est une chaîne ANSI <MAPPING=Immat , Sérialise="Immat">
m_rLatitude est un réel sur 4 octets <MAPPING=Latitude , Sérialise="Latitude">
m_rLongitude est un réel sur 4 octets <MAPPING=Longitude , Sérialise="Longitude">
m_rVitesse est un réel sur 4 octets <MAPPING=vitesse , Sérialise="vitesse">
m_dDateRecord est une Date <MAPPING=dateRecord , Sérialise="dateRecord">
m_hHeureRecord est une Heure <MAPPING=HeureRecord , Sérialise="HeureRecord">
<FIN>

FIN

// La procédure du Web service pour lire tous les record
Procedure PUBLIQUE GLOBALE LectureTous() : chaîne ANSI

// Vérification de l'authentification.
SI Authentification() = Faux ALORS
// Echec de l'authentification.
// Le code a rencontré en une erreur. Le code de traitement des erreurs fait un appel de WebserviceEcritCodeHTTP : le serveur d'application WEBDEV va ignorer la valeur de retour de la procédure.
RENVOYER ""
FIN

tabDataTrucks est un tableau de MDataTrucks
POUR TOUT MonFichierMappé
clDataTrucks est un MDataTrucks
clDataTrucks.FichierVersMemoire()

tabDataTrucks.Ajoute(clDataTrucks)
FIN

sContenuEnregistrementEnJSON est une chaîne ANSI
Sérialise(tabDataTrucks, sContenuEnregistrementEnJSON, psdJSON)

// On retourne directement une chaîne que le serveur d'application va considérer comme la réponse.
RENVOYER sContenuEnregistrementEnJSON

// Code de la fenêtre de test
DataGPS est une structure
nIDGPS est un entier sur 8 octets
immat est une chaîne
latitude est un réel
longitude est un réel
vitesse est un réel
dateGPS est une Date
heureGPS est une Heure
FIN
tabListeTrajet est un tableau de DataGPS


//Code du bouton de test pour lire les data
DemandeListeTrajet est un restRequête
RecupListeTrajet est un restRéponse


DemandeListeTrajet.URL="www.URLSITE.COM/TrackingsTruckTous"
DemandeListeTrajet.Méthode=httpGet
DemandeListeTrajet.Utilisateur="XXXXX"
DemandeListeTrajet.MotDePasse="YYYY"

RecupListeTrajet=RESTEnvoie(DemandeListeTrajet)
Désérialise(tabListeTrajet,RecupListeTrajet.Contenu,psdJSON)
TableAffiche(TABLE_TabListeTrajet,taInit)