All Projects FPC fpcprojects fpprofilerfpGUI Lazarus Packages PatchesLazarus CCR Mantis pas2js

View Issue Details

Jump to NotesJump to History
IDProjectCategoryView StatusDate SubmittedLast Update
0038218FPCGeneralpublic2020-12-14 22:592021-01-02 17:53
Reporterms4@free.fr Assigned To 
PrioritynormalSeverityminorReproducibilityalways
Status feedbackResolutionopen 
Summary0038218: The TCSVDataset component do not want to use (;) instead of (,) when we modifie the CSVOptions.delimiter.
DescriptionIt is the same thing when we want to use StringGrid1.SaveToCSVFile(file.csv) or StringGrid1.LoadFromCSVFile(file.csv) .
TagsNo tags attached.
Fixed in Revision
FPCOldBugId
FPCTarget
Attached Files

Activities

ms4@free.fr

2020-12-14 22:59

reporter  

FB - 11-2020.csv (18,585 bytes)    
"Date";"Nature de l'op�ration";"D�bit";"Cr�dit";"Devise";"Date de valeur";"Libell� interbancaire"
"02/11/2020";"REMISE CB /31/10 R25796 CT3756471501";"";"25,91";"EUR";"02/11/2020";"FACTURES CARTES REMISES"
"";"BT        26,00E COM     0,09E";"";"";"";"";""
"02/11/2020";"VIR RECU    3380103688S";"";"150,00";"EUR";"02/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ARMOR PROTEINES SAS";"";"";"";"";""
"";"REF: 3000006181";"";"";"";"";""
"02/11/2020";"VIR RECU    3380308075S";"";"150,00";"EUR";"02/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL VAL D AUNIS IMMOBILIER";"";"";"";"";""
"";"MOTIF: FACT F002194";"";"";"";"";""
"";"REF: VU03042JP53VZS01";"";"";"";"";""
"02/11/2020";"REMISE CB /31/10 R30045 CT3756471501";"";"438,46";"EUR";"02/11/2020";"FACTURES CARTES REMISES"
"";"BT       440,00E COM     1,54E";"";"";"";"";""
"02/11/2020";"PRELEVEMENT EUROPEEN 2803630585";"-164,62";"";"EUR";"02/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: Orange";"";"";"";"";""
"";"ID: FR18ZZZ002305";"";"";"";"";""
"";"MOTIF: Votre abonnement fibre (facture: XX";"";"";"";"";""
"";"XXX4500H7) - P";"";"";"";"";""
"03/11/2020";"REMISE CB /03/11 R91413 CT3756471501";"";"143,06";"EUR";"03/11/2020";"FACTURES CARTES REMISES"
"";"BT       143,56E COM     0,50E";"";"";"";"";""
"03/11/2020";"REMISE CB /03/11 R95109 CT3756471501";"";"212,41";"EUR";"03/11/2020";"FACTURES CARTES REMISES"
"";"BT       213,16E COM     0,75E";"";"";"";"";""
"03/11/2020";"CIONS TENUE DE COMPTE";"-37,61";"";"EUR";"31/10/2020";"COMMISSIONS ET FRAIS DIVERS"
"";"AU 31/10/20 :";"";"";"";"";""
"";"-CION MOUVEMENT EUR       37,61";"";"";"";"";""
"";"AU DELA DU SEUIL JAZZ PRO";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-914,70";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: SCI ARCHIPEL";"";"";"";"";""
"";"REF: 9030846883247";"";"";"";"";""
"";"REMISE: NEOPC loyer Novembre 2020";"";"";"";"";""
"";"MOTIF: NEOPC loyer Novembre 2020";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 642,23";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: anthony renaud";"";"";"";"";""
"";"REF: 9030846884964";"";"";"";"";""
"";"REMISE: salaire octobre 2020";"";"";"";"";""
"";"MOTIF: salaire octobre 2020";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 730,97";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: SUIRE MANU";"";"";"";"";""
"";"REF: 9030846884309";"";"";"";"";""
"";"REMISE: salaire octobre 2020";"";"";"";"";""
"";"MOTIF: salaire octobre 2020";"";"";"";"";""
"03/11/2020";"DEBIT MENSUEL CARTE BLEUE VISA X2986";"-8 312,70";"";"EUR";"03/11/2020";"FACTURES CARTES PAYEES"
"04/11/2020";"REMISE CB /04/11 R65703 CT3756471501";"";"180,48";"EUR";"04/11/2020";"FACTURES CARTES REMISES"
"";"BT       181,11E COM     0,63E";"";"";"";"";""
"04/11/2020";"REMISE CB /04/11 R70461 CT3756471501";"";"362,73";"EUR";"04/11/2020";"FACTURES CARTES REMISES"
"";"BT       364,00E COM     1,27E";"";"";"";"";""
"04/11/2020";"CHEQUE     626";"-144,00";"";"EUR";"03/11/2020";"CHEQUES PAYES"
"05/11/2020";"VIR RECU    3686719200S";"";"62,50";"EUR";"05/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ACCES SAP";"";"";"";"";""
"";"MOTIF: ACCES SAP 227B1158717";"";"";"";"";""
"";"REF: SOGEFRPPXXX/2020-11-05";"";"";"";"";""
"05/11/2020";"REMISE CB /05/11 R47306 CT3756471501";"";"84,92";"EUR";"05/11/2020";"FACTURES CARTES REMISES"
"";"BT        85,22E COM     0,30E";"";"";"";"";""
"05/11/2020";"REMISE CB /05/11 R52180 CT3756471501";"";"2 089,31";"EUR";"05/11/2020";"FACTURES CARTES REMISES"
"";"BT      2096,65E COM     7,34E";"";"";"";"";""
"05/11/2020";"PRELEVEMENT EUROPEEN 3507150818";"-115,14";"";"EUR";"05/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: MUTUELLE DE POITIERS ASSURANCES";"";"";"";"";""
"";"ID: FR84YYY381357";"";"";"";"";""
"";"MOTIF: 20201105MUTUELLE DE PO027832620";"";"";"";"";""
"";"REF: F23D334ADFFE419AA288EB7719E014EA";"";"";"";"";""
"05/11/2020";"CHEQUE     629";"-167,00";"";"EUR";"04/11/2020";"CHEQUES PAYES"
"06/11/2020";"REMISE CB /06/11 R36242 CT3756471501";"";"18,93";"EUR";"06/11/2020";"FACTURES CARTES REMISES"
"";"BT        19,00E COM     0,07E";"";"";"";"";""
"06/11/2020";"VIR RECU    3791955523S";"";"118,00";"EUR";"06/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  THIONNET SERVICE INDUSTRIE";"";"";"";"";""
"";"MOTIF: F000937 / F001709";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003613 311";"";"129,00";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    2 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003614 311";"";"200,00";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    2 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CB /06/11 R42786 CT3756471501";"";"255,10";"EUR";"06/11/2020";"FACTURES CARTES REMISES"
"";"BT       256,00E COM     0,90E";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003612 311";"";"1 270,30";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    4 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003615 311";"";"1 443,89";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    7 CHQ 01735";"";"";"";"";""
"09/11/2020";"REMISE CB /08/11 R90216 CT3756471501";"";"59,79";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT        60,00E COM     0,21E";"";"";"";"";""
"09/11/2020";"REMISE CB /07/11 R26256 CT3756471501";"";"152,52";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT       153,06E COM     0,54E";"";"";"";"";""
"09/11/2020";"REMISE CB /07/11 R21692 CT3756471501";"";"168,61";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT       169,20E COM     0,59E";"";"";"";"";""
"09/11/2020";"PRELEVEMENT EUROPEEN 3612262513";"-184,53";"";"EUR";"09/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: EDF";"";"";"";"";""
"";"ID: FR47EDF001007";"";"";"";"";""
"";"MOTIF: NEOPC                    Ref EDF:00";"";"";"";"";""
"";"1100845144 RUM:++MA1101146271 ? 202";"";"";"";"";""
"09/11/2020";"RELEVE LCR DOMICIL NO 00830913 AU 09/11";"-303,02";"";"EUR";"08/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"09/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-3 068,61";"";"EUR";"09/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: WESTCOAST";"";"";"";"";""
"";"REF: 9031448958623";"";"";"";"";""
"";"REMISE: S387697 commande NEOPC";"";"";"";"";""
"";"MOTIF: S387697 commande NEOPC";"";"";"";"";""
"10/11/2020";"REMISE CB /10/11 R90277 CT3756471501";"";"27,90";"EUR";"10/11/2020";"FACTURES CARTES REMISES"
"";"BT        28,00E COM     0,10E";"";"";"";"";""
"10/11/2020";"VIR INST REC 081419000649";"";"107,00";"EUR";"09/11/2020";""
"";"DE: JEAN-MARIE DESBROUSSES";"";"";"";"";""
"";"DATE: 09/11/2020 18:16";"";"";"";"";""
"";"MOTIF: JEAN-MARIE DESBROUSSES 107 fact F00";"";"";"";"";""
"";"2326";"";"";"";"";""
"10/11/2020";"REMISE CB /10/11 R94690 CT3756471501";"";"298,21";"EUR";"10/11/2020";"FACTURES CARTES REMISES"
"";"BT       299,26E COM     1,05E";"";"";"";"";""
"10/11/2020";"PRELEVEMENT EUROPEEN 3715581626";"-240,01";"";"EUR";"10/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: STECO";"";"";"";"";""
"";"ID: FR29ZZZ587308";"";"";"";"";""
"";"MOTIF: STE GENERALE  30003-01735";"";"";"";"";""
"";"REF: STE GENERALE  30003-01735";"";"";"";"";""
"11/11/2020";"VIR RECU    4187028543S";"";"69,00";"EUR";"11/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SM CYCLAD";"";"";"";"";""
"";"MOTIF: FACT F002255CORDON SVGA NOVEMBRE 20";"";"";"";"";""
"";"20SM CYCLAD";"";"";"";"";""
"11/11/2020";"REMISE CB /11/11 R67228 CT3756471501";"";"139,44";"EUR";"11/11/2020";"FACTURES CARTES REMISES"
"";"BT       139,93E COM     0,49E";"";"";"";"";""
"11/11/2020";"VIR RECU    4187028641S";"";"224,00";"EUR";"11/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT GEORGES DU BOIS";"";"";"";"";""
"";"MOTIF: F002173 23102020 MAIR0007SAINT GEOR";"";"";"";"";""
"";"GES DU BOIS";"";"";"";"";""
"11/11/2020";"REMISE CB /11/11 R71565 CT3756471501";"";"816,14";"EUR";"11/11/2020";"FACTURES CARTES REMISES"
"";"BT       819,01E COM     2,87E";"";"";"";"";""
"11/11/2020";"RELEVE LCR DOMICIL NO 00226697 AU 11/11";"-1 830,00";"";"EUR";"10/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"12/11/2020";"VIR RECU    4383197481S";"";"979,47";"EUR";"12/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  LES ARTISANS DE L' EBENE";"";"";"";"";""
"";"MOTIF: FACTURE N F002172 du 23102020";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"12/11/2020";"VERSEMENT EXPRESS 2123877641";"";"1 170,00";"EUR";"12/11/2020";"VERSEMENTS ESPECES"
"12/11/2020";"RELEVE LCR DOMICIL NO 00375542 AU 12/11";"-672,47";"";"EUR";"11/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"13/11/2020";"REMISE CB /13/11 R05667 CT3756471501";"";"64,90";"EUR";"13/11/2020";"FACTURES CARTES REMISES"
"";"BT        65,13E COM     0,23E";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003617 318";"";"805,00";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    6 CHQ 01735";"";"";"";"";""
"13/11/2020";"REMISE CB /13/11 R10796 CT3756471501";"";"1 011,09";"EUR";"13/11/2020";"FACTURES CARTES REMISES"
"";"BT      1014,64E COM     3,55E";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003616 318";"";"1 166,76";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003618 318";"";"1 435,28";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"16/11/2020";"REMISE CB /14/11 R91708 CT3756471501";"";"74,32";"EUR";"16/11/2020";"FACTURES CARTES REMISES"
"";"BT        74,58E COM     0,26E";"";"";"";"";""
"16/11/2020";"REMISE CB /14/11 R96766 CT3756471501";"";"268,21";"EUR";"16/11/2020";"FACTURES CARTES REMISES"
"";"BT       269,15E COM     0,94E";"";"";"";"";""
"16/11/2020";"RELEVE LCR DOMICIL NO 02567348 AU 16/11";"-759,00";"";"EUR";"15/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"17/11/2020";"REMISE CB /17/11 R64561 CT3756471501";"";"162,02";"EUR";"17/11/2020";"FACTURES CARTES REMISES"
"";"BT       162,59E COM     0,57E";"";"";"";"";""
"17/11/2020";"REMISE CB /17/11 R68980 CT3756471501";"";"165,46";"EUR";"17/11/2020";"FACTURES CARTES REMISES"
"";"BT       166,04E COM     0,58E";"";"";"";"";""
"17/11/2020";"PRELEVEMENT EUROPEEN 4706559502";"-1 104,00";"";"EUR";"17/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: URSSAF DU POITOU-CHARENTES";"";"";"";"";""
"";"ID: FR39ZZZ196509";"";"";"";"";""
"";"MOTIF: UR 547000001302146959    OCT 207536";"";"";"";"";""
"";"44152000161120";"";"";"";"";""
"18/11/2020";"VIR RECU    4886337699S";"";"41,40";"EUR";"18/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: UNITED PARCEL SERVICE FRANCE SAS";"";"";"";"";""
"";"MOTIF: U7272391220201001,2020-10-31,41.4,4";"";"";"";"";""
"";"1.4";"";"";"";"";""
"";"REF: 9192441-1605FSA1";"";"";"";"";""
"18/11/2020";"REMISE CB /18/11 R40039 CT3756471501";"";"103,44";"EUR";"18/11/2020";"FACTURES CARTES REMISES"
"";"BT       103,80E COM     0,36E";"";"";"";"";""
"18/11/2020";"REMISE CB /18/11 R44919 CT3756471501";"";"431,22";"EUR";"18/11/2020";"FACTURES CARTES REMISES"
"";"BT       432,73E COM     1,51E";"";"";"";"";""
"18/11/2020";"PRELEVEMENT EUROPEEN 4807923710";"-2,00";"";"EUR";"18/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: FREE MOBILE";"";"";"";"";""
"";"ID: FR07ZZZ591778";"";"";"";"";""
"";"REF: fmpmt-1270922609";"";"";"";"";""
"";"MANDAT FM-40430998-1";"";"";"";"";""
"18/11/2020";"COTIS JAZZPRO REDUC JAZZ-20%";"-32,51";"";"EUR";"17/11/2020";"COMMISSIONS ET FRAIS DIVERS"
"";"MONTANT NT  :    22,25 EUR";"";"";"";"";""
"";"MONTANT HT  :     8,55 EUR";"";"";"";"";""
"";"TVA A 20,00%:     1,71 EUR";"";"";"";"";""
"18/11/2020";"RELEVE LCR DOMICIL NO 00268348 AU 18/11";"-2 242,03";"";"EUR";"17/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"19/11/2020";"REMISE CB /19/11 R21993 CT3756471501";"";"70,30";"EUR";"19/11/2020";"FACTURES CARTES REMISES"
"";"BT        70,55E COM     0,25E";"";"";"";"";""
"19/11/2020";"REMISE CB /19/11 R26781 CT3756471501";"";"878,53";"EUR";"19/11/2020";"FACTURES CARTES REMISES"
"";"BT       881,62E COM     3,09E";"";"";"";"";""
"19/11/2020";"RELEVE LCR DOMICIL NO 00353852 AU 19/11";"-516,85";"";"EUR";"18/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"20/11/2020";"VIR RECU    5085495918S";"";"49,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT-PIERRE-LA-NOUE";"";"";"";"";""
"";"MOTIF: facture nc F002030 du 06/10/2020SAI";"";"";"";"";""
"";"NT-PIERRE-LA-NOUE";"";"";"";"";""
"20/11/2020";"REMISE CB /20/11 R07923 CT3756471501";"";"56,80";"EUR";"20/11/2020";"FACTURES CARTES REMISES"
"";"BT        57,00E COM     0,20E";"";"";"";"";""
"20/11/2020";"REMISE CB /20/11 R13081 CT3756471501";"";"59,79";"EUR";"20/11/2020";"FACTURES CARTES REMISES"
"";"BT        60,00E COM     0,21E";"";"";"";"";""
"20/11/2020";"VIR RECU    5181165941S";"";"99,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ELECTRICITE POMPAGE MAINTENANCE";"";"";"";"";""
"";"MOTIF: REGLEMENT EPM";"";"";"";"";""
"";"REF: F002423";"";"";"";"";""
"20/11/2020";"VIR RECU    5085495927S";"";"649,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: COMMUNE DE MARSAIS -";"";"";"";"";""
"";"MOTIF: FACTURE F002053 DU 08/10/2020COMMUN";"";"";"";"";""
"";"E DE MARSAIS -";"";"";"";"";""
"20/11/2020";"VERSEMENT EXPRESS 2123877645";"";"700,00";"EUR";"20/11/2020";"VERSEMENTS ESPECES"
"23/11/2020";"REMISE CB /21/11 R91839 CT3756471501";"";"126,03";"EUR";"23/11/2020";"FACTURES CARTES REMISES"
"";"BT       126,47E COM     0,44E";"";"";"";"";""
"23/11/2020";"REMISE CB /21/11 R96862 CT3756471501";"";"162,43";"EUR";"23/11/2020";"FACTURES CARTES REMISES"
"";"BT       163,00E COM     0,57E";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003621 328";"";"198,34";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    3 CHQ 01735";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003619 328";"";"819,00";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    4 CHQ 01735";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003620 328";"";"1 397,07";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"23/11/2020";"PRLV EUROPEEN B2B    5010103394";"-5 260,00";"";"EUR";"23/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"POUR CPTE DE:DGFIP IMPOT";"";"";"";"";""
"";"ID: FR46ZZZ005002";"";"";"";"";""
"";"MOTIF: TVA-112020-3310CA3";"";"";"";"";""
"";"REF: 220170510700088267904";"";"";"";"";""
"24/11/2020";"REMISE CB /24/11 R63920 CT3756471501";"";"82,41";"EUR";"24/11/2020";"FACTURES CARTES REMISES"
"";"BT        82,70E COM     0,29E";"";"";"";"";""
"24/11/2020";"REMISE CB /24/11 R68162 CT3756471501";"";"1 025,73";"EUR";"24/11/2020";"FACTURES CARTES REMISES"
"";"BT      1029,33E COM     3,60E";"";"";"";"";""
"24/11/2020";"RELEVE LCR DOMICIL NO 00384351 AU 24/11";"-5,99";"";"EUR";"23/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"24/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-30,05";"";"EUR";"24/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: INSEPRO";"";"";"";"";""
"";"REF: 9032953171174";"";"";"";"";""
"";"REMISE: FC20-08894 NEOPC";"";"";"";"";""
"";"MOTIF: FC20-08894 NEOPC";"";"";"";"";""
"24/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 080,00";"";"EUR";"24/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: ARESCOP NATIONALE";"";"";"";"";""
"";"REF: 9032953169664";"";"";"";"";""
"";"REMISE: ARE3279 - 00852900";"";"";"";"";""
"";"MOTIF: ARE3279 - 00852900";"";"";"";"";""
"25/11/2020";"REMISE CB /25/11 R42055 CT3756471501";"";"63,37";"EUR";"25/11/2020";"FACTURES CARTES REMISES"
"";"BT        63,59E COM     0,22E";"";"";"";"";""
"25/11/2020";"REMISE CB /25/11 R47148 CT3756471501";"";"355,75";"EUR";"25/11/2020";"FACTURES CARTES REMISES"
"";"BT       357,00E COM     1,25E";"";"";"";"";""
"25/11/2020";"PRELEVEMENT EUROPEEN 5503298434";"-269,36";"";"EUR";"25/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: MALAKOFF HUMANIS";"";"";"";"";""
"";"ID: FR14ZZZ85F970";"";"";"";"";""
"";"MOTIF: RETRAITE - MALAKOFF HUMANIS - 20201";"";"";"";"";""
"";"0M - SIRET 51024943600021 -AG081000";"";"";"";"";""
"26/11/2020";"REMISE CB /26/11 R22656 CT3756471501";"";"36,87";"EUR";"26/11/2020";"FACTURES CARTES REMISES"
"";"BT        37,00E COM     0,13E";"";"";"";"";""
"26/11/2020";"VIR RECU    5688578071S";"";"51,00";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: DDFIP CHARENTE MARITIME";"";"";"";"";""
"";"DE: E.N.I.L.I.A. - E.N.S.M.I.C";"";"";"";"";""
"";"MOTIF: F002363";"";"";"";"";""
"";"REF: 1D0170000055F002363/20";"";"";"";"";""
"26/11/2020";"VIR RECU    5695333250S";"";"141,30";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  RE UNIS";"";"";"";"";""
"";"MOTIF: fact 002456";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"26/11/2020";"VIR RECU    5693429606S";"";"266,00";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT GEORGES DU BOIS";"";"";"";"";""
"";"MOTIF: F002428 19112020 MAIR0007SAINT GEOR";"";"";"";"";""
"";"GES DU BOIS";"";"";"";"";""
"26/11/2020";"REMISE CB /26/11 R28228 CT3756471501";"";"1 572,72";"EUR";"26/11/2020";"FACTURES CARTES REMISES"
"";"BT      1578,24E COM     5,52E";"";"";"";"";""
"27/11/2020";"REMISE CB /27/11 R09504 CT3756471501";"";"23,51";"EUR";"27/11/2020";"FACTURES CARTES REMISES"
"";"BT        23,59E COM     0,08E";"";"";"";"";""
"27/11/2020";"REMISE CB /27/11 R15324 CT3756471501";"";"1 620,84";"EUR";"27/11/2020";"FACTURES CARTES REMISES"
"";"BT      1626,53E COM     5,69E";"";"";"";"";""
"27/11/2020";"RELEVE LCR DOMICIL NO 00411070 AU 27/11";"-3 077,16";"";"EUR";"26/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"30/11/2020";"REMISE CB /28/11 R94837 CT3756471501";"";"120,45";"EUR";"30/11/2020";"FACTURES CARTES REMISES"
"";"BT       120,87E COM     0,42E";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003622 335";"";"160,00";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    1 CHQ 01735";"";"";"";"";""
"30/11/2020";"VIR RECU    6180288052S";"";"300,00";"EUR";"30/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ARMOR PROTEINES SAS";"";"";"";"";""
"";"REF: 3000006932";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003625 335";"";"581,68";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    7 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003624 335";"";"622,48";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003623 335";"";"783,58";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    3 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CB /28/11 R99244 CT3756471501";"";"1 537,60";"EUR";"30/11/2020";"FACTURES CARTES REMISES"
"";"BT      1543,00E COM     5,40E";"";"";"";"";""
"30/11/2020";"RELEVE LCR DOMICIL NO 07356508 AU 30/11";"-1 034,98";"";"EUR";"29/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
FB - 11-2020.csv (18,585 bytes)   
TransFeuilleBank.ico (137,040 bytes)   
TransFeuilleBank.ico (137,040 bytes)   
TransFeuilleBank.lpi (2,396 bytes)    
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectOptions>
    <Version Value="11"/>
    <PathDelim Value="\"/>
    <General>
      <SessionStorage Value="InProjectDir"/>
      <MainUnit Value="0"/>
      <Title Value="TransFeuilleBank"/>
      <Scaled Value="True"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
      <XPManifest>
        <DpiAware Value="True"/>
      </XPManifest>
      <Icon Value="0"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <UseFileFilters Value="True"/>
    </PublishOptions>
    <RunParams>
      <FormatVersion Value="2"/>
      <Modes Count="0"/>
    </RunParams>
    <RequiredPackages Count="5">
      <Item1>
        <PackageName Value="TurboPowerIPro"/>
      </Item1>
      <Item2>
        <PackageName Value="SynEdit"/>
      </Item2>
      <Item3>
        <PackageName Value="SDFLaz"/>
      </Item3>
      <Item4>
        <PackageName Value="FCL"/>
      </Item4>
      <Item5>
        <PackageName Value="LCL"/>
      </Item5>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="TransFeuilleBank.lpr"/>
        <IsPartOfProject Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="verscsv.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="VersCSV"/>
      </Unit1>
    </Units>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Target>
      <Filename Value="TransFeuilleBank"/>
    </Target>
    <SearchPaths>
      <IncludeFiles Value="$(ProjOutDir)"/>
      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    </SearchPaths>
    <Linking>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="3">
      <Item1>
        <Name Value="EAbort"/>
      </Item1>
      <Item2>
        <Name Value="ECodetoolError"/>
      </Item2>
      <Item3>
        <Name Value="EFOpenError"/>
      </Item3>
    </Exceptions>
  </Debugging>
