Calendario de Viajes AF Codigo Descripcion, orden cronograma por sub tipo activo fijo

Transportes/RepContratosCalendario.aspx

@@ -389,7 +389,7 @@
                                 <label class="col-md-4">Unidad</label>
                                 <div class="col-md-8">
                                     <asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
-                                        DataTextField="Descripcion" Class="form-control select2me"
+                                        DataTextField="CodDesc" Class="form-control select2me"
                                         Width="100%" runat="server">
                                     </asp:DropDownList>
                                 </div>

Transportes/RepContratosCalendario.aspx.vb

@@ -62,7 +62,7 @@ Partial Class RepContratosCalendario
     Private Sub CargaCronograma()
         If DtAvance IsNot Nothing Then
 
-            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"})
+            Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", " SubTipoActivoFijo DESC ", {"Codigo"})
 
             'For Each Row As DataRow In DtAvance.Rows
             '    If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then

UserControl/AddMedico.ascx

@@ -59,14 +59,14 @@
                             </div>
                             <div class="col-md-2">
                                 <div class="form-group form-md-line-input input-iconright contenedor-fijo" >
-                                    <asp:DropDownList ID="DdlMesNacimiento" CssClass="form-control select2me" runat="server" Width="78px" AutoPostBack="true" OnSelectedIndexChanged="DdlMesNacimiento_SelectedIndexChanged"></asp:DropDownList>                                    
-                                    <label for="<%= DdlMesNacimiento.ClientID.ToString()%>">Mes día Nacimiento:</label>
+                                    <asp:DropDownList ID="DdlDiaNacimiento" CssClass="form-control select2me" runat="server" Width="78px" AutoPostBack="true" OnSelectedIndexChanged="DdlDiaNacimiento_SelectedIndexChanged" ></asp:DropDownList>                                    
+                                    <label for="<%= DdlDiaNacimiento.ClientID.ToString()%>">Día Mes Nacimiento:</label>                                    
                                 </div>                            
                             </div>
                             <div class="col-md-2">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlDiaNacimiento" CssClass="form-control select2me" runat="server" Width="100%" ></asp:DropDownList>                                    
-                                    <label for="<%= DdlDiaNacimiento.ClientID.ToString()%>"> </label>
+                                <div class="form-group form-md-line-input input-iconright">                                    
+                                    <asp:DropDownList ID="DdlMesNacimiento" CssClass="form-control select2me" runat="server" Width="78px" AutoPostBack="true" OnSelectedIndexChanged="DdlMesNacimiento_SelectedIndexChanged"></asp:DropDownList>                                    
+                                    <label for="<%= DdlMesNacimiento.ClientID.ToString()%>"></label>
                                 </div>                            
                             </div>
                             <div class="col-md-4">

UserControl/AddMedico.ascx.vb

@@ -80,6 +80,7 @@ Partial Class UserControl_AddMedico
 
 
     Private Sub LlenarMeses()
+
         DdlMesNacimiento.Items.Clear()
         DdlMesNacimiento.Items.Add(New ListItem("-", "-1"))
         DdlMesNacimiento.Items.Add(New ListItem("Enero", "1"))
@@ -95,19 +96,37 @@ Partial Class UserControl_AddMedico
         DdlMesNacimiento.Items.Add(New ListItem("Nomviembre", "11"))
         DdlMesNacimiento.Items.Add(New ListItem("Diciembre", "12"))
 
+        DdlDiaNacimiento.Items.Add(New ListItem("-", "-1"))
+        For dia As Integer = 1 To 31
+            DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString()))
+        Next
+
     End Sub
     Protected Sub DdlMesNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlDiaNacimiento.Items.Clear()
