...

B4A/C_Cliente.bas

@@ -1319,7 +1319,40 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
 End Sub
 
 Sub gest_Click
-	If Not(Subs.revisaImpreso) Then
+	If B_IMP.Visible = True Then
+		
+		If Not(Subs.revisaImpreso) Then
+			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
+		Else
+			p_transparenteTicketImpreso.Visible = True
+		End If
+	Else
 		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
@@ -1347,8 +1380,6 @@ Sub gest_Click
 		Else
 			compra
 		End If
-	Else
-		p_transparenteTicketImpreso.Visible = True
 	End If
 End Sub