cReq est un httpRequête
	cReq.URL = "https://oauth2.googleapis.com/token"
	cRep est un httpRéponse = HTTPEnvoie(cReq)
	SI ErreurDétectée ALORS
		Erreur("OAUTH ERROR = " + ErreurInfo(errComplet))
	SINON
        	info("OAUTH ok")
	FIN

 
cMaRequête est un httpRequête
cMaRequête.URL = "https://www.google.com"
cMaRéponse est un httpRéponse = HTTPEnvoie(cMaRequête)
 
SI ErreurDétectée ALORS
	Erreur(ErreurInfo(errComplet))
SINON
	fAjouteTexte("C:\Temp\http.txt",cMaRéponse.Contenu)
FIN

 
PROCÉDURE EnvoieAndroid(sMessage est une chaîne, sContenu est une chaîne, sTitre est une chaîne, sTexteDeroulant est une chaîne, bVibration est un booléen, ...
bLED est un booléen, bSupprimable est un booléen, bApplicationActive est un booléen, Site_ID est un entier sur 8 octets) : chaîne
 
// Variables
tabIdentifiantsAEnvoyer 		est un tableau de Buffers
tabIdentifiantsAEnvoyerTemp 	est un tableau de Buffers
ListeReponse 					est un tableau de Buffer
bufIdentifiant					est un Buffer
tabTokensInvalides 				est un tableau de Buffer
nNbTokensInvalides				est un entier
 
 
 
SI gsCléAPIAndroid = "" ALORS
	RENVOYER "Veuillez saisie une clé Google API"
FIN
 
