//sRépertoires est une chaîne
gsRep est une chaîne
sFichier est une chaîne
tabTableauFichier est un tableau de chaîne
tabTableauFichier2 est un tableau de chaîne
tableauConges est un tableau [0,14] de chaîne
sCheminLocal est une chaîne

TableauSupprimeTout(tabTableauFichier)

gsAUT_DOMAINE ="smb://xx.xx.xx.xx"
gsAUT_UTILISATEUR = "xxxxxxxx"
gsAUT_MOTDEPASSE = "xxxxxxxx"
gsRep ="smb://xx.xx.xx.xx/MonDossier/Sous Dossier/"
sCheminLocal = "/" + SysRepCarteStockage() + "/Synchro BDD/"
sFichier = SMBListeFichier(gsRep,gsAUT_DOMAINE,gsAUT_UTILISATEUR,gsAUT_MOTDEPASSE)
//sRépertoires = SMBListeRépertoire(sRep,AUT_DOMAINE,AUT_UTILISATEUR,AUT_MOTDEPASSE)
SI SMBErreurInfo() <> "" ALORS
Erreur("Impossible de lister le fichier.",SMBErreurInfo())
FIN

POUR TOUTE chaîne FichierTemp de sFichier SEPAREE PAR RC
SI sDeterminerNomSMB(FichierTemp) = "Conges.fic" OU sDeterminerNomSMB(FichierTemp) = "Conges.ndx" ALORS
TableauAjouteLigne(tabTableauFichier,sDeterminerNomSMB(FichierTemp))
TableauAjouteLigne(tabTableauFichier2,FichierTemp)
FIN

FIN

nNombreDeBDD est un entier = tabTableauFichier..Occurrence
//
POUR i = 1 À nNombreDeBDD
ThreadExecute("recuperation_"+DonneIdentifiant(),threadNormal,RéceptionSMB,tabTableauFichier2[i],sCheminLocal + tabTableauFichier[i],gsAUT_DOMAINE,gsAUT_UTILISATEUR,gsAUT_MOTDEPASSE)
FIN

bMonreslut est un booléen = HDéclareExterne(sCheminLocal + "Conges.Fic","Conges")

HLitPremier("Conges","IDConges")


TANTQUE PAS HEnDehors("Conges")
POUR TOUTE chaîne sRubrique de HListeRubrique("Conges")

TableauAjouteLigne(tableauConges,{"Conges.Noms", indRubrique},{"Conges.Equipes", indRubrique},{"Conges.Services", indRubrique},...
{"Conges.CongerEntier", indRubrique},{"Conges.CongerTexte", indRubrique},{"Conges.CongerNumerique", indRubrique},{"Conges.Commentaires", indRubrique},...
{"Conges.Dates", indRubrique},{"Conges.Jour", indRubrique},{"Conges.Mois", indRubrique},{"Conges.Annee", indRubrique},{"Conges.Semaine", indRubrique},...
{"Conges.AffichageConge", indRubrique},{"Conges.CalculsoldeOK", indRubrique},{"Conges.Fonction2", indRubrique},{"Conges.DateEnregistrement", indRubrique})
FIN

HLitSuivant("Conges")
FIN


nombreenregistrent est un entier = HNbEnr("Conges")
POUR i = 1 À nombreenregistrent
SI tableauConges[i,2] = 1 ALORS
HExécuteRequête(REQ_Ajouter_Conges_Android,hModifieFichier+hRequêteSansCorrection+hRequêteSansCorrectionHF,tableauConges[i,1],tableauConges[i,2],tableauConges[i,3],tableauConges[i,4],...
tableauConges[i,4],tableauConges[i,5],tableauConges[i,6],tableauConges[i,7],tableauConges[i,8],tableauConges[i,9],tableauConges[i,10],tableauConges[i,11],...
tableauConges[i,12],tableauConges[i,13],tableauConges[i,14],tableauConges[i,15],tableauConges[i,16])
FIN
FIN