modal regreso sin transparencias

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>

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
 
 

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

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