Discussion :

[Assen66]

Bonjour ,
dans le cadre d'un projet , je suis entrain de créer une application de suivi de consommation d'energie dans une usine...
Ce suivi sera journalier , mensuel et annuel
l'operateur qui va utiliser ce logiciel aura devant lui une fenetre ou il va inserer chaque jours des données ( telles que : production, Consommatin en energie...)
dans ma base de données j'ai créé une entité " suivi journalier" avec comme clé primaire la date du jour
j'ai aussi crée une entité 'suivi mensuel ' dont une clé primaire est la periode de type texte (sous forme Mois/année)
alors mon probleme est le suivant :
comment est ce que je peut inserer automatiquement les données d'un mois dans le fichier suivi mensuel...

nb: j'ai créer une requete qui va calculer la somme des consommations a partir du fichier "suivi journalier" avec un parametre de selection


Merci

[Raptor92]

Bonjour,

Là vous expliquez ce que vous voulez faire, mais pas ce qui vous bloque.
Pouvez vous nous mettre le morceau de code qui vous pose problème

Bonne après midi

[Assen66]

Bonjour ,
voici le code...j'espere qu'il est correct...
je voudrais bien eliminer les erreurs de doublons qui apparaissent... je n'ai pas su comment et où utiliser la fonction Hsurerreur

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
34
HLitPremier(Production_jurnaliere,date_prod_journaliere)
j est une chaîne
i est un entier
i= 0
 
TANTQUE  i < HNbRec(Production_jurnaliere) 
	j =  Left(Production_jurnaliere.date_prod_journaliere,6)
	REQ_Requête4.Param1 = j
	HExécuteRequête(REQ_Requête4)
 
SI 		Production_mensuelle..NouvelEnregistrement =Vrai     ALORS
Production_mensuelle.perioode_prod =Left(Production_jurnaliere.date_prod_journaliere,6)  
	Production_mensuelle.IDUsine =Production_jurnaliere.IDUsine	
		Production_mensuelle.production = REQ_Requête4.la_somme_production_j
 
		HAjoute(Production_mensuelle)
		HRAZ(Production_mensuelle)
 
	SINON 
 
		Production_mensuelle.perioode_prod =Left(Production_jurnaliere.date_prod_journaliere,6)  // je travail pour l'instant seulement avec les mois
		Production_mensuelle.IDUsine = Production_jurnaliere.IDUsine
		Production_mensuelle.production = REQ_Requête4.la_somme_production_j		
		HModifie(Production_mensuelle)
		HRAZ(Production_mensuelle)
 
 
	FIN
 
	HLitSuivant(Production_jurnaliere)
 
	i = i + 1
 
FIN