- VERSION 4.10.21

- Se amplió el campo de cantidad en productos.
- Se corrigió el error cuando la cantidad era mayor a 999.
- Se corrigió que no guardara los productos cuando te regresabas o le dabas continuar o las varias opciones que no los guardaba.
- Se corrigió que si te aparecía la leyenda de producto VENDIDO y luego lo borrabas desde Nota, y te seguía apareciendo como vendido.
- Se modificó el código de subs.traeRuta para que traiga la ruta del cliente ACTUAL, esto es por las suplencias.

B4A/B4XMainPage.bas

@@ -424,10 +424,12 @@ Sub Entrar_Click
 	c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
 	c.Position=0
 	existe = c.GetString("EXISTE1")
-	cmd.Initialize
-	cmd.Name = "selectVersionAppGuna"
-	cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
-	reqManager.ExecuteQuery(cmd , 0, "traeVersion")
+	If Subs.traeAlmacen <> "NA" Then
+		cmd.Initialize
+		cmd.Name = "selectVersionAppGuna"
+		cmd.Parameters = Array As Object(Subs.traeAlmacen)
+		reqManager.ExecuteQuery(cmd , 0, "traeVersion")
+	End If
 	If existe = 0 Then
 		Dim cmd As DBCommand
 		cmd.Initialize
@@ -475,6 +477,7 @@ Private Sub user_EnterPressed
 End Sub
 
 Sub JobDone(Job As HttpJob)
+	Log("JOBDONE MAINPAGE")
 	Log(Job.Success)
 	If Job.Success = False Then
 		LogColor("Error: " & Job.tag & " : " & Subs.parseHTTPError(Job.ErrorMessage), Colors.red)