|
| Iniciado por paul.gera, ago., 30 2005 10:52 AM - 3 respostas |
| |
| | | |
|
| |
Publicado em agosto, 30 2005 - 10:52 AM |
Bonjour,
Je souhaite générer un numéro de facture du type "F00013" pour la 13e
facture.
Pour cela, j'ai fait le code suivant... mais je ne parviens pas à conserver
les 0.
Comment faire ????
Merci de votre aide.
NumFactSearch est une chaîne = INILit("PARAMETRES", "Facture", "",
fRepDonnées()+"\fact.ini")
NumFactSearchEnt est une chaîne = NumériqueVersChaîne(NumFactSearch)
HLitRecherchePremier(Fact,NumFacture,"F"+NumFactSearchEnt)
TANTQUE HTrouve(Fact)
NumFactSearchEnt+=1
HLitRecherchePremier(Fact,NumFacture,"F"+NumFactSearch)
FIN
facture_ajout.N_facture=NumFactSearch |
| |
| |
| | | |
|
| | |
| |
Publicado em agosto, 30 2005 - 1:25 PM |
Bonjour,
Il y a pas mal d'erreurs dans votre code.
NumFactSearchEnt est une chaîne = NumériqueVersChaîne(NumFactSearch)
---> Est inutile puisque NumFactSearch est déjà une chaîne.
NumFactSearchEnt+=1
----> Sur une chaîne on ne passe pas de F00012 à F00013 mais de F00012 à
F000121
--
Ed en Ligne
"Polo" <paul.gera@free.fr> a écrit dans le message de news:
43155044$1@news.pcsoft.fr...
Bonjour,
Je souhaite générer un numéro de facture du type "F00013" pour la 13e
facture.
Pour cela, j'ai fait le code suivant... mais je ne parviens pas à
conserver
les 0.
Comment faire ????
Merci de votre aide.
NumFactSearch est une chaîne = INILit("PARAMETRES", "Facture", "",
fRepDonnées()+"\fact.ini")
NumFactSearchEnt est une chaîne = NumériqueVersChaîne(NumFactSearch)
HLitRecherchePremier(Fact,NumFacture,"F"+NumFactSearchEnt)
TANTQUE HTrouve(Fact)
NumFactSearchEnt+=1
HLitRecherchePremier(Fact,NumFacture,"F"+NumFactSearch)
FIN
facture_ajout.N_facture=NumFactSearch
|
| |
| |
| | | |
|
| | |
| |
Publicado em agosto, 30 2005 - 1:30 PM |
Quel code utiliser alors ? |
| |
| |
| | | |
|
| | |
| |
Publicado em agosto, 30 2005 - 1:38 PM |
Bonjour,
Voici un code simple dont vous pouvez vous inspirer.
NumDerFact est un entier
HLitDernier(Fact,NumFacture)
NumDerFact = Val(Fact.NumFact[[2 A]])
NumDerFact++
Fact.NumFacture = "F"+NumériqueVersChaîne(NumDerFact, "05d")
--
Ed en Ligne
"Polo" <paul.gera@free.fr> a écrit dans le message de news:
431564cd$1@news.pcsoft.fr...
Quel code utiliser alors ?
|
| |
| |
| | | |
|
| | | | |
| | |
|