</CONFIG>
TransFeuilleBank.lpi (2,396 bytes)   
TransFeuilleBank.lpr (427 bytes)    
program TransFeuilleBank;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, sdflaz, VersCSV
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
TransFeuilleBank.lpr (427 bytes)   
TransFeuilleBank.lps (5,323 bytes)    
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="11"/>
    <BuildModes Active="Default"/>
    <Units Count="3">
      <Unit0>
        <Filename Value="TransFeuilleBank.lpr"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="2"/>
        <CursorPos Y="20"/>
        <UsageCount Value="57"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="verscsv.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="VersCSV"/>
        <IsVisibleTab Value="True"/>
        <TopLine Value="98"/>
        <CursorPos X="38" Y="125"/>
        <UsageCount Value="57"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="C:\lazarus\lcl\grids.pas"/>
        <UnitName Value="Grids"/>
        <EditorIndex Value="1"/>
        <TopLine Value="9928"/>
        <CursorPos Y="9942"/>
        <UsageCount Value="14"/>
        <Loaded Value="True"/>
      </Unit2>
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="verscsv.pas"/>
        <Caret Line="102" Column="74" TopLine="82"/>
      </Position1>
      <Position2>
        <Filename Value="verscsv.pas"/>
        <Caret Line="103" Column="11" TopLine="82"/>
      </Position2>
      <Position3>
        <Filename Value="verscsv.pas"/>
        <Caret Line="100" TopLine="82"/>
      </Position3>
      <Position4>
        <Filename Value="verscsv.pas"/>
        <Caret Line="104" TopLine="82"/>
      </Position4>
      <Position5>
        <Filename Value="verscsv.pas"/>
        <Caret Line="45" TopLine="45"/>
      </Position5>
      <Position6>
        <Filename Value="verscsv.pas"/>
        <Caret Line="46" TopLine="46"/>
      </Position6>
      <Position7>
        <Filename Value="verscsv.pas"/>
        <Caret Line="47" TopLine="47"/>
      </Position7>
      <Position8>
        <Filename Value="verscsv.pas"/>
        <Caret Line="46" TopLine="46"/>
      </Position8>
      <Position9>
        <Filename Value="verscsv.pas"/>
        <Caret Line="47" TopLine="47"/>
      </Position9>
      <Position10>
        <Filename Value="verscsv.pas"/>
        <Caret Line="19" Column="94"/>
      </Position10>
      <Position11>
        <Filename Value="verscsv.pas"/>
        <Caret Line="17" Column="54"/>
      </Position11>
      <Position12>
        <Filename Value="verscsv.pas"/>
        <Caret Line="73" Column="71" TopLine="65"/>
      </Position12>
      <Position13>
        <Filename Value="verscsv.pas"/>
        <Caret Line="103" Column="26" TopLine="82"/>
      </Position13>
      <Position14>
        <Filename Value="verscsv.pas"/>
        <Caret Line="14" Column="23"/>
      </Position14>
      <Position15>
        <Filename Value="verscsv.pas"/>
        <Caret Line="62" Column="20" TopLine="49"/>
      </Position15>
      <Position16>
        <Filename Value="verscsv.pas"/>
        <Caret Line="110" Column="9" TopLine="86"/>
      </Position16>
      <Position17>
        <Filename Value="verscsv.pas"/>
        <Caret Line="146" Column="63" TopLine="55"/>
      </Position17>
      <Position18>
        <Filename Value="verscsv.pas"/>
        <Caret Line="154" Column="71" TopLine="132"/>
      </Position18>
      <Position19>
        <Filename Value="verscsv.pas"/>
        <Caret Line="155" Column="74" TopLine="132"/>
      </Position19>
      <Position20>
        <Filename Value="verscsv.pas"/>
        <Caret Line="129" TopLine="107"/>
      </Position20>
      <Position21>
        <Filename Value="verscsv.pas"/>
        <Caret Line="134" Column="65" TopLine="107"/>
      </Position21>
      <Position22>
        <Filename Value="verscsv.pas"/>
        <Caret Line="130" TopLine="107"/>
      </Position22>
      <Position23>
        <Filename Value="verscsv.pas"/>
        <Caret Line="131" TopLine="108"/>
      </Position23>
      <Position24>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position24>
      <Position25>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position25>
      <Position26>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position26>
      <Position27>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position27>
      <Position28>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position28>
      <Position29>
        <Filename Value="verscsv.pas"/>
        <Caret Line="137" Column="6" TopLine="114"/>
      </Position29>
      <Position30>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position30>
    </JumpHistory>
    <RunParams>
      <FormatVersion Value="2"/>
      <Modes Count="0" ActiveMode=""/>
    </RunParams>
  </ProjectSession>
