From a1174901535f9aeaebf2eaa149be424a48b1ee75 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Thu, 22 Aug 2019 13:01:33 -0700
Subject: [PATCH] Muestra advertencia cuando no hay cliente

---
 Ventas/Ventas.aspx.vb | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 3f0ab4f82..d9c1a511a 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10680,6 +10680,11 @@ Partial Class Ventas
 #Region "   VISTA PREVIA NEW   "
     Private Sub VistaPreviaNew()
 
+        If Not CveCliente > 0 And Not CveEmpresaCRM > 0 Then
+            Alert("Es necesario seleccionar el cliente al cual se le va a facturar.", TipoMensaje.MsgAdvertencia, "AbrirVentana(""/Ventas/PopUpBuscarClientes.aspx?Opt=Fact"", 800, 547, ""N"", ""PopUpBuscar"")")
+            Exit Sub
+        End If
+
         CreaObjetosVenta(True)
 
         If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then