Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsClientes.vb

@@ -162,6 +162,7 @@ Public Class ClsClientes
     Public Property RepresentanteLegal As String
     Public Property CveAlmacenAsignado As Integer
     Public Property UsaProductoAlterno As Boolean = False
+    Public Property CveAlmacenAsignado As Integer = -1
 
 #End Region
 
@@ -410,6 +411,7 @@ Public Class ClsClientes
                 _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
                 _CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
                 _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
+                Me.CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
 
             End If
             Retorno = True

App_Code/ClsPaginas.vb

@@ -5187,7 +5187,7 @@ Public Class ClsPaginas
 #End Region
 #Region "IMPRIMIR FACTURA"
 
-    Public Function PdfFactura(ByRef Vta As Modelos.Factura, Optional AplicaPagare As String = "0", Optional Guardar As Boolean = True, Optional SubReportData As Modelos.MSubReportData = Nothing, Optional UsarStimul As Boolean = False) As Byte()
+    Public Function PdfFactura(ByRef Vta As Modelos.Factura, Optional AplicaPagare As String = "0", Optional Guardar As Boolean = True, Optional SubReportData As Modelos.MSubReportData = Nothing, Optional UsarStimul As Boolean = False, Optional RegenerarQR As Boolean = False) As Byte()
         Dim retorno As Byte() = Nothing
         ' Dim ObjVentas As New ClsVentas
         'DATOS GENERALES
@@ -5489,9 +5489,18 @@ Public Class ClsPaginas
             End If
         End If
         'Si no tiene CBB, SE GENERA
-        If Not ImagenCBB.Exists AndAlso Vta.FolioFiscal <> "" Then
+        If (Not ImagenCBB.Exists OrElse RegenerarQR) AndAlso Vta.FolioFiscal <> "" Then
-            Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
+            'Dim CBB As New ClbNegBICFDv3_2.ClsNegCBBGenerar()
-            CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total, Vta.FolioFiscal, RutaCBB)
+            'CBB.GenerarCBB(UsuarioActual.Empresa.RFC, RFCReceptor, Vta.Total, Vta.FolioFiscal, RutaCBB)
+            Dim LigaVerificacionSAT As String = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx"
+            Try
+                Dim qrCode As New GoFac.QrCode()
+                Dim bCBB As Byte() = qrCode.GenerarQrCode($"{LigaVerificacionSAT}?re={UsuarioActual.Empresa.RFC}&rr={RFCReceptor}&tt={String.Format("{0,12:F6}", Vta.Total).Trim()}&id={Vta.FolioFiscal}&fe={Vta.SelloCFDi.Substring(Vta.SelloCFDi.Length - 8, 8)}")
+                File.WriteAllBytes(RutaCBB, bCBB)
+                bCBB = Nothing
+            Catch ex As Exception
+                GuardaLog("Ocurrió un error al generar el QR." + ex.ToString())
+            End Try
         End If
         'ImgCBB = String.Format("{0}://{1}:{2}/Empresas/{3}/CBB/{4}.jpg", Request.Url.Scheme.Replace("https", "http"), Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa, Vta.SerieFolio)
 

App_Code/ClsVentas.vb

@@ -5975,7 +5975,7 @@ Public Class ClsVentas
 
 #End Region
 
-#Region "AGENTES"
+#Region "MEDICOS"
 
     Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer, Optional Mes As Integer = -1) As Boolean
 
@@ -6004,7 +6004,7 @@ Public Class ClsVentas
 
 
     Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
-                              CveEmpresa As Integer, Telefono As String, Mail As String, Especialidad As String, Celular As String, Consultorio As String) As Boolean
+                              CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosAdd")
@@ -6022,7 +6022,7 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Mail", SqlDbType.VarChar).Value = Mail
-            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
 
@@ -6039,7 +6039,7 @@ Public Class ClsVentas
     End Function
 
     Public Function UpdateMedico(CveMedico As Integer, Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer,
-                                 CveEmpresa As Integer, Telefono As String, Mail As String, Especialidad As String, Celular As String, Consultorio As String) As Boolean
+                                 CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosUpdate")
@@ -6057,7 +6057,7 @@ Public Class ClsVentas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Mail", SqlDbType.VarChar).Value = Mail
-            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
             .Add("@Celular", SqlDbType.VarChar).Value = Celular
             .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio
 
@@ -6092,6 +6092,97 @@ Public Class ClsVentas
 
 #End Region
 
