diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index b991a40a3..388078978 100644
--- a/App_Code/ClsClientes.vb
+++ b/App_Code/ClsClientes.vb
@@ -161,6 +161,8 @@ Public Class ClsClientes
     Public Property CveAlmacenAlterno As Integer = -1
     Public Property CveAlmacenConsignacion As Integer = -1
     Public Property UsaProductoAlterno As Boolean = False
+    Public Property EnDemanda As Boolean = False
+    Public Property EnQuebranto As Boolean = False
 
 
 #End Region
@@ -413,6 +415,8 @@ Public Class ClsClientes
                 _CveAlmacenConsignacion = Data(0)("CveAlmacenConsignacion").ToString.ToEntero
 
                 _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
+                _EnDemanda = CBool(Data(0)("UsaProductoAlterno"))
+                _EnQuebranto = CBool(Data(0)("EnQuebranto"))
 
             End If
             Retorno = True
@@ -530,7 +534,8 @@ Public Class ClsClientes
                                Optional CveMotivoTraslado As Integer = 0, Optional NumRegIdTrib As String = "", Optional ComExtEstado As String = "-1", Optional ComExtMunicipio As String = "-1", Optional ComExtColonia As String = "-1", Optional RequiereOC As Boolean = False,
                                Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0,
                                Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1", Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
+                               Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
+                               Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -662,6 +667,8 @@ Public Class ClsClientes
             .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
             .Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
+            .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
+            .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -707,7 +714,8 @@ Public Class ClsClientes
                                 Optional ApellidoPaternoPF As String = "-1", Optional ApellidoMaternoPF As String = "-1", Optional NombresPF As String = "-1", Optional RequiereOC As Boolean = False,
                                 Optional LT As String = "0", Optional LG As String = "0", Optional EsDistribuidor As Boolean = False, Optional TipoCliente As Integer = 1, Optional CargoUsado As Boolean = False, Optional BonificacionUsado As Boolean = False, Optional CveTipoRetencion As Integer = 0, Optional CorreoEntregaCompras As String = "-1", Optional CorreoEntregaAlmacen As String = "-1",
                                 Optional CveSATEstado As Integer = -1, Optional CveAdminTrayecto As Integer = -1, Optional NoDesglosaIVA As Boolean = False, Optional CveRegimenFiscal As Integer = 0, Optional RegimenSociedad As String = "-1", Optional TipoPersona As Boolean = False,
-                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False) As Boolean
+                                Optional RepresentanteLegal As String = "", Optional FechaLimiteCredito As Date = MinFecha, Optional ComExtCalle As String = "-1", Optional ComExtNumExt As String = "-1", Optional ComExtCP As String = "-1", Optional Genero As Boolean = True, Optional CveAlmacenAsignado As Integer = -1, Optional CveAlmacenAlterno As Integer = -1, Optional CveAlmacenConsignacion As Integer = -1, Optional UsaProductoAlterno As Boolean = False,
+                                Optional EnDemanda As Boolean = False, Optional EnQuebranto As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -849,7 +857,8 @@ Public Class ClsClientes
             .Add("@CveAlmacenConsignacion", SqlDbType.Int).Value = CveAlmacenConsignacion
             .Add("@CveAlmacenAlterno", SqlDbType.Int).Value = CveAlmacenAlterno
             .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
-
+            .Add("@EnDemanda", SqlDbType.Bit).Value = EnDemanda
+            .Add("@EnQuebranto", SqlDbType.Bit).Value = EnQuebranto
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 83a8a4a08..4626cfcaf 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -4234,7 +4234,8 @@ Partial Class Clientes
                                                          
                                                         <b>ESTE CORREO SE GENERO EN FORMA AUTOMATICA, FAVOR DE NO RESPONDERLO.</b>", TxtNombreComercial.Text, UsuarioActual.Empresa.Empresa)
                         End If
-                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
+                        Dim tusuario As Usuario = UsuarioActual
+                        Dim Hilo As New System.Threading.Thread(Sub() MandaCorreoEstadoCuenta(tusuario, UsuarioActual.CveEmpresa, Me.CveCliente, File, TxtCobranzaCorreo.Text, $"Estado Actual de Cartera en {UsuarioActual.Empresa.Empresa}", Cuerpo, GuardarBitacora:=True))
                         Hilo.Start()
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
@@ -4314,7 +4315,7 @@ Partial Class Clientes
             End If
         End If
     End Sub
-    Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
+    Private Sub MandaCorreoEstadoCuenta(UsuarioActual As Usuario, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
         Dim a As String = String.Format("{0} -- {1} ---- -->", Asunto, Para)
         'a.GuardaLog()
@@ -4326,8 +4327,8 @@ Partial Class Clientes
         Dim Envio As Boolean = Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, Body, Archivos:=LSRutasMail)
 
         If Envio AndAlso GuardarBitacora Then
-            Using ObjBitacora As New ClsOIEventos
-                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", CveUsuario, CveEmpresa, CveCliente:=CveCliente)
+            Using ObjBitacora As New ClsOIEventos(UsuarioActual:=UsuarioActual)
+                ObjBitacora.AddEventoBitacora("Se envió correo con el estado de cuenta del cliente", "", UsuarioActual.CveUsuario, CveEmpresa, CveCliente:=CveCliente)
             End Using
         End If