Discussion :

[mamadoukebe]

Bonjour !
J'ai un problème, ça fait des jours que j'essaie de générer et incrémenter le code produit de ma table produit.

Exemple : Prod-0001
Quand je clique sur "nouveau" que sa incrémente
Prod-0002 ainsi de suite.

J'ai voulu utiliser la clé primaire qui est déjà en auto-incremente mais ça ne marche pas.
Voici le code que j'ai mis dernière la fenêtre FEN_Fiche_produit:

Code :

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

1
2
3
4
5
6
7
8
9
10
Si Sai_CodeProduit="" alors
    I est un entier
    nom est une chaîne
 
    I=Max(Produit.IDProduit)+1
    nom="Prod"
 
    Sai_CodeProduit=Gauche(nom,4)+"-"+I
 
Fin

[Voroltinquo]

Bonjour,
Le problème a été moulte fois abordé.
Regarde du côté de ChaineIncrémente.
Le code devrait ressembler à ça.

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
 
sNouveauCode est chaine
reqRechercheCode est Requete SQL =
[
SELECT 
	MAX(Produit.CodeProduit) AS DernierCode
FROM 
	Produit
]
 
SI HNbEnr(Produit)=0 ALORS //La table Produit est vide
     //On crée le premier Code
     sNouveauCode="Prod-1"
SINON
     HexecuteRequête(reqRechercheCode)
     sNouveauCode=ChaineIncrémente(reqRecherche.DernierCode)
FIN

[mamadoukebe]

MERCI beaucoup pour la réponse.
J'ai repris le code mais chez moi.
Ça met erreur sur le "Max" dans la requête.
Et sur la requête:

Code :

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

reqRechercheCode est Requête SQL =[Select Max(Produit.IDProduit) from as DernierCode Produit]

Ça met le nom de la requête en rouge dans

Code :

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

HexecuteRequete(reqRechercheCode)

[Voroltinquo]

Lors de la description d'une variable requête, il faut que la description soit sul plusieurs lignes, comme je l'ai écrit

[Beeze]

Bonjour

Sous quelle version WD es tu ?

@Voroltinquo
Sous WD20, ce serait exactement la même chose, il reconnait

Code :

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

reqRechercheCode est Requête SQL =[Select Max(Produit.IDProduit) from as DernierCode Produit]

mais pas

Code :

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

HexecuteRequete(reqRechercheCode)

[mamadoukebe]

Je suis sur WD20

[Voroltinquo]

Erf,
WD20 ne reconnait pas les variables requête SQL
Il faut passer par une chaine et utiliser HexecuteRequeteSQL

[Yusep]

J'ai voulu utiliser la clé primaire qui est déjà en auto-incremente mais ça ne marche pas.
[/CODE]

Bonsoir
Ça peut répondre à votre besoin :
http://carnetwindev.blogspot.com/

Code :

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

1
2
3
4
5
6
7
HFSQL : Convertir un identifiant unique en Matricule AAA000

Cette fois une simple petite fonction qui vous permettra d'affecter un matricule unique au format  incrémental du type :
AAA000, AAA001, ..., AAA999
BAA000, BAA001, ..., BAA999
...
ZZZ999
... à partir du numéro unique d'identifiant de votre enregistrement de fichier de données.