+
+
+#Region "ESPECIALIDADES"
+
+    Public Function GetMedicosEspecialidades(CveMedicoEspecialidad As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosEspecialidadesGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las especialidades.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+
+    End Function
+
+
+
+
+    Public Function AddMedicoEspecialidad(Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosEspecialidadesAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al guardar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function UpdateMedicoEspecialidad(CveMedicoEspecialidad As Integer, Especialidad As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosEspecialidadesUpdate")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@Especialidad", SqlDbType.VarChar).Value = Especialidad
+            .Add("@Estatus", SqlDbType.Bit).Value = Estatus
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+    Public Function RemoveMedicoEspecialidad(CveMedicoEspecialidad As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_MedicosEspecialidadesRemove")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMedicoEspecialidad", SqlDbType.Int).Value = CveMedicoEspecialidad
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar la especialidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return Retorno
+
+    End Function
+
+#End Region
+
 #Region "PRODEDIMIENTOS"
 
     Public Function GetProcedimientos(CveProcedimiento As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean

Compras/PopUpVerFactura.aspx.vb

@@ -3297,7 +3297,7 @@ Partial Class PopUpVerFactura
                         If UsuarioActual.Empresa.CvePlataforma = 2 Then
                             GeneraPDFVtaPyMe(Vta, "PDF")
                         Else
-                            ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte), Vta.SerieFolio, "PDF")
+                            ImprimirbytesPDF(PdfFactura(Vta, AplicaPagare:=AplicaPagare, Guardar:=True, SubReportData:=CartaPorte, RegenerarQR:=True), Vta.SerieFolio, "PDF")
                             Vta = Nothing
                         End If
                     Else

Inventarios/EntradasSalidas.aspx

@@ -1655,69 +1655,94 @@
                             <asp:Literal ID="Literal3" Text="Agregar Producto" runat="server"> </asp:Literal></h4>
                     </div>
                     <div class="modal-body">
-                        <div runat="server" id="divCantidad" class="form-group form-md-line-input input-iconright">
+
-                            <asp:TextBox ID="txtCantidad" CssClass="form-control input-sm" Width="50%" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
+                        <div class="row">
-                            <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
+                            <div class="col-md-6">
-                            <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                <div runat="server" id="divCantidad" class="form-group form-md-line-input input-iconright">
-                            <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:TextBox ID="txtCantidad" CssClass="form-control" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS"></asp:TextBox>
-                            <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
+                                    <ajax:FilteredTextBoxExtender ID="SoloNumerosCantidad" runat="server" TargetControlID="txtCantidad" FilterType="Custom, Numbers" ValidChars="." />
-                            <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
+                                    <asp:RequiredFieldValidator ID="RFVCantidad" runat="server" ControlToValidate="txtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
-                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>
+                                    <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <br />
+                                    <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
-                        </div>
+                                    <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                        <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>                                    
-                          <%--  <asp:DropDownList ID="DdlClasificacion" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="hidden">
+                                </div>
-                                <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                            </div>
-                            </asp:DropDownList>--%>
+                            <div class="col-md-6">
-                            <%--<br />--%>
+                                <div runat="server" id="divUnidadMedida" class="form-group form-md-line-input input-iconright">
-                            <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssClass="form-control input-sm select2me" CssStyle="width: 50%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                    <asp:DropDownList ID="DdlUnidad" runat="server" Class="form-control select2me" Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida" Width="100%"></asp:DropDownList>
-                            <label style="line-height: 0.8" for="<%= DdlProducto2.ClientID.ToString()%>">Producto</label>
+                                    <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>                                    
-                            <br />
+                                </div>
-                        </div>
+                            </div>
-                        <div runat="server" id="divUnidadMedida" class="form-group form-md-line-input input-iconright">
+
-                            <asp:DropDownList ID="DdlUnidad" runat="server" Class="form-control input-sm select2me" Style="width: 100px !important;" DataTextField="UnidadMedida" DataValueField="CveUnidadMedida"></asp:DropDownList>
-                            <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
-                            <br />
                         </div>
 
+
+
+                        <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
+                            <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssClass="form-control select2me" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="100%" />
+                            <label style="line-height: 0.8" for="<%= DdlProducto2.ClientID.ToString()%>">Producto</label>                            
+                        </div>
+
+
+
                         <div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
-                            <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
+                            <asp:TextBox ID="txtPrecio" CssClass="form-control " runat="server" Width="50%" Visible="false"></asp:TextBox>
-                            <label for="<%= txtPrecio.ClientID.ToString()%>">Precio unitario</label>
+                            <label for="<%= txtPrecio.ClientID.ToString()%>">Precio unitario</label>                            
-                            <br />
                         </div>
-                        <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
+
-                            <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="120px"></asp:TextBox>
+                        <div class="row">
-                            <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
+                            <div class="col-md-6"  runat="server" id="divSerie"  visible="false">
-                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
+                                <div class="form-group form-md-line-input input-iconright">
-                            <br />
+                                    <asp:TextBox ID="TxtnSerie" CssClass="form-control " runat="server" Width="120px"></asp:TextBox>
+                                    <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
+                                    <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>                                    
+                                </div>
+                            </div>
+                            <div class="col-md-6" runat="server" id="divSeccionAlmacen" visible="false">
+                                <div  class="form-group form-md-line-input input-iconright" >
+                                    <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>
+                                </div>
+                            </div>
                         </div>
-                        <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">
+
-                            <asp:TextBox ID="TxtnLote" CssClass="form-control input-sm" runat="server" Width="120px"></asp:TextBox>
+                        
-                            <label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>
+                        <div class="row">
-                            <br />
+                            <div class="col-md-6"  runat="server" id="divLote"  visible="false">
-                        </div>                      
+                                <div class="form-group form-md-line-input input-iconright">
-                        <div runat="server" id="divCaducidad" class="form-group form-md-line-input input-iconright input-small date date-picker " data-date-format="dd/mm/yyyy" visible="false">
+                                    <asp:TextBox ID="TxtnLote" CssClass="form-control" runat="server" Width="120px"></asp:TextBox>
-                            <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control input-sm" runat="server" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                    <label for="<%= TxtnLote.ClientID.ToString()%>">Lote</label>                                    
-                            <span class="input-group-btn ">
+                                </div>
-                                <asp:LinkButton runat="server" ID="LnkFechaCaducidad" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
+                            </div>
-                            </span>
+                            <div class="col-md-6" runat="server" id="divCaducidad"  visible="false">
-                             <ajax:MaskedEditExtender ID="MEEFechaCaducidad" runat="server" TargetControlID="TxtnFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+
-                             <ajax:CalendarExtender runat="server" ID="CEFechaCaducidad" TargetControlID="TxtnFechaCaducidad" PopupButtonID="LnkFechaCaducidad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">                                    
-                             <asp:CompareValidator ID="CVFechaCaducidad" runat="server" ControlToValidate="TxtnFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Caducidad''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup=""></asp:CompareValidator>
+                                    <label for="<%= TxtnFechaCaducidad.ClientID.ToString()%>" style="color: #888888;">Fecha Caducidad: </label>
-                             <ajax:ValidatorCalloutExtender ID="VCEFEchaCaducidad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCaducidad" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
-                            <label for="<%= TxtnFechaCaducidad.ClientID.ToString()%>">Fecha Caducidad</label>
+                                        <asp:TextBox ID="TxtnFechaCaducidad" CssClass="form-control" MaxLength="10" runat="server" Width="100px" Height="28px"></asp:TextBox>                                                                                <span class="input-group-btn ">
+                                            <asp:LinkButton ID="LnkFechaCaducidad" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>                                            
+                                        </span>
+                                    </div>
+                                    
+                                    <ajax:MaskedEditExtender ID="MEEFechaCaducidad" runat="server" TargetControlID="TxtnFechaCaducidad" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="CEFechaCaducidad" TargetControlID="TxtnFechaCaducidad" PopupButtonID="LnkFechaCaducidad" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:CompareValidator ID="CVFechaCaducidad" runat="server" ControlToValidate="TxtnFechaCaducidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha Caducidad''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup=""></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="VCEFEchaCaducidad" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaCaducidad" Width="350px"></ajax:ValidatorCalloutExtender>                                    
+
+
+                                </div>
+                            </div>
                         </div>
-                          <div runat="server" id="divSeccionAlmacen" class="form-group form-md-line-input input-iconright" visible="false">
+                        
-                              <asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="SeccionAlmacen" AppendDataBoundItems="true" DataValueField="CveSeccionAlmacen" Class="form-control input-sm select2me" Style="width: 95% !important" runat="server" CausesValidation="true">
+
-                                  <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                        
-                              </asp:DropDownList>
+                        <div class="form-group form-md-line-input input-iconright">
-                              <label for="<%= DdlSeccionAlmacen.ClientID.ToString()%>">Sección Almacén</label>
+                            <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control" runat="server" MaxLength="200"></asp:TextBox>
-                          </div>
-                        <br />
-                        <div class="input-group input-sm" >
-                            <asp:TextBox ID="TxtObservacionesdetalle" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
                             <label for="<%= TxtObservacionesdetalle.ClientID.ToString()%>">Observaciones</label>
-                            <br />
+                            
                         </div>
 
                         <div runat="server" id="tdPUExtranjero" class="form-group form-md-line-input input-iconright" visible="false">
@@ -1750,16 +1775,16 @@
                             <asp:Literal ID="TdTotal" runat="server" Visible="false"></asp:Literal>
                         </div>
 
-                      <div runat="server" id="DVCultivosCuadro"   class="form-group form-md-line-input input-iconright" visible="false">
+                        <div runat="server" id="DVCultivosCuadro" class="form-group form-md-line-input input-iconright" visible="false">
-                          <asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control input-sm select2me" runat="server" DataTextField="TemporadaCuadro" Style="width: 100%; max-width: 600px;"
+                            <asp:DropDownList ID="DdlModalCultivosCuadro" CssClass=" form-control select2me" runat="server" DataTextField="TemporadaCuadro" Style="width: 100%; max-width: 600px;"
-                              DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
+                                DataValueField="CveCultivoCuadroDetalle" ValidationGroup="GrpProduccion">
-                          </asp:DropDownList>
+                            </asp:DropDownList>
-                          <asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro" 
+                            <asp:RequiredFieldValidator ID="RfvDdlModalCultivosCuadro" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlModalCultivosCuadro"
-                              ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El Cuadro <b>''Cuadro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
+                                ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El Cuadro <b>''Cuadro''</b> es necesario, por favor ingréselo." ValidationGroup="GrpProduccion">
-                          </asp:RequiredFieldValidator>
+                            </asp:RequiredFieldValidator>
-                          <label runat="server"   for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
+                            <label runat="server" for="<%= DdlModalCultivosCuadro.ClientID.ToString()%>">Cultivo:</label>
-                          <i></i>
+                            <i></i>
-                      </div>
+                        </div>
 
                     </div>
                     <div class="modal-footer">

Inventarios/EntradasSalidas.aspx.vb

@@ -2483,6 +2483,8 @@ Partial Class Inventarios_EntradasSalidas
 
         divSerie.Visible = False
         divLote.Visible = False
+        divSeccionAlmacen.Visible = False
+        divCaducidad.Visible = False
 
         EscondeColumnasGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
 

Ventas/CatMedicos.aspx

@@ -19,6 +19,10 @@
             <li>
                 <asp:LinkButton runat="server" ID="LnkAgregarMedico" OnClick="LnkAgregarMedico_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Medico"></asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton runat="server" ID="LnkAgregarEspecialidad" OnClick="LnkAgregarEspecialidad_Click" data-toggle="tooltip" data-placement="left" title="Agregar Medico" Text="<i class='fa fa-plus'></i> Agregar Especialidad"></asp:LinkButton>
+            </li>
+
              <li>
                 <asp:LinkButton ID="LnkExportar" runat="server" Visible="false"><i class="fa fa-file-excel-o"></i>  Excel</asp:LinkButton>
             </li>
@@ -34,8 +38,9 @@
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     
-
+    <asp:UpdatePanel runat="server" ID="UpGeneral" UpdateMode="Conditional">
-    <ajax:TabContainer runat="server" ID="Tabs">        
+        <ContentTemplate>
+                <ajax:TabContainer runat="server" ID="Tabs">        
 
         <ajax:TabPanel ID="TabIndicadores" runat="server" HeaderText="Indicadores" ClientIDMode="Static" >
             <ContentTemplate>
@@ -220,7 +225,7 @@
                             <div class="col-md-12">
 
                                 <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False"
-                                    DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad, Celular, Consultorio"
+                                    DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, CveMedicoEspecialidad, Celular, Consultorio"
                                     EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField HeaderText="Médico" ItemStyle-HorizontalAlign="Left">
@@ -305,7 +310,74 @@
             </ContentTemplate>
         </ajax:TabPanel>
 
+
+              <ajax:TabPanel ID="TabEspeciliadad" runat="server" HeaderText="Especialidades" ClientIDMode="Static">        
+            <ContentTemplate>
+
+                <asp:UpdatePanel ID="UpEspecialidad" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        
+                        <div class="row" style="margin-left: 0px; margin-top: 5px; margin-bottom: 5px; text-align: right; margin-right: 5px;" align="left">
+                            <input type="text" id="TxtBusqueda3" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+                            <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda3','{0}')", GvEspecialidad.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+                        </div>
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <asp:GridView ID="GvEspecialidad" runat="server" AutoGenerateColumns="False"
+                                    DataKeyNames="CveMedicoEspecialidad,Especialidad,Estatus"
+                                    EmptyDataText="No se encontraron Medicos Registrados" ToolTip="Listado de Medicos" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" GridLines="None">
+                                    <Columns>
+                                        <asp:TemplateField HeaderText="Especialidad" ItemStyle-HorizontalAlign="Left">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlEspecialidad" runat="server" Text='<%# Eval("Especialidad") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                    
+
+                                        <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlEstatus" runat="server" Text='<%# Eval("EstatusStr") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Fecha Ing." ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaIng", "{0:d}") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField HeaderText="Usuario" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="center" HeaderText="Opciones" ItemStyle-Width="100px">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEditarEspecialidad" runat="server" AlternateText="Editar" OnClick="LnkEditarEspecialidad_Click" CausesValidation="False" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                <asp:LinkButton ID="LnkEliminarEspecialidad" OnClick="LnkEliminarEspecialidad_Click" runat="server" Visible="true" AlternateText="Reasignar" CausesValidation="False" CssClass="btn btn-circle btn-sm red" Text="<i title='Reasignar' class='icon-trash' title='Eliminar' ></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+
+                                    </Columns>
+                                </asp:GridView>
+
+                            </div>
+                        </div>
+
+
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+
+            </ContentTemplate>
+        </ajax:TabPanel>
+
     </ajax:TabContainer>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
 
     
 
@@ -343,7 +415,7 @@
                                         <div class="form-group form-md-line-input input-iconright date date-picker date date-picker" style="min-width: 135px; margin-top: -10px !important;">
                                             <label for="<%= TxtFechaNacimiento.ClientID.ToString()%>" style="color: #888888;">Fecha de Nacimiento: </label>
 
-                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;margin-top: -5px !important;">
+                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px; margin-top: -5px !important;">
                                                 <asp:TextBox ID="TxtFechaNacimiento" CssClass="form-control" MaxLength="20" runat="server" Width="100px" Height="28px"></asp:TextBox>
                                                 <span class="input-group-btn ">
                                                     <asp:LinkButton ID="LnkFechaNacimiento" class="btn default" Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
@@ -361,10 +433,6 @@
                                     </div>
                                 </div>
 
-
-
-
-
                                 <div class="row">
                                     <div class="col-md-6">
                                     </div>
@@ -372,7 +440,6 @@
 
                                 <br />
 
-
                                 <div class="row">
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
@@ -406,18 +473,13 @@
                                     </div>
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                            <asp:DropDownList ID="DdlEspecialidad" CssClass="form-control select2me" runat="server" DataTextField="Especialidad" DataValueField="CveMedicoEspecialidad"></asp:DropDownList>
-                                            <label for="<%= TxtEspecialidad.ClientID.ToString()%>">Especialidad:</label>
+                                            <label for="<%= DdlEspecialidad.ClientID.ToString()%>">Especialidad:</label>
                                         </div>
                                     </div>
                                 </div>
 
 
-
-
-
-
-
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtNotas" CssClass="form-control " runat="server" MaxLength="250" CausesValidation="true"></asp:TextBox>
                                     <label for="<%= TxtNotas.ClientID.ToString()%>">Notas:</label>
@@ -468,19 +530,56 @@
 
 
                             </div>
-                        </div>                  
+                        </div>
                     </div>
 
                     <div class="modal-footer">
                         <asp:Button ID="LbAgregar" runat="server" class="btn btn-success" Text="Agregar" ValidationGroup="GrpGuardarRegistro" />
                         <button id="BtnCancelarSucursal" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
-                    </div>                    
+                    </div>
                 </ContentTemplate>
             </asp:UpdatePanel>
         </div>
     </div>
 
 
+     <div id="DVAgregarEspecialidad" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalEspecialidad" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal2" runat="server">Agregar Especialidad</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-12">
+
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:TextBox ID="TxtEspecialidad" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true"></asp:TextBox>
+                                    <asp:RequiredFieldValidator ID="RfvTxtEspecialidad" runat="server" ControlToValidate="TxtEspecialidad" CssClass="help-block errorimput"
+                                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Especialidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardarEspecialidad"></asp:RequiredFieldValidator>
+                                    <label for="<%= TxtMedico.ClientID.ToString()%>">Especialidad:</label>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DVEstatusEspecialidad" runat="server" visible="false">
+                            <asp:CheckBox ID="ChkEstatusEspecialidad" CssClass="form-control make-switchsd" data-size="small" runat="server" Style="margin-top: 7px"></asp:CheckBox>
+                            <label for="<%= ChkEstatusEspecialidad.ClientID.ToString()%>">Activo:</label>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnAgergarEspecialidad" OnClick="BtnAgergarEspecialidad_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpGuardarEspecialidad" />
+                        <button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
 
     <div id="DVModalCumple" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
@@ -560,25 +659,9 @@
         </div>
     </div>
 
-    <div style="display:none!important">
-        <%--<asp:Button  runat="server" ClientIDMode="Static" ID="BtnValidaExcelTab" OnClick="BtnValidaExcelTab_Click" />--%>
-    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
 
-<%--    <script>
 
-        $(document).ready(function () {
-            $("#TabIndicadores").click(function () { validaExcelTab(); });
-            $("#TabMedicos").click(function () { validaExcelTab(); });
-        });
-        
-
-        function validaExcelTab() {
-            $('#BtnValidaExcelTab').click();
-        }
-
-    </script>--%>
- 
   
 </asp:Content>

Ventas/CatMedicos.aspx.vb

@@ -19,10 +19,29 @@ Partial Class Ventas_CatMedicos
         End Set
     End Property
 
+
+
+    Public Property CveMedicoEspecialidad As Integer
+        Get
+            If ViewState("CveMedicoEspecialidad") Is Nothing Then
+                ViewState("CveMedicoEspecialidad") = -1
+            End If
+            Return ViewState("CveMedicoEspecialidad").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveMedicoEspecialidad") = value
+        End Set
+    End Property
+
+
+
+
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
             CargaCombos()
             CargaDatos()
+            CargaEspecialidad()
             BtnConsultar_Click(Nothing, Nothing)
         End If
     End Sub
@@ -61,12 +80,12 @@ Partial Class Ventas_CatMedicos
 
         If CveMedico > 0 Then
             If ObjVentas.UpdateMedico(CveMedico, TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked,
-                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, TxtEspecialidad.Text, Celular, TxtConsultorio.Text.Trim) Then
+                                      UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
                 ProcesoOK = True
             End If
         Else
             If ObjVentas.AddMedico(TxtMedico.Text.Trim, TxtCedulaProfecional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, TxtDiasAtencion.Text.Trim, TxtHorario.Text.Trim, TxtLugar.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario,
-                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, TxtEspecialidad.Text, Celular, TxtConsultorio.Text.Trim) Then
+                                   UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, TxtConsultorio.Text.Trim) Then
                 ProcesoOK = True
             End If
         End If
