Gestionnaires d'évènements non déclenchés

Sylvain James · 14/04/2006, 10h48

Bonjour,

J'ai un XMLGram dans lequel j'ai ajouté une instruction Import.
Cette instruction importe un autre XMLService qui comporte 3/4 DBExtract.
J'ai ajouté un gestionnaire d'évènement AfterInstruction au XMLService importé mais le framework n'y passe pas à l'exécution.

J'ai ajouté des traces pour vérifier :

Code :

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

EventLog.TraceInfo(XMLRequest, 'VerifSylvain', 'Instruction : ' + XMLInstruction.Name);

J'ai aussi essayé au niveau du XMLService appelant, mais non.

Il me reste une dernière hypothèse, comme ce projet a été plus ou moins importé de versions en versions XMLRAD (là je passe de la v8 à v2006) et que la gestion des évènements Delphi a changé avec XIP, il est possible que le problème vienne de là. En effet, je ne vois pas les menus pour mettre à jour les sources de chaque module donc au niveau code de gestion, je travaille toujours avec les anciens modules design + code.

Sylvain

[XMLRAD 2006 - Delphi 7 - IIS]

RDM · 14/04/2006, 11h41

est-ce que tu peux donner le XMLGram de ton XMLService, le fichier ou il est décrit: <ton_module>.XMLServices.xml
mettre les traces en verbose et executer. puis copier ici les traces de cette execution.

Sylvain James · 14/04/2006, 14h59