</CONFIG>
TransFeuilleBank.lps (5,323 bytes)   
TransFeuilleBank.res (139,052 bytes)
verscsv.lfm (4,764 bytes)    
object Form1: TForm1
  Left = 1046
  Height = 531
  Top = 134
  Width = 836
  Caption = 'Visu Fichier CSV'
  ClientHeight = 531
  ClientWidth = 836
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '2.0.10.0'
  object Edit1: TEdit
    Left = 16
    Height = 23
    Top = 55
    Width = 648
    AutoSize = False
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 19
    Height = 15
    Top = 40
    Width = 144
    Caption = 'Nom du fichier à consulter:'
    ParentColor = False
  end
  object Button1: TButton
    Left = 624
    Height = 24
    Top = 88
    Width = 130
    Caption = 'Commissions cartes'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 16
    Height = 57
    Top = 88
    Width = 382
    ScrollBars = ssAutoBoth
    TabOrder = 2
  end
  object Button2: TButton
    Left = 664
    Height = 25
    Top = 54
    Width = 91
    Caption = 'Parcourir'
    OnClick = Button2Click
    TabOrder = 3
  end
  object Label2: TLabel
    Left = 19
    Height = 15
    Top = 0
    Width = 127
    Caption = 'Mois en cours de saisie :'
    ParentColor = False
  end
  object ComboBox1: TComboBox
    Left = 16
    Height = 23
    Top = 16
    Width = 191
    ItemHeight = 15
    Items.Strings = (
      'JANVIER'
      'FEVRIER'
      'MARS'
      'AVRIL'
      'MAI'
      'JUIN'
      'JUILLET'
      'SEPTEMBRE'
      'OCTOBRE'
      'NOVEMBRE'
      'DECEMBRE'
    )
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 0
    Height = 291
    Top = 240
    Width = 836
    Align = alBottom
    ClientHeight = 291
    ClientWidth = 836
    TabOrder = 5
    object StringGrid1: TStringGrid
      Left = 1
      Height = 289
      Top = 1
      Width = 834
      Align = alClient
      AutoFillColumns = True
      ColCount = 7
      Columns = <      
        item
          Title.Caption = 'Date'
          Width = 119
        end      
        item
          Font.CharSet = 4
          Title.Caption = 'Nature de l''opération'
          Width = 119
        end      
        item
          Title.Caption = 'Débit'
          Width = 119
        end      
        item
          Title.Caption = 'Crédit'
          Width = 119
        end      
        item
          Title.Caption = 'Devise'
          Width = 119
        end      
        item
          Title.Caption = 'Date de valeur'
          Width = 119
        end      
        item
          Title.Caption = 'Libellé interbancaire'
          Width = 119
        end>
      FixedCols = 0
      Flat = True
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goAlwaysShowEditor, goDblClickAutoSize, goSmoothScroll]
      TabOrder = 0
      ColWidths = (
        119
        119
        119
        119
        119
        119
        119
      )
    end
  end
  object Button3: TButton
    Left = 408
    Height = 21
    Top = 88
    Width = 89
    Caption = 'Button3'
    OnClick = Button3Click
    TabOrder = 6
  end
  object ComboBox2: TComboBox
    Left = 561
    Height = 23
    Top = 125
    Width = 272
    ItemHeight = 15
    Items.Strings = (
      'PRELEVEMENT EUROPEEN'
      'TENUE DE COMPTE'
      'VIR EUROPEEN EMIS'
      'DEBIT MENSUEL CARTE BLEUE VISA'
      'CHEQUE'
      'RELEVE LCR DOMICIL'
      'VERSEMENT EXPRESS'
      'VIR RECU'
    )
    TabOrder = 7
  end
  object DataSource1: TDataSource
    DataSet = CSVDataset1
    Left = 224
    Top = 8
  end
  object CSVDataset1: TCSVDataset
    PacketRecords = 1
    UniDirectional = True
    FieldDefs = <    
      item
        Name = 'Date'
        DataType = ftDate
      end    
      item
        Name = 'Nature de l''opération'
        DataType = ftString
      end    
      item
        Name = 'Débit'
        DataType = ftString
      end    
      item
        Name = 'Crédit'
        DataType = ftString
      end    
      item
        Name = 'Devise'
        DataType = ftString
      end    
      item
        Name = 'Date de valeur'
        DataType = ftDate
      end    
      item
        Name = 'Libellé interbancaire'
        DataType = ftString
      end>
    AutoCalcFields = False
    CSVOptions.FirstLineAsFieldNames = False
    CSVOptions.DefaultFieldLength = 255
    CSVOptions.Delimiter = ';'
    CSVOptions.QuoteChar = '"'
    CSVOptions.LineEnding = 'CRLF'
    CSVOptions.IgnoreOuterWhitespace = True
    CSVOptions.QuoteOuterWhitespace = False
    Left = 296
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 728
    Top = 8
  end