@@ -138,7 +157,7 @@ Partial Class Ventas_CatMedicos
         TxtMail.Text = ""
         TxtTelefono.Text = ""
         TxtCelular.Text = ""
-        TxtEspecialidad.Text = ""
+        DdlEspecialidad.SelectedValueExist(-1)
 
         DVEstatus.Visible = False
         ChkEstatus.Checked = True
@@ -168,7 +187,8 @@ Partial Class Ventas_CatMedicos
         TxtMail.Text = GvRow.DataKey("Mail")
         TxtTelefono.Text = GvRow.DataKey("Telefono")
         TxtCelular.Text = GvRow.DataKey("Celular")
-        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+        DdlEspecialidad.SelectedValueExist(-1)
+        DdlEspecialidad.SelectedValueExist(GvRow.DataKey("CveMedicoEspecialidad").ToEntero)
 
         DVEstatus.Visible = True
         LbAgregar.Text = "Actualizar"
@@ -244,12 +264,18 @@ Partial Class Ventas_CatMedicos
             SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
             SbFiltros.Append($"Grupo:{DdlGrupo.SelectedItem.Text}, Médico: {DdlMedico.SelectedItem.Text}, Procedimiento: {DdlProcedimiento.SelectedItem.Text}")
             GvIndicadores.ExportToExcelGembox("IndicadoresMedicos", UsuarioActual, "Indicadores Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
-        Else
+        ElseIf Tabs.ActiveTabIndex = 1 Then
             GvDatos.Columns(10).Visible = False
             Dim SbFiltros As New StringBuilder()
             SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
             GvDatos.ExportToExcelGembox("CatMedicos", UsuarioActual, "Catálogo de Médicos", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
             GvDatos.Columns(10).Visible = True
+        ElseIf Tabs.ActiveTabIndex = 2 Then
+            GvEspecialidad.Columns(4).Visible = False
+            Dim SbFiltros As New StringBuilder()
+            SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|")
+            GvEspecialidad.ExportToExcelGembox("CatEspecialidades", UsuarioActual, "Catálogo de Especialidades", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString())
+            GvEspecialidad.Columns(4).Visible = True
         End If
 
 
@@ -299,12 +325,125 @@ Partial Class Ventas_CatMedicos
         RegistraScript("$('#DVModalCumple').modal();")
     End Sub
 
+    Protected Sub btnConsultarcumpleAnios_Click(sender As Object, e As EventArgs)
+        CargaCyumpleAnios()
+    End Sub
+
+#End Region
+
+
+#Region "Especialidad"
+
+
+    Protected Sub LnkAgregarEspecialidad_Click(sender As Object, e As EventArgs)
+        CveMedicoEspecialidad = -1
+        DVEstatusEspecialidad.Visible = False
+        LimpiarModalEspecialdiad()
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+    End Sub
+
+    Protected Sub BtnAgergarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsVentas
+        Dim ProcesoOK As Boolean = True
+
+        If CveMedicoEspecialidad > 0 Then
+            If Not ObjVentas.UpdateMedicoEspecialidad(CveMedicoEspecialidad, TxtEspecialidad.Text.Trim, ChkEstatusEspecialidad.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        Else
+            If Not ObjVentas.AddMedicoEspecialidad(TxtEspecialidad.Text.Trim, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                ProcesoOK = False
+            End If
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert($"Especialidad {If(CveMedicoEspecialidad > 0, "actualizada", "agregada")} correctamente.")
+            RegistraScript("$('#DVAgregarEspecialidad').modal('hide');")
+        End If
+
+    End Sub
+
+    Sub LimpiarModalEspecialdiad()
+        TxtEspecialidad.Text = ""
+        ChkEstatusEspecialidad.Checked = True
+        UpModalEspecialidad.Update()
+    End Sub
+    Sub CargaEspecialidad()
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then
+            GvEspecialidad.DataSource = ObjVentas.DtResultados
+            DdlEspecialidad.DataSource = ObjVentas.DtResultados
+        Else
+            GvEspecialidad.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvEspecialidad.DataBind()
+
+        DdlEspecialidad.DataBind()
+        DdlEspecialidad.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
+
+        UpModal.Update()
+        UpEspecialidad.Update()
+
+    End Sub
+
+    Protected Sub LnkEditarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
+        CveMedicoEspecialidad = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+        TxtEspecialidad.Text = GvRow.DataKey("Especialidad")
+        ChkEstatusEspecialidad.Checked = Boolean.Parse(GvRow.DataKey("Estatus").ToString)
+        DVEstatusEspecialidad.Visible = True
+        UpModalEspecialidad.Update()
+
+        RegistraScript("$('#DVAgregarEspecialidad').modal();")
+
+
+
+    End Sub
+
+    Protected Sub LnkEliminarEspecialidad_Click(sender As Object, e As EventArgs)
+
+        Dim ProcesoOK As Boolean = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveMedicoEspecialidadEliminar As Integer = GvRow.DataKey("CveMedicoEspecialidad").ToEntero
+
+        Dim ObjVentas As New ClsVentas
+
+        If Not ObjVentas.RemoveMedicoEspecialidad(CveMedicoEspecialidadEliminar, UsuarioActual.CveEmpresa) Then
+            ProcesoOK = False
+        End If
+
+        ObjVentas.Dispose()
+
+        If ProcesoOK Then
+            CargaEspecialidad()
+            Alert("Especialidad eliminada correctamente")
+        End If
+
+
+    End Sub
 #End Region
 
 
 
 
-    Protected Sub btnConsultarcumpleAnios_Click(sender As Object, e As EventArgs)
+
-        CargaCyumpleAnios()
+
-    End Sub
+
+
+
+
 End Class

Ventas/CatProcedimientos.aspx

@@ -276,6 +276,8 @@
             </ContentTemplate>
         </ajax:TabPanel>       
 
+        
+
     </ajax:TabContainer>
 
 

Ventas/Ventas.aspx

@@ -584,13 +584,13 @@
                                     <b>Requiere Técnico:</b>
                                 </td>
                                 <td runat="server" id="TdRequiereTecnico2" visible="false">
-                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server"  data-size="small" CssClass="make-switchsd" OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" />
+                                    <asp:CheckBox ID="ChkRequiereTecnico" runat="server"   CssClass="chksino"  OnCheckedChanged="ChkRequiereTecnico_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico:" />
                                 </td>
                                 <td  runat="server" id="TdFechaOS1" visible ="false">
                                     <b>Fecha de Cirugia:</b>
                                 </td>
                                 <td runat="server" id="TdFechaOS2" visible ="false"> 
-                                    <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server" data-size="small" CssClass="make-switchsd"   CausesValidation="true" Style="width: 130px" step="1"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFechaOS" type="datetime-local" runat="server"  CssClass="make-switchsd"   CausesValidation="true" Style="width: 130px" step="1"></asp:TextBox>
                                 </td>                                
                             </tr>
 
@@ -8465,16 +8465,16 @@
                             <div class="row">
                                 <div class="form-group col-md-6 form-md-line-input input-iconright ">
                                     <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="DdlMedicoModal">Requiere Técnico:</asp:Label>
-                                    <asp:CheckBox ID="ChkRequiereTecnicoModal" data-size="small" CssClass="make-switchsd" runat="server" OnCheckedChanged="ChkRequiereTecnicoModal_CheckedChanged" AutoPostBack="true" />
+                                    <asp:CheckBox ID="ChkRequiereTecnicoModal" CssClass="chksino" runat="server" OnCheckedChanged="ChkRequiereTecnicoModal_CheckedChanged" AutoPostBack="true" Text="Requiere Técnico" />
                                 </div>
                                 <div class="form-group col-md-6 form-md-line-input input-iconright " runat="server" id="DvModalRequiereOSFecha" visible="false">
-                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="TxtFechaModal">Fecha De Orden:</asp:Label>
+                                    <asp:Label runat="server" Style="width: 90%; color: #888888;" AssociatedControlID="TxtFechaModal">Fecha de Cirugia:</asp:Label>
                                     <asp:TextBox ID="TxtFechaModal" type="datetime-local" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 100%" step="1"></asp:TextBox>
                                 </div>
                             </div>
                         </div>
                         
-                        <div class="row">                                
+                        <div class="row" runat="server" id="DVGvProductosProcedimiento" visible="false">                                
                             <div class="col-md-12">
                                  Productos utilizados en el procedimiento
                                  <asp:GridView ID="GvProductosProcedimiento" runat="server" CssClass="table table-hover table-striped ScrollAD mysmallbtn" data-sort="true" AutoGenerateColumns="False" Width="100%" 

Ventas/Ventas.aspx.vb

@@ -2599,9 +2599,13 @@ Partial Class Ventas
             CargaCuentasTerminal()
             'CargaDdlNCPS()
             CargarCamiones()
-            CargaMedicos()
+
-            CargaProcedimientos()
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-            CargaDdlClientes()
+                CargaMedicos()
+                CargaProcedimientos()
+                CargaDdlClientes()
+            End If
+
 
 
 
@@ -5829,6 +5833,23 @@ Partial Class Ventas
             UpEstatus.Update()
             Retorno = True
 
+            If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
+
+                If DbRowVenta("CveMedico").ToString.ToEntero > 0 Then
+                    TrObsMedico1.Visible = True
+                    TrObsMedico2.Visible = True
+                    TrObsProcedimiento1.Visible = True
+                    TrObsProcedimiento2.Visible = True
+
+                    DdlMedicoObservaciones.SelectedValueExist(DbRowVenta("CveMedico").ToString)
+                    DdlProcedimientoObservaciones.SelectedValueExist(DbRowVenta("CveProcedimiento").ToString)
+
+                End If
+
+            End If
+
+
+
         End If
         Return Retorno
     End Function
@@ -7785,6 +7806,10 @@ Partial Class Ventas
 
         DdlProcedimientoModal.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlProcedimientoModal.DataBind()
+
+        DdlProcedimientoObservaciones.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa)
+        DdlProcedimientoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaMedicos()
@@ -7794,6 +7819,9 @@ Partial Class Ventas
         DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")
         DdlMedicoModal.DataBind()
 
+        DdlMedicoObservaciones.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa)
+        DdlMedicoObservaciones.DataBind()
+
     End Sub
 
     Private Sub CargaDdlClientes()
@@ -36008,6 +36036,7 @@ Partial Class Ventas
 
         GvProductosProcedimiento.DataSource = Nothing
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = False
 
         UpDvModalTipoVenta.Update()
 
@@ -36132,6 +36161,7 @@ Partial Class Ventas
         End If
 
         GvProductosProcedimiento.DataBind()
+        DVGvProductosProcedimiento.Visible = True
 
         UpDvModalTipoVenta.Update()