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()