end
verscsv.lfm (4,764 bytes)   
verscsv.pas (3,421 bytes)    
unit VersCSV;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, csvdataset, SdfData, Forms, Controls, Graphics,
  Dialogs, StdCtrls, EditBtn, ExtCtrls, DBGrids, Grids, SynHighlighterTeX,
  Ipfilebroker;

type

  { TForm1 }
  TypeMois = (JANVIER=1,FEVRIER,MARS,AVRIL,MAI,JUIN,JUILLET,AOUT,SEPTEMBRE,OCTOBRE,NOVEMBRE,DECEMBRE);

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CSVDataset1: TCSVDataset;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo2: TMemo;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);




  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
 



{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
    Stg:String;
    Fichier,com, com1:String;
    Mois : TypeMois;
    Debut, fin, nbcartes : Integer;
    long : Single;
begin
   Fichier := Edit1.text;
   if not FileExists(Fichier) then exit;
   AssignFile(F,Fichier);
   Reset(F);

   Memo2.Lines.Clear;
   long := 0;
   nbcartes :=0;
   While not Eof(F) do
         begin
              Readln(F,Stg);

              if Pos('COM ',Stg)>0 then
                 begin
                 Debut:= Pos('COM',Stg);
                 fin :=  Pos('E"',Stg);
                 com1 :=Copy(Stg,Debut +3,(fin - Debut)-3);
                 com := TrimLeft(com1);
                 //Memo1.Lines.Add(com);
                 long := long + StrtoFloat(com);
                 inc(nbcartes);
                 end;

         end;
   Memo2.lines. add( InttoStr(nbcartes) +' remises de cartes bancaires pour le mois de '+ComboBox1.Text+' .');
   Memo2.lines. add('Commisions : ' + FloattostrF(long, ffFixed, 4,2) + ' €uros' );

   CloseFile(F);




end;

procedure TForm1.Button2Click(Sender: TObject);

begin
   if not(ComboBox1.Text = '') then
      begin
           If OpenDialog1.Execute then Edit1.Text:= OpenDialog1.FileName
      end
      else     ShowMessage('Vous devez préciser le mois de saisie !' );

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   CSVDataset1.Active:=False;
   CSVDataset1.CSVOptions.Delimiter := ';';
   CSVDataset1.Active:=True;
   StringGrid1.SaveToCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
     //CSVDataset1.SaveToCSVFile(GetCurrentDir+'\EcritBanque.csv');
     //CSVDataset1.Close;
   //CSVDataset1.Active:=True;
   //CSVDataset1.CSVOptions.Delimiter := ';';
   //StringGrid1.SaveToCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    //CSVDataset1.LoadFromCSVFile(GetCurrentDir+'\EcritBanque.csv');
    //CSVDataset1.Open;
   //showmessage(  GetCurrentDir+'\FB - 11-2020.csv)
   //CSVDataset1.Active:=True;
   //CSVDataset1.CSVOptions.Delimiter := ';';
   StringGrid1.LoadFromCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));
end;

