Problème when change item proc

[acma]

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

[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

[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..

[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.

[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...

[JerryMouse]

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;

[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

[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);

[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+

[JerryMouse]

Get_Item_Property ne se déclare pas. C'est une fonction intégrée à Forms builder. tu l'utilise simplement.

[acma]

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

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)

[acma]

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..

[McM]

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

[acma]

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;

[JerryMouse]

T'as pas oublié de faire un

Code :

commit

par hasard?

[acma]

Je panse pas, car les autres insertions dans meme trigger marchent bien..!!!

[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.

[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.

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.

[acma]

Mercy mes fréres JerryMouse et MCM,
J'ai fait comme vous dites, mais rien a changé

[jmguiche]

Pour une fonctionnalité de ce type, ne serait il pas judicieux de faire ça dans des trigger database plutot qu'en forms ?