Le XMLGram du service appelant l'import :

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
<?xml version="1.0"?>
<xmlgram name="FormORGANIGRAMME">
	<Assign Name="Params">
		<Fields>
			<Field>
				<Destination>OUTPUT</Destination>
				<Name>ID_ORG</Name>
				<Source>CONTEXT</Source>
				<SourceField>ID_ORG</SourceField>
				<ID/>
				<Value>4875</Value>
			</Field>
			<Field>
				<ID/>
				<Destination>OUTPUT</Destination>
				<Name>debperiode</Name>
				<Source>CONTEXT</Source>
				<SourceField>debperiode</SourceField>
				<Value>01/01/2005</Value>
			</Field>
			<Field>
				<ID/>
				<Destination>OUTPUT</Destination>
				<Name>finperiode</Name>
				<Source>CONTEXT</Source>
				<SourceField>finperiode</SourceField>
				<Value>31/12/2005</Value>
			</Field>
		</Fields>
		<Trace>
			<BeforeInstruction/>
			<BeforeInternalInstruction/>
			<AfterInternalInstruction/>
			<AfterInstruction/>
		</Trace>
		<SkipContainer/>
	</Assign>
	<DBExtract Name="ORGANIGRAMME">
		<DataSource>yakaDB</DataSource>
		<Kind>Single</Kind>
		<MaxRows>1</MaxRows>
		<MultipleContainerName/>
		<RecordName/>
		<Fields>
			<Field>
				<Name>CUSTOM_INFO</Name>
				<SourceField/>
				<Type>XML</Type>
				<Format/>
				<CustomFormat/>
				<Fields>
					<Field>
						<Name>RESTAURATION</Name>
						<SourceField/>
						<Type>VARCHAR</Type>
						<Format/>
						<CustomFormat/>
					</Field>
				</Fields>
			</Field>
		</Fields>
		<Params>
			<Param>
				<Name>ID_ORG</Name>
				<Type>INTEGER</Type>
				<Value>4875</Value>
				<CheckConstraint/>
				<Exception/>
			</Param>
		</Params>
		<Statement><![CDATA[SELECT ORGANIGRAMME.ID_ORG, 
  ORGANIGRAMME.NOM_ORG, 
  ORGANIGRAMME.NOMCOURT_ORG,
ORGANIGRAMME.ACRONYME_ORG,
ORGANIGRAMME.CHEMINTG_ORG,
ORGANIGRAMME.CUSTOM_INFO,
  ORGANIGRAMME.ADR_ORG, 
  ORGANIGRAMME.TEL1_ORG, 
  ORGANIGRAMME.TEL2_ORG, 
  ORGANIGRAMME.EMAIL_ORG, 
  ORGANIGRAMME.URL_ORG, 
  ORGANIGRAMME.TYPE_ORG,
  ORGANIGRAMME.BINF,
  ORGANIGRAMME.BSUP
FROM ORGANIGRAMME ORGANIGRAMME
WHERE ORGANIGRAMME.ID_ORG = :ID_ORG]]></Statement>
		<Object>QUERY</Object>
		<StoredProcName/>
		<GenerateOutput>True</GenerateOutput>
		<ReplaceBlankValues/>
		<Filter/>
		<Trace>
			<BeforeInstruction/>
			<BeforeInternalInstruction/>
			<AfterInternalInstruction/>
			<AfterInstruction/>
		</Trace>
	</DBExtract>
	<Import Name="DonneesORG">
		<HRef>DonneesORG.xmlgram</HRef>
		<Select>/xmlgram/*</Select>
		<XMLService/>
	</Import>
</xmlgram>

Le XMLGram importé (juste ci-dessus) :

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
 
<?xml version="1.0"?>
<xmlgram name="DonneesORG">
	<Cache Name="CH_ORG">
		<Expires>360000</Expires>
		<Shared>1</Shared>
		<DBExtract Name="TOUSEFFECTIFS">
			<Fields/>
			<Params>
				<Param>
					<Name>BINF</Name>
					<Type>INTEGER</Type>
					<Value>366</Value>
					<CheckConstraint/>
					<Exception/>
				</Param>
				<Param>
					<Name>BSUP</Name>
					<Type>INTEGER</Type>
					<Value>397</Value>
					<CheckConstraint/>
					<Exception/>
				</Param>
			</Params>
			<DataSource>yakaDB</DataSource>
			<Kind>Single</Kind>
			<MaxRows>1</MaxRows>
			<Statement><![CDATA[SELECT COUNT(*) NBFCTTOT
FROM FONCTIONNAIRE
INNER JOIN ORGANIGRAMME ORG ON (ORGANIGRAMME.ID_ORG = FONCTIONNAIRE.ID_ORG)
WHERE (ORG.BINF >= :BINF) AND (ORG.BSUP <= :BSUP)]]></Statement>
			<Object>QUERY</Object>
			<StoredProcName/>
			<GenerateOutput>True</GenerateOutput>
			<MultipleContainerName/>
			<RecordName/>
			<ReplaceBlankValues/>
			<Trace>
				<BeforeInstruction/>
				<BeforeInternalInstruction/>
				<AfterInternalInstruction/>
				<AfterInstruction/>
			</Trace>
			<Filter/>
		</DBExtract>
		<DBExtract Name="FORMATEURS">
			<Fields/>
			<Params>
				<Param>
					<Name>BINF</Name>
					<Type>INTEGER</Type>
					<Value>0</Value>
					<CheckConstraint/>
					<Exception/>
				</Param>
				<Param>
					<Name>BSUP</Name>
					<Type>INTEGER</Type>
					<Value>0</Value>
					<CheckConstraint/>
					<Exception/>
				</Param>
			</Params>
			<DataSource>yakaDB</DataSource>
			<Kind>Single</Kind>
			<MaxRows>1</MaxRows>
			<Statement><![CDATA[SELECT COUNT(*) NBFCT
FROM FONCTIONNAIRE
INNER JOIN ORGANIGRAMME ORG ON (ORGANIGRAMME.ID_ORG = FONCTIONNAIRE.ID_ORG)
WHERE (ORG.BINF >= :BINF) AND (ORG.BSUP <= :BSUP)
AND (FONCTIONNAIRE.id_fct IN (SELECT ID_FCT FROM FORME))]]></Statement>
			<Object>QUERY</Object>
			<StoredProcName/>
			<GenerateOutput>True</GenerateOutput>
			<MultipleContainerName/>
			<RecordName/>
			<ReplaceBlankValues/>
			<Trace>
				<BeforeInstruction/>
				<BeforeInternalInstruction/>
				<AfterInternalInstruction/>
				<AfterInstruction/>
			</Trace>
			<Filter/>
		</DBExtract>
		<DBExtract Name="BORNESACTIFS">
			<Fields/>
			<Params>
				<Param>
					<Name>ID_ORG</Name>
					<Type>INTEGER</Type>
					<Value>832</Value>
					<CheckConstraint/>
					<Exception/>
				</Param>
			</Params>
			<DataSource>yakaDB</DataSource>
			<Kind>Single</Kind>
			<MaxRows>1</MaxRows>
			<Statement><![CDATA[SELECT GRADE.BINF AS BINFACTIF, GRADE.BSUP AS BSUPACTIF
FROM GRADE
WHERE GRADE.ID_GRADE = 16168]]></Statement>
			<Object>QUERY</Object>
			<StoredProcName/>
			<GenerateOutput>True</GenerateOutput>
			<MultipleContainerName/>
			<RecordName/>
			<ReplaceBlankValues/>
			<Trace>
				<BeforeInstruction/>
				<BeforeInternalInstruction/>
				<AfterInternalInstruction/>
				<AfterInstruction/>
			</Trace>
			<Filter/>
		</DBExtract>
		<DBExtract Name="FCTACTIFS">
			<Fields/>
			<Params>
			</Params>
			<DataSource>yakaDB</DataSource>
			<Kind>Multiple</Kind>
			<MaxRows>-1</MaxRows>
			<Statement><![CDATA[SELECT FCT.ID_FCT,
  FCT.ID_ORG,
  FCT.ID_GRADE,
  FCT.NI_FCT,
  FCT.NOM_FCT,
  FCT.NOMEP_FCT,
  FCT.PRENOM_FCT,
  FCT.SEXE_FCT,
  GRADE.ABREV_GRADE
FROM FONCTIONNAIRE FCT
INNER JOIN GRADE ON GRADE.id_grade = FCT.ID_GRADE
INNER JOIN ORGANIGRAMME ORG ON ORGANIGRAMME.ID_ORG = FCT.ID_ORG
WHERE (ORG.BINF >= :BINF) AND (ORG.BSUP <= :BSUP)
AND ((GRADE.BINF >= :BINFACTIF) AND (GRADE.BSUP <= :BSUPACTIF))
ORDER BY FCT.NOM_FCT]]></Statement>
			<Object>QUERY</Object>
			<StoredProcName/>
			<GenerateOutput>True</GenerateOutput>
			<MultipleContainerName>FCTACTIFS</MultipleContainerName>
			<RecordName>FCTACTIF</RecordName>
			<ReplaceBlankValues/>
			<Trace>
				<BeforeInstruction/>
				<BeforeInternalInstruction/>
				<AfterInternalInstruction/>
				<AfterInstruction/>
			</Trace>
			<Filter/>
			<DBExtract Name="NBTIRS">
				<Fields/>
				<Params>
					<Param>
						<Name>debperiode</Name>
						<Type>INTEGER</Type>
						<Value>01/01/2005</Value>
						<CheckConstraint/>
						<Exception/>
					</Param>
					<Param>
						<Name>finperiode</Name>
						<Type>INTEGER</Type>
						<Value>31/12/2005</Value>
						<CheckConstraint/>
						<Exception/>
					</Param>
					<Param>
						<Name>id_fct</Name>
						<Type>INTEGER</Type>
						<Value>4820</Value>
						<CheckConstraint/>
						<Exception/>
					</Param>
				</Params>
				<DataSource>yakaDB</DataSource>
				<Kind>Single</Kind>
				<MaxRows>1</MaxRows>
				<Statement><![CDATA[select count(participation.id_fct)
from participation
left outer join stage on (participation.id_stage = stage.id_stage)
left outer join catalogue on (catalogue.id_catalogue = stage.id_catalogue)
where stage.id_catalogue in (6943, 6961, 6949, 6962, 660, 10573)
            and stage.debut_stage >= :debperiode
            and stage.debut_stage <= :finperiode
            and stage.type_stage <> 2
            and stage.annul_stage <> 1
and participation.id_fct = :id_fct]]></Statement>
				<Object>QUERY</Object>
				<StoredProcName/>
				<GenerateOutput>True</GenerateOutput>
				<MultipleContainerName/>
				<RecordName/>
				<ReplaceBlankValues/>
				<Trace>
					<BeforeInstruction/>
					<BeforeInternalInstruction/>
					<AfterInternalInstruction/>
					<AfterInstruction/>
				</Trace>
				<Filter/>
			</DBExtract>
		</DBExtract>
		<Trace>
			<BeforeInstruction/>
			<AfterInstruction/>
		</Trace>
		<Params>
			<Param>
				<Name>binf</Name>
			</Param>
			<Param>
				<Name>bsup</Name>
			</Param>
			<Param>
				<Name>debperiode</Name>
			</Param>
			<Param>
				<Name>finperiode</Name>
			</Param>
		</Params>
	</Cache>
</xmlgram>

MonModule.XMLServices.xml :

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<XMLServices>
	<XMLService>
		<Name>AjoutSAUVEGARDE</Name>
		<Kind>BM</Kind>
		<NextAction>ListSAUVEGARDE</NextAction>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>AjoutSAUVEGARDE.xmlgram</XMLGram>
		<ScriptFile/>
		<Security>
			<User>7223</User>
		</Security>
	</XMLService>
	<XMLService>
		<Name>ListORGANIGRAMME</Name>
		<Kind>WM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL>ListORGANIGRAMME.xsl</XSL>
		<XML>ListORGANIGRAMME.xml</XML>
		<XSD>ListORGANIGRAMME.xsd</XSD>
		<XMLGram>ListORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams/>
	</XMLService>
	<XMLService>
		<Name>InsertORGANIGRAMME</Name>
		<Kind>BM</Kind>
		<NextAction>ListORGANIGRAMME</NextAction>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>InsertORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams>
			<Param>
				<Name>ID_ORG</Name>
				<Value>0</Value>
			</Param>
			<Param>
				<Name>NOM_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>ADR_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>TEL1_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>TEL2_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>EMAIL_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>URL_ORG</Name>
				<Value/>
			</Param>
			<Param>
				<Name>TYPE_ORG</Name>
				<Value>0</Value>
			</Param>
			<Param>
				<Name>BINF</Name>
				<Value>0</Value>
			</Param>
			<Param>
				<Name>BSUP</Name>
				<Value>0</Value>
			</Param>
		</InputParams>
		<Security>
			<User>7223</User>
		</Security>
	</XMLService>
	<XMLService>
		<Name>UpdateORGANIGRAMME</Name>
		<Kind>BM</Kind>
		<NextAction>ListORGANIGRAMME</NextAction>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>UpdateORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams>
			<Param>
				<Name>ID_ORG</Name>
				<Value>0</Value>
			</Param>
		</InputParams>
		<Security>
			<User>7223</User>
		</Security>
	</XMLService>
	<XMLService>
		<Name>DeleteORGANIGRAMME</Name>
		<Kind>BM</Kind>
		<NextAction>ListORGANIGRAMME</NextAction>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>DeleteORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams>
			<Param>
				<Name>ID_ORG</Name>
				<Value>0</Value>
			</Param>
		</InputParams>
		<Security>
			<User>7223</User>
		</Security>
	</XMLService>
	<XMLService>
		<Name>FormORGANIGRAMME</Name>
		<Kind>WM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL>FormORGANIGRAMME.xsl</XSL>
		<XML>FormORGANIGRAMME.xml</XML>
		<XSD>FormORGANIGRAMME.xsd</XSD>
		<XMLGram>FormORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams>
			<Param>
				<Name>ID_ORG</Name>
				<Value>4875</Value>
			</Param>
		</InputParams>
		<OutputParams/>
		<Debug/>
		<Profiler/>
	</XMLService>
	<XMLService>
		<Name>FormSearchORGANIGRAMME</Name>
		<Kind>WM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL>FormSearchORGANIGRAMME.xsl</XSL>
		<XML>FormSearchORGANIGRAMME.xml</XML>
		<XSD>FormSearchORGANIGRAMME.xsd</XSD>
		<XMLGram>FormSearchORGANIGRAMME.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams>
			<Param>
				<Name>SEARCHED_VALUE</Name>
				<Value/>
			</Param>
		</InputParams>
		<Debug/>
	</XMLService>
	<XMLService>
		<Name>DataGridASSOCINTIT</Name>
		<Kind/>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL>DataGridASSOCINTIT.xsl</XSL>
		<XML>DataGridASSOCINTIT.xml</XML>
		<XSD>DataGridASSOCINTIT.xsd</XSD>
		<XMLGram>DataGridASSOCINTIT.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams/>
		<OutputParams/>
	</XMLService>
	<XMLService>
		<Name>DataUpdAllHFF</Name>
		<Kind>BM</Kind>
		<NextAction>ListSTAGE</NextAction>
		<ExceptionAction/>
		<DataSource/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>DataUpdAllHFF.xmlgram</XMLGram>
		<ScriptFile/>
	</XMLService>
	<XMLService>
		<Name>PushtmpCat</Name>
		<Kind/>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Debug/>
		<Scope/>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>PushtmpCat.xmlgram</XMLGram>
		<ScriptFile/>
	</XMLService>
	<XMLService>
		<Name>CompareCat</Name>
		<Kind>WM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Debug/>
		<Scope>Public</Scope>
		<XSL>CompareCat.xsl</XSL>
		<XML>CompareCat.xml</XML>
		<XSD>CompareCat.xsd</XSD>
		<XMLGram>CompareCat.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams/>
	</XMLService>
	<XMLService>
		<Name>ListTIRSOBLIGORG</Name>
		<Kind>WM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Debug/>
		<Scope>Public</Scope>
		<XSL>ListTIRSOBLIGORG.xsl</XSL>
		<XML>ListTIRSOBLIGORG.xml</XML>
		<XSD>ListTIRSOBLIGORG.xsd</XSD>
		<XMLGram>ListTIRSOBLIGORG.xmlgram</XMLGram>
		<ScriptFile/>
		<InputParams/>
		<OutputParams/>
	</XMLService>
	<XMLService>
		<Name>DonneesORG</Name>
		<Kind>BM</Kind>
		<NextAction/>
		<ExceptionAction/>
		<DataSource/>
		<Debug/>
		<Scope>Public</Scope>
		<XSL/>
		<XML/>
		<XSD/>
		<XMLGram>DonneesORG.xmlgram</XMLGram>
		<ScriptFile/>
		<Profiler/>
	</XMLService>
</XMLServices>

Le code du gestionnaire d'évènements DonneesORG :

Code :

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

1
2
3
4
5
6
procedure TYakaAdm.DonneesORGAfterInstruction(
  XMLInstruction: IXMLInstruction; e: TAfterInstructionEventArgs);
begin
  EventLog.TraceInfo(XMLRequest, '007', 'Instruction : ' + XMLInstruction.Name);
 // InitDatas(XMLInstruction, e);
end;

Les traces verbose :

14:54:12 575.377 2 FORMORGANIGRAMME 10.213.64.85 RequestStart 3 10.213.64.85 ID_ORG=17488
14:54:12 606.248 2 FORMORGANIGRAMME 10.213.64.85 Import 4 DonneesORG Process - Start
14:54:12 607.280 2 FORMORGANIGRAMME 10.213.64.85 Import 4 DonneesORG Process - Done
14:54:12 628.577 2 FORMORGANIGRAMME 10.213.64.85 RequestSuccess 3

RDM · 14/04/2006, 15h34

t'as un import qui s'appelle DonneesORG (donc une instruction) et t'as un XMLService qui s'appelle DonneesORG c'est bizarre quand même...
d'après la signature de l'evenement c'est sur le XMLService DonnéesORG que tu as mis un gestionnarie d'événément or, tu appelles le Service FormORGANIGRAMME et jamais tu appelles le Service DonnéesORG mais tu importes sont XMLGram...
donc ca me parait normal..

Sylvain James · 15/04/2006, 08h16

Citation:

Envoyé par RDM

d'après la signature de l'evenement c'est sur le XMLService DonnéesORG que tu as mis un gestionnarie d'événément or, tu appelles le Service FormORGANIGRAMME et jamais tu appelles le Service DonnéesORG mais tu importes sont XMLGram...
donc ca me parait normal..

Tu veux dire que si on importe un XMLGram, le framework le considère comme une instruction entière et ne déclenche pas les évènements des intructions contenues dans ce XMLGram importé ?

J'ai renommé le nom de l'instruction en impDonneesORG mais toujours pareil au niveau fonctionnement sauf que c'est plus clair dans les logs.

RDM · 18/04/2006, 17h52

Citation:

Envoyé par Sylvain James

Tu veux dire que si on importe un XMLGram, le framework le considère comme une instruction entière et ne déclenche pas les évènements des intructions contenues dans ce XMLGram importé ?

seulement pour les nouveau projet Delphi ou scripting où tous les événements XMLInstruction sont décrits dans les XMLGram.

Sylvain James · 19/04/2006, 15h33

Citation:

Envoyé par RDM

seulement pour les nouveau projet Delphi ou scripting où tous les événements XMLInstruction sont décrits dans les XMLGram.

ok donc si les évènements du XMLService importé sont décrits dans le XMLGram (>= XMLRAD 2006), le framework passe bien dedans ?

RDM · 19/04/2006, 18h14

oui

14/04/2006, 10h48	#1
Sylvain James Membre éprouvé Inscription : mars 2002 Messages : 516 Détails du profil Informations forums : Inscription : mars 2002 Messages : 516 Points : 483 Points : 483	Gestionnaires d'évènements non déclenchés Bonjour, J'ai un XMLGram dans lequel j'ai ajouté une instruction Import. Cette instruction importe un autre XMLService qui comporte 3/4 DBExtract. J'ai ajouté un gestionnaire d'évènement AfterInstruction au XMLService importé mais le framework n'y passe pas à l'exécution. J'ai ajouté des traces pour vérifier : Code : Sélectionner tout - Visualiser dans une fenêtre à part EventLog.TraceInfo(XMLRequest, 'VerifSylvain', 'Instruction : ' + XMLInstruction.Name); J'ai aussi essayé au niveau du XMLService appelant, mais non. Il me reste une dernière hypothèse, comme ce projet a été plus ou moins importé de versions en versions XMLRAD (là je passe de la v8 à v2006) et que la gestion des évènements Delphi a changé avec XIP, il est possible que le problème vienne de là. En effet, je ne vois pas les menus pour mettre à jour les sources de chaque module donc au niveau code de gestion, je travaille toujours avec les anciens modules design + code. Sylvain [XMLRAD 2006 - Delphi 7 - IIS] __________________ .NET / ASP.NET MVC / Delphi / XMLRAD / XSL / Technos Web Mon Blog : http://blog.developpez.com/index.php?blog=89 Mes Articles : http://sjames.developpez.com/ Rubrique XMLRAD: http://xmlrad.developpez.com
	00

14/04/2006, 11h41	#2
RDM Membre Expert Inscription : mars 2002 Messages : 1 426 Détails du profil Informations forums : Inscription : mars 2002 Messages : 1 426 Points : 1 546 Points : 1 546	est-ce que tu peux donner le XMLGram de ton XMLService, le fichier ou il est décrit: <ton_module>.XMLServices.xml mettre les traces en verbose et executer. puis copier ici les traces de cette execution. __________________ RDM Tout Est Relatif Rubrique XMLRAD: http://xmlrad.developpez.com FAQ XMLRAD: http://xmlrad.developpez.com/faq/
	00

14/04/2006, 15h34	#4
RDM Membre Expert Inscription : mars 2002 Messages : 1 426 Détails du profil Informations forums : Inscription : mars 2002 Messages : 1 426 Points : 1 546 Points : 1 546	t'as un import qui s'appelle DonneesORG (donc une instruction) et t'as un XMLService qui s'appelle DonneesORG c'est bizarre quand même... d'après la signature de l'evenement c'est sur le XMLService DonnéesORG que tu as mis un gestionnarie d'événément or, tu appelles le Service FormORGANIGRAMME et jamais tu appelles le Service DonnéesORG mais tu importes sont XMLGram... donc ca me parait normal.. __________________ RDM Tout Est Relatif Rubrique XMLRAD: http://xmlrad.developpez.com FAQ XMLRAD: http://xmlrad.developpez.com/faq/
	00

19/04/2006, 18h14	#8
RDM Membre Expert Inscription : mars 2002 Messages : 1 426 Détails du profil Informations forums : Inscription : mars 2002 Messages : 1 426 Points : 1 546 Points : 1 546	oui __________________ RDM Tout Est Relatif Rubrique XMLRAD: http://xmlrad.developpez.com FAQ XMLRAD: http://xmlrad.developpez.com/faq/
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email