Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsClientes.vb

@@ -160,7 +160,8 @@ Public Class ClsClientes
     Public Property CodigoRegimenFiscal As String
     Public Property RegimenFiscal As String
     Public Property RepresentanteLegal As String
-    Public Property CveAlmacenAsignado As Integer
+    Public Property UsaProductoAlterno As Boolean = False
+    Public Property CveAlmacenAsignado As Integer = -1
 
 #End Region
 
@@ -407,9 +408,9 @@ Public Class ClsClientes
                 _RegimenFiscal = Data(0)("RegimenFiscal").ToString
                 _CodigoRegimenFiscal = Data(0)("CodigoRegimenFiscal").ToString
                 _RepresentanteLegal = Data(0)("RepresentanteLegal").ToString
+                _UsaProductoAlterno = CBool(Data(0)("UsaProductoAlterno"))
                 Me.CveAlmacenAsignado = Data(0)("CveAlmacenAsignado").ToString.ToEntero
 
-
             End If
             Retorno = True
         Catch ex As Exception
@@ -543,7 +544,7 @@ 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) 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 UsaProductoAlterno As Boolean = False) As Boolean
         Dim Retorno As Boolean = False
 
 
@@ -672,6 +673,7 @@ Public Class ClsClientes
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+            .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -717,7 +719,7 @@ 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) 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 UsaProductoAlterno As Boolean = False) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -856,6 +858,7 @@ Public Class ClsClientes
             .Add("@ComExtCP", SqlDbType.VarChar).Value = ComExtCP
             .Add("@Genero", SqlDbType.Bit).Value = Genero
             .Add("@CveAlmacenAsignado", SqlDbType.Int).Value = CveAlmacenAsignado
+            .Add("@UsaProductoAlterno", SqlDbType.Bit).Value = UsaProductoAlterno
 
         End With
         Try

App_Code/ClsVentas.vb

@@ -5975,9 +5975,9 @@ Public Class ClsVentas
 
 #End Region
 
-#Region "AGENTES"
+#Region "MEDICOS"
 
-    Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean
+    Public Function GetMedicos(CveMedico As Integer, CveEmpresa As Integer, Estatus As Integer, Optional Mes As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_MedicosGet")
@@ -5986,13 +5986,16 @@ Public Class ClsVentas
             .Add("@CveMedico", SqlDbType.Int).Value = CveMedico
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
+            .Add("@Mes", SqlDbType.Int).Value = Mes
         End With
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al obtener los Medicos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
         End Try
+
         Return Retorno
 
     End Function
@@ -6001,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")
@@ -6019,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
 
@@ -6036,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")
@@ -6054,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
 
@@ -6089,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/RepCxP.aspx

@@ -11,6 +11,10 @@
             height: 50px;
         }
 
