Funcionalidad 281 bloquear fechas

Inventarios/EntradasSalidas.aspx.vb

@@ -275,6 +275,7 @@ Partial Class Inventarios_EntradasSalidas
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
         If Not IsPostBack Then
 
             CveMovimiento = -1
@@ -289,6 +290,7 @@ Partial Class Inventarios_EntradasSalidas
             CreaDT()
             CargaCombos()
             TxtFecha.Text = Now.ToShortDateString
+            TxtFechaInvFisico.Text = Now.ToShortDateString
             RVFecha.MaximumValue = Now.ToShortDateString
 
             If Not UsuarioActual.CveEmpresa = 48 Then
@@ -350,7 +352,25 @@ Partial Class Inventarios_EntradasSalidas
                 PermisoVerImportes()
             End If
 
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+                TxtFechaInvFisico.Enabled = False
+                ImgFechaInvFisico.Visible = False
+
+                UpGenerales.Update()
+                UpModalInventarioFisico.Update()
+
+            End If
+
         End If
+
+
+
+
     End Sub
 
 #Region "  PERMISOS PAGINAS  "
@@ -927,6 +947,21 @@ Partial Class Inventarios_EntradasSalidas
             'BtnGuardar.Visible = False
         End If
 
+
+        If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+            TxtFecha.Enabled = False
+            ImgFecha.Visible = False
+
+            TxtFechaInvFisico.Enabled = False
+            ImgFechaInvFisico.Visible = False
+
+
+
+
+        End If
+
+        UpModalInventarioFisico.Update()
         BloqueaEdicionEncabezado()
         Mov.Dispose()
         UpGenerales.Update()

Inventarios/EntregaAlmacen.aspx.vb

@@ -263,6 +263,14 @@ Partial Class Inventarios_EntregaAlmacen
             InicializaValores()
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+            End If
+
         End If
     End Sub
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -399,6 +399,14 @@ Partial Class Inventarios_RecepcionAlmacen
             CargaPermisos()
             If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True
 
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+            End If
+
+
         End If
     End Sub
 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -228,6 +228,18 @@ Partial Class Inventarios_TraspasoAlmacen
 
             TipoSeccionAlmacen = 0
 
+
+
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+
+                TxtFecha.Enabled = False
+                ImgFecha.Visible = False
+
+                TxtFechaRecepcion.Enabled = False
+                ImgFechaRecepcion.Visible = False
+
+            End If
+
         Else
             If ChkTransitorio.Checked Then
                 RegistraScript("$('#DivTransitorio').show(0);$('#DivGastoIndirecto').show(0);$('#DivDocChofer').show(0);")