Discussion :

[Lucien]

Bonjour,

J'ai besoin d'introduire automatiquement un enregistrement dans une table.
J'utilise une procédure stockée dont voici le 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
CREATE PROCEDURE PS_CREER_VERSEMENT (
    IND_ID INTEGER,
    SAISON CHAR(9),
    SECTION VARCHAR(32),
    MODE VARCHAR(32),
    VALIDE CHAR(3),
    DATE_VER DATE,
    SOMME DECIMAL(16,4))
AS
begin
    insert into t_versement_ver (ver_id , ver_ind_id, ver_saison, ver_ind_section,
    ver_mode, ver_valid, ver_date_valid,ver_somme)
    values(GEN_ID(gen_ver_id, 1),:ind_id,:saison, :section, :mode, :valide, :date_ver, :somme);
  suspend;
end^

Elle fonctionne parfaitement sous IBEXPERT.
Si je l'utilise une fois à partir de Delphi, tout va bien.
Si elle est appelée une seconde fois, tout va bien encore, sauf à l'effacement de l'enregistrement avec le message

non concordance dans le paquet de données

Quelqu'un aurait-il une piste de recherche ?

[qi130]

sauf à l'effacement

L'effacement ...? Quand/où dans le process ?

[Lucien]

L'effacement de l'enregistrement a lieu à l'initiative de l'utilisateur, au cours de la consultation, en voici le code.

Code :

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

1
2
3
if dbgrid_VER.DataSource.DataSet.IsEmpty then Exit;
  if MessageBox (0, 'Ce versement sera définitivement supprimé...'+ #10#13+'Nous l''effaçons ?' , 'Suppression' , MB_ICONQUESTION or MB_YESNO)=mrYes
    then dbgrid_VER.DataSource.DataSet.Delete;

Aprés plusieurs tests, j'observe que si la somme transmise est différente, tout fonctionne correctement.
Ce qui n'est pas le cas quand elle est identique...
Je ne comprends pas....

PS: Ce samedi 29/7, je reprends mon travail et tout a l'air de fonctionner normalement...sans que je n'ai rien fait depuis....
Donc je demande le délestage et pardon aux collègues que j'ai pu dérangés