+         .TextoGris {
+             color:gray;
+         }
+
         .select2 .select2-selection--multiple {
             box-sizing: border-box;
             cursor: pointer;
@@ -59,13 +63,13 @@
         </li>
         <li>
             <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Columnas</asp:HyperLink>
-        </li>
+        </li>        
-        <li>
-            <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-        </li>
         <li>
             <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizarRango" ID="HplPersonalizarRango" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Rango de Columnas</asp:HyperLink>
         </li>
+         <li>
+                <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+            </li>
          </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="ImgExcel" />

Compras/RepCxP.aspx.vb

@@ -169,23 +169,10 @@ Partial Class Compras_RepCxP
         DdlUsuarioRegistro.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Nombre")
         DdlUsuarioRegistro.DataBind()
         DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
-
         txtCorteA.Text = $"31/12/{NowADS().Year}"
 
-        'Dim ObjSisUsuarios As New ClsSisUsuarios()
-
-        'If ObjSisUsuarios.GetEmpresasUsuario(UsuarioActual.CveUsuario) Then
-        '    DdlEmpresas.DataSource = ObjSisUsuarios.DtResultados
-        '    DdlEmpresas.DataBind()
-        '    DivEmpresasFiltro.Visible = True
-        '    For i As Integer = 0 To DdlEmpresas.Items.Count - 1
-        '        DdlEmpresas.Items(i).Selected = True
-        '    Next
-        'End If
-        'ObjSisUsuarios.Dispose()
-
         If UsuarioActual.Empresa.Funcionalidad(713) <> "" Then
-            ChkIEPSP.Visible = False
+            ChkIEPSP.Visible = True
         End If
 
         For Each lItem As ListItem In DdlGrupo.Items
@@ -194,7 +181,6 @@ Partial Class Compras_RepCxP
             End If
         Next
 
-
     End Sub
 
     Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged

Compras/RepCxPDetalle.aspx

@@ -24,12 +24,10 @@
             </li>
             <li>
                 <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-ad-excel"></i> Generar Excel</asp:LinkButton>
-            </li>
+            </li>            
-            
             <li>
                 <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-ad-excel"></i> Excel Personalizado</asp:LinkButton>
             </li>
-
             <li>
                 <asp:LinkButton runat="server" ID="LnkPersonalizar" CssClass="" data-toggle="tooltip" Visible="True" OnClick="LnkPersonalizar_Click"
                     data-placement="left" Text="<i class='fa fa-pencil'></i> Personalizar">
@@ -37,15 +35,10 @@
             </li>
             <li>
                 <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-
+            </li>            
-            </li>
-
-            
             <li>
                 <asp:HyperLink ID="HplProgramar" runat="server">Programar Recursos</asp:HyperLink>
-
             </li>
-
         </ContentTemplate>
         <Triggers>
             <asp:PostBackTrigger ControlID="ImgImprimir"  />
@@ -262,9 +255,15 @@
         </ContentTemplate>
     </asp:UpdatePanel>
     
+    <div class="row">
+         <div class="col-md-12" style="text-align: right">
+             <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
+             <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
+         </div>
+    </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-
+            
            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%"   EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"  GridLines="None">
                 <Columns>
@@ -463,8 +462,7 @@
                          <ItemStyle HorizontalAlign="Right" />
                      </asp:TemplateField>
                 </Columns>
-                <RowStyle CssClass="Texto" />
+                <RowStyle CssClass="Texto" /> 
-                <HeaderStyle CssClass="Titulos" />
             </asp:GridView>
 
         </ContentTemplate>

CxC/RepCxCDetalle.aspx

@@ -386,10 +386,8 @@
         <ContentTemplate>
             <div class="row">
                 <div class="col-md-12" style="text-align: right">
-
                     <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
-
                 </div>
                 <div class="col-md-offset-8" style="width: 300px;">
                     <div class="portlet light bordered xspadding" id="DivCobranza" runat="server" visible="false">
@@ -477,9 +475,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-
+     
-    <br />
-
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" Width="100%"

CxC/RepCxCDetalle.aspx.vb

@@ -255,11 +255,9 @@ Partial Class RepCxCDetalle
         Else
             DdlClientesWS.setEsWebService(False)
             CargaClientes()
-        End If
+        End If
-        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+
-        'DdlClientes.DataBind()
+        'CargaSubProyectos
-
-        'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyecto.DataBind()
 
@@ -909,7 +907,6 @@ Partial Class RepCxCDetalle
 #End Region
 
 #Region "SELECTED INDEX CHANGE"
-
     Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaClientes()
 
@@ -931,15 +928,11 @@ Partial Class RepCxCDetalle
             End If
         End If
     End Sub
-
-
 #End Region
 
-
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
-
     Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing)
 
         Dim sw1 As New StringWriter()
@@ -1145,5 +1138,4 @@ Partial Class RepCxCDetalle
 
     End Sub
 
-
 End Class

General/SaldosIniciales.aspx.vb

@@ -1497,12 +1497,15 @@ Partial Class General_SaldosIniciales
                         'Moneda
                         If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
                             CveMoneda = 1
