Discussion :

[souheil_tn]

j'essaye d'inserer des données a la b ase par l'intermediaire d'un programme mais lorsque je verifie je trouve que l'insertion s'est bien déroulé pouvez vous verifier cela si vous pouvez;


declare

v_iu number;
ech_tot number;
ech_mnt_reg number;
v_annee number;
v_ord number;
ASS_MAT number;
ECH_ANN date;
nbre_ch number;
CH_NUM number;
i number;





begin
v_annee := to_number(substr(:system.effective_date,8,4));


select nvl(max(ech_ord),0)+1 into v_ord from echeancier where ech_bur=:global.bur and ech_ann=v_annee;


select ass_iu into v_iu from ref_cnam.mat_ass where CODE_CAISSE=:CODE_CAISEE and ASS_MAT=:ASS_MAT and ASS_CLE=:ASS_CLE and rownum=1;
--message ('bur'||' '||:global.bur||'ann'||' '||v_annee||'ORD '||v_ord||'CAISSE '||:code_caisee||'MAT '||
--:ass_mat||'cle '||:ass_cle||'iu '||v_iu||'ech_creation '||:ech_creation||'ech_tot '||:ech_tot||'ech_avc_dat '||:ECH_AVC_DATE
--||'mnt_avc '||:MNT_ACV||'ech_mnt_ch '||:ECH_MNT_CH||'ech_nbr_ch '||:ECH_NBR_CH||'ech_mnt_reg '||:ECH_MNT_REG||'ech_type_reg '||:ECH_TYPE_REG);
message (' ');
insert into echeancier (ECH_BUR ,ECH_ANN ,ECH_ORD ,CODE_CAISEE ,ASS_MAT ,ASS_CLE
, ASS_IU
, ECH_CREATION
,ECH_TOT
,ECH_AVC_DATE
,MNT_ACV
,ECH_MNT_CH
,ECH_NBR_CH
,ECH_MNT_REG
,ECH_TYPE_REG ) values( :global.bur,v_annee,v_ord, :code_caisee,:ass_mat,:ass_cle,v_iu,:ech_creation,:ech_tot,:ECH_AVC_DATE
,:MNT_ACV ,:ECH_MNT_CH ,:ECH_NBR_CH ,:ECH_MNT_REG ,:ECH_TYPE_REG );

i:=1;

--nbre_ch:=(:ech_tot - :MNT_ACV) /12;

while i<= :ECH_NBR_CH loop

insert into ECHEANCE ( ECH_BUR
,ECH_ANN
,ECH_ORD
,CH_NUM
,ECH_ETAT ) values (:global.bur
,v_annee
,v_ord
,i
,'C');

i:=i+1;



end loop


commit;



end;

[McM]

Peux tu rééditer ton message et mettre en forme le code :
Utilise le tag Code (c'est le # dans le menu d'édition).

merci.

Edit : En fait c'est quoi ton problème ?

j'essaye d'inserer des données a la base par l'intermediaire d'un programme
mais lorsque je verifie je trouve que l'insertion s'est bien déroulé pouvez vous verifier cela si vous pouvez;

[souheil_tn]

en faite je rééexplique mon programme sert a inserer des valeur dans les champs d'une table qui s'appelle echeancier afin de remplir mais lorsque je remplis ces valeurs dans la forme ça me donne une erreur d'enregistrement et lorsque je verifie sur la table je trouve pas les champs inserée


voila mon code

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
declare
 
	v_iu number;
	ech_tot number;
	ech_mnt_reg number;
	v_annee number;
	v_ord number;
	ASS_MAT number;
	ECH_ANN date;
	nbre_ch number;
	CH_NUM number;
	i number;
 
 
 
 
 
begin
	v_annee := to_number(substr(:system.effective_date,8,4));
 
 
	select nvl(max(ech_ord),0)+1 into v_ord from echeancier where ech_bur=:global.bur and ech_ann=v_annee;
 
 
	select ass_iu into v_iu from ref_cnam.mat_ass where CODE_CAISSE=:CODE_CAISEE and ASS_MAT=:ASS_MAT and  ASS_CLE=:ASS_CLE and rownum=1; 
 --message ('bur'||' '||:global.bur||'ann'||' '||v_annee||'ORD '||v_ord||'CAISSE '||:code_caisee||'MAT '||
--:ass_mat||'cle '||:ass_cle||'iu '||v_iu||'ech_creation '||:ech_creation||'ech_tot '||:ech_tot||'ech_avc_dat '||:ECH_AVC_DATE
--||'mnt_avc '||:MNT_ACV||'ech_mnt_ch '||:ECH_MNT_CH||'ech_nbr_ch '||:ECH_NBR_CH||'ech_mnt_reg '||:ECH_MNT_REG||'ech_type_reg '||:ECH_TYPE_REG);
 message (' ');
	insert into echeancier (ECH_BUR ,ECH_ANN ,ECH_ORD ,CODE_CAISEE ,ASS_MAT ,ASS_CLE
, ASS_IU         
, ECH_CREATION   
 ,ECH_TOT        
 ,ECH_AVC_DATE   
 ,MNT_ACV        
 ,ECH_MNT_CH     
 ,ECH_NBR_CH     
 ,ECH_MNT_REG    
 ,ECH_TYPE_REG ) values( :global.bur,v_annee,v_ord, :code_caisee,:ass_mat,:ass_cle,v_iu,:ech_creation,:ech_tot,:ECH_AVC_DATE   
 ,:MNT_ACV ,:ECH_MNT_CH  ,:ECH_NBR_CH  ,:ECH_MNT_REG  ,:ECH_TYPE_REG );
 
 i:=1;
 
 --nbre_ch:=(:ech_tot - :MNT_ACV) /12;
 
 while i<= :ECH_NBR_CH  loop   
 
 	insert into ECHEANCE (  ECH_BUR
 ,ECH_ANN
 ,ECH_ORD
 ,CH_NUM 
 ,ECH_ETAT ) values (:global.bur
 ,v_annee
 ,v_ord
 ,i 
 ,'C');
 
 i:=i+1;
 
 
 
 end loop
 
 
commit;
 
 
 
end;

Nb:j'ai mis les concaténation afin de faire le suivie de l'exection du programme et pour savoir là ou se plante celui_ci mais j'arrive pas a détécter celle_ci

[McM]

ça me donne une erreur d'enregistrement

Il faut donner l'erreur.

Sinon, gère les exceptions dans ton code, histoire de savoir ce qui foire et pour quel enreg.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
BEGIN
 SELECT INTO...;
EXCEPTION WHEN OTHERS 
THEN message('Err Select 1:'|| sqlerrm(sqlcode)); message(' ');
RAISE Form_Trigger_Failure;
END;
 
BEGIN
 INSERT INTO...;
EXCEPTION WHEN OTHERS 
THEN message('Err Insert 1:'|| sqlerrm(sqlcode)); message(' ');
RAISE Form_Trigger_Failure;
END;