From 72b4c47cbed8870a42e8f237fb49dcb8747195c6 Mon Sep 17 00:00:00 2001
From: Hector Javier Rodriguez Flores <hecttor201@gmail.com>
Date: Fri, 24 Sep 2021 14:21:25 -0700
Subject: [PATCH] Creacion del modelo clientes aunque CveCliente sea -1 y la
 asignacion valores para empresaCRM

---
 App_Code/Modelos.vb   | 5 +++++
 Ventas/Ventas.aspx.vb | 7 ++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 7bd11e2fc..31a54c57f 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -6582,6 +6582,8 @@ Namespace Modelos
                     Me.ClienteSucursal.Sucursal = Cliente.Sucursal
                     Me.ClienteSucursal.ImprimeNombreSucursal = Cliente.ImprimeNombreSucursal.ToString()
                 End If
+            Else
+                Cliente = New Modelos.ClienteModel()
             End If
         End Sub
         Public Sub SetMoneda()
@@ -9791,6 +9793,9 @@ Namespace Modelos
         Inherits Modelos.EntityModel
         Protected Overloads Sub SetDefaultValues()
             CveCliente = -1
+            Nombre = ""
+            RFC = ""
+            Codigo = ""
             EnviarFactura = "Si"
             Estatus = "Activo"
             NoExt = ""
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4ec3cd682..8446a5dc6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -10048,6 +10048,11 @@ Partial Class Ventas
         'CLIENTE
         ObjFactura.CveCliente = CveCliente
         ObjFactura.SetCliente()
+        ObjFactura.CveEmpresaCRM = CveEmpresaCRM
+        If CveCliente = -1 And CveEmpresaCRM > 0 Then
+            ObjFactura.Cliente.Nombre = LblEmpresaCRM.Text
+            ObjFactura.Cliente.RFC = LblRFCCRM.Text
+        End If
 
         'SUCURSAL
         'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
@@ -13824,7 +13829,7 @@ Partial Class Ventas
 
         CreaObjetosVenta(True)
 
-        If ObjFactura Is Nothing Or ObjFactura.Cliente Is Nothing Then
+        If ObjFactura Is Nothing Or (ObjFactura.Cliente Is Nothing And Not CveEmpresaCRM > 0) Then
             Alert("Ocurrió un error al procesar los datos para la vista previa. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError)
             ObjFactura = Nothing
             Exit Sub