Android Question VERSION 7.00 released

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

AggiornaTavoli
Return

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