Exel anexos horizontales, AF

Inventarios/EntradasSalidas.aspx.vb

@@ -290,6 +290,10 @@ Partial Class Inventarios_EntradasSalidas
             TxtFecha.Text = Now.ToShortDateString
             RVFecha.MaximumValue = Now.ToShortDateString
 
+            If Not UsuarioActual.CveEmpresa = 41 Then
+                TxtFecha.Enabled = False
+            End If
+
 
             CantidadTotal = 0
             IndexSeccionAlmacen = 0
@@ -482,6 +486,7 @@ Partial Class Inventarios_EntradasSalidas
         DdlCConcepto.DataSource = GlobalDTInvConceptos.FiltraParametros("CveConcepto NOT IN (4,5)")
         DdlCConcepto.DataBind()
 
+
         'Llenar el dropdownlist de almacén
         If Not IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
             DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
@@ -508,6 +513,8 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
 
+
+
         CargaPS()
 
         ' CargaDdlPaqueteria()
@@ -2025,11 +2032,16 @@ Partial Class Inventarios_EntradasSalidas
             DdlConcepto.Items.Insert(0, New ListItem("Entrada Almacen ", "2"))
         End If
 
-        If UsuarioActual.CveEmpresa = 72 AndAlso CveTipoAlmacen.Contiene(14, 19) AndAlso UsuarioActual.CveUsuario = 2185 Then
+
+        If UsuarioActual.CveEmpresa = 72 AndAlso (UsuarioActual.CveUsuario = 2185 OrElse UsuarioActual.CveRol = 1) Then
 
             'DdlConcepto.Items.Add(New ListItem("Seleccione", "-1"))
             DdlConcepto.Items.Add(New ListItem("Entrada por Ajuste", "32"))
-            DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+
+            If CveTipoAlmacen.Contiene(12, 14, 19) Then
+                DdlConcepto.Items.Add(New ListItem("Salida por Ajuste", "34"))
+            End If
+
 
         End If