Discussion :

[LadyArwen]

Bonjour,

Je travaille avec un fichier txt généré par le script vbs suivant depuis une base Access. Je ne suis pas l'auteur de ce script.

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
filepath = "\\serveur\rep\equipe\Gestion\export\factures"
 
set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(filepath&"\facture.txt", True)
 
tf.WriteLine ("ID;N°Facture;NomC;Montant;adr;cp;com")
 
Set Conn = CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=Gestion.mdb;"
Set RS = CreateObject("ADODB.Recordset") 
'SQL = "SELECT * FROM ACTION"
SQL = "SELECT *,[clients]![nom] as cli,clients!Adresse & auditeurs!Adresse AS adr, clients![Code postal] & auditeurs![Code postal] AS cp, clients!Commune & auditeurs!Commune AS com FROM ((Facturation LEFT JOIN (Conventions LEFT JOIN CLIENTS ON Conventions.[Code client] = CLIENTS.[Code client])"_ 
&" ON Facturation.N°Ligne = Conventions.N°Convention) LEFT JOIN [AFFECTATION AUDITEUR ACTION] ON Conventions.[Code auditeur] = [AFFECTATION AUDITEUR ACTION].N°ligne) LEFT JOIN AUDITEURS ON"_
&" [AFFECTATION AUDITEUR ACTION].[Code auditeur] = AUDITEURS.[Code auditeur] WHERE Facturation.Montant<>0 AND [clients]![Nom] & [auditeurs]![nom] & [auditeurs]![Prénom]<>'""' and Facturation.Payé=No"
rs.open SQL, conn, 3, 3
do while not rs.eof
 
tf.WriteLine (rs("ID")&";"&rs("N°Facture")&";"&rs("cli")&rs("nom")&" "&rs("Prénom")&";"&Round(rs("Montant"),2)&";"&rs("adr")&";"&rs("cp")&";"&rs("com"))
 
rs.movenext
loop

J'ai développé des pages web qui puisent des informations dans le fichier .txt généré (montant, nom, prénom etc...) pour un paiment en ligne via Paybox. A l'origine, le montant dans ce fichier indiquait les 2 décimales après la virgule.
Suite à un crash du serveur cet été, le fichier n'est plus le même. il indique seulement les décimales si besoin, genre :
1000
512,4
45,12
et du coup mon code php foire... car paybox reçoit les infos suivantes :
1000 (soit 10 € au lieu de 1000) et 5124 (soit 51,24€).

J'ai tenté de multiplier par 100 les valeurs du fichier mais j'obtiens :
100000
51200
4500
mes décimales sont arrondies à 0 !

Y'a-t-il moyen d'utiliser une fonction PHP pour rétablir mes décimales ? Doit-on intervenir sur le script vbs qui génère le .txt ?

Merci infiniment de votre aide...
Et meilleurs voeux à tous les développeurs !!

[ePoX]

c'est plutot un probleme d'asp cela.
PHP ne vas pas reinventer des arrondis.
Il peut juste manipulé ce qui existe deja.

[Julien.alkaza]

Il faut modifier ton script (enfin, c'est pas le tien) vbs pour qu'il sorte forcément des nombres avec 2 chiffres après la virgule...

Mais ca ne sera pas dans ce forum là!!

[hisy]

Il faut sélectionner le champ montant avec un format, exemple :

Code :

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

1
2
3
4
5
 
 
SELECT ..., Format([nomTable.montant],"fixe",2), ....
FROM ...
WHERE ...

[LadyArwen]

OK, je vais essayer la fonction format et si ça ne fonctionne pas j'irai poster dans ASP.
Merci

[LadyArwen]

Bon je n'arrive pas à la faire fonctionner...
Je vais m'adresser au forum ASP !

Merci à tous !

[hisy]

JE comprend pas trop comment tu bascule du PHP à l'ASP comme ça ...

T'as quoi comme envirronnement ?

[LadyArwen]

Alors je vais détailler du début.
Au boulot ils ont une appli Access pour gérer les factures et tout le reste.
Ils ont mis en place un script (celui ci-dessus) qui génère un txt listant les noms, coordonnées, n° de facture, montant etc... des factures qui ne sont pas encore aquittées.
Un jour on m'a demandé si je pouvais mettre en place le paiement en ligne sur le site web en utilisant Paybox.
J'ai donc développé des formulaires en conséquence, en php puisque le site est en php. Mes pages puisent les infos dans le txt.
A l'origine le script générait des montants à 2 décimales, donc ça fonctionnait bien, puisque Paybox a besoin des montants en centimes sans la virgule (je me contentais d'afficher le montant à nos clients et de transférer à Paybox le même montant sans virgule).
Mais il y a eu des modifs de faites en mon absence et maintentant le txt (donc le script) zappe les zéros inutiles.
Du coup au lieu d'envoyer 1000€ à Paybox, on envoie 10€, eu lieu d'envoyer 321,40€ on envoie 32,14€...
Et comme ce développement n'est pas mon travail principal, juste un développement rapide, et que je suis déjà débordée, je n'ai pas envie de passer des heures sur le code (je pourrais tester le nb de chiffres derrière la virgule je suppose), je posais la question s'il y avait un moyen simple de rétablir la situation d'origine.

[hisy]

Ben j'en reviens à mon format ...

Soit tu formates le resultat de la rq comme indiqué plus haut.
Soit tu formates ou fait formater le champ montant dans la base access.

La personne qui a fait l'appli access en a pour 2 secondes à faire ça ...

Sinon, balance ca comme ca mais au lieu de faire x100 sur ton champ ce qui resoud rien à mon sens pourquoi ne pas faire

Code :

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

 un round($montant,2)

[hisy]

Code:
un round($montant,2)

Le "un" fait pas partie du code ...

[LadyArwen]

ok hisy je vais tester dans mes pages php pour voir comment ça se comporte.
La base Access je ne peux pas y toucher car elle sert à d'autres tâches.
La fonction Round(variable, 2) arrondit bien à 2 décimales (on vient de me le confirmer sur le forum ASP), alors je ne comprends pas pourquoi le txt zappe les zéros inutiles...
Je teste et je viens vous raconter

[LadyArwen]

bon bien

Code :

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

$montantdec=round($montant,2);

me vire mes décimales...
Est-ce que PHP préfère le point à la virgule peut être ?
Ou bien mon $montant serait-il considéré comme une chaine de caractères ?


De l'autre côté j'étais voir la base Access, le champ Montant est un réel double formatté à l'Euro. Le nombre de décimales était en auto, je l'ai mis à 2, mais ça ne change rien.
J'ai enlevé la fonction round du vbs pour récupérer ce qu'il y a vraiement dans la base et maintenant j'ai des montants :
259,163329303598 ou des entiers
dans le txt... et toujours des entiers dans le formulaire PHP !
Je ne comprends pas ce qu'il se passe... Pourquoi ces fonctions Round ne font pas leur boulot !

[LadyArwen]

Ca y est j'ai enfin des nouvelles du développeur du script !
Il m'a mis les sommes en centimes donc j'ai juste à les diviser par 100 pour l'affichage utilisateur et les laisser telles quelles pour Paybox.

C'était bien la virgule qui gênait, car maintenant il met un .

Merci à tous de votre aide.
Je mets résolu