Problème when change item proc

Version imprimable

01/07/2008, 17h56
acma

Problème when change item proc

J'ai BD oracle, j'utilise forms builder, je veux alimenter une table par des valeurs dans des autres tables quand on change un champs donné.
ma table à alimenter a des colonnes identiques mais unes à alimenter les valeurs avant la modification du champ, les autres à alimenter par les nouvelles valeurs
par example:
refpos est un champ dans une autre table.
agent_pro (matricule, nom, a_posi,posi )
a_posi: la valeur avant modeifier le champs refpos.
pos: la nouvelle valeur du champ refpos.

pour moi, j'ai essayé d'initialiser la table dans le trigger pre-update, et faire l'update dans le trigger post-update.
et le probleme plus posé est de detecter l'evenement de modification c-a-d le bon trigger . j'ai pas trouvé des trigger comme pre_update or on-update dans la liste de trigger predefinis pour un champs..
merci à tous,
j'ai besoin de faire ca le plus tot possible
02/07/2008, 15h22
JerryMouse

que ce soit dans post ou pre-insert, la valeur avant modification s'obtient par

Code:

Get_Item_Property('Block.Champ',Database_Value)

et la valeur après modification par

Code:

:Block.Champ
06/07/2008, 12h12
acma

Merci JerryMouse,

j'ai une nouvelle petit probleme, pour faire ce que je mentionne ci-dessus, je dois initialisr ma table, mais la requete d'insetion ne marche pas, j'ai essayer de la faire dans le trigger when-new-block-instance et aussi le trigger pre-update, mais ca n'est pas allé.
aucune iddée?

thank you previously..
07/07/2008, 12h21
JerryMouse

Si ton but est de détourner l'insertion normale pour faire un traitement que tu désire, utilise plutôt le trigger on-Insert pour detourner l'insertion, on-Update pour la mise à jour ou on-Delete pour la suppression.
07/07/2008, 17h07
acma

Merci bcp JerryMouse,
Mon but est d'alimenter une table t1 d'une autre t2 quand le champ ch de t2 change. Dans t1 je veux inserer des valeurs des quelques champs avent la modification du champ ch, mais aussi les valeurs des méme champs aprés la modification, pour cela je veux initialiser t1 en inserant les valeurs de ces chapms avant modif pour ne pas les perdre.

Je souhaite que vous voyez maintenant.
MErci d'avance...

Pre-Update mais au niveau block de données

Code:

1
2
3
4
5
6
7
8
If :Block.Champ=Get_Item_Property('Block.Champ',Database_Value) Then
  --Champ Non Modifié
Else --Champ Modifié
  Insert Into agent_pro Values(ValMatricule
    ,'Block.Champ'
    ,Get_Item_Property('Block.Champ',Database_Value)
    ,:Block.Champ);
End If;

08/07/2008, 11h16
acma

S’il vous plaît mon frère, je suis debutant! je vous derrange de plus..

C'est pas tres claire pour moi..
pour quoi on insert la valeur block.champ plusieurs fois.
la valeur 'block.champ' 2éme colonne !!!!???

j'ai essayé de faire qlqlues choses, mais j'ai eu l'erreur : la fonction 'Get_Item_Property' ne doit pas étre utilisé en SQL

je sais bien que j'ai te derrangé, mais vraiment j'ai besoin de ces aides
10/07/2008, 13h56
McM
C'est pas super compliqué ce qu'il a écrit comme code.
'block.champ' est une chaine de caractère.
Son but était de dire que c'étaient des valeurs pour ce champ.
Pour mieux comprendre :
Code:

1 2 3 4 INSERT INTO agent_pro (Matricule, Champ, old_value, new_value) VALUES(ValMatricule, 'Refpos', Get_Item_Property('Block.Refpos',Database_Value),:Block.Refpos);
10/07/2008, 14h57
acma

Merci bcp Monsieur,
mais, ou je pourai decrarer la fonction 'Get_Item_Property' ?

