Se agrega que pueda abrir app de encuestas del pelon

B4A/C_Cliente.bas

@@ -1231,6 +1231,26 @@ Sub JobDone(Job As HttpJob)
 				Next
 			End If
 		End If
+		
+'		If Job.JobName = "DBRequest" Then
+'			Dim result1 As DBResult = reqManager.HandleJob(Job)
+'			If result1.Tag = "CHECAENCUESTA" Then 'query tag
+'				Log("SIN REGISTROS " & result1.Rows.Size)
+'			
+'				For Each records() As Object In result1.Rows
+'					Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
+'					Log(CUANTOSENCUESTA)
+'					If CUANTOSENCUESTA = "0" Then
+'						cmd.Initialize
+'						cmd.Name ="insert_drop_GV2_4"
+'						cmd.Parameters = Array As Object(usuario,B4XPages.MainPage.principal.e_ruta.text,sDate,"",sTime,"","","","","ENCUESTA",ALMACEN,Application.VersionName,Starter.encuesta)
+'						B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
+'					End If
+'				Next
+'			End If
+'		End If
+		
+		
 	End If
 	Job.Release
 End Sub
@@ -1240,6 +1260,52 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 End Sub
 
 Sub gest_Click
+	
+	c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info2 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_info2 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_info2 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 Sub
+
+Sub compra
+	
 '	If ALMACEN = "4" Or ALMACEN = "36" Then
 '	Log(Subs.traeAlmacen)
 
@@ -1262,7 +1328,7 @@ Sub gest_Click
 
 '	ALMACEN = 79
 '	LA_RUTA = 732
-' Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1)
+	' Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1)
 
 	' Encuesta Pedigree
 '	If (alamcenesEncuesta.IndexOf(ALMACEN.As(Int)) > -1 ) Or (ALMACEN = 6 And LA_RUTA = 3) Then
@@ -1409,6 +1475,9 @@ Sub gest_Click
 	'Else
 '		B4XPages.ShowPage("productos")
 	'End If
+
+
+	
 End Sub