Appelé Etat par programmation dans un répertoire

**buzz68180** · 19/01/2012, 12h14

Bonjour,

Je souhaite livrer mon soft avec qq états personnalisés, j'ai donc pensé les créer et les copier-coller dans un répertoire commun sur le serveur du client et appeler les fichiers Monetat_perso.wde par programmation derriere mon bouton imprimer du style :

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
 
sNometat est une chaîne ="Impression_devis_coul"
 
SI TABLEH_devis.COL_idevis=0 ALORS
	FenActiveGFI(FEN_DEVIS,Faux)
 
	Erreur("Veuillez sélectionner un devis et non un client/prospect.")
 
	FenActiveGFI(FEN_DEVIS,Vrai)
 
	RETOUR
FIN
 
SELON Sélecteur_Public
 
	CAS 0
		//Pro
		//IMPRIMER LE DEVIS
 
		SELON Combo_imp
			CAS 1
				// Devis avec CGV
 
				SI TableSelect(TABLEH_devis)>0 ALORS
					SI TableRécupèreParent(TABLEH_devis)>0 ALORS
						// Fixe l'adresse email et le sujet du message pour l'export
						SI	HLitRecherchePremier(Client,NumClient,TABLEH_devis.COL_Numclient)ALORS
							HLitRecherchePremier(Contact,NumClient,TABLEH_devis.COL_Numclient)
							iParamètreExport(iExportEmailDestinataire,Contact.EMail)
							HExécuteRequête(REQ_Devis_client_FENDEVIS,hRequêteDéfaut,Null,TABLEH_devis.COL_Numclient)
							iParamètreExport(iExportEmailExpéditeur, gvcConfigurationEmail.AdresseEmailDefaut)
							iParamètreExport(iExportEmailSujet, "Votre Devis "+REQ_Devis_client_FENDEVIS.Indice)
 
							// Lance l'aperçu de l'état
							iAperçu(i100,"Devis "+REQ_Devis_client_FENDEVIS.Indice+" "+REQ_Devis_client_FENDEVIS.Société)
						FIN
						iImprimeEtat(sNometat,TABLEH_devis.COL_IdGroupeDevis,Combo_imp,1,1)
					SINON
						Erreur("Veuillez sélectionner un devis et non un client/prospect.")
					FIN
				SINON
					Erreur("Veuillez sélectionner un devis et non un client/prospect.")
				FIN

Le problème c'est que je coince car je ne sais pas comment pointer sur ce fichier par programmation au lieu de prendre selon dans ma bibliothèque compilé...