diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx
index 787910cdd..39ebbe52f 100644
--- a/Inventarios/EntregaAlmacen.aspx
+++ b/Inventarios/EntregaAlmacen.aspx
@@ -1150,6 +1150,17 @@
 
         }
 
+        function fncCantidad(checkbox, numeroMax, idTbCantidadF) {
+            
+            var $textbox = $('#' + idTbCantidadF);
+
+            if ($(checkbox).is(':checked')) {
+                $textbox.val(numeroMax);
+            } else {
+                $textbox.val(0);
+            }
+        }
+
     </script>
 
 </asp:Content>
diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 7e9b55a25..b2012351d 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -5,6 +5,7 @@ Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
 Imports System.Web.Management
+Imports DocumentFormat.OpenXml.InkML
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Imports MoreLinq
@@ -1237,13 +1238,13 @@ Partial Class Inventarios_EntregaAlmacen
 
             If BloqueCantidad Then
                 e.Row.FCTextBox("TbCantidadF").Enabled = False
+            Else
+                e.Row.FCCheckBox("cbInv").Attributes.Add("onclick", $"fncCantidad(this,{e.Row.DBCampo("CantidadF")},'{e.Row.FCTextBox("TbCantidadF").ClientID}')")
             End If
 
 
             If Boolean.Parse(e.Row.DataKey("AplicaLote")) Or Boolean.Parse(e.Row.DataKey("AplicaCaducidad")) Then
-
                 CargarCaducidadProducto(e.Row.DataKey("CvePS").ToEntero, e.Row.FCDropDownList("DdlCaducidadProducto"))
-
             End If
 
 
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb
index 9dc3626fa..36efb7edb 100644
--- a/UserControl/AddMedico.ascx.vb
+++ b/UserControl/AddMedico.ascx.vb
@@ -68,8 +68,7 @@ Partial Class UserControl_AddMedico
     Private Sub UserControl_AddMedico_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            CargaCombos()
-            CargaCombosMedicoClientesucursal()
+
         End If
     End Sub
 
@@ -138,6 +137,9 @@ Partial Class UserControl_AddMedico
 
 
     Public Sub LimpiarControles()
+        CargaCombos()
+        CargaCombosMedicoClientesucursal()
+
         CveMedico = -1
         CrearDTMedicosClientesSucursales()
         CveMedicoClienteSucursal = -1
@@ -197,6 +199,9 @@ Partial Class UserControl_AddMedico
     Public Sub PreparaEdicion(CveMedicoEditar As Integer, Nombre As String, APaterno As String, AMaterno As String, CedulaProfecional As String, FechaNacimiento As Date, Notas As String, Estatus As Boolean,
                              Mail As String, Telefono As String, Celular As String, CveMedicoEspecialidad As Integer, CveMedicoSubEspecialidad As Integer, FechaIng As DateTime, Usuario As String, CveVendedor As Integer)
 
+        CargaCombos()
+        CargaCombosMedicoClientesucursal()
+
         CveMedico = CveMedicoEditar
         TxtNombre.Text = Nombre
         TxtAPaterno.Text = APaterno
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 7a5a0f5b9..b755a1c7b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -36949,8 +36949,14 @@ Partial Class Ventas
             If DdlClientesModal.SelectedValue.ToEntero > 0 Then
                 ViewState("CveCliente") = DdlClientesModal.SelectedValue.ToEntero
             Else
-                Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
-                Exit Sub
+                Dim CveClientePublicoGeneral As Integer = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", " RFC = 'XAXX010101000' ").ToEntero
+
+                If CveClientePublicoGeneral > 0 Then
+                    ViewState("CveCliente") = CveClientePublicoGeneral
+                Else
+                    Alert("Debe de seleccionar un cliente.", TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
             End If