Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Gestion des blocages fichiers en mode personnalisé

6 views
Skip to first unread message

jcthibaudet

unread,
Feb 7, 2000, 3:00:00 AM2/7/00
to
Bonjour à tous,

j'ai un petit probleme pour assurer la gestion des blocages fichiers dans
une de mes applications.

Les données du problèmes :
Les fichiers Hyper Files fonctionnent en fichiers partagés (il n'y a pas de
client/serveur)
Je veux bloquer un enregistrement et pas tout le fichier
Je veux pouvoir lire les champs d'un enregistrement bloqué
Il y a plusieurs utilisateurs qui veullent modifier le meme enregistrement
en meme temps : pas possible donc le premier qui modifie bloque
l'enregistrement, les autres accèdent uniquement en lecture sur les
renseignements de l'enregistrement.

Code d'une action classique : (extrait de l'aide de Windev)
boucle
hfiltre("GAN","GACLEUNIK",num)
si pas hdejabloque() sortir
fin

hlitpremierbloque("GAN","GACLEUNIK")

si pas h.actif alors
Ouvre("WebInfo","Erreur","Ce fichier n'existe plus",wTypeErreur)
boucle
hdesactivefiltre("GAN")
si pas hdejabloque() sortir
FIN
retour
FIN
si pas hdejabloque() alors
ouvre("GANFIC","Modif",GAN.GACLEUNIK)
sinon
ouvre("GANFIC","Visu",GAN.GACLEUNIK)
FIN

boucle
hdesactivefiltre("GAN")
si pas hdejabloque() sortir
FIN


Mes problemes :
Normalement il est impossible d'effectuer plusieurs filtres sur le meme
fichier -> pas de pb dans mon cas je peux créer autant de filtre que je veux
(jamais d'erreur de retour) -> dont la boucle ne sert a rien !!??
Quand un fichier est bloqué, il est impossible de le lire -> normal
c'est une des spécification des fichiers HyperFiles (je suis OK)
exemple : Je bloque une réservation donnée d'une place sur un avion pour un
client
si je fais Hfiltre(fichier reserv,"numRes",num de mon enregistrement bloqué)
je ne le trouve pas
parcontre si je fais
hfiltre(fichier reserv,"numClient",mon numClient)
hlitpremiersansbloquer(fichier reserv,"numClient")
tq pas h.endehors
hlitsuivantsansbloquer(fichier reserv,"numClient")
/* -> je lit mon enregistrement sans pb */
fin tq
Donc je ne comprend rien et en plus ca dépend comment je teste mon appli
sous win ou avec WDWEb mes erreurs (ou l'abscence d'erreur) sont différentes
;....//§§§§N????

Je suis bugué il faut m'aider

MERCI
jcthi...@hotmail.com

0 new messages