-        If DdlMesNacimiento.SelectedValue <> "" Then
+        ValidaFechaNacimiento()
+    End Sub
+
+    Protected Sub DdlDiaNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs)
+        ValidaFechaNacimiento()
+    End Sub
+
+    Private Sub ValidaFechaNacimiento()
+
+
+
+        If DdlDiaNacimiento.SelectedValue.ToEntero > 0 AndAlso DdlMesNacimiento.SelectedValue.ToEntero > 0 Then
+
             Dim mes As Integer = Integer.Parse(DdlMesNacimiento.SelectedValue)
-            Dim año As Integer = DateTime.Now.Year ' Asume año actual para calcular los días
-            Dim diasEnMes As Integer = System.DateTime.DaysInMonth(año, mes)
+            Dim diasEnMes As Integer = System.DateTime.DaysInMonth(2000, mes)
+
+            If DdlDiaNacimiento.SelectedValue.ToEntero > diasEnMes Then
+                DdlDiaNacimiento.SelectedValueExist(diasEnMes)
+            End If
 
-            DdlDiaNacimiento.Items.Add(New ListItem("-", "-1"))
-            For dia As Integer = 1 To diasEnMes
-                DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString()))
-            Next
         End If
+
+        UpModal.Update()
+
     End Sub
 
     Sub CargaVendedores()
@@ -648,4 +667,6 @@ Partial Class UserControl_AddMedico
 
 
 
+
+
 End Class

Ventas/ActualizarPrecios.aspx

@@ -52,16 +52,18 @@
     <li>
         <asp:HyperLink ID="HlAgregarExcel" NavigateUrl="#" Visible="True" data-toggle="modal" data-target="#DivCargaExcel" runat="server"><i class='fa fa-server'></i> Importar Listado</asp:HyperLink>
     </li>
-    <li>
+    
         <asp:UpdatePanel ID="UpExportarExcel" runat="server">
             <ContentTemplate>
-                <asp:LinkButton ID="LnkExportarExcel" Text="<i class='fa fa-file-excel-o'></i> ExportarExcel" runat="server" OnClick="LnkExportarExcel_Click"></asp:LinkButton>
+                <li>
+                <asp:LinkButton ID="LnkExportarExcel" Text="" runat="server" OnClick="LnkExportarExcel_Click"> <i class='fa fa-file-excel-o'></i> Exportar Excel</asp:LinkButton>
+                      </li>
             </ContentTemplate>
             <Triggers>
                 <asp:PostBackTrigger ControlID="LnkExportarExcel" />
             </Triggers>
         </asp:UpdatePanel>
-    </li>
+  
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 

Ventas/ActualizarPrecios.aspx.vb

@@ -108,8 +108,16 @@ Partial Class Ventas_ActualizarPrecios
             If UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 193) Then
                 LblModalidad.Visible = True
                 DivModalidad.Visible = True
+            End If
+
+            If UsuarioActual.TienePermisoProceso(282) Then
+                PermisoEdicionLista = False
+                DivActualizarPrecio.Visible = False
+                HlAgregarExcel.Visible = False
             End If
+
             CargaCombos()
+
         End If
     End Sub
     Public Sub CargaCombos()
@@ -256,7 +264,13 @@ Partial Class Ventas_ActualizarPrecios
 
             dvDatos.Visible = True
             dvMultiple.Visible = False
+
             DivActualizarPrecio.Visible = True
+
+            If UsuarioActual.TienePermisoProceso(282) Then
+                DivActualizarPrecio.Visible = False
+            End If
+
             GVPrecios.DataBind()
         End If
 
@@ -1010,6 +1024,9 @@ Partial Class Ventas_ActualizarPrecios
 
         dvDatos.Visible = DdlModalidad.SelectedValue = "1"
         DivActualizarPrecio.Visible = DdlModalidad.SelectedValue = "1"
+        If UsuarioActual.TienePermisoProceso(282) Then
+            DivActualizarPrecio.Visible = False
+        End If
         dvMultiple.Visible = DdlModalidad.SelectedValue = "2"
 
         UPPrecioLista.Update()