pcsoft.us.windevCopyright 2026, PC SOFT11 Jun 2015 13:36:11 Z30 May 2015 13:56:00 ZHi all, I have a window with a number of memory tables, filled by code, using a query, HExecuteQuery() and a FOR EACH of the query. In the FOR-EACH loop a global procedure gpGetPrijs() is called for each row in a memory table. In that global procedure a price is calculated and thereby are also (other) queries used. When the initial window table is filled a number of times (about 15 times, with about 1000 lines each time) the filling becomes very very slow. The problem is, in my opinion, in the call of gpGetPrijs(), because the processing time it's consuming becomes much longer after a while. I've noticed that the free RAM memory becomes less, each time. So there seems to be a memory leak. The problem is that I can't find the reason. Each query that I use is freed from memory by HFreeQuery() after use. The problem is on my development laptop, using HFSQL Classic, but also (in test) on the customers computer using HFSQL/CS. Anyone can help me to find the reason of the problem? Example of filling the initial memory table: ++++++++++++++++++++++++++++++++++++++ liLine is int liMax is int liCount is int li8VrachtbriefID is 8-byte int li8RelatieArtikelID is 8-byte int lsRelatieNaam is string lcyBasisprijs is currency lcyEindprijs is currency TABLE_KAAS..DisplayEnabled = False IF NOT TABLE_KAAS..Empty THEN TableDeleteAll(TABLE_KAAS) QRY_Select_Vrachtbrief_forBilling.psFactuurgroepCode = csFGrpKaas QRY_Select_Vrachtbrief_forBilling.pdVanafBoekdatum = DateValid(EDT_Filter_VanafDatum) ? EDT_Filter_VanafDatum ELSE Null QRY_Select_Vrachtbrief_forBilling.pdTemBoekdatum = DateValid(EDT_Filter_TemDatum) ? EDT_Filter_TemDatum ELSE Null QRY_Select_Vrachtbrief_forBilling.piKleinerGelijkStatusVrachtbrief = csVBSBlokkeren // Verwijderd + Gefactureerd niet meer tonen IF HExecuteQuery(QRY_Select_Vrachtbrief_forBilling) THEN liMax = HNbRec(QRY_Select_Vrachtbrief_forBilling) FOR EACH QRY_Select_Vrachtbrief_forBilling liCount++ Gauge(liCount,liMax) IF QRY_Select_Vrachtbrief_forBilling.Aantal < 0 THEN IF WL.HReadSeekFirst(TblRelatie,TblRelatieID,QRY_Select_Vrachtbrief_forBilling.TblRelatieID_Verzend) THEN lsRelatieNaam = TblRelatie.Bedrijfsnaam END ELSE lsRelatieNaam = QRY_Select_Vrachtbrief_forBilling.Bedrijfsnaam END IF EDT_FILTER_TEKST ~= "" _OR_ (Position(QRY_Select_Vrachtbrief_forBilling.Intern_ID,Left(EDT_FILTER_TEKST),0,IgnoreCase) > 0 _OR_ ... Position(lsRelatieNaam,Left(EDT_FILTER_TEKST),0,IgnoreCase) > 0 _OR_ ... Position(QRY_Select_Vrachtbrief_forBilling.Intern_naam,Left(EDT_FILTER_TEKST),0,IgnoreCase) > 0 _OR_ ... Position(QRY_Select_Vrachtbrief_forBilling.Vrachtbriefnummer,Left(EDT_FILTER_TEKST),0,IgnoreCase) > 0) THEN // Alleen zonder prijs ? li8VrachtbriefID = QRY_Select_Vrachtbrief_forBilling.TblVrachtbriefID (lcyBasisprijs,lcyEindprijs,li8RelatieArtikelID) = gpGetPrijs(csFGrpKaas,li8VrachtbriefID) liLine = TableAddLine(TABLE_KAAS,QRY_Select_Vrachtbrief_forBilling.TblVrachtbriefID) IF liLine > 0 THEN IF QRY_Select_Vrachtbrief_forBilling.Aantal < 0 THEN TABLE_KAAS.COL_RELATIEID[liLine] = QRY_Select_Vrachtbrief_forBilling.TblRelatieID_Verzend ELSE TABLE_KAAS.COL_RELATIEID[liLine] = QRY_Select_Vrachtbrief_forBilling.TblRelatieID END TABLE_KAAS.COL_Relatie[liLine] = lsRelatieNaam TABLE_KAAS.COL_VRACHTBRIEFNR[liLine] = QRY_Select_Vrachtbrief_forBilling.Vrachtbriefnummer TABLE_KAAS.COL_VBKSTATUS[liLine] = QRY_Select_Vrachtbrief_forBilling.Status_vrachtbrief TABLE_KAAS.COL_ARTIKELNR[liLine] = QRY_Select_Vrachtbrief_forBilling.Intern_ID TABLE_KAAS.COL_ARTIKELID[liLine] = QRY_Select_Vrachtbrief_forBilling.TblArtikelID TABLE_KAAS.COL_OMSCHRIJVING[liLine] = QRY_Select_Vrachtbrief_forBilling.Intern_naam TABLE_KAAS.COL_REFERENTIE[liLine] = QRY_Select_Vrachtbrief_forBilling.Regelreferentie TABLE_KAAS.COL_AANTAL[liLine] = QRY_Select_Vrachtbrief_forBilling.Aantal TABLE_KAAS.COL_KG[liLine] = QRY_Select_Vrachtbrief_forBilling.kilos TABLE_KAAS.COL_AFLEVERDATUM[liLine] = QRY_Select_Vrachtbrief_forBilling.Boekdatum TABLE_KAAS.COL_BASISPRIJS[liLine] = lcyBasisprijs TABLE_KAAS.COL_EindPrijs[liLine] = lcyEindprijs TABLE_KAAS.COL_RELATIEARTIKELID[liLine] = li8RelatieArtikelID IF TABLE_KAAS.COL_BASISPRIJS[liLine] = 0 THEN TABLE_KAAS[liLine]..Color = LightRed ELSE IF TABLE_KAAS.COL_AANTAL[liLine] < 0 THEN TABLE_KAAS[liLine]..Color = LightBlue ELSE TABLE_KAAS[liLine]..Color = DefaultColor END END END END END END HFreeQuery(QRY_Select_Vrachtbrief_forBilling) TABLE_KAAS..DisplayEnabled = True Gauge() Code of the global procedure: ++++++++++++++++++++++++++++++++++++++ // Summary: // Syntax: //[ = ] gpGetPrijs ( is string, is 8-byte int) // // Parameters: // psFactuurcode (ANSI string): // pi8VrachtbriefID (8-byte int): // Return Value: // multi-value: // None // // For instance: // Indicate an example. // // pi8RelatieID (8-byte int): // pi8ArtikelID (8-byte int): // pdAfleverDatum (date): PROCEDURE gpGetPrijs(psFactuurcode is string, pi8VrachtbriefID is 8-byte int) liRegel is int liDagen is int liFaseDagen is int li8RelatieArtikelID is 8-byte int li8PrijslijstID is 8-byte int li8EenheidID is 8-byte int ldDatum is Date lsEenheid is string lcyHulpPrijs is currency //= 0 lcyBasisprijs is currency //= 0 lcyPrijs2 is currency //= 0 lcyPrijs3 is currency //= 0 lcyPeriodiekeprijs is currency //= 0 lcyEindPrijs is currency //= 0 lcyIndrooggewicht is currency IF WL.HReadSeekFirst(TblVrachtbrief,TblVrachtbriefID,pi8VrachtbriefID) THEN // Betreft het een retouren vrachtbrief ? // LET OP: als er in TblRetourgegevens een originele vrachtbon + data is vastgelegd OF los een originele // productiedatum, leverdatum en ArtikelID, dan moeten die gebruikt worden voor het bepalen van de prijs. // Dit omdat de prijs gebruikt moet worden van de factuur van de originele levering en NIET diegene die // gebaseerd is op de gegevens van de retouren. Gevonden gegevens overschrijven die van de retour vrachtbrief, // dus deze NIET herschrijven ! IF TblVrachtbrief.Aantal < 0 _AND_ WL.HReadSeekFirst(TblRetourgegevens,TblVrachtbriefID,TblVrachtbrief.TblVrachtbriefID) THEN TblVrachtbrief.TblArtikelID = TblRetourgegevens.Originele_ArtikelID TblVrachtbrief.Boekdatum = TblRetourgegevens.Originele_Leverdatum TblVrachtbrief.Productiedatum = TblRetourgegevens.Originele_Productiedatum END SWITCH psFactuurcode CASE csFGrpKaas IF TblVrachtbrief.Aantal < 0 THEN QRY_Select_RelatieArtikelKaas_perRelatieSimple.piRelatieID = TblVrachtbrief.TblRelatieID_Verzend ELSE QRY_Select_RelatieArtikelKaas_perRelatieSimple.piRelatieID = TblVrachtbrief.TblRelatieID END QRY_Select_RelatieArtikelKaas_perRelatieSimple.piArtikelID = TblVrachtbrief.TblArtikelID QRY_Select_RelatieArtikelKaas_perRelatieSimple.pdMaxVanafDatum = TblVrachtbrief.Boekdatum[[1 TO 8]] IF HExecuteQuery(QRY_Select_RelatieArtikelKaas_perRelatieSimple) THEN IF WL.HReadLast(QRY_Select_RelatieArtikelKaas_perRelatieSimple,"",hNoRefresh) THEN li8RelatieArtikelID = QRY_Select_RelatieArtikelKaas_perRelatieSimple.TblRelatieArtikelID END END HFreeQuery(QRY_Select_RelatieArtikelKaas_perRelatieSimple) IF li8RelatieArtikelID > 0 _AND_ WL.HReadSeekFirst(TblRelatieArtikel,TblRelatieArtikelID,li8RelatieArtikelID) THEN lcyBasisprijs = TblRelatieArtikel.Basisprijs lcyHulpPrijs = TblRelatieArtikel.Basisprijs lcyHulpPrijs -= Round(TblRelatieArtikel.Basisprijs * TblRelatieArtikel.Kortingpercentage / 100,4) IF TblRelatieArtikel.GebruikTijdelijkeKorting THEN IF NOT DateValid(TblRelatieArtikel.TijdelijkeKortingDatumTem) _OR_ TblVrachtbrief.Boekdatum <= TblRelatieArtikel.TijdelijkeKortingDatumTem THEN lcyHulpPrijs -= TblRelatieArtikel.TijdelijkeKortingBedragPerKg END END IF TblRelatieArtikel.GebruikGewichtsKorting THEN IF TblVrachtbrief.kilos >= TblRelatieArtikel.GewichtsKortingVanafKg THEN lcyHulpPrijs -= TblRelatieArtikel.GewichtsKortingBedragPerKg END END IF TblRelatieArtikel.GebruikLaadkosten THEN lcyHulpPrijs += TblRelatieArtikel.LaadkostenBedragPerKg END IF TblRelatieArtikel.GebruikVerpakkingskosten THEN lcyHulpPrijs += TblRelatieArtikel.VerpakkingskostenBedragPerKg END ldDatum = TblVrachtbrief.Productiedatum[[1 TO 8]] IF DateValid(ldDatum) THEN liDagen = DateDifference(ldDatum,TblVrachtbrief.Boekdatum[[1 TO 8]]) IF TblRelatieArtikel.VoorrRenteUitvalVanafDag > 0 THEN liDagen -= (TblRelatieArtikel.VoorrRenteUitvalVanafDag - 1) END IF liDagen > 0 THEN // <= 0 betekent dat het minimum aantal kostendagen nog niet bereikt is ! IF TblRelatieArtikel.GebruikVoorraadkosten THEN lcyHulpPrijs += Round(TblRelatieArtikel.VoorraadkostenBedragPerKgDag * liDagen,4) END IF TblRelatieArtikel.GebruikRentekosten THEN lcyHulpPrijs += Round((TblRelatieArtikel.Basisprijs * TblRelatieArtikel.RentekostenPercPerDag / 100) * liDagen,4) END IF TblRelatieArtikel.GebruikUitvalkosten THEN lcyHulpPrijs += Round((TblRelatieArtikel.Basisprijs * TblRelatieArtikel.UitvalkostenPercPerDag / 100) * liDagen,4) END IF HSeekFirst(TblIndroogprofiel,TblRelatieArtikelID,TblRelatieArtikel.TblRelatieArtikelID) THEN liDagen = DateDifference(ldDatum,TblVrachtbrief.Boekdatum[[1 TO 8]]) QRY_Select_Indroogprofiel.piRelatieArtikelID = TblRelatieArtikel.TblRelatieArtikelID IF HExecuteQuery(QRY_Select_Indroogprofiel) THEN liRegel = 0 lcyIndrooggewicht = 0 FOR EACH QRY_Select_Indroogprofiel liRegel++ IF liRegel = 1 THEN // Eerste regel, begin met tellen vanaf deze dag IF QRY_Select_Indroogprofiel.VanafDag > 0 THEN liDagen -= (QRY_Select_Indroogprofiel.VanafDag - 1) END END liFaseDagen = (QRY_Select_Indroogprofiel.TemDag - QRY_Select_Indroogprofiel.VanafDag + 1) IF liDagen >= liFaseDagen THEN lcyIndrooggewicht += Round(liFaseDagen * 1 * QRY_Select_Indroogprofiel.Waarde,3) liDagen -= liFaseDagen ELSE lcyIndrooggewicht += Round(liDagen * 1 * QRY_Select_Indroogprofiel.Waarde,3) liDagen = 0 BREAK END END // Let op, het is een percentage, dus indroogbedrag later vermenigvuldigen met aantal kg. lcyHulpPrijs += Round(TblRelatieArtikel.Basisprijs * (lcyIndrooggewicht / 100),4) // / abs(TblVrachtbrief.kilos),4) END HFreeQuery(QRY_Select_Indroogprofiel) END END // Einde extra kosten obv. extra-kostendagen END END lcyEindPrijs = lcyHulpPrijs RESULT (lcyBasisprijs,lcyEindPrijs,li8RelatieArtikelID) OTHER CASE END END30WEBDEVen_UShttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)bruno.cairespcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52673/read.awp11 Jun 2015 13:36:11 ZHi, I would try this: 1) Use SQL instead of querys (HExecuteSQLQuery instead HExecuteQuery); 1.1) If possible, use a single…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52673/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52673/read.awpWD19/WD20: Memory problems by using a query many timesc.curtispcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52661/read.awp10 Jun 2015 19:38:57 ZFredo. What do you mean by memory arrays? Can you give a quick example? I'm currently using the following code. I'm trying to…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52661/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52661/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52607/read.awp8 Jun 2015 20:45:00 ZHi Fabrice, it took me some time to continue the testing, but here we are. I made a button to loop and execute the first q…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52607/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52607/read.awpWD19/WD20: Memory problems by using a query many timeslacroix.atoopcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52516/read.awp3 Jun 2015 16:36:36 ZLe 30/05/2015 11:56, Stefan Bentvelsen a écrit : > Hi all, > > I have a window with a number of memory tables, filled by code…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52516/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52516/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52458/read.awp1 Jun 2015 23:35:00 ZHi Stefan, ok, so the simplest things have been put out of the way... Now is the time to test... Try and create a test window…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52458/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52458/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52454/read.awp1 Jun 2015 21:17:00 ZHi Fabrice, I already use these blocking of the display of the table: TABLE_KAAS..DisplayEnabled = False with TABLE_…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52454/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52454/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52438/read.awp31 May 2015 22:43:00 Zhi another thing to try is to block the display of the window during the filling of the table, to see if the problem comes fr…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52438/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52438/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52437/read.awp31 May 2015 20:04:00 ZFabrice, beside the fact that the MultiTask(-5) after the HFreeQuery() slows down my program til an unacceptable speed (doesn…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52437/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52437/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52427/read.awp30 May 2015 14:33:00 ZHi everybody to AL: he is already doing that, as hcanceldeclaration=hfreequery (just a different name) to Stefan: the firs…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52427/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52427/read.awpWD19/WD20: Memory problems by using a query many timesguestpcsoft.us.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52426/read.awp30 May 2015 14:05:00 ZHello Stefan HCancelDeclaration is supposed to also free the resources used by a query so perhaps give that a try. Regards…https://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52426/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.us.windev/52423-wd19-wd20-memory-problems-using-query-many-times-52426/read.awpWD19/WD20: Memory problems by using a query many times