FORUM WINDEV

Salut.

J'ai un souci sur comment faire qu'un identifiant soit personnalisé et qu'il s'increment dans un champ de saisie. Mon numero commence par 01 pour le mois 08 pour l'anné et 00000 pour le decompte et souhaite qu'il affiche comme suite
01/08/00000
01/08/00001
01/08/00002 et ainsi de suite.

Voici mon code: Num_Id_Auto = DateVersChaine(DateSys(), "MM/AA/") ce code me donne déjà 12/08/ commen inserer une suite de 00000 après 08 de l'anné et qui fond effectuer le decompte à chaque enregistrement.

Merci pour votre aide.
Et je souhaite savoir comment publier cette application que je suis entrain de terminer?

Cordialement.
James

Pour incrémenter un identifiant tu peux utiliser le code suivant: (avec une partie de ton code)

Code: Tout sélectionner

HLitDernier(<NomFichier>.<CléIdentifiant>)
Num_Id_Auto = DateVersChaine(DateSys(), "MM/AA/"+NumériqueVersChaine(<NomFichier>.<CléIdentifiant>,"05d")+1

J'ai pas testé, j'écris à la volée mais je pense que c'est correcte.
Mais attention l'dentifiant lui-même n'est pas modifiable, "Num_Id_Auto" est une rubrique ajoutée au fichier.

Salut Samifred
J'au testé et modifiez le code il me donne 01/08/000001 mais il ne compte pas et la suite logique que je veux ne se fait pas. J'ai mis le code dans la zone Initialisation de la fentre de saisie.

Code: Tout sélectionner

HLitDernier(<NomFichier>.<CléIdentifiant>)
Num_Id_Auto = DateVersChaine(DateSys(), "MM/AA/00000")+1

Pour le code si dessous
HLitDernier(<NomFichier>.<CléIdentifiant>)
Num_Id_Auto = DateVersChaine(DateSys(), "MM/AA/"+NumériqueVersChaine(<NomFichier>.<CléIdentifiant>,"05d")+1
il me retourne ceci
01/08/1
01/08/01/08/11
01/08/01/08/111 et ainsi de suite
Que faire?
Cordialement.

Je suppose que tu veux saisir un numéro de facture ou autres documents ?

Dans ce cas il faut mettre le code dans la section "Entrée de Saisie..." du champ, expl: "Facture N°:"
Il suffit de cliquer dans le champ pour que le code lit le dernier Identifiant et l'incrémente.

Mr Samifred.
Autre precision c'est un numéro de pièce de caisse que je souhaite réalisé le format du champ dans le fichier d'analyse est de type texte que j'ai mis en clé unique, lorsque je le me en numérique tout ce bloque dans la fenêtre de saisie et même le bouton Ok ne marche pas. Je ne comprend plus rien...
Je souhaite juste réalisé un numéro du genre 010800000 c-a-d 01 le mois, 08 l'anné et le reste N°de la pièce 00000 qui s'incremente.

James

Voia un code qui fonctionne parfaitement... je l'ais testé cette fois.

Il faut mettre directement dans ton fichier la rubrique en numérique idem que le champ de saisie.

Saisie1 est un champ numérique "999999999999" sans quote. (avec quote "999'999'999'999")

Code: Tout sélectionner

//Entrée de saisie Saisie1...
Numéro est un entier = HLitDernier(<NomFichier>,<IdFichier>) + 1
Madate est une Date = DateSys()
Saisie1 = Val(Madate..Mois+Droite(Madate..Année,2)+NumériqueVersChaîne(Numéro,"05d"))

011200001 résultat

[quote="Samifred" j'ai testé le code ci-dessous

Au 1er il compte bien 010800001, au second 010800002 et c'est finit il ne continu pas, lorsque je fais un 3ème enregistrement il recupere le dernier N° et ne l'incremente pas

Code: Tout sélectionner

//Entrée de saisie Saisie1...
Numéro est un entier = HLitDernier(<NomFichier>,<IdFichier>) + 1
Madate est une Date = DateSys()
Saisie1 = Val(Madate..Mois+Droite(Madate..Année,2)+NumériqueVersChaîne(Numéro,"05d"))

James

J'ai enfin trouvé ce que j'avais fais en version 9...
En fait il faut remplacer la première ligne par:
(FACT c'est le nom du fichier)

nNuméro est un entier = HNbEnr(FACT,hEtatTous)+1

Désolé de t'avoir fais perdre du temps.

Bjr Samifred

Grannnnnnnnnnnnnnnd et meeeeeeeeeeeeeeeeeeeeeeeeeeeerci pour votre aide saaaaaaaaaaaaaaaaa marche que Dieu vous beniss dans toute votre entreprise....Amen

Cordialement.
James

Bonjour a vous tous,
Enfaite j'ai essayer votre code dans mon projet , si je supprime un enregistrement et si je s'essaye d'ajouter un autre enregistrement en cliquant sur le bouton valider il y a un message de doublon qui s'affiche. Si vous avez une solution svp ...

Bjr Mr levieux

Je suis confronté au même problème et je ne sais pas comment resoudre cette difficulté des doublons.

James

Bonjour james ,
je crois que j'ai trouver une solution au probleme de doublon. En faite le probleme en ai que la fonction HNbenr ( Le nombre d'enregistrement dans le fichier) n'etais pas actualiser apres avoir faire une suppression d'enregistrement. Il faut actualiser avec la fonction Hversion( permet de savoir si le contenu d'un fichier a été modifié) le code est :
NumVer est un entier
NumVer = HVersion(NomDuFichie)
nNuméro est un entier=HNbEnr(NomDuFichie,hEtatTous)+NumVer
dMadate est une Date = DateDuJour()
nNumCmde est un chaîne ="Fact-"+Val(Droite(dMadate..Année))+Val(nNuméro)

le code fonction correctement mais le probleme en ai que l'incrementation se fais de deux pas ...

Bjr levieux.

Merci de me relancer dans cette affaire je vais m'y mettre aussi d'avantage.
Cordialement.
James

ok james . Bon dev...