se quita lo del app 360

B4A/B4XMainPage.bas

@@ -817,7 +817,7 @@ End Sub
 Sub i_engrane_Click
 	p_appUpdate.Left = (Root.Width/2) - (p_appUpdate.Width/2)
 	lv_server.Clear
-	lv_server.AddSingleLine("http://keymon.lat:1782")
+	lv_server.AddSingleLine("http://keymon.net:1782")
 	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
 	l_server.Text = Starter.server
 	et_server.Text = Starter.server

B4A/C_Cliente.bas

@@ -1491,64 +1491,64 @@ End Sub
 Sub gest_Click
 	If B_IMP.Visible = True Then
 		If Not(Subs.revisaImpreso) Then
-			c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
-			c.Position = 0
-			If c.GetString("encuesta") = "0" Then
-				Dim Intent1 As Intent
-				Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
-				Log(enviorutas)
-				Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
-				Try
-					Starter.encuesta = 1
-					Dim cmd As DBCommand
-					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
-					StartActivity(Intent1)
-					compra
-				Catch
-					Starter.encuesta = 0
-					Dim cmd As DBCommand
-					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
-					ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
-					compra
-				End Try
-				cmd.Initialize
-				cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
-				cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
-				B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
-			Else
+'			c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+'			c.Position = 0
+'			If c.GetString("encuesta") = "0" Then
+'				Dim Intent1 As Intent
+'				Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
+'				Log(enviorutas)
+'				Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
+'				Try
+'					Starter.encuesta = 1
+'					Dim cmd As DBCommand
+'					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
+'					StartActivity(Intent1)
+'					compra
+'				Catch
+'					Starter.encuesta = 0
+'					Dim cmd As DBCommand
+'					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
+'					ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
+'					compra
+'				End Try
+'				cmd.Initialize
+'				cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
+'				cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
+'				B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
+'			Else
 				compra
-			End If
+'			End If
 		Else
 			p_transparenteTicketImpreso.Visible = True
 		End If
 	Else
-		c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
-		c.Position = 0
-		If c.GetString("encuesta") = "0" Then
-			Dim Intent1 As Intent
-			Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
-			Log(enviorutas)
-			Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
-			Try
-				Starter.encuesta = 1
-				Dim cmd As DBCommand
-				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
-				StartActivity(Intent1)
-				compra
-			Catch
-				Starter.encuesta = 0
-				Dim cmd As DBCommand
-				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
-				ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
-				compra
-			End Try
-			cmd.Initialize
-			cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
-			cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
-			B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
-		Else
+'		c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info3 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+'		c.Position = 0
+'		If c.GetString("encuesta") = "0" Then
+'			Dim Intent1 As Intent
+'			Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
+'			Log(enviorutas)
+'			Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
+'			Try
+'				Starter.encuesta = 1
+'				Dim cmd As DBCommand
+'				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
+'				StartActivity(Intent1)
+'				compra
+'			Catch
+'				Starter.encuesta = 0
+'				Dim cmd As DBCommand
+'				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
+'				ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
+'				compra
+'			End Try
+'			cmd.Initialize
+'			cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
+'			cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
+'			B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
+'		Else
 			compra
-		End If
+'		End If
 	End If
 End Sub
 

B4A/C_Principal.bas

@@ -1263,7 +1263,7 @@ Sub JobDone(Job As HttpJob)
 				If n = "OKActivo"  Then
 					Dim cmd As DBCommand
 					cmd.Initialize
-					cmd.Name = "select_ruta_GV2_70_10"
+					cmd.Name = "select_ruta_GV2_70_11"
 					cmd.Parameters = Array As Object(ALMACEN,e_ruta.text)
 					B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "ruta")
 					'Log("Usuario guardado en BD es 'Valido'")

B4A/Guna Vistas V3.1.b4a

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

B4A/Guna Vistas V3.1.b4a.meta

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=5,6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,cuentaProds,615,0,C_Principal,Subir_Click,648,0,C_Principal,JobDone,1378,0,C_Cliente,B4XPage_Created,516,0,C_Cliente,Cuestionario,4675,0,C_Cliente,ImageView4_Click,5743,6,C_Cliente,Label19_LongClick,5734,0,C_Cliente,b_comentarios_Click,5658,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,B4XPage_Appear,1104,6
+NavigationStack=C_Cliente,b_comentarios_Click,5658,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,B4XPage_Appear,1104,6,Starter,Process_Globals,15,3,B4XMainPage,i_engrane_Click,813,0,Main,Globals,23,0,C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,2240,0,C_Principal,JobDone,1259,0,B4XMainPage,i_engrane_LongClick,1067,0,C_Cliente,gest_Click,1544,0
 SelectedBuild=0
 VisibleModules=25,2,14,26,5,10,15,11,20,19

B4A/Starter.bas

@@ -19,7 +19,7 @@ Sub Process_Globals
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
-	Dim server As String = "http://187.189.244.154:1782"
+	Dim server As String = "http://keymon.net:1782"
 '	Dim server As String = "http://10.0.0.205:1782"
 	Dim Timer1 As Timer
 	Dim Interval As Int = 300