Discussion :

[lemerite]

je manipule un projet de 3 fichier LivreBibliothèque-Client-Emprunté pour la gestion d'une bibliothèque municipal.
mon problème est le suivant.
j'utilise les requetes pour ajouter des éléments dans chaque fichier de façon individuelle.mais lorsque j'ajoute un emprunt au fichier -emprunté- et que je veux décrémenter le nombre de livre disponible dans le fichier-LivreBibliothèque- la modification est impossible(je n'arrive donc pas à manipuler plusieurs fichiers liés dans le même code)
merci de bien vouloir m'aider.

EcranVersFichier (FEN_FicheEmprunteur)
HExécuteRequête (REQ_EmprunteurLivre, hModifieFichier)
HRAZ (REQ_EmprunteurLivre)
REQ_EmprunteurLivre.DateInscription=DateInscription
REQ_EmprunteurLivre.NomEmprunteur=NomEmprunteur
REQ_EmprunteurLivre.PrenomEmprunteur=PrenomEmprunteur
REQ_EmprunteurLivre.AdresseEmprunteur=AdresseEmprunteur
REQ_EmprunteurLivre.NumTelEmprunteur=NumTelEmprunteur
HAjoute (REQ_EmprunteurLivre)
Info ("l'ajout c'est effectué avec succès")
SI OuiNon ("voulez vous ajouter un emprunt?") ALORS
Ouvre (FEN_EnregistEmprun)
HExécuteRequête(REQ_EmpruntLivre,hModifieFichier)
HRAZ(REQ_EmpruntLivre)
?????????????????????
SINON
Ferme
FIN

[JPDMJC]

Salut,
si j'ai bien compris, tu veux supprimer le(s) enregistrement(s) retourné(s) par la requête REQ_EmpruntLivre ?
Où est le problème ?
Est-ce le HRAZ(REQ_EmpruntLivre) qui pose problème ? (vu la ligne "????????" en dessous)
HRAZ ne modifie pas les enregistrements, il ne fait qu'affecter les valeurs par défaut aux champs, tu dois ensuite t'occuper d'appliquer les changements (HRAZ ne fait absolument pas de hModifie).

[lemerite]

je voulais dire que après HExécuteRequête(REQ_EmpruntLivre,hModifieFichier)
HRAZ(REQ_EmpruntLivre)
je fais une requete pour décrémenter le nombre de livre disponible dans le fichier LivreBibliothèque et une autre pour confirmer que la personne enregistrée à bien emprunté un livre dans le fichier EmprunteurLivre.

les deux dernieres requetes ne marchent pas.

[JPDMJC]

Pourrais-tu nous montrer les requêtes ? Elles s'exécutent au moins ?

[lemerite]

individuellement les requetes marchent. par exemple j'arrive à enregistrer les emprunteurs de livre dans le fichier Client et des livre de la bibliothèque dans le fichier LivreBibliothèque.
le problème se pose quand j'enregistre un emprunt et que je dois décrémenter le nombre de livre disponible, et valider EmprunteurLivreOK dans EmprunteurLivre(le fichier Client).

voici la procedure entiere.
je ne sais pas comment vous envoyer les requetes(la procedure si possible)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
PROCEDURE EmpruntDeLivre(NomClient)
 
   HExécuteRequête(REQ_EmprunteurLivre,hModifieFichier)
   TANTQUE PAS HEnDehors(REQ_EmprunteurLivre)
       SI HLitRecherchePremier(REQ_EmprunteurLivre,NomEmprunteur,NomClient) ALORS      
	   REQ_EmprunteurLivre.EmprunLivreOK=Vrai
	   REQ_EmprunteurLivre.NbreTotalLivreEmprunté=REQ_EmprunteurLivre.NbreTotalLivreEmprunté+NbrLivreEmprunté
    	HModifie(REQ_EmprunteurLivre)
 
	         	HExécuteRequête(REQ_AjouterLivreBibliothèque,hModifieFichier)
	    	    TANTQUE PAS HEnDehors(REQ_AjouterLivreBibliothèque)
		    	   SI	HLitRecherchePremier(REQ_AjouterLivreBibliothèque,TitreLivre,sParamTitreLivre) ET REQ_AjouterLivreBibliothèque.QtéDisponible>NbrLivreEmprunté ET NbrLivreEmprunté<4 ALORS      
			    	REQ_AjouterLivreBibliothèque.QtéDisponible=REQ_AjouterLivreBibliothèque.QtéDisponible-NbrLivreEmprunté
			    	HModifie(REQ_AjouterLivreBibliothèque)
				          HExécuteRequête(REQ_EmpruntLivre,hModifieFichier)
				          REQ_EmpruntLivre.DateRetourPrévue=DateRetourLivreEmprunté
			            REQ_EmpruntLivre.DateEmprunt=DateEmprunt
			        	REQ_EmpruntLivre.QtéEmpruntée=NbrLivreEmprunté
			        	REQ_EmpruntLivre.TitreLivre=REQ_AjouterLivreBibliothèque.TitreLivre
			        	REQ_EmpruntLivre.ISBN=REQ_AjouterLivreBibliothèque.ISBN
			        	REQ_EmpruntLivre.IDClient=REQ_EmprunteurLivre.IDClient
			        	HAjoute(REQ_EmpruntLivre)
				        Info("L'ajout c'est effectué avec succès")
	            	SINON 
		        	Info("vérifier le titre du livre saisi")
		        	FIN
			        HLitSuivant(REQ_AjouterLivreBibliothèque)
		         FIN		
    	SINON
		Info(" Aucun client n'est enregistré sur ce nom")
        FIN
    	HLitSuivant(REQ_EmprunteurLivre) 
FIN

merci

[lemerite]

le problème est résolu
il y avai des HLitSuivant de trop. je crois qu'avec HLitRecherchePremier, HLitSuivant n'est plus necessaire.
merci quans même d'avoir essayé