This commit is contained in:
2023-10-16 19:01:04 -06:00
parent eb20c14c48
commit 57ef651054
112 changed files with 1988 additions and 7132 deletions

View File

@@ -82,14 +82,14 @@ Sub B4XPage_Appear
End Sub
Sub Regresar_Click
StartActivity(fila)
' StartActivity(fila)
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then
' I want to capture the key here so I return True
StartActivity(seleccion)
' StartActivity(seleccion)
'Return True
End If
' Returning False signals the system to handle the key
@@ -99,7 +99,7 @@ End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
skmt.ExecNonQuery("delete from CUENTAA")
skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
StartActivity(fila)
' StartActivity(fila)
End Sub
Sub b_noventa_Click