Procedure UpdateProteckSites()
sdLocaledb est une Source dede Données
sReqUP est une chaîne


sRequete = [
SELECT
SitesDBLocale.IDSite AS IDSite,
SitesDBLocale.NFCTagSite AS NFCTagSite,
SitesDBLocale.Latitude AS Latitude,
SitesDBLocale.Longitude AS Longitude
FROM
SitesDBLocale
WHERE
SitesDBLocale.NFCTagSite <> 'NULL' AND Sitesdblocale.Latitude <> '0.000000' AND Sitesdblocale.Longitude <> '0.000000'
ORDER BY
IDSite Asc
]

sReqUP = [
UPDATE
sites
SET
SiteTAG = '%1', SiteLatitude = '%2', SiteLongitude = '%3'
WHERE
sites.IDSite = '%4'
]



HExécuteRequêteSQL(sdLocaledb,hRequêteDéfaut,sRequete)
HLitPremier(sdLocaledb,IDSite)
TANTQUE HEnDehors() = Faux
nIDSite = sdLocaledb.IDSite
sSiteTag = sdLocaledb.NFCTagSite
sLatitude = sdLocaledb.Latitude
sLongitude = sdLocaledb.Longitude

SI nConnexionDB <> 0 ALORS //nConnexionDB est un entier = SQLConnecteWS("http://srv-ws/WDSOAPDB_WEB/","srv-ws","admin","xxxxxxxxxxx","XXXXX","MYSQL")

sReqUP = ChaîneConstruit(sReqUP,sSiteTag,sLatitude,sLongitude,nIDSite)

// info(sReqUP) --> donne la bonne requête

SQLExec(sReqUP,"MonUpdate")
SQLDéconnecte()

SINON
SQLInfoGene()
Erreur(SQL.MesErreur)
ChangeEtatRondierPlus(3)
FIN
HLitSuivant(sdLocaledb,IDSite)

FIN