Other B4A v6.30 has been released!

bgsoft

Well-Known Member
Licensed User
Good work Erel, and very fast work after the beta

Congratulations
 

billyrudi

Active Member
Licensed User
Hi, i think that there are problems while looping over a cursor with sqllite.... it is slow slow slow.
someone has encountered the same problem?
today 5 seconds
yesterday before new version less then 1 second
regards Paolo
B4X:
Dim Cursor1 As Cursor
    Dim ssell As String
    If lstelencoGiri.IsInitialized = False Then
        Return
    End If
    lstelencoGiri.Clear1
 
    ssell = "Select min(Esito) Esito, CodiceDestinatario,max(RagioneSociale) RagioneSociale , max(Indirizzo) Via,max(Citta) Citta, max(IDTransazione) IDTransazione  from Viaggi  where IDFoglioDiViaggio = '" & Operazioni.idfoglioviaggio & "' and Filiale = '" & Operazioni.siglaFiliale & "' group by CodiceDestinatario  Order by Ordinamento Asc"
    Cursor1 = Operazioni.SQL1.ExecQuery( ssell)
    Dim ik As Int
    ik = 0
    Dim bpassato As Boolean
    Dim bgiallo As Boolean
    bpassato = False
    Dim colore As Int
    Dim ultimob As Int
    Operazioni.girifatti = 0
    Operazioni.giritotale = Cursor1.RowCount
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
        'individuazione tipo colore
     
        If Cursor1.GetString("Esito") = "S" Or  Cursor1.GetString("Esito") = "X" Then     
            colore = Colors.RGB(6,129,35)
            bpassato = True
            bgiallo = True
            ik = i
            Operazioni.girifatti = Operazioni.girifatti +1
        Else
            If Cursor1.GetString("Esito") = Null Then 
                colore  = Colors.White
                If  bpassato = False Then
                    bpassato = True
                    ik = i
                End If
                ultimob = i
            Else
               If Cursor1.GetString("Esito") = "I" Then
                    colore = Colors.Yellow
                    bpassato = True
                    bgiallo = True
                    ik = i
                Else
                    colore = Colors.Red
                    bpassato = True
                    bgiallo = True
                    ik = i
                End If
'                ssell = "Select Esito from Viaggi  where Esito in  ('D', 'E' )   and IDFoglioDiViaggio = '" & Operazioni.idfoglioviaggio & "' and Filiale = '" & Operazioni.siglaFiliale & "' and CodiceDestinatario = '" &  Cursor1.GetInt("CodiceDestinatario") & "' "
'                Cursorc = Operazioni.SQL1.ExecQuery(ssell)
'                If Cursorc.RowCount > 0 Then
'                 
'                End If
             
             End If
        End If
     
     
'     
'        If Cursor1.GetString("Esito") = Null Then 
'      
'        Else If Cursor1.GetString("Esito") = "I" Then
'     
'        Else
'            colore =  Colors.Red
'            Operazioni.girifatti = Operazioni.girifatti +1
'        End If
     
        Dim sfondo As Int
        If i Mod 2 = 0 Then
            sfondo = Colors.Black
        Else
         sfondo =    Colors.DarkGray
        End If
        Dim indices As String
        indices = i + 1
        Dim ordinamento As Int
     
        ordinamento = Cursor1.GetInt("CodiceDestinatario")
        Dim ssel, scons, srit As String
        ssel = "Select count(RagioneSociale) tot from Viaggi where TipoServizio = 'C'  and  IDFoglioDiViaggio = '" & Operazioni.idfoglioviaggio & "' and Filiale = '" & Operazioni.siglaFiliale & "' and CodiceDestinatario = '" & Cursor1.GetString("CodiceDestinatario") & "' group by CodiceDestinatario"
        Dim ct As Cursor
        ct  = Operazioni.SQL1.ExecQuery(ssel)
        If ct.RowCount > 0 Then
            ct.Position = 0
            scons = " - N. Cons.: "& ct.GetInt ("tot")
        Else
            scons = " N. Cons.: 0"
        End If
        ct.close
        ssel = "Select count(RagioneSociale) tot from Viaggi where TipoServizio = 'R' and  IDFoglioDiViaggio = '" & Operazioni.idfoglioviaggio & "' and Filiale = '" & Operazioni.siglaFiliale & "' and CodiceDestinatario = '" & Cursor1.GetString("CodiceDestinatario") & "' group by CodiceDestinatario"
     
        ct  = Operazioni.SQL1.ExecQuery(ssel)
        If ct.RowCount > 0 Then
            ct.Position = 0
            srit = " - N. Rit.: "& ct.GetInt ("tot")
        Else
            srit = " - N. Rit.: 0"
        End If
        ct.Close
        lstelencoGiri.Add(CreateListaItem(indices & ") " &  Cursor1.GetString("RagioneSociale")  & CRLF & Cursor1.GetString("Via") & " " & Cursor1.GetString("Citta") & scons & srit, lstelencoGiri.AsView.Width,   35dip,colore,sfondo, Cursor1.GetString("IDTransazione")), 60dip , ordinamento)  
    Next
    Cursor1.Close
 

Ratna Fang

Member
Licensed User
wow... i'm in now
just back from holidays and i got this lovely update.
erel is a lovely guy
 

RafaelC

Member
Licensed User
Maybe this is just a silly question: I had installed B4A version 6.0 and everything worked fine. I just downloaded 6.30 and now all my example projects show the following error:
upload_2016-10-3_20-15-42.png

I downloaded 6.3 and installed on top of 6.0. Is that Ok? If so, what am I missing?
Thanks

Rafael
 

RafaelC

Member
Licensed User
Further to my previous question, can you explain the meaning of “Note that the debug key has been replaced”. I have uninstalled the previous app (developed with V6.0) form my phone but that has not solved the problem.
 

RafaelC

Member
Licensed User
Marco: No. It didn't work. Thks anyway
Erel: Tried to unload app, unload b4a_bridge 2.14 and substitute if with 2.13 (which, by the way, showa "2.12" on the screen). None of these worked. As I see others have had the same problem, I am starting a new thread
 

techknight

Well-Known Member
Licensed User
The only nitpick thing I have to say, is it reset ALL of my GUI settings and I did not like that one bit. kinda my petpeeve. dont mess with my settings please!!

Other than that, it works perfectly fine as normal.
 

Erel

Administrator
Staff member
Licensed User
The only nitpick thing I have to say, is it reset ALL of my GUI settings and I did not like that one bit. kinda my petpeeve. dont mess with my settings please!!
As the new version is based on a different layout framework it was not possible to preserve the layout settings. I completely agree with the importance of respecting the developers customizations.
 

techknight

Well-Known Member
Licensed User
Why the framework change? Did the old one have bugs that weren't fixed, or became unsupported? Just curious.
 

JohnC

Well-Known Member
Licensed User

BobsYourUncle

Member
Licensed User
Is it possible to install B4A versions side by side? So have both B4A 5 and B4A 6 installed on the same PC? (So I can test migrate my Apps from B4a 5 to 6 to ensure no problems introduced). Thanks!
 
Top