FIXED 619

[Claudius Sailer]

Am 08. Apr 2005 um 15:03 Uhr schrieb Ruslan Zasukhin:

> On 4/8/05 7:52 AM, "Claudius Sailer" <Claudius at sailer-online.de> wrote:
>
>> But #619, in my point of view a very important bug, is still open.
>> could someone have a look at it?
>
> FIXED.

Fixed in 2.0.2 fc where I could load this morning?
I made tests with this version and ViSQL crashed after 3 times pressing 
SQL Button.
I will test again.


> Claudius,
>
> You also get so long time for this union query on your db ?

I am only using UNION query. It takes 2-3 seconds for following code.

   #if DebugBuild then
     StartTick=ticks
   #Endif

   //Anzeigen des Fortschrittsbalkens und des dazugehörigen Textes
   StaticText2.text=TextDatenErmitteln
   ProgressBar1.visible=true
   StaticText2.refresh

   select case FuellIndex
   case 1
     //PopupMenu und Buttons deaktivieren
     ButtonAktivDeaktiv 2
     EingabeFelderAktivDeaktiv false

   case 2
     //ListBox nach Äendern, Löschen, Hinzufügen
     //Hier muss nix gemacht werden!!!!!
     //Konten auf Überziehungen prüfen,wenn nicht schon geprüft wird
     if bitwiseand(BuchungenCalc,3)=2 then
       ThreadBeginn.run
     end if
   end select

   //Listbox vorbereiten
   SQLString=SQLBuilder(33,false,cstr(AktuellesKonto))
   CurBuchungen=V4RBSQLSelect(meineDatenbank,SQLString)
   Ende=CurBuchungen.RecordCount
   #if DebugBuild then
     FehlerMeldung("Information", "Cursor aufbauen benötigte Sekunden: " 
+ CStr((ticks - StartTick)/60))
   #Endif



In 1.10 following code need 0.5sec



   #if DebugBuild then
     StartTick=ticks
   #Endif

   //Anzeigen des Fortschrittsbalkens und des dazugehörigen Textes
   StaticText2.text=TextDatenErmitteln
   ProgressBar1.visible=true
   StaticText2.refresh

   select case FuellIndex
   case 1
     //PopupMenu und Buttons deaktivieren
     ButtonAktivDeaktiv 2
     EingabeFelderAktivDeaktiv false

     //Zwischentabelle fuellen
     //Ausgaben uebergeben
     meineDatenbank.TAnzeige.DeleteAllRecords
     meineDatenbank.TAnzeige.flush

     //ParserArbeiten
     //Ausgaben
     SQLString="SELECT B.RecID, B.BDatum, KZ.Konto_Name, 
K.Kategorie_Name, B.Betrag, B.Kommentar, B.Blocked"
     SQLString=SQLString+" FROM Buchungen B, Kategorien K, Konten KZ"
     SQLString=SQLString+" WHERE B.Kategorie_ID=K.RecID"
     SQLString=SQLString+ " AND B.Ziel_Konto=KZ.RecID"
     SQLString=SQLString+ " AND B.Deleted='0'"
     SQLString=SQLString+ " AND B.Herk_Konto='"+cstr(AktuellesKonto)+"'"

     cmd= "INSERT INTO Anzeige (Buchungs_ID, BDatum, Gegenkonto, 
Kategorie, Ausgabe, Kommentar, Blocked) "
     cmd=cmd + SQLString
     count=meineDatenbank.SQLExecute(cmd)

     //Einnahmen
     SQLString="SELECT B.RecID, B.BDatum, KO.Konto_Name, 
K.Kategorie_Name, B.Betrag, B.Kommentar, B.Blocked"
     SQLString=SQLString+" FROM Buchungen B, Kategorien K, Konten KO"
     SQLString=SQLString+" WHERE B.Kategorie_ID=K.RecID"
     SQLString=SQLString+ " AND B.Herk_Konto=KO.RecID"
     SQLString=SQLString+ " AND B.Deleted='0'"
     SQLString=SQLString+ " AND B.Ziel_Konto='"+cstr(AktuellesKonto)+"'"

     cmd= "INSERT INTO Anzeige (Buchungs_ID, BDatum, Gegenkonto, 
Kategorie, Einnahme, Kommentar, Blocked) "
     cmd=cmd + SQLString
     count=meineDatenbank.SQLExecute(cmd)

     meineDatenbank.Tanzeige.flush
     #if DebugBuild then
       FehlerMeldung("Information", "Datenbank umfüllen Benötigte 
Sekunden: " + CStr((ticks - StartTick)/60))
     #Endif


both in RB DebugMode

bye


Claudius