Discussion :

[rednight]

Bonjour à tous!

J'ai une petite question "simple" pour une fois.

Pour un logiciel de gestion de stock, j'ai une table "Commandes" et une "Réception" chacune ayant une ID auto incrémenté et un CodeCommande/CodeLivraison étant un champ texte.

Ce CodeCommande doit être lui aussi incrémenté mais il doit pouvoir etre modifié par l'utilisateur lors de la création de la commande ou réception.

Par exemple la 1er commande aura pour ID 1 et comme CodeCommande "COM00000001" et j'aimerais donner un "format" prédéfini à ce champ.

Que les 3 premiers caractères soit des lettres et ensuite "00000001" à la 10ème commande ça serait "00000010" ...la 100ème "00000100" un zéro en moins à chaque fois et ainsi dessuite.

J'ai pas forcément d'obligation dans le format, il n'est pas encore bien défini c'est une des idées que j'ai eu. Si vous avez une autre idée de "format" de code commande/reception couramment utilisé dans la gestion de stock je suis preneur.

En vous remerciant.

[Lo²]

Salut à toi,

Plusieurs méthodes s'offrent à toi :
- la méthode du Droite("00000000" + ID, 8) ;
- la méthode du Répète("0", 8 - Taille(ID)) + ID.

[hpascal]

Bonjour

NumeriqueVersChaine est fait pour ça :

Exemple :

Code :

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

NumériqueVersChaîne(1228, "08d")

renverra "0000128"

Tu peux aussi aussi ajouter une notion de date dans ton numéro de commande, par exemple l'année et le mois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
LOCAL
	eID_Commande    est un entier
	cNum_Commande	est une chaîne
	dDateCommande	est une Date
 
eID_Commande = 1228
dDateCommande = DateSys()
 
// Composition N° de commande	
cNum_Commande =  "C" + DateVersChaîne(dDateCommande, "AAMM") + NumériqueVersChaîne(eID_Commande, "05d")
 
Info(cNum_Commande)

[Raptor92]

Bonjour,

Personnellement, j'aurais opté pour la méthode suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
nVariable est un entier
sSuffixe est une chaîne
 
sRequeteNumFacture est une chaîne="SELECT MAX(FACT_NUM) FROM FACTURES WHERE FACT_NUM_FACT LIKE '03356-%' "
SI	SQLExec(sRequeteNumFacture,"ReqNumFacture") ALORS
	SI	SQLAvance("ReqNumfacture") = 0 ALORS
		nVariable=SQLLitCol("ReqNumFacture", 1)
		sSuffixe=Gauche(nVariable,8)
		Trace(NumériqueVersChaîne(Val(sSuffixe)+1,"09d"))
		sSuffixe=NumériqueVersChaîne(Val(sSuffixe)+1,"09d")
	FIN
SINON
	sSuffixe="000000001"
FIN

Je vais cherché le dernier numéro et si il n'existe pas, alors le premier est à 1 avec les zéro devant (par l'ajout de "09d")

Bonne journée

[rednight]

J'ai testé la solution de Raptor92.

J'ai juste modifié :

Code :

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

sRequeteNumLivraison est une chaîne="SELECT MAX(Livraison.Code_Livraison) FROM Livraison WHERE Livraison.Code_Livraison LIKE '03356-%' "

Mais SqlExec plante car apparemment la requête ne s'exécute pas

Je test l'autre solution de hpascal qui a l'air plus simple et flexible.

[mail.spam]

tu travail avec quel SGBD?
Hyperfile, SQLServer,MySql?