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
|
CREATE OR REPLACE TRIGGER "NEGOCE"."HYB_CMD"
AFTER
insert or update or delete on NEGOCE.SORDER
for each row
DECLARE
var_table_modif VARCHAR2(20);
var_type_modif VARCHAR2(20);
var_old_key VARCHAR2(20);
var_new_key VARCHAR2(20);
var_foreign_key VARCHAR2(20);
var_time_log VARCHAR2(20);
var_param_log VARCHAR2(20);
begin
var_table_modif:= 'SORDER';
var_time_log:= TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS');
IF INSERTING THEN
var_type_modif:= 'INSERT';
var_new_key:= :new.SOHNUM_0;
var_old_key:= 'null';
var_foreign_key:= 'null';
var_param_log:= :new.DEMDLVDAT_0;
EXECUTE IMMEDIATE
'
insert into NEGOCE.XLOGACT
(NUMLOG_0,TABLELOG_0,TYPEMOD_0,NEWKEY_0,OLDKEY_0,TIMELOG_0,FOREIGNKEY_0,PARAM_0)
values
('' '',''' || var_table_modif || ''',''' || var_type_modif || ''',''' || var_new_key || ''',''' || var_old_key || ''',''' || var_time_log || ''',''' || var_foreign_key || ''',''' || var_param_log || ''')
';
END IF;
IF UPDATING THEN
var_type_modif:= 'UPDATE';
var_new_key:= :new.SOHNUM_0;
var_old_key:= :old.SOHNUM_0;
var_foreign_key:= 'null';
var_param_log:= :old.DEMDLVDAT_0;
EXECUTE IMMEDIATE
'
insert into NEGOCE.XLOGACT
(NUMLOG_0,TABLELOG_0,TYPEMOD_0,NEWKEY_0,OLDKEY_0,TIMELOG_0,FOREIGNKEY_0,PARAM_0)
values
('' '',''' || var_table_modif || ''',''' || var_type_modif || ''',''' || var_new_key || ''',''' || var_old_key || ''',''' || var_time_log || ''',''' || var_foreign_key || ''',''' || var_param_log || ''')
';
END IF;
IF DELETING THEN
var_type_modif:= 'DELETE';
var_new_key:= 'null';
var_old_key:= :old.SOHNUM_0;
var_foreign_key:= 'null';
var_param_log:= :old.DEMDLVDAT_0;
EXECUTE IMMEDIATE
'
insert into NEGOCE.XLOGACT
(NUMLOG_0,TABLELOG_0,TYPEMOD_0,NEWKEY_0,OLDKEY_0,TIMELOG_0,FOREIGNKEY_0,PARAM_0)
values
('' '',''' || var_table_modif || ''',''' || var_type_modif || ''',''' || var_new_key || ''',''' || var_old_key || ''',''' || var_time_log || ''',''' || var_foreign_key || ''',''' || var_param_log || ''')
';
END IF;
end;
ALTER TRIGGER "NEGOCE"."HYB_CMD" ENABLE |
