Android Question VERSION 7.00 released

Dey

Active Member
Licensed User
Longtime User
B4A version: 7.00
Parsing code. (0.36s)
Compiling code. (0.46s)
Compiling layouts code. (0.08s)
Organizing libraries. (0.00s)
Generating R file. (0.38s)
Compiling generated Java code. Error
B4A line: 739
End Sub
javac 1.8.0_112
src\BAR\Orders\cls_tavoli.java:3202: error: incompatible types: void cannot be converted to Object
return _aggiornatavoli();
^

Hi I have this issue with latest version 7.00
Just released
Debug ok

Thank you
^
 

Dey

Active Member
Licensed User
Longtime User
I don't think that it is needed. Is aggiornatavoli a resumable sub?
yes
B4X:
Sub AggiornaTavoli()
    Try
        If lstTavoliAll.size <>lstTavAggiorna.Size Then 'Aggiunto o rimosso tavoli
            Global.Richiesta=1 'Aggiorno
            ProgressDialogShow2("AGGIORNAMENTO TAVOLI...",False)
            SaleRichiesta
           
            TavoliRichiestaAll
            TM.Enabled =True 'Riabilito timer
            Return
        End If
       
        For n=0 To lstTavAggiorna.Size-1
            Dim st As ts_tav
            Dim at As t_tavAgg
            st=lstTavoliAll.get(n) 'utilizzo tutti i tavoli richiesti
            at=lstTavAggiorna.Get(n)
            If at.C12_time_aggiornamento <> st.C12_time_aggiornamento Then 'CE DIFFERENZA
                st.C12_time_aggiornamento = at.C12_time_aggiornamento
                lstTavoliAll.Set(n,st)
                TavoliRichiestaSingolo(st.C01_id_tavolo)
                Wait For TavoliRichiestaSingolo_result(st As ts_tav)
                If SubExists(mCallBack,"ULV_DB_Tavolo_Aggiorna") Then
                    CallSubDelayed2(mCallBack,"ULV_DB_Tavolo_Aggiorna",st) '"Swipe_SX_Ritorno_da_Scrivi_Tavolo"
                End If
               
            End If
        Next
        'TM.Enabled =True 'Riabilito timer
    Catch
        Utility.SaveLog("cls_Tavoli.AggiornaTavoli ERR: " & CRLF & LastException.Message)
        'TM.Enabled =True 'Riabilito timer
    End Try
End Sub
 
Upvote 0

Dey

Active Member
Licensed User
Longtime User
Resumable subs do not return values.

You cannot call Return AggiornaTavoli.
You can call:
B4X:
AggiornaTavoli
Return

B4X:
Sub btg_report_non_fiscale_CheckedChange(Checked As Boolean)
    '24/11/2016
    If md_wifi.wifi_control=False Then
        btg_report_non_fiscale.Checked=False
        Return
    End If
    Try     '!324 line
        btg_chiusura_giornata.Checked=False
        If Checked Then
            Dim Title As String="STAMPA REPORT GIORNALIERO NON FISCALE!"
            Dim Message As String="Attenzione eseguire la stampa report giornaliera?"
            Dim MsgParam As t_MsgParam=Dialog.MyMsgBox(Message,Title,"Si","","No","?")
            Dim risp As Int=Msgbox2(MsgParam.Message,MsgParam.Title,MsgParam.Positive,MsgParam.Cancel,MsgParam.Negative,Null)
            'Wait For Msgbox_Result (risp As Int)
      
            Select risp
                Case DialogResponse.POSITIVE
                    'N.B. Comando 2003 funzona solamente con Demo CustomCom NO CON DemoSF
                    CallSubDelayed(Me,"ReportNonFiscale")
                    'ReportNonFiscale
                Case Else
                    btg_report_non_fiscale.Checked=False
            End Select
        End If
    Catch
        Utility.SaveLog("Vista_400_chiusura.btg_report_non_fiscale_CheckedChange ERR= " & CRLF & LastException.Message)
    End Try
End Sub

B4A version: 7.00
Parsing code. (0.38s)
Compiling code. (0.50s)
Compiling layouts code. (0.02s)
Organizing libraries. (0.00s)
Generating R file. (0.07s)
Compiling generated Java code. Error
B4A line: 324
End Sub
javac 1.8.0_112
src\BAR\Tablet\clslogins.java:760: error: incompatible types: void cannot be converted to Object
return _db_cmd_ritorno_select();

Hi Erel
I think the problem is the Return
But how do I get back out of the Sub?
I do not know where I'm wrong ...
With final version 7.00 I have many compilation errors
With the 7.0 BETA 3 no

I'm continuing with the V7 BETA 3

Thanks and sorry
 
Last edited:
Upvote 0
Top