Vraiment, je suis blocké avec ce probleme, je vais essayer d'expliquer d'une maniére réelle tous ce que je fais, je vais attacher un fichier qui contient tous meme le formulaire.

A+
10/07/2008, 15h30
JerryMouse

Get_Item_Property ne se déclare pas. C'est une fonction intégrée à Forms builder. tu l'utilise simplement.
13/07/2008, 10h46
acma

Chers amis,
J'ai pas pu attacher le fichier, donc je le copie ici:

Citation:

Mon probléme :
J’ai une table AGENT qui la structure suivante :
Table Agent
Nom du champ Désignation Type
MATRIC Matricule VARCHAR2(6)
NOMAGL Nom VARCHAR2(40)
DTNAIS Date de naissance DATE
SEXEAG Sexe VARCHAR2(1)
SITFAM Situation familiale VARCHAR2(1)
CODNAT Code nature VARCHAR2(1)
REFNAT Reference de la nature VARCHAR2(10)
DATNAT Date nature DATE
CDCOEM Code corp/emploi VARCHAR2(2)
REFCOE Reference corp/emploi VARCHAR2(10)
DTCOEM Date corp/emploi DATE
CDCLAS Code classe VARCHAR2(2)
ECHLON Numéro d'échelon NUMBER(2)
REFECH Reference echelon VARCHAR2(10)
DATECH Date d'effet de l'échelon DATE
MODREC Mode recrutement VARCHAR2(1)
DTRECR Date recrutement DATE
DTENTA Date de nomination DATE
DTTITU Date de titularisation DATE
CDPOSI Code position VARCHAR2(1)
RFPOSI Reference position R2(
Date position DATE

Du module qui est attaché avec ce fichier je veux alimenter la table PROTO_AGENT_FP.
Chacun des champs rouges correspond à un code piéce , un Numero d’acte et date de signature. Ces champs doivent étre insérer à la table proto_agent_fp avnt la modification et aussi apres la modif.
Donc chaque modification d’un des champs rouges insere un enregitrement dans la table PROTO_AGENT_FP.
Table PROTO_AGENT_FP
Désignation des champs Nom du champ type données

Code Piéce CDPIECE Number(4)
Matricule MATRIC varchar2(6)
Numéro de l'acte RFPRES varchar2(10)
Date de signature de l'acte DATSIG Date
Code sexe SEXEAG varchar2(1)
Date de naissance DTNAIS Date
Nom et prénoms NOMAGL varchar2(40)
Code situation matrimoniale SITFAM number(1)
Date de recrutement DTRECR Date
Date de nomination DTENTA Date
Code corps/emploi CDCOEM varchar2(2)
Code grade/classe CDCLASSE varchar2(2)
Numéro d'échelon ECHLON number(2)
Date d'effet de l'échelon DTECHLON Date
Code position solde CDPOSI number(2)
Date début de position DTPOSI Date
Ancienne date de recrutement A_DTRECR Date
Ancienne date de nomination A_DTENTA Date
Ancien code corps/emploi A_CDCOEM varchar2(2)
Ancien code grade/classe A_CDCLASSE varchar2(2)
Ancien échelon A_ECHLON number(2)
Ancien code postion solde A_CDPOSI number(2)
13/07/2008, 17h49
acma

1 pièce(s) jointe(s)

l'erreur s'est changé, mntnt l'erreur est : la fonction 'GET_ITEM_PROPERTY' ne doit pas étre utilisé en SQL.
la phot jointe montre ca..
15/07/2008, 10h54
McM

Donne ton code, l'image n'est pas assez lisible.

Maintenat ca avance, il se compile bien mais quand j'essaye,il n'insere rien dans la table.
le code est comme suit : (POST-UPDATE trigger)

Code:

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
declare
v_temp0 AGENT.DATNAT%TYPE := Get_Item_Property('BAGENT.DATNAT1',Database_Value);	
v_temp1 AGENT.DTRECR%TYPE := Get_Item_Property('BAGENT.DTRECR1',Database_Value);
v_temp2 AGENT.CDCLAS%TYPE := Get_Item_Property('BAGENT.CDCLAS1',Database_Value);
v_temp3 AGENT.ECHLON%TYPE := Get_Item_Property('BAGENT.ECHLON1',Database_Value);
v_temp4 AGENT.CDPOSI%TYPE := Get_Item_Property('BAGENT.CDPOSI',Database_Value);
v_temp5 AGENT.DTPOSI%TYPE := Get_Item_Property('BAGENT.DTPOSI1',Database_Value);	
begin
-- Code Piéce 2000
 
	IF :BAGENT.DATNAT1=Get_Item_Property(:BAGENT.DATNAT1,Database_Value) Then
  --Champ Non Modifié
  null;
	Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2000',
:IDENT.MATRIC,
:BAGENT.REFNAT1,
:BAGENT.DATNAT1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
v_temp0,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
	end IF;
	--
	IF :BAGENT.DTRECR1=Get_Item_Property(:BAGENT.DTRECR1,Database_Value) Then
  --Champ Non Modifié
  null;
	Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2000',
:IDENT.MATRIC,
:BAGENT.REFNAT1,
:BAGENT.DATNAT1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
v_temp1,
BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
	end IF;
--	--
-- Code Piéce 2015
-- --
IF :BAGENT.CDCLAS1=Get_Item_Property(:BAGENT.CDCLAS1,Database_Value)Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2015',
:IDENT.MATRIC,
:BAGENT.RFCLGR1,
:BAGENT.DTCLGR1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
v_temp2,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
end IF;
 
IF :BAGENT.ECHLON1=Get_Item_Property(:BAGENT.ECHLON1,Database_Value) Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2015',
:IDENT.MATRIC,
:BAGENT.REFECH1,
:BAGENT.DATECH1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
v_temp3,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
end IF;
-- Code Piéce 2021
IF :BAGENT.CDPOSI=Get_Item_Property(:BAGENT.CDPOSI,Database_Value) Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
INSERT INTO proto_agent_fp VALUES('2021',
:IDENT.MATRIC,
:BAGENT.RFPOSI1,
:BAGENT.DTPOSI1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI1,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
v_temp4,
v_temp5,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
 
end IF;
exception
  WHEN OTHERS THEN
       NULL;
end;

15/07/2008, 17h48
JerryMouse

T'as pas oublié de faire un

Code:

commit

par hasard?
15/07/2008, 17h56
acma

Je panse pas, car les autres insertions dans meme trigger marchent bien..!!!
15/07/2008, 18h11
JerryMouse

Alors vérifie les conditions d'insertion. Peut être que la condition qui l'encadre n'est jamais vérifié.
Ah oui. Je penses que dans Post-Update,

Code:

:Block.Champ = Get_Block_Property('Block.Champ',Database_Value)

Car en ce moment là, le Update a déjà été fait. La valeur dans la zone est la même dans la base de données.
Vérifie.
15/07/2008, 19h17
McM
Pfff..
Code:

1 2 3 v_temp0 AGENT.DATNAT%TYPE := Get_Item_Property('BAGENT.DATNAT1',Database_Value); ... IF :BAGENT.DATNAT1=Get_Item_Property(:BAGENT.DATNAT1,Database_Value) Then
C'est pas une fois une chaine de caractère, la suivante la valeur du champ...

Un truc sous Forms : F1 te donne l'aide, il suffit ensuite d'afficher le navigateur (Outils, navigateur) et de rechercher dans l'index la fonction.

Citation:

FUNCTION GET_ITEM_PROPERTY(item_id ITEM,property NUMBER);
FUNCTION GET_ITEM_PROPERTY(item_name VARCHAR2,property NUMBER);
Parameters
item_id The unique ID that Oracle Forms assigns to the object when it creates it. Use the FIND_ITEM built-in to return the ID to a variable of datatype ITEM.
item_name The name you gave the object when you created it.
16/07/2008, 12h47
acma

Mercy mes fréres JerryMouse et MCM,
J'ai fait comme vous dites, mais rien a changé
16/07/2008, 13h02
jmguiche

Pour une fonctionnalité de ce type, ne serait il pas judicieux de faire ça dans des trigger database plutot qu'en forms ?
16/07/2008, 13h18
JerryMouse
Ok. J'ai vérifié. Dans Pre comme dans Post-Update

Code:

Get_Block_Property('Block.Champ',Database_Value)

Donne la valeur extraite de la base de données. Donc pas de soucis de ce coté là.
Par contre tu dois modifier quelque chose dans ton code.
Supprime le code de gestion d'exception.
Code:

1 2 3 exception WHEN OTHERS THEN NULL;
Il y a surement un problème dans l'exécution de ton code qui est étouffé par cette gestion.
Tu supprime ce code et on verra.
16/07/2008, 14h47
acma

j'ai enlevé l'exception et la remplac" par commit_form;

mais rien n'ai changé

Ah oui je voie ou il ya PB.
ce n'est pas
Code:

1 2 3 IF :BAGENT.ECHLON1=Get_Item_Property(:BAGENT.ECHLON1,Database_Value) Then --Champ Non Modifié NULL;
Mais plutôt
Code:

1 2 3 IF :BAGENT.ECHLON1=Get_Item_Property('BAGENT.ECHLON1',Database_Value) Then --Champ Non Modifié NULL;
Fais le remplacement dans tout ton code.

17/07/2008, 11h12
acma

J'ai fait ca depuis, le problem reste
17/07/2008, 15h28
JerryMouse

Dans ce cas, montre à nouveau ton code.

Code:

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
declare
v_temp0 AGENT.DATNAT%TYPE := Get_Item_Property('BAGENT.DATNAT1',Database_Value);	
v_temp1 AGENT.DTRECR%TYPE := Get_Item_Property('BAGENT.DTRECR1',Database_Value);
v_temp2 AGENT.CDCLAS%TYPE := Get_Item_Property('BAGENT.CDCLAS1',Database_Value);
v_temp3 AGENT.ECHLON%TYPE := Get_Item_Property('BAGENT.ECHLON1',Database_Value);
v_temp4 AGENT.CDPOSI%TYPE := Get_Item_Property('BAGENT.CDPOSI',Database_Value);
v_temp5 AGENT.DTPOSI%TYPE := Get_Item_Property('BAGENT.DTPOSI1',Database_Value);	
begin
-- Code Piéce 2000
 
	IF :BAGENT.DATNAT1=Get_Item_Property('BAGENT.DATNAT1',Database_Value) Then
  --Champ Non Modifié
  null;
	Else --Champ Modifié
message(' datnat datnat');	 
INSERT INTO proto_agent_fp VALUES('2000',
:IDENT.MATRIC,
:BAGENT.REFNAT1,
:BAGENT.DATNAT1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
v_temp0,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
	end IF;
	--
	IF :BAGENT.DTRECR1=Get_Item_Property('BAGENT.DTRECR1',Database_Value) Then
  --Champ Non Modifié
  null;
	Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2000',
:IDENT.MATRIC,
:BAGENT.REFNAT1,
:BAGENT.DATNAT1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
v_temp1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
	end IF;
--	--
-- Code Piéce 2015
-- --
IF :BAGENT.CDCLAS1=Get_Item_Property('BAGENT.CDCLAS1',Database_Value)Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2015',
:IDENT.MATRIC,
:BAGENT.RFCLGR1,
:BAGENT.DTCLGR1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
v_temp2,
:BAGENT.ECHLON1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
end IF;
 
IF :BAGENT.ECHLON1=Get_Item_Property('BAGENT.ECHLON1',Database_Value) Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
 
INSERT INTO proto_agent_fp VALUES('2015',
:IDENT.MATRIC,
:BAGENT.REFECH1,
:BAGENT.DATECH1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
v_temp3,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
end IF;
-- Code Piéce 2021
IF :BAGENT.CDPOSI=Get_Item_Property('BAGENT.CDPOSI',Database_Value) Then
  --Champ Non Modifié
  null;
Else --Champ Modifié
INSERT INTO proto_agent_fp VALUES('2021',
:IDENT.MATRIC,
:BAGENT.RFPOSI1,
:BAGENT.DTPOSI1,
:IDENT.SEXEAG,
:IDENT.DTNAIS,
:IDENT.NOMAGL,
:IDENT.SITFAM,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
:BAGENT.DATECH1,
:BAGENT.CDPOSI,
:BAGENT.DTPOSI1,
:BAGENT.DTRECR1,
:BAGENT.DATNAT1,
:BAGENT.CDCOEM,
:BAGENT.CDCLAS1,
:BAGENT.ECHLON1,
v_temp4,
v_temp5,
'15/12/2007',
0,
0,
'12345',
'15/12/2008',
0,
'15/12/2006');
end IF;
commit_form;
 
end;

17/07/2008, 16h16
JerryMouse

et ton message

Code:

message(' datnat datnat');

Il s'affiche?
17/07/2008, 16h54
acma

Non, il ne s'affiche pas!!!!!!
17/07/2008, 16h57
JerryMouse

Maintenant, donne moi exactement le nom de ton Trigger. Je te conseille de faire un Copier/Coller
17/07/2008, 17h03
acma

le nom de mon trigger est POST-UPDATE..
17/07/2008, 17h49
JerryMouse

Ok. Ca parrait correct. Maintenant déplace ton message juste apres Begin et vérifie qu'il s'afficher
19/07/2008, 01h08
McM

un message('blabla'); tout seul ne s'affichera qu'en bas de l'écran.
Mieux vaut faire un

Code:

message('blabla'); message(' ');

afin d'avoir un arrêt du code et une boîte de dialogue.
20/07/2008, 12h12
acma

:cry::?

je suis trés désolé de vous derranger!

le message n'affiche pas !!

Suis blocké encore!
20/07/2008, 21h13
McM
C'est plus facile pour toi de tester que nous d'imaginer toutes les solutions.
Donc mets des traces (messages explicites) pour savoir où tu passes, quelles sont les valeurs à cet instant, etc...

Avant le IF affiche les données (et puis utilises les variables que tu as affecté)
Code:

1 2 3 4 5 message('Post Upd old:'||v_temp0 ||' new:'||:BAGENT.DATNAT1); message(' '); IF :BAGENT.DATNAT1 = v_temp0 Then
Si ça se trouve y'a un élément qui est NULL.
21/07/2008, 12h37
JerryMouse
C'est ce que je me disais.
Si le message ne s'affiche pas, ca veut dire que ton déclencheur ne s'active pas. le contenu n'est donc jamais exécute.
as-tu un autre déclencheur Post-Update au niveau Forms?
1- Si c'est le cas, vérifie qu'aucun de ces déclencheurs, y compris celui sur lequel nous travaillons n'a la proprieté Ordre d'exécution à Substitué.
2- Sommes nous dans un cas de UPDATE?
Pour le savoir, au niveau de ton bloc de données, crée un déclencheur On-Update. Dans ce dernier, tu écris:
Code:

1 2 3 Message('On-Update'); Message(''); Update_Record;
Tu exécute et tu vérifie que le message s'affiche.
Je reste en ligne.
21/07/2008, 14h37
acma

J'ai essayé ca,
mais le programe ne debogue pas!!
C'est ca mon probleme!!
21/07/2008, 14h53
JerryMouse

T'as essayé quoi? Le On-Update affiche-t_il le message?
As-tu d'autre Post-Update?
21/07/2008, 15h19
McM
Citation:
Envoyé par JerryMouse

tu écris:

Code:

1 2 3 Message('On-Update'); Message(''); Update_Record;

.
Ca marchera pas, un message ne doit jamais être NULL
C'est ceci qu'il faut faire.
Code:

1 2 3 Message('On-Update'); Message(' '); Update_Record;