end.
verscsv.pas (3,421 bytes)   
FB - 11-2020-2.csv (18,585 bytes)    
"Date";"Nature de l'op�ration";"D�bit";"Cr�dit";"Devise";"Date de valeur";"Libell� interbancaire"
"02/11/2020";"REMISE CB /31/10 R25796 CT3756471501";"";"25,91";"EUR";"02/11/2020";"FACTURES CARTES REMISES"
"";"BT        26,00E COM     0,09E";"";"";"";"";""
"02/11/2020";"VIR RECU    3380103688S";"";"150,00";"EUR";"02/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ARMOR PROTEINES SAS";"";"";"";"";""
"";"REF: 3000006181";"";"";"";"";""
"02/11/2020";"VIR RECU    3380308075S";"";"150,00";"EUR";"02/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL VAL D AUNIS IMMOBILIER";"";"";"";"";""
"";"MOTIF: FACT F002194";"";"";"";"";""
"";"REF: VU03042JP53VZS01";"";"";"";"";""
"02/11/2020";"REMISE CB /31/10 R30045 CT3756471501";"";"438,46";"EUR";"02/11/2020";"FACTURES CARTES REMISES"
"";"BT       440,00E COM     1,54E";"";"";"";"";""
"02/11/2020";"PRELEVEMENT EUROPEEN 2803630585";"-164,62";"";"EUR";"02/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: Orange";"";"";"";"";""
"";"ID: FR18ZZZ002305";"";"";"";"";""
"";"MOTIF: Votre abonnement fibre (facture: XX";"";"";"";"";""
"";"XXX4500H7) - P";"";"";"";"";""
"03/11/2020";"REMISE CB /03/11 R91413 CT3756471501";"";"143,06";"EUR";"03/11/2020";"FACTURES CARTES REMISES"
"";"BT       143,56E COM     0,50E";"";"";"";"";""
"03/11/2020";"REMISE CB /03/11 R95109 CT3756471501";"";"212,41";"EUR";"03/11/2020";"FACTURES CARTES REMISES"
"";"BT       213,16E COM     0,75E";"";"";"";"";""
"03/11/2020";"CIONS TENUE DE COMPTE";"-37,61";"";"EUR";"31/10/2020";"COMMISSIONS ET FRAIS DIVERS"
"";"AU 31/10/20 :";"";"";"";"";""
"";"-CION MOUVEMENT EUR       37,61";"";"";"";"";""
"";"AU DELA DU SEUIL JAZZ PRO";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-914,70";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: SCI ARCHIPEL";"";"";"";"";""
"";"REF: 9030846883247";"";"";"";"";""
"";"REMISE: NEOPC loyer Novembre 2020";"";"";"";"";""
"";"MOTIF: NEOPC loyer Novembre 2020";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 642,23";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: anthony renaud";"";"";"";"";""
"";"REF: 9030846884964";"";"";"";"";""
"";"REMISE: salaire octobre 2020";"";"";"";"";""
"";"MOTIF: salaire octobre 2020";"";"";"";"";""
"03/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 730,97";"";"EUR";"03/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: SUIRE MANU";"";"";"";"";""
"";"REF: 9030846884309";"";"";"";"";""
"";"REMISE: salaire octobre 2020";"";"";"";"";""
"";"MOTIF: salaire octobre 2020";"";"";"";"";""
"03/11/2020";"DEBIT MENSUEL CARTE BLEUE VISA X2986";"-8 312,70";"";"EUR";"03/11/2020";"FACTURES CARTES PAYEES"
"04/11/2020";"REMISE CB /04/11 R65703 CT3756471501";"";"180,48";"EUR";"04/11/2020";"FACTURES CARTES REMISES"
"";"BT       181,11E COM     0,63E";"";"";"";"";""
"04/11/2020";"REMISE CB /04/11 R70461 CT3756471501";"";"362,73";"EUR";"04/11/2020";"FACTURES CARTES REMISES"
"";"BT       364,00E COM     1,27E";"";"";"";"";""
"04/11/2020";"CHEQUE     626";"-144,00";"";"EUR";"03/11/2020";"CHEQUES PAYES"
"05/11/2020";"VIR RECU    3686719200S";"";"62,50";"EUR";"05/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ACCES SAP";"";"";"";"";""
"";"MOTIF: ACCES SAP 227B1158717";"";"";"";"";""
"";"REF: SOGEFRPPXXX/2020-11-05";"";"";"";"";""
"05/11/2020";"REMISE CB /05/11 R47306 CT3756471501";"";"84,92";"EUR";"05/11/2020";"FACTURES CARTES REMISES"
"";"BT        85,22E COM     0,30E";"";"";"";"";""
"05/11/2020";"REMISE CB /05/11 R52180 CT3756471501";"";"2 089,31";"EUR";"05/11/2020";"FACTURES CARTES REMISES"
"";"BT      2096,65E COM     7,34E";"";"";"";"";""
"05/11/2020";"PRELEVEMENT EUROPEEN 3507150818";"-115,14";"";"EUR";"05/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: MUTUELLE DE POITIERS ASSURANCES";"";"";"";"";""
"";"ID: FR84YYY381357";"";"";"";"";""
"";"MOTIF: 20201105MUTUELLE DE PO027832620";"";"";"";"";""
"";"REF: F23D334ADFFE419AA288EB7719E014EA";"";"";"";"";""
"05/11/2020";"CHEQUE     629";"-167,00";"";"EUR";"04/11/2020";"CHEQUES PAYES"
"06/11/2020";"REMISE CB /06/11 R36242 CT3756471501";"";"18,93";"EUR";"06/11/2020";"FACTURES CARTES REMISES"
"";"BT        19,00E COM     0,07E";"";"";"";"";""
"06/11/2020";"VIR RECU    3791955523S";"";"118,00";"EUR";"06/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  THIONNET SERVICE INDUSTRIE";"";"";"";"";""
"";"MOTIF: F000937 / F001709";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003613 311";"";"129,00";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    2 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003614 311";"";"200,00";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    2 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CB /06/11 R42786 CT3756471501";"";"255,10";"EUR";"06/11/2020";"FACTURES CARTES REMISES"
"";"BT       256,00E COM     0,90E";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003612 311";"";"1 270,30";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    4 CHQ 01735";"";"";"";"";""
"06/11/2020";"REMISE CHEQUE       0003615 311";"";"1 443,89";"EUR";"09/11/2020";"REMISES DE CHEQUES"
"";"DE    7 CHQ 01735";"";"";"";"";""
"09/11/2020";"REMISE CB /08/11 R90216 CT3756471501";"";"59,79";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT        60,00E COM     0,21E";"";"";"";"";""
"09/11/2020";"REMISE CB /07/11 R26256 CT3756471501";"";"152,52";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT       153,06E COM     0,54E";"";"";"";"";""
"09/11/2020";"REMISE CB /07/11 R21692 CT3756471501";"";"168,61";"EUR";"09/11/2020";"FACTURES CARTES REMISES"
"";"BT       169,20E COM     0,59E";"";"";"";"";""
"09/11/2020";"PRELEVEMENT EUROPEEN 3612262513";"-184,53";"";"EUR";"09/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: EDF";"";"";"";"";""
"";"ID: FR47EDF001007";"";"";"";"";""
"";"MOTIF: NEOPC                    Ref EDF:00";"";"";"";"";""
"";"1100845144 RUM:++MA1101146271 ? 202";"";"";"";"";""
"09/11/2020";"RELEVE LCR DOMICIL NO 00830913 AU 09/11";"-303,02";"";"EUR";"08/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"09/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-3 068,61";"";"EUR";"09/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: WESTCOAST";"";"";"";"";""
"";"REF: 9031448958623";"";"";"";"";""
"";"REMISE: S387697 commande NEOPC";"";"";"";"";""
"";"MOTIF: S387697 commande NEOPC";"";"";"";"";""
"10/11/2020";"REMISE CB /10/11 R90277 CT3756471501";"";"27,90";"EUR";"10/11/2020";"FACTURES CARTES REMISES"
"";"BT        28,00E COM     0,10E";"";"";"";"";""
"10/11/2020";"VIR INST REC 081419000649";"";"107,00";"EUR";"09/11/2020";""
"";"DE: JEAN-MARIE DESBROUSSES";"";"";"";"";""
"";"DATE: 09/11/2020 18:16";"";"";"";"";""
"";"MOTIF: JEAN-MARIE DESBROUSSES 107 fact F00";"";"";"";"";""
"";"2326";"";"";"";"";""
"10/11/2020";"REMISE CB /10/11 R94690 CT3756471501";"";"298,21";"EUR";"10/11/2020";"FACTURES CARTES REMISES"
"";"BT       299,26E COM     1,05E";"";"";"";"";""
"10/11/2020";"PRELEVEMENT EUROPEEN 3715581626";"-240,01";"";"EUR";"10/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: STECO";"";"";"";"";""
"";"ID: FR29ZZZ587308";"";"";"";"";""
"";"MOTIF: STE GENERALE  30003-01735";"";"";"";"";""
"";"REF: STE GENERALE  30003-01735";"";"";"";"";""
"11/11/2020";"VIR RECU    4187028543S";"";"69,00";"EUR";"11/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SM CYCLAD";"";"";"";"";""
"";"MOTIF: FACT F002255CORDON SVGA NOVEMBRE 20";"";"";"";"";""
"";"20SM CYCLAD";"";"";"";"";""
"11/11/2020";"REMISE CB /11/11 R67228 CT3756471501";"";"139,44";"EUR";"11/11/2020";"FACTURES CARTES REMISES"
"";"BT       139,93E COM     0,49E";"";"";"";"";""
"11/11/2020";"VIR RECU    4187028641S";"";"224,00";"EUR";"11/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT GEORGES DU BOIS";"";"";"";"";""
"";"MOTIF: F002173 23102020 MAIR0007SAINT GEOR";"";"";"";"";""
"";"GES DU BOIS";"";"";"";"";""
"11/11/2020";"REMISE CB /11/11 R71565 CT3756471501";"";"816,14";"EUR";"11/11/2020";"FACTURES CARTES REMISES"
"";"BT       819,01E COM     2,87E";"";"";"";"";""
"11/11/2020";"RELEVE LCR DOMICIL NO 00226697 AU 11/11";"-1 830,00";"";"EUR";"10/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"12/11/2020";"VIR RECU    4383197481S";"";"979,47";"EUR";"12/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  LES ARTISANS DE L' EBENE";"";"";"";"";""
"";"MOTIF: FACTURE N F002172 du 23102020";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"12/11/2020";"VERSEMENT EXPRESS 2123877641";"";"1 170,00";"EUR";"12/11/2020";"VERSEMENTS ESPECES"
"12/11/2020";"RELEVE LCR DOMICIL NO 00375542 AU 12/11";"-672,47";"";"EUR";"11/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"13/11/2020";"REMISE CB /13/11 R05667 CT3756471501";"";"64,90";"EUR";"13/11/2020";"FACTURES CARTES REMISES"
"";"BT        65,13E COM     0,23E";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003617 318";"";"805,00";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    6 CHQ 01735";"";"";"";"";""
"13/11/2020";"REMISE CB /13/11 R10796 CT3756471501";"";"1 011,09";"EUR";"13/11/2020";"FACTURES CARTES REMISES"
"";"BT      1014,64E COM     3,55E";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003616 318";"";"1 166,76";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"13/11/2020";"REMISE CHEQUE       0003618 318";"";"1 435,28";"EUR";"16/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"16/11/2020";"REMISE CB /14/11 R91708 CT3756471501";"";"74,32";"EUR";"16/11/2020";"FACTURES CARTES REMISES"
"";"BT        74,58E COM     0,26E";"";"";"";"";""
"16/11/2020";"REMISE CB /14/11 R96766 CT3756471501";"";"268,21";"EUR";"16/11/2020";"FACTURES CARTES REMISES"
"";"BT       269,15E COM     0,94E";"";"";"";"";""
"16/11/2020";"RELEVE LCR DOMICIL NO 02567348 AU 16/11";"-759,00";"";"EUR";"15/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"17/11/2020";"REMISE CB /17/11 R64561 CT3756471501";"";"162,02";"EUR";"17/11/2020";"FACTURES CARTES REMISES"
"";"BT       162,59E COM     0,57E";"";"";"";"";""
"17/11/2020";"REMISE CB /17/11 R68980 CT3756471501";"";"165,46";"EUR";"17/11/2020";"FACTURES CARTES REMISES"
"";"BT       166,04E COM     0,58E";"";"";"";"";""
"17/11/2020";"PRELEVEMENT EUROPEEN 4706559502";"-1 104,00";"";"EUR";"17/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: URSSAF DU POITOU-CHARENTES";"";"";"";"";""
"";"ID: FR39ZZZ196509";"";"";"";"";""
"";"MOTIF: UR 547000001302146959    OCT 207536";"";"";"";"";""
"";"44152000161120";"";"";"";"";""
"18/11/2020";"VIR RECU    4886337699S";"";"41,40";"EUR";"18/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: UNITED PARCEL SERVICE FRANCE SAS";"";"";"";"";""
"";"MOTIF: U7272391220201001,2020-10-31,41.4,4";"";"";"";"";""
"";"1.4";"";"";"";"";""
"";"REF: 9192441-1605FSA1";"";"";"";"";""
"18/11/2020";"REMISE CB /18/11 R40039 CT3756471501";"";"103,44";"EUR";"18/11/2020";"FACTURES CARTES REMISES"
"";"BT       103,80E COM     0,36E";"";"";"";"";""
"18/11/2020";"REMISE CB /18/11 R44919 CT3756471501";"";"431,22";"EUR";"18/11/2020";"FACTURES CARTES REMISES"
"";"BT       432,73E COM     1,51E";"";"";"";"";""
"18/11/2020";"PRELEVEMENT EUROPEEN 4807923710";"-2,00";"";"EUR";"18/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: FREE MOBILE";"";"";"";"";""
"";"ID: FR07ZZZ591778";"";"";"";"";""
"";"REF: fmpmt-1270922609";"";"";"";"";""
"";"MANDAT FM-40430998-1";"";"";"";"";""
"18/11/2020";"COTIS JAZZPRO REDUC JAZZ-20%";"-32,51";"";"EUR";"17/11/2020";"COMMISSIONS ET FRAIS DIVERS"
"";"MONTANT NT  :    22,25 EUR";"";"";"";"";""
"";"MONTANT HT  :     8,55 EUR";"";"";"";"";""
"";"TVA A 20,00%:     1,71 EUR";"";"";"";"";""
"18/11/2020";"RELEVE LCR DOMICIL NO 00268348 AU 18/11";"-2 242,03";"";"EUR";"17/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"19/11/2020";"REMISE CB /19/11 R21993 CT3756471501";"";"70,30";"EUR";"19/11/2020";"FACTURES CARTES REMISES"
"";"BT        70,55E COM     0,25E";"";"";"";"";""
"19/11/2020";"REMISE CB /19/11 R26781 CT3756471501";"";"878,53";"EUR";"19/11/2020";"FACTURES CARTES REMISES"
"";"BT       881,62E COM     3,09E";"";"";"";"";""
"19/11/2020";"RELEVE LCR DOMICIL NO 00353852 AU 19/11";"-516,85";"";"EUR";"18/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"20/11/2020";"VIR RECU    5085495918S";"";"49,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT-PIERRE-LA-NOUE";"";"";"";"";""
"";"MOTIF: facture nc F002030 du 06/10/2020SAI";"";"";"";"";""
"";"NT-PIERRE-LA-NOUE";"";"";"";"";""
"20/11/2020";"REMISE CB /20/11 R07923 CT3756471501";"";"56,80";"EUR";"20/11/2020";"FACTURES CARTES REMISES"
"";"BT        57,00E COM     0,20E";"";"";"";"";""
"20/11/2020";"REMISE CB /20/11 R13081 CT3756471501";"";"59,79";"EUR";"20/11/2020";"FACTURES CARTES REMISES"
"";"BT        60,00E COM     0,21E";"";"";"";"";""
"20/11/2020";"VIR RECU    5181165941S";"";"99,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ELECTRICITE POMPAGE MAINTENANCE";"";"";"";"";""
"";"MOTIF: REGLEMENT EPM";"";"";"";"";""
"";"REF: F002423";"";"";"";"";""
"20/11/2020";"VIR RECU    5085495927S";"";"649,00";"EUR";"20/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: COMMUNE DE MARSAIS -";"";"";"";"";""
"";"MOTIF: FACTURE F002053 DU 08/10/2020COMMUN";"";"";"";"";""
"";"E DE MARSAIS -";"";"";"";"";""
"20/11/2020";"VERSEMENT EXPRESS 2123877645";"";"700,00";"EUR";"20/11/2020";"VERSEMENTS ESPECES"
"23/11/2020";"REMISE CB /21/11 R91839 CT3756471501";"";"126,03";"EUR";"23/11/2020";"FACTURES CARTES REMISES"
"";"BT       126,47E COM     0,44E";"";"";"";"";""
"23/11/2020";"REMISE CB /21/11 R96862 CT3756471501";"";"162,43";"EUR";"23/11/2020";"FACTURES CARTES REMISES"
"";"BT       163,00E COM     0,57E";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003621 328";"";"198,34";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    3 CHQ 01735";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003619 328";"";"819,00";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    4 CHQ 01735";"";"";"";"";""
"23/11/2020";"REMISE CHEQUE       0003620 328";"";"1 397,07";"EUR";"24/11/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"23/11/2020";"PRLV EUROPEEN B2B    5010103394";"-5 260,00";"";"EUR";"23/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"POUR CPTE DE:DGFIP IMPOT";"";"";"";"";""
"";"ID: FR46ZZZ005002";"";"";"";"";""
"";"MOTIF: TVA-112020-3310CA3";"";"";"";"";""
"";"REF: 220170510700088267904";"";"";"";"";""
"24/11/2020";"REMISE CB /24/11 R63920 CT3756471501";"";"82,41";"EUR";"24/11/2020";"FACTURES CARTES REMISES"
"";"BT        82,70E COM     0,29E";"";"";"";"";""
"24/11/2020";"REMISE CB /24/11 R68162 CT3756471501";"";"1 025,73";"EUR";"24/11/2020";"FACTURES CARTES REMISES"
"";"BT      1029,33E COM     3,60E";"";"";"";"";""
"24/11/2020";"RELEVE LCR DOMICIL NO 00384351 AU 24/11";"-5,99";"";"EUR";"23/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"24/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-30,05";"";"EUR";"24/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: INSEPRO";"";"";"";"";""
"";"REF: 9032953171174";"";"";"";"";""
"";"REMISE: FC20-08894 NEOPC";"";"";"";"";""
"";"MOTIF: FC20-08894 NEOPC";"";"";"";"";""
"24/11/2020";"000001 VIR EUROPEEN EMIS   NET";"-1 080,00";"";"EUR";"24/11/2020";"AUTRES VIREMENTS EMIS"
"";"POUR: ARESCOP NATIONALE";"";"";"";"";""
"";"REF: 9032953169664";"";"";"";"";""
"";"REMISE: ARE3279 - 00852900";"";"";"";"";""
"";"MOTIF: ARE3279 - 00852900";"";"";"";"";""
"25/11/2020";"REMISE CB /25/11 R42055 CT3756471501";"";"63,37";"EUR";"25/11/2020";"FACTURES CARTES REMISES"
"";"BT        63,59E COM     0,22E";"";"";"";"";""
"25/11/2020";"REMISE CB /25/11 R47148 CT3756471501";"";"355,75";"EUR";"25/11/2020";"FACTURES CARTES REMISES"
"";"BT       357,00E COM     1,25E";"";"";"";"";""
"25/11/2020";"PRELEVEMENT EUROPEEN 5503298434";"-269,36";"";"EUR";"25/11/2020";"PRELEVEMENTS EUROPEENS EMIS"
"";"DE: MALAKOFF HUMANIS";"";"";"";"";""
"";"ID: FR14ZZZ85F970";"";"";"";"";""
"";"MOTIF: RETRAITE - MALAKOFF HUMANIS - 20201";"";"";"";"";""
"";"0M - SIRET 51024943600021 -AG081000";"";"";"";"";""
"26/11/2020";"REMISE CB /26/11 R22656 CT3756471501";"";"36,87";"EUR";"26/11/2020";"FACTURES CARTES REMISES"
"";"BT        37,00E COM     0,13E";"";"";"";"";""
"26/11/2020";"VIR RECU    5688578071S";"";"51,00";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: DDFIP CHARENTE MARITIME";"";"";"";"";""
"";"DE: E.N.I.L.I.A. - E.N.S.M.I.C";"";"";"";"";""
"";"MOTIF: F002363";"";"";"";"";""
"";"REF: 1D0170000055F002363/20";"";"";"";"";""
"26/11/2020";"VIR RECU    5695333250S";"";"141,30";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: SARL  RE UNIS";"";"";"";"";""
"";"MOTIF: fact 002456";"";"";"";"";""
"";"REF: NOT PROVIDED";"";"";"";"";""
"26/11/2020";"VIR RECU    5693429606S";"";"266,00";"EUR";"26/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: TRESORERIE SURGERES";"";"";"";"";""
"";"DE: SAINT GEORGES DU BOIS";"";"";"";"";""
"";"MOTIF: F002428 19112020 MAIR0007SAINT GEOR";"";"";"";"";""
"";"GES DU BOIS";"";"";"";"";""
"26/11/2020";"REMISE CB /26/11 R28228 CT3756471501";"";"1 572,72";"EUR";"26/11/2020";"FACTURES CARTES REMISES"
"";"BT      1578,24E COM     5,52E";"";"";"";"";""
"27/11/2020";"REMISE CB /27/11 R09504 CT3756471501";"";"23,51";"EUR";"27/11/2020";"FACTURES CARTES REMISES"
"";"BT        23,59E COM     0,08E";"";"";"";"";""
"27/11/2020";"REMISE CB /27/11 R15324 CT3756471501";"";"1 620,84";"EUR";"27/11/2020";"FACTURES CARTES REMISES"
"";"BT      1626,53E COM     5,69E";"";"";"";"";""
"27/11/2020";"RELEVE LCR DOMICIL NO 00411070 AU 27/11";"-3 077,16";"";"EUR";"26/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
"30/11/2020";"REMISE CB /28/11 R94837 CT3756471501";"";"120,45";"EUR";"30/11/2020";"FACTURES CARTES REMISES"
"";"BT       120,87E COM     0,42E";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003622 335";"";"160,00";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    1 CHQ 01735";"";"";"";"";""
"30/11/2020";"VIR RECU    6180288052S";"";"300,00";"EUR";"30/11/2020";"AUTRES VIREMENTS RECUS"
"";"DE: ARMOR PROTEINES SAS";"";"";"";"";""
"";"REF: 3000006932";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003625 335";"";"581,68";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    7 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003624 335";"";"622,48";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    5 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CHEQUE       0003623 335";"";"783,58";"EUR";"01/12/2020";"REMISES DE CHEQUES"
"";"DE    3 CHQ 01735";"";"";"";"";""
"30/11/2020";"REMISE CB /28/11 R99244 CT3756471501";"";"1 537,60";"EUR";"30/11/2020";"FACTURES CARTES REMISES"
"";"BT      1543,00E COM     5,40E";"";"";"";"";""
"30/11/2020";"RELEVE LCR DOMICIL NO 07356508 AU 30/11";"-1 034,98";"";"EUR";"29/11/2020";"DOMICILIATIONS D'EFFETS (DONT L.C.R.)"
FB - 11-2020-2.csv (18,585 bytes)   
TransFeuilleBank-2.ico (137,040 bytes)   
TransFeuilleBank-2.ico (137,040 bytes)   
TransFeuilleBank-2.lpi (2,396 bytes)    
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectOptions>
    <Version Value="11"/>
    <PathDelim Value="\"/>
    <General>
      <SessionStorage Value="InProjectDir"/>
      <MainUnit Value="0"/>
      <Title Value="TransFeuilleBank"/>
      <Scaled Value="True"/>
      <ResourceType Value="res"/>
      <UseXPManifest Value="True"/>
      <XPManifest>
        <DpiAware Value="True"/>
      </XPManifest>
      <Icon Value="0"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="Default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <UseFileFilters Value="True"/>
    </PublishOptions>
    <RunParams>
      <FormatVersion Value="2"/>
      <Modes Count="0"/>
    </RunParams>
    <RequiredPackages Count="5">
      <Item1>
        <PackageName Value="TurboPowerIPro"/>
      </Item1>
      <Item2>
        <PackageName Value="SynEdit"/>
      </Item2>
      <Item3>
        <PackageName Value="SDFLaz"/>
      </Item3>
      <Item4>
        <PackageName Value="FCL"/>
      </Item4>
      <Item5>
        <PackageName Value="LCL"/>
      </Item5>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="TransFeuilleBank.lpr"/>
        <IsPartOfProject Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="verscsv.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="VersCSV"/>
      </Unit1>
    </Units>
  </ProjectOptions>
  <CompilerOptions>
    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Target>
      <Filename Value="TransFeuilleBank"/>
    </Target>
    <SearchPaths>
      <IncludeFiles Value="$(ProjOutDir)"/>
      <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
    </SearchPaths>
    <Linking>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="3">
      <Item1>
        <Name Value="EAbort"/>
      </Item1>
      <Item2>
        <Name Value="ECodetoolError"/>
      </Item2>
      <Item3>
        <Name Value="EFOpenError"/>
      </Item3>
    </Exceptions>
  </Debugging>
