Discussion :

[JULROMEOX2015]

Bonjour chers amis depuis cet après midi je recherche le code à éditer pour obtenir un numéro de facture (AB-0001) qui s'incrémente à chaque nouvel enregistrement de facture.
Et faire la meme chose pour ma fiche dossier.

merci aider moi... c'est urgent

[Yusep]

Bonsoir
Il suffit d'une petite recherche sur le forum

[JULROMEOX2015]

Bonsoir
Il suffit d'une petite recherche sur le forum

bien reçu et sur ce je fais comment?
sinon aider moi avec ce 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
16
17
 
HLitDernier(FACTURE,IDFACTURE)
Vdernierefacture est un numérique =FACTURE.NumFacture
VdernièreAnné est une chaîne="001"
SI FACTURE.IDFACTURE=Null ALORS
	factures est une chaîne =VdernièreAnné + "1"
SINON
	SI VdernièreAnné= Gauche(Vdernierefacture,3) ALORS
		factures= Gauche(Vdernierefacture,3)+NumériqueVersChaîne((Val(Droite(Vdernierefacture,3))+1),"")
	SINON
	 VdernièreAnné= Gauche(Vdernierefacture,3)
			factures= Gauche(Vdernierefacture,3)+NumériqueVersChaîne((Val(Droite(Vdernierefacture,3))+1),"04d")
 
		// c'est la ou je bloque je veux faire une recherche pour avoir le dernier enregistrement qui commence par VdernièreAnné (VdernièreAnné0052 ex: 20110052)
	FIN
FIN
SAI_NumFacture=factures

[Yusep]

Bonjour
par exemple
http://www.developpez.net/forums/d11...menter-numero/

[JULROMEOX2015]

Bonjour
par exemple
http://www.developpez.net/forums/d11...menter-numero/

Merci pour le lien mais quand l'ai tester rien ne se passe dans ma fenetre le champ n° facture reste tjrs à zero.

[planeurbret]

Merci pour le lien mais quand l'ai tester rien ne se passe dans ma fenetre le champ n° facture reste tjrs à zero.

Pourrais tu nous donner le code afin que nous puissions t'aider ?

[JULROMEOX2015]

bien sur le voici

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
HLitDernier(FACTURE,IDFACTURE)
Vdernierefacture est un numérique =FACTURE.NumFacture
VdernièreAnné est une chaîne="001"
SI FACTURE.IDFACTURE=Null ALORS
	factures est une chaîne =VdernièreAnné + "1"
SINON
	SI VdernièreAnné= Gauche(Vdernierefacture,3) ALORS
		factures= Gauche(Vdernierefacture,3)+NumériqueVersChaîne((Val(Droite(Vdernierefacture,3))+1),"")
	SINON
	 VdernièreAnné= Gauche(Vdernierefacture,3)
			factures= Gauche(Vdernierefacture,3)+NumériqueVersChaîne((Val(Droite(Vdernierefacture,3))+1),"04d")
 
		// c'est la ou je bloque je veux faire une recherche pour avoir le dernier enregistrement qui commence par VdernièreAnné (VdernièreAnné0052 ex: 20110052)
	FIN
FIN
SAI_NumFacture=factures

[laurent30s]

J'ai l'impression que tu te complique la vie

Si j'ai bien compris tu veux obtenir un n° de facture selon ce format "AB-0001"
c'est dire une partie fixe "AB-" est une partie qui s'incrémente "0001"

Tout d'abord je vois dans ton code que tu te positionnes sur ldFacture es-tu sur que ça correspondra toujours au dernier n° de facture ?
Il serait plus prudent de se positionner sur le dernier NumFacture, non ?

Pour ce qui est de l'incrémentation du n° le plus simple après t'être positionné sur le dernier n° de facture

Code :

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

1
2
3
4
5
6
// Tu récupère la partie numérique les 4 derniers caractères
nNoFact est un entier = Droite(FACTURE.NumFacture,4)
// Tu incrémente le n°
nNoFact += 1
// Puis tu concatène selon le format désiré en complétant par des 0 devant ton n° incrémenté 
FACTURE.NumFacture = "AB-" + NumériqueVersChaîne(nNoFact,"04d")

[JULROMEOX2015]

J'ai l'impression que tu te complique la vie

Si j'ai bien compris tu veux obtenir un n° de facture selon ce format "AB-0001"
c'est dire une partie fixe "AB-" est une partie qui s'incrémente "0001"

Tout d'abord je vois dans ton code que tu te positionnes sur ldFacture es-tu sur que ça correspondra toujours au dernier n° de facture ?
Il serait plus prudent de se positionner sur le dernier NumFacture, non ?

Pour ce qui est de l'incrémentation du n° le plus simple après t'être positionné sur le dernier n° de facture

Code :

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

1
2
3
4
5
6
// Tu récupère la partie numérique les 4 derniers caractères
nNoFact est un entier = Droite(FACTURE.NumFacture,4)
// Tu incrémente le n°
nNoFact += 1
// Puis tu concatène selon le format désiré en complétant par des 0 devant ton n° incrémenté 
FACTURE.NumFacture = "AB-" + NumériqueVersChaîne(nNoFact,"04d")

Merci Laurent je revois mon code avec tes remarques pour voir...

[tatayo]

Bonjour,
Attention avec cette méthode, si deux utilisateurs valident en même temps, ils vont récupérer le même numéro de facture... Il faut donc gérer les accès concurrents si l'application est multi-utilisateurs.

Je préfère dans ces cas passer par un compteur:

• Soit une table dans la base, avec un verrou exclusif le temps de récupérer un numéro
• Soit une séquence

La deuxième solution a pour avantage de gérer nativement les accès concurrents, mais je ne sais pas si les séquences sont disponibles avec HF.

Tatayo.

[JULROMEOX2015]

Laurent tu m'expliquer un peut ta logique merci