- VERSION 4.10.19

- Se corrigio un error que hacia que cuando se hacia FIN DIA, siempre avisaba que no habia buena conexion.

B4A/B4XMainPage.bas

@@ -424,7 +424,10 @@ 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 existe = 0 Then
 		Dim cmd As DBCommand
 		cmd.Initialize
@@ -554,6 +557,18 @@ Sub JobDone(Job As HttpJob)
 				IMEI_BASE = ""
 				IMEI = ""
 			End If
+
+			If result.Tag = "traeVersion" Then 'query tag
+				For Each records() As Object In result.Rows
+					Private version As String =  records(result.Columns.Get("CAT_AL_VERSION"))
+					Private actualizarAplicacion As String =  records(result.Columns.Get("CAT_AL_ACTUALIZACION"))
+				Next
+				skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERSION_NUEVA"))
+				skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VERSION_NUEVA", version))
+				skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FORZAR_ACTUALIZACION"))
+				skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FORZAR_ACTUALIZACION", actualizarAplicacion))
+				Log($">>>>  GUARDAMOS NUEVA VERSION: ${version}, ${actualizarAplicacion}"$)
+			End If
 		End If
 
 		If Job.JobName = "DBRequest" Then

B4A/C_Cliente.bas

@@ -544,7 +544,8 @@ Sub B4XPage_Appear
 	If META2 < 1 Then
 		META2 = "CUBIERTO"
 	End If
-	la_saldooper.Text = numberformat2(META2, 0, 2, 2, True)
+	If IsNumber(META2) Then META2 = NumberFormat2(META2, 0, 2, 2, True)
+	la_saldooper.Text = META2
 	c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
 	If c.RowCount>0 Then
 		C.Position=0

B4A/C_Principal.bas

@@ -1965,6 +1965,12 @@ Sub connecta_Click
 	Log(">>> REVISAMOS ACTUALIZACION")
 	Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
 	Log(revisaActualizacion)
+	If e_ruta.Text = "KMTS1" Then
+		cargar.Visible = True
+		Subir.Visible = True
+		e_ruta.Text = ""
+		B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
+	Else
 		If revisaActualizacion.Get("forzar") = 1 Then ' Hay actualización, la forzamos.
 '		Starter.newApp.appLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$   'Liga a nuevo apk
 '		Starter.newApp.newMsg = "Nueva version"  'Texto de que hay actualizacion
@@ -2009,11 +2015,6 @@ Sub connecta_Click
 				B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
 			End If
 			c.Close
-		If e_ruta.Text = "KMTS1" Then
-			cargar.Visible = True
-			Subir.Visible = True
-			e_ruta.Text = ""
-		End If
 			If e_ruta.Text = "BERNA1" Then
 				cargar.Visible = True
 				Subir.Visible = True
@@ -2036,6 +2037,7 @@ Sub connecta_Click
 				B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
 			End If
 		End If
+	End If
 End Sub
 
 Sub BUSCA_Click

B4A/Guna Vistas V3.1.b4a

@@ -251,7 +251,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 4.10.17
+	#VersionName: 4.10.19
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Guna Vistas V3.1.b4a.meta

@@ -62,7 +62,7 @@ ModuleClosedNodes16=
 ModuleClosedNodes17=4
 ModuleClosedNodes18=
 ModuleClosedNodes19=
-ModuleClosedNodes2=6
+ModuleClosedNodes2=
 ModuleClosedNodes20=
 ModuleClosedNodes21=
 ModuleClosedNodes22=3,4
@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10,11
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,traeUsarIntentBDWA,1599,0,Subs,parseHTTPError,1547,0,B4XMainPage,Class_Globals,88,0,B4XMainPage,cb_importarBDWA_CheckedChange,999,0,Subs,importaBDDesdeWhatsApp,1549,6,B4XMainPage,i_engrane_Click,773,0,B4XMainPage,b_actualizacion_Click,1000,0,Visual Designer,login.bal,-100,6,B4XMainPage,B4XPage_Appear,245,1,B4XMainPage,B4XPage_Created,227,2
+NavigationStack=Main,Process_Globals,21,0,C_Principal,Class_Globals,21,0,C_Principal,connecta_Click,1959,1,Subs,importaBDDesdeWhatsApp,1566,0,Subs,revisaForzarActualizacion,1516,0,B4XMainPage,B4XPage_Created,98,2,B4XMainPage,B4XPage_Appear,350,0,B4XMainPage,Entrar_Click,423,2,B4XMainPage,JobDone,557,0,Main,Globals,22,0
 SelectedBuild=0
 VisibleModules=23,2,24,13,1,14,4