-                        ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
+                        ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES", "DÓLAR") Then
                             CveMoneda = 2
                         End If
 
                         'Si no se especifica TC, se manda como pesos.
                         If TipoCambio = "" Then TipoCambio = "1"
+                        If CveMoneda = 2 AndAlso TipoCambio = "1" Then
+                            TipoCambio = GlobalTipoCambio(Fecha).ToString
+                        End If
 
                         'PrePóliza
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

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/TraspasoAlmacen.aspx.vb

@@ -1861,9 +1861,9 @@ Partial Class Inventarios_TraspasoAlmacen
             TxtObservacionesRecepcion.Text = ""
 
             Dim Mensaje As StringBuilder = New StringBuilder
-            Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", tFolio, CveMovimientoEntrada)
+            Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" class='Texto' target=""_blank"">{0}</a></b>", tFolio, CveMovimientoEntrada)
-            Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
+            Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}' class='Texto'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
-            If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
+            If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" class='Texto' target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}' class='Texto'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
 
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
             CargaRecepcion()

Ventas/CatMedicos.aspx

@@ -19,9 +19,16 @@
             <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>
+               <li>
+                <asp:LinkButton runat="server" ID="LnkCumpleanios" OnClick="LnkCumpleanios_Click" data-toggle="tooltip" data-placement="left" title="Cumpleaños Del Mes" Text="<i class='fa fa-calendar'></i> Cumpleaños Del Mes"></asp:LinkButton>
+            </li>
         </ContentTemplate>
          <Triggers>
             <asp:PostBackTrigger ControlID="LnkExportar" />
@@ -31,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>
@@ -217,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">
@@ -302,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>
+
+
 
     
 
@@ -313,7 +388,7 @@
                     <div class="modal-header ">
                         <button type="button" class="close" data-dismiss="modal">×</button>
                         <h4 class="modal-title">
-                            <asp:Literal ID="LtlTituloModal" runat="server">Agregar Vendedor</asp:Literal></h4>
+                            <asp:Literal ID="LtlTituloModal" runat="server">Agregar Médico</asp:Literal></h4>
                     </div>
                     <div class="modal-body">
                         <div class="row">
@@ -340,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>
@@ -358,10 +433,6 @@
                                     </div>
                                 </div>
 
-
-
-
-
                                 <div class="row">
                                     <div class="col-md-6">
                                     </div>
@@ -369,7 +440,6 @@
 
                                 <br />
 
-
                                 <div class="row">
                                     <div class="col-md-6">
                                         <div class="form-group form-md-line-input input-iconright">
@@ -403,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>
@@ -465,37 +530,138 @@
 
 
                             </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>
