Discussion :

[sebinator]

Bonjour,

J'ai passé mon appli en C/S et je voudrais exécuté une procédure stockée tous les jours à 8h. Cette procédure envoie un mail tout simple.

J'ai donc planifié l'exécution de la procédure stockée dans les éléments planifiés du centre de controle HFSQL.

Mon problème, j'ai des erreurs à l’exécution du code

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
 
PROCEDURE EnvoiNotifications()
 
HExécuteRequête(REQ_Nbrejours)
 
SI HNbEnr(REQ_Nbrejours) >= 0 ALORS
 
	HLitRecherche(PARAMETRES,IDPARAMETRES,1,hIdentique)
	SI HTrouve(PARAMETRES) ALORS
 
 
		// ENVOI DU MAIL DE NOTIFICATION
		smtpadresseexpe est une chaîne
		smtpadresseexpe = PARAMETRES.Smtp_user
 
		sMtpadressedesti est une chaîne
		sMtpadressedesti = PARAMETRES.Mail_notifications
 
		// Création du message
		ContenuMessage est une chaîne
		ContenuMessage = "Return-Path: <%1>" + RC + ...
		"From: ""%2"" <%1>" + RC + ...
		"To: <%3>" + RC + ...
		"Subject: %4" + RC + ...
		"MIME-Version: 1.0" + RC + ...
		"Content-Type: text/plain;" + RC + ...
		"Charset=""us-ascii""" + RC + ...
		"Content-Transfer-Encoding: 7bit" + RC + RC + "%5" + RC
 
		// Ouverture d'une session SMTP
		EmailOuvreSessionSMTP(PARAMETRES.Smtp_user, PARAMETRES.Smtp_pass,PARAMETRES.Smtp_serveur)
		//	SI ErreurDétectée = Vrai ALORS
		//		Erreur(ErreurInfo(errRésumé))
		//		RETOUR
 
		// Remise a zéro des variables Email
		EmailRAZ()
 
		// Expéditeur du message
		Email.Expéditeur = smtpadresseexpe
		Email.AdresseExpéditeur = "Gest-Lease"
 
		// Destinataire(s) du message
		Email.NbDestinataire = 1
		Email.Destinataire[1] = sMtpadressedesti
		Email.NbCci = 1
		Email.Cci[1] = PARAMETRES.Smtp_user
 
		// Sujet et contenu du message
		Email.Sujet = "Contrat de leasing : Date limite de résiliation en approche"
		Email.Message = "Bonjour" + RC + RC + ...
		"Un ou plusieurs contrats ont leurs dates limite de résiliation qui approche "  + RC + RC + ...
		"Veuillez consultez ce ou ces contrats sans tarder"  + RC + RC + ...
		"Cordialement"
 
		SI fSauveTexte("ContenuEmail.txt", ...
			ChaîneConstruit(ContenuMessage, Email.Expéditeur, Email.AdresseExpéditeur, ...
			Email.Destinataire[1],Email.Cci[1], Email.Sujet,Email.Message)) = Faux ALORS
			//		Erreur(ErreurInfo())
		SINON
			EmailEnvoie(PARAMETRES.Smtp_user, "ContenuEmail.txt")
			SI ErreurDétectée = Vrai ALORS
				//			Erreur(ErreurInfo())
 
			FIN 
		FIN
		// Fermeture de la session SMTP
		EmailFermeSession(PARAMETRES.Smtp_user)
		fSupprime("ContenuEmail.txt")
 
 
 
	FIN
FIN

Cela bloque sur la fonction hlitrecherche : Code erreur 70114

"Aucune analyse n'est ouverte et le fichier <PARAMETRES> n'a pas été décrit"

Comment je peux résoudre cette erreur ?

Merci

Seb

[sebinator]

J'ai trouvé

Code :

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

1
2
 
HDéclareExterne("PARAMETRES.FIC","PARAMETRES")