// Chemin du fichier sur le serveur d'application
sCheminFichierJson = fRepExe() + ["\"] + "Config\push-assistant-firebase-adminsdk-fbsvc-a64f49af70.json"
 
// Lecture du fichier JSON
SI fFichierExiste(sCheminFichierJson) ALORS
 
	SI fChargeTexte(sCheminFichierJson) = Faux ALORS
		RENVOYER "Impossible de charger le json sdk"
	SINON
		sContenuJson	= fChargeTexte(sCheminFichierJson)
 
		SI sContenuJson = "" ALORS
			RENVOYER "Json SDK vide. [%sCheminFichierJson%]"
		SINON
			sContenuJson	= Remplace(sContenuJson, "\n", RC)	
		FIN
	FIN
SINON
	RENVOYER "Le fichier de configuration Firebase AdminSDK est introuvable."
FIN
 
// On récupère les identifiants
ListeReponse = ListeIdentifiantsAndroid(Site_ID)
 
SI ListeReponse..Occurrence > 0 ALORS
	// Ajout des identifiants dans un tableau
	POUR i = 1 _À_ ListeReponse..Occurrence
		bufIdentifiant = ListeReponse[i]
		TableauAjoute(tabIdentifiantsAEnvoyer,bufIdentifiant)
	FIN
 
	// On gère le fait que les notifications PUSH ne peuvent avoir au maximum que 1000 destinataires
	// S'il y a plus de destinataires il faut envoyer plusieurs messages.
	POUR i = 0 _À_ (tabIdentifiantsAEnvoyer..Occurrence / 1000)
		nDebut est un entier = i * 1000 + 1
		nFin est un entier = (i + 1) * 1000
 
		SI nFin > tabIdentifiantsAEnvoyer..Occurrence ALORS
			nFin = tabIdentifiantsAEnvoyer..Occurrence
		FIN
 
		// On prend les identifiants désirés
		TableauCopie(tabIdentifiantsAEnvoyer,tabIdentifiantsAEnvoyerTemp,nDebut,nFin - nDebut + 1)
 
		//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
		// On envoie la notification
 
		maNotif est un Notification
 
		maNotif.Message = sMessage
		maNotif.Contenu = sContenu
 
		////////////////////////////////////////////////////////////////
		// Android
 
		// Titre
		maNotif.Titre = sTitre
 
		// Son Android
		maNotif.Son = "son_notif.mp3"
 
		// Icône
		maNotif.Icone = "Proteck-Congo.ico" // mettre ici l'icône pour la notification
 
		// Groupe des notifications
		maNotif..Groupe = "Push"
 
		// Texte déroulant
		maNotif.TexteDéroulant = sTexteDeroulant
 
		// Options
		maNotif.Vibration = bVibration
		maNotif.AffichageLED = bLED
		maNotif.Supprimable = bSupprimable
		maNotif.ActiveApplication = bApplicationActive
 
		//CODE ORIGINAL
//		quand Exception dans
			SI PAS NotifPushEnvoie(maNotif,tabIdentifiantsAEnvoyerTemp,sContenuJson,tabTokensInvalides,npeFirebaseCM_v1) ALORS
				RENVOYER "Erreur notif :" + RC + ErreurInfo(errComplet)
 
			SINON
				// On traite les tokens invalides
				SI tabTokensInvalides..Occurrence > 0 ALORS
					nNbTokensInvalides += tabTokensInvalides..Occurrence
 
					// On supprime les tokens invalides
					SupprimeIdentifiantsAndroid(tabTokensInvalides)
				FIN
 
			FIN
//		FAIRE
//			RENVOYER "EXCEPTION : " + ExceptionInfo()
//		fin
	FIN
//	
SINON
	RENVOYER  "Aucun identifiant stocké sur le serveur." + "Aucune notification envoyée."
FIN
 
RENVOYER ""

 
PROCÉDURE PbASignaler(LOCAL nIDPbasignaler est un entier sur 8 octets)
 
//PAS = Problème à signaler après une ronde
dhDateHeure est une DateHeure = DateHeureSys()
slepb, slecas, nomsite sont des chaînes
 
WBSVC_SOAP_PUSH..Adresse = "https://ADRESSE_WEB/WBSVC_SOAP_PUSH_WEB/awws/WBSVC_SOAP_PUSH.awws"
 
SI Ping("8.8.8.8",300) = Vrai ALORS
	HLitRecherche(problemeasignaler,IDProblemeASignaler,nIDPbasignaler)
	SI HTrouve(problemeasignaler) = Vrai ALORS
		slepb = problemeasignaler.Description
	FIN
 
	HLitRecherche(sites,IDSite,nIDSite)
	SI HTrouve(sites) = Vrai ALORS
		nomsite = sites.Nom
	FIN
 
	AjoutInformation(DateHeureSys(),"Assistant APS","Rondier " + nomsite,45,nIDSite,gnIDAgent,nIDClient,1,"[%slepb%]" + RC + "Merci d'informer le client dans les plus brefs délais.")
 
	rondesdédiéesenlive.IDClient	= nIDClient
	rondesdédiéesenlive.IDSite		= nIDSite
	rondesdédiéesenlive.IDAgent		= gnIDAgent
	rondesdédiéesenlive.Description	= slecas
	rondesdédiéesenlive.DateHeurePT	= dhDateHeure
	HAjoute(rondesdédiéesenlive,hEcritureDéfaut)
 
 
	SELON nIDPbasignaler
		CAS = 1
			slecas ="EAUMOINSQUART"
		CAS = 2
			slecas = "GSLMOINSQUART"
		CAS = 3
			slecas = "GEHS"
		CAS = 4
			slecas = "PRTOUV"
		CAS = 5
			slecas = "FENOUV"
		CAS = 6
			slecas = "VEHOUV"
		CAS = 7
			slecas = "SURPHS"
		CAS = 8
			slecas = "CLIMHS"
		CAS = 9
			slecas = "GAZ"
	FIN
 
	AssistantEvenement.Client_id		= nIDClient
	AssistantEvenement.Site_id			= nIDSite
	AssistantEvenement.Agent_id = gnIDAgent
	AssistantEvenement.lecas			= slecas
	AssistantEvenement.evt				= "[%slepb%] à : "
	AssistantEvenement.dateheure_evt	= DateHeureSys()
	AssistantEvenement.MailEnvoye		= 0
	SI HAjoute(AssistantEvenement,hEcritureDéfaut) = Vrai ALORS
 
		ToastAffiche("Message envoyé",toastCourt,cvBas,chCentre)
 
		// Syntaxe : 
		//EnvoieAndroid(sMessage est une chaîne, sContenu est une chaîne, sTitre est une chaîne, sTexteDeroulant est une chaîne, bVibration est un booléen, ...
		//bLED est un booléen, bSupprimable est un booléen, bApplicationActive est un booléen)
 
		//POUR TEST
//		cReq est un httpRequête
//		cReq.URL = "https://oauth2.googleapis.com/token"
//		
//		cRep est un httpRéponse = HTTPEnvoie(cReq)
//		
//		SI ErreurDétectée ALORS
//			Erreur("OAUTH ERROR = " + ErreurInfo(errComplet))
//		SINON
//			Erreur("OAUTH ok")
//		FIN	
 
		sReponse est une chaîne = WBSVC_SOAP_PUSH.EnvoieAndroid("[%slepb%]","","Votre villa","",Vrai,Faux,Vrai,Faux,nIDSite)//le dernier faux actionclic à modifier
 
		SI ErreurDétectée ALORS
			Erreur("Erreur lors de l'appel au Webservice : " + sReponse) //+ ErreurInfo(errComplet)
		SINON
			ToastAffiche("Notification envoyée")
		FIN
	FIN
 
SINON
	MsgSMS est une chaîne
 
	MsgSMS = ("," + "PAS" + "," + nIDClient + "," + nIDSite + "," + gnIDAgent + "," + nIDPbasignaler + "," + dhDateHeure + "," + ".")
 
	SMS2CDC(MsgSMS)	
FIN
 
//ferme(FEN_Problème_à_signaler)
gnActiverTimer = 1
gnAffichage = 0
FEN_Menu_principal..Plan = plprincipal

android.permission.READ_EXTERNAL_STORAGE
android.permission.WRITE_EXTERNAL_STORAGE

 
POUR CHAQUE stIndice DE gtabST_INDICE_DE_REFERENCE
	// Exclure indices principaux
	SI stIndice.CODE ~= "INDICE1" OU
		stIndice.CODE ~= "INDICE3" OU
		stIndice.CODE~= "INDICE3" ALORS
 
//		// Ajouter ligne
		rValeur		= Val(stIndice.FERMETURE)
		rVariation	= NumériqueVersChaîne(stIndice.VARIATION, "10.2f")+" %"
 
		ZoneRépétéeAjouteLigne(ZR_IndiceRef, stIndice.Description, rValeur, rVariation)
	FIN
FIN

MonCB est un CodeBarres
MonCB.TypeContenu		= cbTypeTexte
MonCB.TypeCodeBarres	= CB_QRCODE
MonCB			= CBCapture(CB_QRCODE)
 
SAI_Recherche	= MonCB.Contenu