+                </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 style="display:none!important">
+
-        <%--<asp:Button  runat="server" ClientIDMode="Static" ID="BtnValidaExcelTab" OnClick="BtnValidaExcelTab_Click" />--%>
+    <div id="DVModalCumple" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog" style="width: 450px;">
+            <asp:UpdatePanel runat="server" class="modal-content" ID="UpDVModalCumple" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">×</button>
+                        <h4 class="modal-title">
+                            <asp:Literal ID="Literal1" runat="server">Cumpleaños del Mes</asp:Literal></h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                            <div class="col-md-12">
+ 
+
+
+                                <div class="row">
+                                    <div class="col-md-6">
+
+                                        <div class="form-group form-md-line-input input-iconright"> 
+                                            <asp:DropDownList runat="server" ID="DdlmesCumple" CssClass="form-control select2me">
+                                                <asp:ListItem Value="1">Enero</asp:ListItem>
+                                                <asp:ListItem Value="2">Febrero</asp:ListItem>
+                                                <asp:ListItem Value="3">Marzo</asp:ListItem>
+                                                <asp:ListItem Value="4">Abril</asp:ListItem>
+                                                <asp:ListItem Value="5">Mayo</asp:ListItem>
+                                                <asp:ListItem Value="6">Junio</asp:ListItem>
+                                                <asp:ListItem Value="7">Julio</asp:ListItem>
+                                                <asp:ListItem Value="8">Agosto</asp:ListItem>
+                                                <asp:ListItem Value="9">Septiembre</asp:ListItem>
+                                                <asp:ListItem Value="10">Octubre</asp:ListItem>
+                                                <asp:ListItem Value="11">Noviembre</asp:ListItem>
+                                                <asp:ListItem Value="12">Diciembre</asp:ListItem>                                                
+                                            </asp:DropDownList>                                            
+                                            
+                                            <label for="<%= DdlmesCumple.ClientID.ToString()%>">Mes:</label>
+                                        </div>
+
+                                    </div>
+                                    <div class="col-md-6" style="text-align:right!important">
+                                        <asp:Button Text="Consultar" runat="server"  class="btn btn-success" ID="btnConsultarcumpleAnios" OnClick="btnConsultarcumpleAnios_Click" />
+                                    </div>
+                                </div>
+
+                            </div>
+                        </div>     
+                        
+                        <div class="row">
+                            <div class="col-md-12">
+                                  <asp:GridView ID="GvCumple" runat="server" AutoGenerateColumns="False"
+                                    DataKeyNames="CveMedico, Medico, CedulaProfesional, FechaNacimiento, Notas, DiasAtencion, Horario, Lugar, Estatus, CveUsuario, FechaIng, CveEmpresa,Telefono, Mail, Especialidad, 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">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlMedico" runat="server" Text='<%# Eval("Medico") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>                                      
+
+                                        <asp:TemplateField HeaderText="Fecha Nacimiento" ItemStyle-HorizontalAlign="Center">
+                                            <ItemTemplate>
+                                                <asp:Literal ID="LtlFechaNacimiento" runat="server" Text='<%# Eval("FechaNacimiento", "{0:d}") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+
+                    <div class="modal-footer">                        
+                        <button id="BtnCerrarCumpleaños" runat="server" type="button" class="btn default" data-dismiss="modal">Cerrar</button>
+                    </div>                    
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
     </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
 
 
@@ -271,5 +297,153 @@ Partial Class Ventas_CatMedicos
 
 #End Region
 
+#Region "CUMPLEAÑOS"
+
+    Private Sub CargaCyumpleAnios()
+
+        Dim ObjVentas As New ClsVentas
+
+        If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1, DdlmesCumple.SelectedValue.ToEntero()) Then
+            GvCumple.DataSource = ObjVentas.DtResultados
+        Else
+            GvCumple.DataSource = Nothing
+        End If
+
+        ObjVentas.Dispose()
+
+        GvCumple.DataBind()
+
+        UpDVModalCumple.Update()
+
+    End Sub
+
+
+    Protected Sub LnkCumpleanios_Click(sender As Object, e As EventArgs)
+
+        DdlmesCumple.SelectedValueExist(NowADS.Month)
+        CargaCyumpleAnios()
+        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
+
+
+
+
+
+
+
+
+
 
 End Class

Ventas/CatProcedimientos.aspx

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

Ventas/Clientes.aspx

@@ -1205,7 +1205,14 @@
                                                         </div>
                                                     </div>
                                                 </div>
-
+                                                  <div class="row">
+                                                      <div class="col-md-6">
+                                                          <div class="form-group form-md-line-input" id="DivAplicaProductoAlterno" runat="server">
+                                                              Aplica Producto Alterno:        
+                                                                  <asp:CheckBox ID="ChkProductoAlterno" Checked="true" CssClass="make-switchsd" data-size="small" runat="server" />
+                                                          </div>
+                                                      </div>
+                                                    </div>
                                                 <br />
 
                                             </div>

Ventas/Clientes.aspx.vb

@@ -1,8 +1,7 @@
 Option Explicit On
 Option Strict On
 
-Imports System.Data
+Imports System.Data
-Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.IO
 Imports System.Net
@@ -1537,6 +1536,8 @@ Partial Class Clientes
                 DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString())
                 ChkCargoUsado.Checked = ObjClientes.CargoUsados
                 ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado
