generer son code client sous firebird ?

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

Citation:

---

Envoyé par BXDSPORT

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 ?

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 ?

Salut

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

@+ Claudius

Code:

---

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

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

[edit]

Code:

---

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

---

Pourquoi passer par un ensemble ?

L'erreur est toute simple : il me dit que le champ CODE doit être rempli. Ce qui signifie, je pense, qu'il ne fait pas le beforepost.

Citation:

---

Envoyé par BXDSPORT

Code:

---

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.

Concernant la remarque du champ appelant la date du jour. Il faut bien que je mettes la date du jour.
Je serai d'accord si j'avais besoin d'une incrémentation (Pour Last). Mais le but uniquement est de transmettre réaliser un code a partir du nom et du prenom.

Merci de vos pistes

Citation:

---

Envoyé par Just-Soft

pourquoi pas dans le OnNewRecord ? il me semble pour un nouvel enregistrement c'est l'emplacement idéal.

---

Pour construire un code sur des valeurs qui n'ont pas encore été saisies ! :aie:
Le BeforePost reste le bon emplacement.

@BXDSPORT
As-tu vérifié, avec un breakpoint, que ton code était bien appelé avant le post ?

Plus précisément le champ CODE doit avoir une valeur

Re;
si ce n'est pas un nouvel enregistrement alors que fais l'état dsInsert ? tu dois supprimé le test (if ensemble de données dans dsInsert) sinon ton code ne sera jamais exécuté.

J'ai trouvé l'erreur. Le code était bon mais les données que j'appelais ne correspondait pas. J'ai les données de la table alors que les champs remplis utilisés les données du dataset. Un oups.
Mais vos conseils ne sont pas rentrés dans l'oreille d'un sourd

Cordialement