Discussion :

[BXDSPORT]

Bonjour

Voilà mon souci. J'ai monté une base sous firebird.
J'ai mis en place mon application utilisant les composants IB.
Je désire sur mon champ code le générer lors d'un ajout a partir du nom et du prénom. La méthode, je la connais pour paradox qui se passe sans problème. Je la génére dans beforepost.
J'ai essayé de faire la même chose pour la base en firebird. Il me dit qu'il lui ai nécessaire du code - Cela signifie qu'il ne fait pas ce que je lui demande dans le beforepost.

Un coup de main

Merci

Cordialement

[SergioMaster]

J'ai essayé de faire la même chose pour la base en firebird. Il me dit qu'il lui ai nécessaire du code - Cela signifie qu'il ne fait pas ce que je lui demande dans le beforepost.

Qu'est ce que cela a à voir avec Firebird ? Avec le composant IBxxxx peut-être mais avec Firebird je ne vois pas . SAUF si tu veux faire l'opération dans un trigger ?

[BXDSPORT]

La question que mon tablebeforepost fonctionne sous paradox et non firebird. Donc cela est logiquement lié du fait que les 2 systèmes ne doivent surement pas fonctionner de la même façon.

Si tu penses que cela viennent des composants Ib. Peux tu me donner ta solution ?

[Cl@udius]

Salut

Si tu nous montrais le code du BeforePost, on trouverais sûrement de quoi t'aider.

@+ Claudius

[BXDSPORT]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TDonnees.DBCLIENTSBeforePost(DataSet: TDataSet);
var N,P,code:string;
begin
 if dbclients.State in [dsInsert] then
 begin
 N:=copy(dbclientsnom.Value,1,3);
 P:=copy(dbclientsprenom.value,1,3);
 code:=N+P;
 dbclientscode.value:=code;
 dbclientsdatecreat.value:=date;
 dbclientsdatemodif.value:=date;
 end;
end;

voici le code

[Cl@udius]

Rien de particulier dans cette procédure. Mais quel est le message d'erreur au moment du Post ?

[edit]

Code :

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

1
2
if dbclients.State = dsInsert then
  // ...

Pourquoi passer par un ensemble ?

[Just-Soft]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TDonnees.DBCLIENTSBeforePost(DataSet: TDataSet);
var N,P,code:string;
begin
 if dbclients.State in [dsInsert] then
 begin
 N:=copy(dbclientsnom.Value,1,3);
 P:=copy(dbclientsprenom.value,1,3);
 code:=N+P;
 dbclientscode.value:=code;
 dbclientsdatecreat.value:=date;
 dbclientsdatemodif.value:=date;
 end;
end;

voici le code

Salut;

• pourquoi pas dans le OnNewRecord ? il me semble pour un nouvel enregistrement c'est l'emplacement idéal.
• En plus tu dois être sur le dernier enregistrement donc un Last te manques sans oublier le MarkUp si tu dois garder l'affichage tel quel.
• En dernier je ne vois pas d'où tu récupère date et ça donne confusion avec le mot clé date.

C'est tout, hihihi.