- VERSION 5.05.27

- Se cambio el servidor de DBReq a keymon.net
- Se hizo que el envio de ubicacion en tiempo real siempre inicialize el servidor de DBReq con la ip correcta, porque si se modificaba la direccion desde el engrane, no enviaba bien la informacion!

B4A/Subs.bas

@@ -660,8 +660,10 @@ Sub traeAlmacen As String 'ignore
 	Private c As Cursor
 	Private a As String
 	c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
-	c.Position = 0
-	a = C.GetString("ID_ALMACEN")
+	If c.RowCount > 0 Then
+		c.Position = 0
+		a = C.GetString("ID_ALMACEN")
+	End If
 	c.Close
 	Return a
 End Sub
@@ -1257,12 +1259,12 @@ Sub agregaColumna(tabla As String, columna As String, tipo As String)
 		c.Position = 0
 		If c.GetString("fCol") = 0 Then 'Si no esta la columna la agregamos
 			B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
-			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
+'			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}"."$)
 		End If
 	Catch 'Si no funciona "pragma_table_info" lo hacemos con try/catch
 		Try
 			B4XPages.MainPage.skmt.ExecNonQuery($"ALTER TABLE ${tabla} ADD COLUMN ${columna} ${tipo}"$)
-			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
+'			Log($"Columna "${columna} ${tipo}", agregada a "${tabla}".."$)
 		Catch
 			Log(LastException)
 		End Try