- VERSION 4.10.09.EP_d

- Se corrige el error de que a veces cuando se mete producto, no lo agrega al pedido (normalmente para Chong), basicamente si se buscaba un producto y se escribia muy rapido, duplicaba los resultados y al agregar el producto, se agregaba en blanco.
- Se hicieron cambios en la clase del cuestionario para que no se amontonen las preguntas y se vean mejor en algunas pantallas.

B4A/C_Clientes.bas

@@ -65,13 +65,13 @@ End Sub
 
 Sub B4XPage_Appear
 	busca.Text = ""
-	entro ="2"
+	entro = "2"
 	colonia = 0
-	c=B4XPages.MainPage.skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where  gestion = 0 ORDER BY CAT_CL_CODIGO")
+	c = B4XPages.MainPage.skmt.ExecQuery("select  CAT_CL_NOMBRE, CAT_CL_CALLE, CAT_CL_CODIGO from kmt_info2 where  gestion = 0 ORDER BY CAT_CL_CODIGO")
 	ListView1.Clear
 	lfila.Text = "NOMBRE"
 	If c.RowCount>0 Then
-		For i=0 To c.RowCount -1
+		For i = 0 To c.RowCount - 1
 			c.Position=i
 			Dim label1 As Label
 			label1 = ListView1.TwoLinesLayout.Label
@@ -84,6 +84,11 @@ Sub B4XPage_Appear
 			ListView1.AddTwoLines(c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"))
 		Next
 	End If
+	If B4XPages.MainPage.cliente.cuest.IsInitialized Then
+		'Borramos las encuestas que no hayan respondido la pregunta 7, es decir que si no completaron la encuesta, se borra todo para que les vuelva a aparecer.
+		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUESTIONARIO where Q_IDCLIENTE not in (select Q_IDCLIENTE from CUESTIONARIO where Q_IDPREGUNTA = '7')")
+		Log("Borramos encuestas incompletas")
+	End If
 	entro = "4"
 End Sub
 
@@ -115,7 +120,7 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
 		End If
 		entro = "4"
 	Else If entro = "4" Then
-		Starter.VarX = 0
+		Starter.enVenta = False
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(Value))
 		DateTime.TimeFormat = "HHmmss"