</CONFIG>
TransFeuilleBank-2.lpi (2,396 bytes)   
TransFeuilleBank-2.lpr (427 bytes)    
program TransFeuilleBank;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Forms, sdflaz, VersCSV
  { you can add units after this };

{$R *.res}

begin
  RequireDerivedFormResource:=True;
  Application.Scaled:=True;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.
TransFeuilleBank-2.lpr (427 bytes)   
TransFeuilleBank-2.lps (5,323 bytes)    
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
  <ProjectSession>
    <PathDelim Value="\"/>
    <Version Value="11"/>
    <BuildModes Active="Default"/>
    <Units Count="3">
      <Unit0>
        <Filename Value="TransFeuilleBank.lpr"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="2"/>
        <CursorPos Y="20"/>
        <UsageCount Value="57"/>
        <Loaded Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="verscsv.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="VersCSV"/>
        <IsVisibleTab Value="True"/>
        <TopLine Value="98"/>
        <CursorPos X="38" Y="125"/>
        <UsageCount Value="57"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="C:\lazarus\lcl\grids.pas"/>
        <UnitName Value="Grids"/>
        <EditorIndex Value="1"/>
        <TopLine Value="9928"/>
        <CursorPos Y="9942"/>
        <UsageCount Value="14"/>
        <Loaded Value="True"/>
      </Unit2>
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="verscsv.pas"/>
        <Caret Line="102" Column="74" TopLine="82"/>
      </Position1>
      <Position2>
        <Filename Value="verscsv.pas"/>
        <Caret Line="103" Column="11" TopLine="82"/>
      </Position2>
      <Position3>
        <Filename Value="verscsv.pas"/>
        <Caret Line="100" TopLine="82"/>
      </Position3>
      <Position4>
        <Filename Value="verscsv.pas"/>
        <Caret Line="104" TopLine="82"/>
      </Position4>
      <Position5>
        <Filename Value="verscsv.pas"/>
        <Caret Line="45" TopLine="45"/>
      </Position5>
      <Position6>
        <Filename Value="verscsv.pas"/>
        <Caret Line="46" TopLine="46"/>
      </Position6>
      <Position7>
        <Filename Value="verscsv.pas"/>
        <Caret Line="47" TopLine="47"/>
      </Position7>
      <Position8>
        <Filename Value="verscsv.pas"/>
        <Caret Line="46" TopLine="46"/>
      </Position8>
      <Position9>
        <Filename Value="verscsv.pas"/>
        <Caret Line="47" TopLine="47"/>
      </Position9>
      <Position10>
        <Filename Value="verscsv.pas"/>
        <Caret Line="19" Column="94"/>
      </Position10>
      <Position11>
        <Filename Value="verscsv.pas"/>
        <Caret Line="17" Column="54"/>
      </Position11>
      <Position12>
        <Filename Value="verscsv.pas"/>
        <Caret Line="73" Column="71" TopLine="65"/>
      </Position12>
      <Position13>
        <Filename Value="verscsv.pas"/>
        <Caret Line="103" Column="26" TopLine="82"/>
      </Position13>
      <Position14>
        <Filename Value="verscsv.pas"/>
        <Caret Line="14" Column="23"/>
      </Position14>
      <Position15>
        <Filename Value="verscsv.pas"/>
        <Caret Line="62" Column="20" TopLine="49"/>
      </Position15>
      <Position16>
        <Filename Value="verscsv.pas"/>
        <Caret Line="110" Column="9" TopLine="86"/>
      </Position16>
      <Position17>
        <Filename Value="verscsv.pas"/>
        <Caret Line="146" Column="63" TopLine="55"/>
      </Position17>
      <Position18>
        <Filename Value="verscsv.pas"/>
        <Caret Line="154" Column="71" TopLine="132"/>
      </Position18>
      <Position19>
        <Filename Value="verscsv.pas"/>
        <Caret Line="155" Column="74" TopLine="132"/>
      </Position19>
      <Position20>
        <Filename Value="verscsv.pas"/>
        <Caret Line="129" TopLine="107"/>
      </Position20>
      <Position21>
        <Filename Value="verscsv.pas"/>
        <Caret Line="134" Column="65" TopLine="107"/>
      </Position21>
      <Position22>
        <Filename Value="verscsv.pas"/>
        <Caret Line="130" TopLine="107"/>
      </Position22>
      <Position23>
        <Filename Value="verscsv.pas"/>
        <Caret Line="131" TopLine="108"/>
      </Position23>
      <Position24>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position24>
      <Position25>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position25>
      <Position26>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position26>
      <Position27>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position27>
      <Position28>
        <Filename Value="verscsv.pas"/>
        <Caret Line="135" Column="6" TopLine="112"/>
      </Position28>
      <Position29>
        <Filename Value="verscsv.pas"/>
        <Caret Line="137" Column="6" TopLine="114"/>
      </Position29>
      <Position30>
        <Filename Value="verscsv.pas"/>
        <Caret Line="136" Column="6" TopLine="113"/>
      </Position30>
    </JumpHistory>
    <RunParams>
      <FormatVersion Value="2"/>
      <Modes Count="0" ActiveMode=""/>
    </RunParams>
  </ProjectSession>
