- Se activó el código para enviar las encuestas al final del día.

- Se corrigio la declaracion del tipo de venta (Starter.tipov) porque no se veian los productos.

B4A/C_Cliente.bas

@@ -482,11 +482,11 @@ Sub gest_Click
 '		If Subs.traeCliente = 0 Then Starter.tipov = "ABORDO"
 '		B4XPages.ShowPage("Productos")
 '	End If
+	Starter.tipov = "PREVENTA"
 	Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
 	If TOMAR_FOTO = 0 Then
 		Cuestionario
 	Else
-		Starter.tipov = "PREVENTA"
 		B4XPages.ShowPage("Productos")
 '	StartActivity(colonia2)
 '	Cuestionario
@@ -1315,11 +1315,11 @@ Sub B_VENTA_Click
 '		Starter.tipov = "VENTA"
 '		B4XPages.ShowPage("Productos")
 '	End If
+	Starter.tipov = "VENTA"
 	Log($"TOMAR_FOTO = ${TOMAR_FOTO}"$)
 	If TOMAR_FOTO = 0 Then
 		Cuestionario
 	Else
-		Starter.tipov = "VENTA"
 '	StartActivity(colonia2)
 		B4XPages.ShowPage("Productos")
 '	Cuestionario
@@ -1610,12 +1610,10 @@ Sub B_E_NEXT_Click
 	'TOMAR_FOTO = 1
 	Cuestionario
 	'StartActivity(colonia2)
-
 End Sub
 
 Sub b_chk_e_Click
 	Panel10.Visible = False
-	
 	If Chk_1.Checked = True Then
 		Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, chk_1_valor,sDate & sTime,c.GetString("CAT_EP_ID")))
 	else if chk_2.Checked = True Then
@@ -1710,7 +1708,6 @@ Private Sub b_guadaenc_Click
 									c.Position = 0
 									Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA4 VALUES(?,?,?,?,?) ",Array As String(c.GetString("CUENTA"),itemselect2,sDate&" "&sTime,2,8 ))
 									c.Close
-									
 									If bandera = 1 Then
 										rb_p7si.Checked = False
 										rb_p7no.Checked = False