pcsoft.fr.windevCopyright 2026, PC SOFT5 Apr 2019 04:30:43 Z18 Jan 2019 11:40:27 ZBonjour, Voici l'algo que je compte mettre en place dans mon programme pour être multi utilisateur : [code:wl] BOUCLE HBloqueFichier(FICHIER,hBlocageLectureEcriture) SI HErreurBlocage() ALORS // En mode HFSQL Client/Serveur, quand H.NbEssais > 50 alors l'erreur suivante apparait Erreur("Impossible de modifier le fichier. Il peut-être en cours de modification par une autre personne") SI OuiNon(Oui,"Voulez-vous essayer de nouveau")=Non ALORS //GOTO DEBUT : si on remonte //OU HTransactionAnnule(connexion) // //OU Si on continue // //HDébloqueFichier(FICHIER) // + //SORTIR ou FinProgramme() FIN SINON HLitPremier(FICHIER,IDFichier) SI HEnDehors(FICHIER) ALORS HRAZ(FICHIER) FICHIER.NomSociete="Nom toto" FICHIER.CodePostal="75000" SI PAS HAjoute(FICHIER) ALORS Erreur("Erreur sur un Ajout FICHIER","","Signaler le problème à l'adresse suivant : ","support@scanemails.com","",HErreurInfo,hErrComplet) FIN SINON SI PAS HModifie(FICHIER) ALORS Erreur("Erreur sur modification FICHIER","","Signaler le problème à l'adresse suivant : ","support@scanemails.com","",HErreurInfo,hErrComplet) FIN HFerme(FICHIER) FIN FIN HDébloqueFichier(REINDEX) SORTIR FIN [/code] Le blocage de fichier se fera sur un HAJOUT sinon pour une modification ou une suppression cela sera plutôt : [code:wl] HBloqueNumEnr(FICHIER,hNumEnrEnCours,hBlocageEcriture) SI HErreurBlocage() ALORS Erreur("Impossible de modifier le fichier FICHIER. Il peut-être en cours de modification par une autre personne") SINON //Traitement du fichier après blocage Hmodifie par exemple HDébloqueNumEnr(FICHIER,hNumEnrEnCours) FIN [/code] Bien sure, sur le même principe que l'algo précédent avec BOUCLE Au vue de la tache colossale de travail qui m'attend pour modifier mon programme, j'aurai aimé avoir votre avis sur mon algo mais aussi connaitre la différence entre : [code:wl] HLitRecherchePremier(FICHIER,NomSociete,"Nom toto",hBlocageLectureEcriture) [/code] et [code:wl] HBloqueNumEnr(FICHIER,hNumEnrEnCours,hBlocageEcriture) SI PAS HErreurBlocage() ALORS HLitRecherchePremier(FICHIER,NomSociete,"Nom toto") FIN [/code] Pour moi il n'y en à pas. Merci pour votre aide Cordialement Jean Philippe30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/223397-blocage-fichier-enregistrement/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)