</CONFIG>
TransFeuilleBank-2.lps (5,323 bytes)   
TransFeuilleBank-2.res (139,052 bytes)
verscsv-2.lfm (4,764 bytes)    
object Form1: TForm1
  Left = 1046
  Height = 531
  Top = 134
  Width = 836
  Caption = 'Visu Fichier CSV'
  ClientHeight = 531
  ClientWidth = 836
  OnClose = FormClose
  OnCreate = FormCreate
  LCLVersion = '2.0.10.0'
  object Edit1: TEdit
    Left = 16
    Height = 23
    Top = 55
    Width = 648
    AutoSize = False
    TabOrder = 0
  end
  object Label1: TLabel
    Left = 19
    Height = 15
    Top = 40
    Width = 144
    Caption = 'Nom du fichier à consulter:'
    ParentColor = False
  end
  object Button1: TButton
    Left = 624
    Height = 24
    Top = 88
    Width = 130
    Caption = 'Commissions cartes'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Memo2: TMemo
    Left = 16
    Height = 57
    Top = 88
    Width = 382
    ScrollBars = ssAutoBoth
    TabOrder = 2
  end
  object Button2: TButton
    Left = 664
    Height = 25
    Top = 54
    Width = 91
    Caption = 'Parcourir'
    OnClick = Button2Click
    TabOrder = 3
  end
  object Label2: TLabel
    Left = 19
    Height = 15
    Top = 0
    Width = 127
    Caption = 'Mois en cours de saisie :'
    ParentColor = False
  end
  object ComboBox1: TComboBox
    Left = 16
    Height = 23
    Top = 16
    Width = 191
    ItemHeight = 15
    Items.Strings = (
      'JANVIER'
      'FEVRIER'
      'MARS'
      'AVRIL'
      'MAI'
      'JUIN'
      'JUILLET'
      'SEPTEMBRE'
      'OCTOBRE'
      'NOVEMBRE'
      'DECEMBRE'
    )
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 0
    Height = 291
    Top = 240
    Width = 836
    Align = alBottom
    ClientHeight = 291
    ClientWidth = 836
    TabOrder = 5
    object StringGrid1: TStringGrid
      Left = 1
      Height = 289
      Top = 1
      Width = 834
      Align = alClient
      AutoFillColumns = True
      ColCount = 7
      Columns = <      
        item
          Title.Caption = 'Date'
          Width = 119
        end      
        item
          Font.CharSet = 4
          Title.Caption = 'Nature de l''opération'
          Width = 119
        end      
        item
          Title.Caption = 'Débit'
          Width = 119
        end      
        item
          Title.Caption = 'Crédit'
          Width = 119
        end      
        item
          Title.Caption = 'Devise'
          Width = 119
        end      
        item
          Title.Caption = 'Date de valeur'
          Width = 119
        end      
        item
          Title.Caption = 'Libellé interbancaire'
          Width = 119
        end>
      FixedCols = 0
      Flat = True
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goAlwaysShowEditor, goDblClickAutoSize, goSmoothScroll]
      TabOrder = 0
      ColWidths = (
        119
        119
        119
        119
        119
        119
        119
      )
    end
  end
  object Button3: TButton
    Left = 408
    Height = 21
    Top = 88
    Width = 89
    Caption = 'Button3'
    OnClick = Button3Click
    TabOrder = 6
  end
  object ComboBox2: TComboBox
    Left = 561
    Height = 23
    Top = 125
    Width = 272
    ItemHeight = 15
    Items.Strings = (
      'PRELEVEMENT EUROPEEN'
      'TENUE DE COMPTE'
      'VIR EUROPEEN EMIS'
      'DEBIT MENSUEL CARTE BLEUE VISA'
      'CHEQUE'
      'RELEVE LCR DOMICIL'
      'VERSEMENT EXPRESS'
      'VIR RECU'
    )
    TabOrder = 7
  end
  object DataSource1: TDataSource
    DataSet = CSVDataset1
    Left = 224
    Top = 8
  end
  object CSVDataset1: TCSVDataset
    PacketRecords = 1
    UniDirectional = True
    FieldDefs = <    
      item
        Name = 'Date'
        DataType = ftDate
      end    
      item
        Name = 'Nature de l''opération'
        DataType = ftString
      end    
      item
        Name = 'Débit'
        DataType = ftString
      end    
      item
        Name = 'Crédit'
        DataType = ftString
      end    
      item
        Name = 'Devise'
        DataType = ftString
      end    
      item
        Name = 'Date de valeur'
        DataType = ftDate
      end    
      item
        Name = 'Libellé interbancaire'
        DataType = ftString
      end>
    AutoCalcFields = False
    CSVOptions.FirstLineAsFieldNames = False
    CSVOptions.DefaultFieldLength = 255
    CSVOptions.Delimiter = ';'
    CSVOptions.QuoteChar = '"'
    CSVOptions.LineEnding = 'CRLF'
    CSVOptions.IgnoreOuterWhitespace = True
    CSVOptions.QuoteOuterWhitespace = False
    Left = 296
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 728
    Top = 8
  end
