|
| Débuté par benat64, 09 juin 2025 13:27 - 2 réponses |
| |
| | | |
|
| |
| Posté le 09 juin 2025 - 13:27 |
Bonjour,
Le code suivant ne fonctionne pas :
SI sJournal = "Carte SG" ALOR
MaChaîne = fLitLigne(gnFic)
SI gnFic <> -1 ALORS
TANTQUE MaChaîne<> EOT
nUnité = 0
Import.Journal = sJournal
Import.date = ChaîneVersDate(ExtraitChaîne(MaChaîne,1,";",DepuisDébut))
Import.Déscription = SansEspace(ExtraitChaîne(MaChaîne,2,";",DepuisDébut))
nUnité = Droite(SansEspace(ExtraitChaîne(MaChaîne,3,";",DepuisDébut)),10)
SI nUnité < 0 ALORS
Import.Débit = -nUnité
Import.Crédit = 0
SINON
Import.Crédit = nUnité
Import.Débit = 0
FIN
HAjoute(Import)
MaChaîne = fLitLigne(gnFic)
FIN
FIN
fFerme(gnFic)
FIN
sur le fichier :
"Nom : ";"MARIE LANDRE"
"Numéro Carte Pass : ";50003327171100
Date;Libellé;Montant;Mode;N°Carte
;;;;
30/05/2025;"PRELEV. ACHATS DIFF. SUR CPTE BANCAIRE";-829,01;Différé;•0000
14/05/2025;"ACHAT MARKET URT 196 1000";-23,80;Différé;•9976
07/05/2025;"ACHAT GARANTIES PASS";-2,50;Différé;•0000
05/05/2025;"ACHAT PAIN FL 8 03/05 1813";-8,35;Différé;•9976
05/05/2025;"PRELEVE SUR VOTRE COMPTE BANCAIRE BORDEAUX";182,00;Crédit;•0000
02/05/2025;"ACHAT GEMO 15 30/04 1637";-15,98;Différé;•9976
02/05/2025;"ACHAT INTERMA 44 30/04 0946";-44,62;Différé;•9976
02/05/2025;"ACHAT DELICES 4 30/04 1800";-4,05;Différé;•9976
02/05/2025;"ACHAT Action 17 30/04 1722";-17,68;Différé;•9976
30/04/2025;"ACHAT MARKET URT 196 1000";-53,59;Différé;•9976
28/04/2025;"ACHAT MARKET URT 196 1207";-39,54;Différé;•9976
28/04/2025;"ACHAT MARKET URT 196 1200";-32,48;Différé;•9976
28/04/2025;"ACHAT MARKET URT 196 0954";-29,62;Différé;•9976
25/04/2025;"ACHAT MARKET URT 196 1146";-45,49;Différé;•9976
25/04/2025;"ACHAT E.LECLE 126 24/04 1156";-126,95;Différé;•9976
25/04/2025;"ACHAT KUBATA 19 24/04 2001";-19,00;Différé;•9976
25/04/2025;"ACHAT JACQUES 9 24/04 1337";-9,00;Différé;•9976
25/04/2025;"ACHAT SELARL 49 24/04 1031";-49,04;Différé;•9976
25/04/2025;"ACHAT BIHOTZA 30 24/04 2014";-30,60;Différé;•9976
25/04/2025;"ACHAT DECATHL 14 24/04 1049";-14,99;Différé;•9976
25/04/2025;"ACHAT ESAN 41 24/04 1321";-41,80;Différé;•9976
23/04/2025;"ACHAT MARKET URT 196 1025";-56,21;Différé;•9976
23/04/2025;"ACHAT BOULANG 11 22/04 1224";-11,80;Différé;•9976
30/04/2025;"PRELEV. ACHATS DIFF. SUR CPTE BANCAIRE";-617,90;Différé;•0000
22/04/2025;"ACHAT MARKET URT 196 1215";-27,32;Différé;•9976
22/04/2025;"ACHAT FLUIDE GLACIAL 4 HS 1 NV";-19,90;Différé;•0000
22/04/2025;"ACHAT MARKET URT 196 0946";-68,64;Différé;•9976
22/04/2025;"ACHAT DELICES 28 20/04 1736";-28,90;Différé;•9976
19/04/2025;"ACHAT MARKET URT 196 1629";-79,71;Différé;•9976
15/04/2025;"ACHAT MARKET URT 196 1656";-14,00;Différé;•9976
10/04/2025;"ACHAT GARANTIES PASS";-2,50;Différé;•0000
05/04/2025;"PRELEVE SUR VOTRE COMPTE BANCAIRE BORDEAUX";182,00;Crédit;•0000
31/03/2025;"ACHAT MARKET URT 196 0945";-23,09;Différé;•9976
31/03/2025;"ACHAT BOULANG 10 30/03 1201";-10,80;Différé;•9976
31/03/2025;"ACHAT E.LECLE 50 29/03 1452";-50,50;Différé;•9976
28/03/2025;"ACHAT MARKET URT 196 1234";-34,06;Différé;•9976
27/03/2025;"ACHAT MARKET URT 196 1152";-61,70;Différé;•9976
27/03/2025;"ACHAT MARKET URT 196 1040";-38,27;Différé;•9976
27/03/2025;"ACHAT BOULANG 7 26/03 1048";-7,65;Différé;•9976
27/03/2025;"ACHAT BOULANG 16 26/03 1245";-16,00;Différé;•9976
si vous avez une idée, je suis preneur. |
| |
| |
| | | |
|
| | |
| |
| Posté le 07 juillet 2025 - 11:04 |
Bonjour, sans message d'erreur impossible de vous aider. A priori il n'y a pas d'erreur dans le code (quelques remarques tout de même : nUnite à controler si "extraitchaine" renvoie un numérique, pas de HRaz...) qui du reste est incomplet (Partie ouverture du fichier absente).
Cordialement |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
2 255 messages |
|
| Posté le 07 juillet 2025 - 21:49 |
gnFic = fOuvre("xxxxxxx.csv", foLecture)
SI gnFic <> -1 ALORS
MaChaîne = fLitLigne(gnFic) //on lit une ligne
Tanr que MaChaîne <> EOT //Tant que je ne suis pas à la fin du fichier
// Lecture des données
HAjoute(Import)
MaChaîne = fLitLigne(gnFic)
FIN
FIN
fFerme(gnFic)
PS : Pas de mise en forme ???
--
Bon dev,
Jean-Pierre |
| |
| |
| | | |
|
| | | | |
| | |
|