21-09-23 TECLADO Y PERMISOS

B4A/C_Principal.bas

@@ -16,6 +16,7 @@ Sub Class_Globals
 	Dim sb As StringBuilder
 	Dim PHONE As Phone
 	Dim g As GPS
+	Dim IME as IME
 	Dim trabajar As Button
 '	Dim lat_gps, lon_gps As String
 	Dim c As Cursor
@@ -728,6 +729,7 @@ Sub Subir_Click
 End Sub
 
 Sub cargar_Click
+	IME.HideKeyboard
 	Dim pedidodiaanterior As Boolean = False
 	Dim cp As Cursor = B4XPages.MainPage.skmt.ExecQuery("select * from PEDIDO")
 	If cp.RowCount > 0 Then