+                ChkProductoAlterno.Checked = ObjClientes.UsaProductoAlterno
+
                 'COMERCIO EXTERIOR
                 ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior
                 DdlTipoOperacion.SelectedValueExist(ObjClientes.CveTipoOperacion)
@@ -2498,7 +2499,7 @@ Partial Class Clientes
                                         CvePais:=DdlPais.SelectedValue.ToEntero(), CveEstado:=DdlEstado.SelectedValue.ToEntero(), CveMunicipio:=DdlMunicipio.SelectedValue.ToEntero(), CveColonia:=DdlColonia.SelectedValue.ToEntero(), CveMotivoTraslado:=IIf(DdlMotivoTraslado.SelectedValue = "-1", "0", DdlMotivoTraslado.SelectedValue).ToString().ToEntero(), NumRegIdTrib:=IIf(TxtNumRegIdTrib.Text = "", "-1", TxtNumRegIdTrib.Text).ToString(),
                                         ComExtEstado:=IIf(TxtComExtEstado.Text = "", "-1", TxtComExtEstado.Text).ToString(), ComExtMunicipio:=IIf(TxtComExtMunicipio.Text = "", "-1", TxtComExtMunicipio.Text).ToString(), ComExtColonia:=IIf(TxtComExtColonia.Text = "", "-1", TxtComExtColonia.Text).ToString(), RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked,
                                         TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(), CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
-                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero) Then
+                                        CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito, Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
 
                         CveClienteNuevo = ObjClientes.CveCliente
 
@@ -2562,7 +2563,7 @@ Partial Class Clientes
                                             RequiereOC:=ChkRequiereOC.Checked, LT:=LT, LG:=LG, EsDistribuidor:=ChkEsDistribuidor.Checked, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero(), CargoUsado:=ChkCargoUsado.Checked, BonificacionUsado:=ChkBonificacionUsado.Checked, CveTipoRetencion:=DdlTipoRetencion.SelectedValue.ToEntero(), CorreoEntregaCompras:=TxtCorreoEntregaCompras.Text, CorreoEntregaAlmacen:=TxtCorreoEntregaAlmacen.Text, CveSATEstado:=DdlEstadoSAT.SelectedValue.ToEntero(),
                                             CveAdminTrayecto:=If(DdlAdminTrayecto.SelectedValue.ToEntero() <= 0, 0, DdlAdminTrayecto.SelectedValue.ToEntero()),
                                             NoDesglosaIVA:=ChkNoDesglosaIVA.Checked, CveRegimenFiscal:=DdlRegimenFiscal.SelectedValue.ToEntero, RegimenSociedad:=TxtRegimenSociedad.Text, TipoPersona:=TipoPersona, RepresentanteLegal:=TxtRepresentanteLegal.Text, ComExtCalle:=TxtComExtCalle.Text.Trim(), ComExtNumExt:=TxtComExtNumero.Text.Trim(), ComExtCP:=TxtComExtCP.Text.Trim(), FechaLimiteCredito:=FechaLimiteCredito,
-                                            Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero) Then
+                                            Genero:=GeneroCliente, CveAlmacenAsignado:=DdlAlmacenAsignado.SelectedValue.ToEntero, UsaProductoAlterno:=ChkProductoAlterno.Checked) Then
 
                         If Not ObjClientes.LimpiaImpuestosLocales(Me.CveCliente) Then
                             ErrorProceso = True

Ventas/RepEntregasEcommerce.aspx

@@ -143,7 +143,7 @@
                     <asp:BoundField Datafield="PS" HeaderText="Producto" /> 
                     <asp:BoundField Datafield="Cantidad" HeaderText="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Center" />
                     <asp:BoundField Datafield="CantidadSurtida" HeaderText="Surtido" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Center" />
-         
+                    <asp:BoundField Datafield="Guia" HeaderText="Guia" /> 
 
                 </Columns>
                 <RowStyle CssClass="Texto" />