Discussion :

[Azizkwl]

bonjour a tous,

Comment incrémenter automatiquement champ de saisie de type NumeroClient. ex: qd j'initialise mon fenetre le champ numclient sera automatique comme numclient= 0001/15_CLT et après une autre enregistrement sa donne 0002/15_CLT et ainsi de suite . merci de me repondre

a+

[serendib]

Azizkwln,

De deux choses l'une :
- Tu n'as pas du tout réfléchi à la façon de traiter celà parceque tu es débordé, intellectuellement et physiquement.
- Tu te dis que ça vaut pas le coup d'y réfléchir puisqu'ici, il y en aura toujours bien un qui croira t'aider en te postant du code.


Dans tous les cas si tu commences comme celà, t'es pas près de terminer une appli.
Ne le prends pas mal, c'est vraiment pour t'aider, malgré les apparences...

[Azizkwl]

serendib

oui peut etr bien que c'est vrai . mrci qd mem de me repondre, c'est encourageant.

[serendib]

Pour te montrer ma bonne volonté à ton égard, je vais te donner un petit conseil :

à la place de : 0001/15_CLT
j'aurais préféré : 15_CLT/0001

C'est pas obligatoire, mais ça te faciliterais bien les choses ...
Volià peut-être une piste pour ta réflexion, non ?

[Azizkwl]

merci pour tes conseil, attend je vais essayer de trouver de solution pour mon appli.

a+

[Dracouille]

Effectivement, ça ne demande pas une réflexion énorme.

Si /15_CLT ne bouge jamais, tu a juste à incrémenter un entier et à concaténer ta chaîne.

Code :

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

1
2
3
4
5
6
7
8
var est un entier = 1
 
Boucle qui va bien 
 
       ChampsDeSaisie = var + "/15_CLT"
       var++
 
Fin boucle qui va bien

[serendib]

Il y en a toujours un qui croira t'aider en te postant du code.
Sauf que là il ne réponds pas à ta question.
Il ne suffit pas d'incrémenter une zone, encore faut-il connaitre la clé du dernier Client créé.

[Dracouille]

Que tu supposes ...

Avec 2 lignes comme seule explication, il faut visée large.
De plus je n'ai jamais dit que s'était fonctionnelle juste avec un copier-coller ...

Je donne une piste, si au préalable il faut récupéré la valeur de l'entier, c'est pas un grand chose !

[Younes YAICH]

Déclarations globales de fenetre

Code :

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

1
2
3
4
5
// Recherche la valeur du code ( PARAMETRE est une table ou je sauvegarde les dernières valeurs)
HLitRecherchePremier(PARAMETRE, IDPARAMETRE,1)
Code_Clt est une chaîne
Derniere_Code_Clt  est un entier
Zeros est une chaîne

Initialisation de fenêtre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
//Incrémentation du code
Derniere_Code_Clt  =Val(Droite(PARAMETRE.Code_CLT,4))
Derniere_Code_Clt++
SELON Taille(NumériqueVersChaîne(Derniere_Code_Clt))
     CAS 2: Zeros="000"
     CAS 3: Zeros="00"
     CAS 4: Zeros="0"
     CAS 5: Zeros=""
FIN
 
// Code client
Code_Clt= Zeros + NumériqueVersChaîne(Derniere_Code_Clt) + "/" + Droite(AnnéeEnCours(),2)  + "_CLT"
SAI_Code = Code_Clt

Après tu mets ce code dans le bouton de validation ou fermeture de fenêtre pour Enregistrer la dernière valeur dans la table PARAMETRE

Code :

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

1
2
3
4
// Enregistrer la dernière valeur dans la table PARAMETRE
HRAZ(PARAMETRE,IDPARAMETRE)
PARAMETRE.Code_CLT= Zeros+NumériqueVersChaîne(Derniere_Code_Clt)
HModifie(PARAMETRE)

Bon dev.

[hpascal]

Bonjour

Sans voir le reste du code, remplace ça :

Code :

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

1
2
3
4
5
6
7
8
SELON Taille(NumériqueVersChaîne(Derniere_Code_Clt))
     CAS 2: Zeros="000"
     CAS 3: Zeros="00"
     CAS 4: Zeros="0"
     CAS 5: Zeros=""
FIN
// Code client
Code_Clt= Zeros + NumériqueVersChaîne(Derniere_Code_Clt) + "/" + Droite(AnnéeEnCours(),2)  + "_CLT"

par :

Code :

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

Code_Clt= NumériqueVersChaîne(Derniere_Code_Clt, "05d") + "/" + Droite(AnnéeEnCours(),2)  + "_CLT"