- 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/Starter.bas

@@ -66,7 +66,6 @@ Private Sub BTAdmin_StateChanged (NewState As Int, OldState As Int)
 '	StateChanged
 End Sub
 
-
 Sub Service_Start (StartingIntent As Intent)
 	Service.StopAutomaticForeground 'Starter service can start in the foreground state in some edge cases.
 	Subs.revisaBD
@@ -112,7 +111,7 @@ Sub ENVIA_ULTIMA_GPS
 	cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS"
 	cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
 '	Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
-	reqManager.ExecuteCommand(cmd, "inst_visitas")
+	reqManager.ExecuteCommand(cmd, "actualizaUltimaGPS")
 	skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ?  WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
 	'Reiniciamos el timer para cuando llamamos el Sub desde "seleccion"
 	Timer1.Enabled = False
@@ -138,4 +137,19 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
 	Subs.revisaBD
 	Subs.errorLog.ExecNonQuery2("INSERT INTO errores(fecha, error) VALUES (?,?)", Array As Object (Subs.fechaKMT(DateTime.now), logs))
 	Return True
+End Sub
+
+Sub JobDone(Job As HttpJob)
+	Log("JOBDONE STARTER")
+	If Job.JobName = "DBRequest" Then
+		Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
+		Log($"Tag: ${RESULT.tag}, success=${Job.Success}"$)
+	End If
+	'Log(Job.Tag)
+	If Job.Success = False Then
+'		Log("JOBDONE ERROR")
+		LogColor("Error: " & Job.ErrorMessage, Colors.red)
+	Else 'If Job Success then ...
+'		Log("JOBDONE SUCCESS")
+	End If
 End Sub