- Se puso la misam fecha en inicio y fin de los eventos del "Motivo de no venta"

B4A/C_Cliente.bas

@@ -403,6 +403,10 @@ End Sub
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	If kh.motivoNoVisitaActivo Then
+		ToastMessageShow("Ruta CERRADA por NO VISITA", True)
+		Subs.iniciaActividad("Principal")
+	End If
 	indicePregunta = 0
 	b_noVenta.Enabled = False
 '	Log(kh.traeTotalCliente)
@@ -1519,7 +1523,7 @@ Sub Imprime_ticket
 				Next
 			End If
 			s.Close
-		
+
 			s=Starter.skmt.ExecQuery2("select sum(PE_CANT) as CANTIDAD, SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_CEDIS <> PE_PROID AND PE_TIPO = ? and substr(pe_pronombre,1,6) = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA","CAMBIO"))
 			s.Position = 0
 			Private sTotal3 As Double