end
verscsv-2.lfm (4,764 bytes)   
verscsv-2.pas (3,421 bytes)    
unit VersCSV;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, DB, csvdataset, SdfData, Forms, Controls, Graphics,
  Dialogs, StdCtrls, EditBtn, ExtCtrls, DBGrids, Grids, SynHighlighterTeX,
  Ipfilebroker;

type

  { TForm1 }
  TypeMois = (JANVIER=1,FEVRIER,MARS,AVRIL,MAI,JUIN,JUILLET,AOUT,SEPTEMBRE,OCTOBRE,NOVEMBRE,DECEMBRE);

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    CSVDataset1: TCSVDataset;
    DataSource1: TDataSource;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Memo2: TMemo;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);




  private

  public

  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}
 



{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
    Stg:String;
    Fichier,com, com1:String;
    Mois : TypeMois;
    Debut, fin, nbcartes : Integer;
    long : Single;
begin
   Fichier := Edit1.text;
   if not FileExists(Fichier) then exit;
   AssignFile(F,Fichier);
   Reset(F);

   Memo2.Lines.Clear;
   long := 0;
   nbcartes :=0;
   While not Eof(F) do
         begin
              Readln(F,Stg);

              if Pos('COM ',Stg)>0 then
                 begin
                 Debut:= Pos('COM',Stg);
                 fin :=  Pos('E"',Stg);
                 com1 :=Copy(Stg,Debut +3,(fin - Debut)-3);
                 com := TrimLeft(com1);
                 //Memo1.Lines.Add(com);
                 long := long + StrtoFloat(com);
                 inc(nbcartes);
                 end;

         end;
   Memo2.lines. add( InttoStr(nbcartes) +' remises de cartes bancaires pour le mois de '+ComboBox1.Text+' .');
   Memo2.lines. add('Commisions : ' + FloattostrF(long, ffFixed, 4,2) + ' €uros' );

   CloseFile(F);




end;

procedure TForm1.Button2Click(Sender: TObject);

begin
   if not(ComboBox1.Text = '') then
      begin
           If OpenDialog1.Execute then Edit1.Text:= OpenDialog1.FileName
      end
      else     ShowMessage('Vous devez préciser le mois de saisie !' );

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   CSVDataset1.Active:=False;
   CSVDataset1.CSVOptions.Delimiter := ';';
   CSVDataset1.Active:=True;
   StringGrid1.SaveToCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));
end;

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
     //CSVDataset1.SaveToCSVFile(GetCurrentDir+'\EcritBanque.csv');
     //CSVDataset1.Close;
   //CSVDataset1.Active:=True;
   //CSVDataset1.CSVOptions.Delimiter := ';';
   //StringGrid1.SaveToCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    //CSVDataset1.LoadFromCSVFile(GetCurrentDir+'\EcritBanque.csv');
    //CSVDataset1.Open;
   //showmessage(  GetCurrentDir+'\FB - 11-2020.csv)
   //CSVDataset1.Active:=True;
   //CSVDataset1.CSVOptions.Delimiter := ';';
   StringGrid1.LoadFromCSVFile((GetCurrentDir+'\FB - 11-2020.csv'));
end;

end.
verscsv-2.pas (3,421 bytes)   

Bart Broersma

2020-12-15 16:11

reporter   ~0127621

Could you please attacht the sample project as 1 zipped file (sources only, .lps and .ico are not needed)?

Bart Broersma

2020-12-19 17:17

reporter   ~0127695

Last edited: 2020-12-19 17:24

View 2 revisions

 > It is the same thing when we want to use StringGrid1.SaveToCSVFile(file.csv) or StringGrid1.LoadFromCSVFile(file.csv) .
This works perfectly OK, but you have to set the delimiter in the call to TStringGridSaveToCSVFile()/TStringGridLoadFromCSVFile of course.
E.g. StringGrid1.SaveToCSVFile('test.csv',';'); produces a .csv file with ';' as delimiter.

Bart Broersma

2020-12-19 18:01

reporter   ~0127696

Last edited: 2021-01-02 17:53

View 2 revisions

 I think you are using this component wrong.
If you set CSVDataset1.Filename to the appropriate filename (make sure that CSVDataSet1.CSVOptions.Delimiter is correctly set for that given file) and then do
  CSVDataset1.Active:=True;
  CSVDataSet1.CSVOptions.Delimiter := '|';
then the delimiter of that file will be changed to '|';
You can check that after you closed the program and inspect the file.

Bart Broersma

2020-12-19 22:36

reporter   ~0127708

Last edited: 2021-01-02 17:52

View 2 revisions

 The secondary part about the TStringGrid is obviously a user error.
The primary pasrt of this bugreport about TCSVDataSet (which I think is alos a user error) belongs to FPC, so I'm moving this issue to FPC.

Issue History

Date Modified Username Field Change
2020-12-14 22:59 ms4@free.fr New Issue
2020-12-14 22:59 ms4@free.fr File Added: FB - 11-2020.csv
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank.ico
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank.lpi
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank.lpr
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank.lps
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank.res
2020-12-14 22:59 ms4@free.fr File Added: verscsv.lfm
2020-12-14 22:59 ms4@free.fr File Added: verscsv.pas
2020-12-14 22:59 ms4@free.fr File Added: FB - 11-2020-2.csv
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank-2.ico
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank-2.lpi
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank-2.lpr
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank-2.lps
2020-12-14 22:59 ms4@free.fr File Added: TransFeuilleBank-2.res
2020-12-14 22:59 ms4@free.fr File Added: verscsv-2.lfm
2020-12-14 22:59 ms4@free.fr File Added: verscsv-2.pas
2020-12-15 16:11 Bart Broersma Note Added: 0127621
2020-12-15 16:11 Bart Broersma Status new => feedback
2020-12-15 16:11 Bart Broersma LazTarget => -
2020-12-19 17:17 Bart Broersma Note Added: 0127695
2020-12-19 17:24 Bart Broersma Note Edited: 0127695 View Revisions
2020-12-19 18:01 Bart Broersma Note Added: 0127696
2020-12-19 22:36 Bart Broersma Note Added: 0127708
2020-12-19 22:36 Bart Broersma Project Lazarus => FPC
2020-12-19 22:36 Bart Broersma Category Database Components => General
2021-01-02 17:52 Bart Broersma Note Edited: 0127708 View Revisions
2021-01-02 17:53 Bart Broersma Note Edited: 0127696 View Revisions