Creacion del modelo clientes aunque CveCliente sea -1 y la asignacion valores para empresaCRM

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