Bug? Error with a inexistent Try

DactilPlus

Member
Licensed User
Longtime User
My app gives me this error but there isnt a try ( see the image )

B4A version: 5.80
Parsing code. (0.06s)
Compiling code. (0.13s)
Compiling layouts code. (0.00s)
Generating R file. (0.20s)
Compiling debugger engine code. Error
B4A line: 3868
End Sub
javac 1.8.0_73
shell\src\teamTrack\app\main_subs_0.java:5451: error: 'try' without 'catch' or 'finally'
try {
^
1 error
 

Attachments

  • 2017-03-28_1134.png
    2017-03-28_1134.png
    51.6 KB · Views: 422
Sent.
Btw when i try to generate clic event with a button or similar it don works, i must create the sub manualy. It only create the button like
Code:
Private Button_re_m As Button

but dont create
Code:
Sub Button_re_m_Click

End sub

it must do manualy
 
Ok solved, i forgot put this in jobdone
Code:
Select Case Job.JobName

I put this when jobdone gives an error

Code:
    Else
                S
                Panel_Err_c.Color=Colors.red
        ToastMessageShow("Espere por favor ...", False )
Case "cargar_amigos_listado"
ExecuteRemoteQuery_cargar_amigos_listado("cargar_amigos_listado")
'Case "cargar_lista_gpx"
'ExecuteRemoteQuery_cargar_lista_gpx("cargar_lista_gpx")
'Case "cargar_amigos_grupo"
'ExecuteRemoteQuery_cargar_amigos_listado_grupo("cargar_amigos_grupo",id_gru)
'Case "cargar_grupos_amigos"
'ExecuteRemoteQuery_cargar_grupos_amigos("cargar_grupos_amigos")
Case "aceptar_rechazar_amigo"
ExecuteRemoteQuery_rechazar_amigo("aceptar_rechazar_amigo")
Case "cargar_amigos_no_listado"
ExecuteRemoteQuery_cargar_amigos_no_listado("cargar_amigos_no_listado")
Case "cargar_mensaje"
ExecuteRemoteQuery_cargar_mensaje("cargar_mensaje")
Case "existe_amigo"
ExecuteRemoteQuery_existe_Amigo("existe_amigo")
Case "comprobar_ya_amigos"
ExecuteRemoteQuery_comprobar_ya_amigo("comprobar_ya_amigos")
Case "modificar_ver_amigo"
ExecuteRemoteQuery_modificar_ver_amigo("modificar_ver_amigo")
Case "insertar_registro"
ExecuteRemoteQuery_insert_registro("insertar_registro")
Case "Identificacion"
ExecuteRemoteQuery( "Identificacion")

    End If
    Job.Release

and the correct code is this

Code:
    Else
                Select Case Job.JobName
                Panel_Err_c.Color=Colors.red
        ToastMessageShow("Espere por favor ...", False )
Case "cargar_amigos_listado"
ExecuteRemoteQuery_cargar_amigos_listado("cargar_amigos_listado")
'Case "cargar_lista_gpx"
'ExecuteRemoteQuery_cargar_lista_gpx("cargar_lista_gpx")
'Case "cargar_amigos_grupo"
'ExecuteRemoteQuery_cargar_amigos_listado_grupo("cargar_amigos_grupo",id_gru)
'Case "cargar_grupos_amigos"
'ExecuteRemoteQuery_cargar_grupos_amigos("cargar_grupos_amigos")
Case "aceptar_rechazar_amigo"
ExecuteRemoteQuery_rechazar_amigo("aceptar_rechazar_amigo")
Case "cargar_amigos_no_listado"
ExecuteRemoteQuery_cargar_amigos_no_listado("cargar_amigos_no_listado")
Case "cargar_mensaje"
ExecuteRemoteQuery_cargar_mensaje("cargar_mensaje")
Case "existe_amigo"
ExecuteRemoteQuery_existe_Amigo("existe_amigo")
Case "comprobar_ya_amigos"
ExecuteRemoteQuery_comprobar_ya_amigo("comprobar_ya_amigos")
Case "modificar_ver_amigo"
ExecuteRemoteQuery_modificar_ver_amigo("modificar_ver_amigo")
Case "insertar_registro"
ExecuteRemoteQuery_insert_registro("insertar_registro")
Case "Identificacion"
ExecuteRemoteQuery( "Identificacion")
End Select
    End If
    Job.Release
 
Last edited:
Ok Solved, if you copy and paste buttons be carefull and change the event name, if not both will have the same event name.
 
Back
Top