Discussion :

[buzz68180]

Bonjour,

J'incrémente actuellement un numéro de facture automatiquement avec le code suivant, mais malheureusement en réseau les n° sont souvent les mêmes pour les factures si plusieurs users crée des factures en même temps !


Voici mon code, je charge mes paramètres de facture :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Charge_params_facture()
 
PROCEDURE Charge_params_facture()
 
ValNumfacture est un entier 
ValInfacture est une chaîne 
 
HBloqueFichier(Paramètres,hBlocageLectureEcriture)
//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation  
SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"DATEFAC"],hIdentique) ALORS
 
	SI Paramètres.PARAM_Num=0 ALORS
		//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion 
		SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
			ValNumfacture = Paramètres.PARAM_Num
			ValInfacture= Paramètres.PARAM_Alphanumerique
			RENVOYER ValInfacture+ValNumfacture +"-"+DateDuJour()
		FIN
	SINON
		//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion 
		SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
			ValNumfacture = Paramètres.PARAM_Num
			ValInfacture= Paramètres.PARAM_Alphanumerique
			RENVOYER ValInfacture+ValNumfacture
		FIN
 
	FIN
 
SINON
	//Recherche du "paramétre.idparametre" sur clé composé que l'on connnait la valeur de l'Organisation à la connexion 
	SI HLitRecherchePremier(Paramètres,IDOrganisationPARAM_Cles,[gnChoixorganisation,"INDFA"],hIdentique) ALORS
		ValNumfacture = Paramètres.PARAM_Num
		ValInfacture= Paramètres.PARAM_Alphanumerique
		RENVOYER ValInfacture+ValNumfacture +"-"+DateDuJour()
	SINON
		Erreur("Paramètre facturaction non trouvé !")
		RENVOYER Faux
 
	FIN
 
FIN
HDébloqueFichier(Paramètres)
 
et ensuite je modifie le N°
 
//Incrémenter le paramètre
Paramètres.PARAM_Num++
SI HModifie(Paramètres)=Vrai ALORS
	HDébloqueFichier(Paramètres)
SINON
	Erreur("Indice INDFA ,non trouvé sur le serveur !")
 
FIN

MERCI POUR VOTRE AIDE

[dsr57]

Bonjour


J'appellerai la fonction HDébloqueFichier uniquement après la mise à jour du comteur.


Pour une meilleur lecture et une meilleur compréhension penses à utiliser la balise

Bon dev

[Hemgé]

Bonjour,

Puis-je attirer votre attention sur l'utilisation de la balise # qui permettra l'affichage de votre code de manière standardisée. (vous pouvez encore modifier votre message)
Nettement plus lisible et donc plus de réponses (a priori de meilleure qualité si vous êtes plus aisément lu et compris).

Concernant votre problème, il vaudrait mieux commencer par une recherche sur ce forum et sur celui de PCsoft.
Le problème que vous évoquez a déjà été traité à plusieurs reprises de manière assez complète et on a souligné tant ce qu'il ne faut pas faire que ce qu'il faudrait faire.
Cette recherche sera donc une bonne mise en bouche et elle devrait être la règle générale avant d'interroger la communauté.

Bon travail

Hemgé