Bloque Fechas IE y Almacenes Grupo Díaz

Bancos/IE.aspx.vb

@@ -788,6 +788,13 @@ Partial Class Bancos_IE
                 TRImporteDeduccionesPago.Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If Not UsuarioActual.TienePermisoProceso(404) Then
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+                End If
+            End If
+
         End If
     End Sub
 

Bancos/PopIECompras.aspx.vb

@@ -351,6 +351,14 @@ Partial Class Bancos_PopIECompras
                 TxtTipoCambio.Text = GlobalTipoCambio(NowADS()).FormatoNumero(4)
             End If
             UpDatos.Update()
+
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If Not UsuarioActual.TienePermisoProceso(404) Then
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+                End If
+            End If
+
         End If
     End Sub
 

Bancos/PopIEVentas.aspx.vb

@@ -358,6 +358,14 @@ Partial Class Bancos_PopIEVentas
                 ChkPagarDolares.Visible = True
                 TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4)
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If Not UsuarioActual.TienePermisoProceso(404) Then
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+                End If
+            End If
+
         End If
     End Sub
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -326,6 +326,14 @@ Partial Class Bancos_ProveedoresAbonar
                 chkaplicaDescuento.Visible = True
             End If
 
+
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If Not UsuarioActual.TienePermisoProceso(404) Then
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+                End If
+            End If
+
         End If
     End Sub
 

Inventarios/EntradasSalidas.aspx.vb

@@ -497,7 +497,7 @@ Partial Class Inventarios_EntradasSalidas
             End If
 
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
 
                 TxtFecha.Enabled = False
                 'ImgFecha.Visible = False
@@ -1221,7 +1221,7 @@ Partial Class Inventarios_EntradasSalidas
         End If
 
 
-        If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then
+        If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
 
             TxtFecha.Enabled = False
             'ImgFecha.Visible = False

Inventarios/EntregaAlmacen.aspx.vb

@@ -363,7 +363,7 @@ Partial Class Inventarios_EntregaAlmacen
             CargaParametrosAD()
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119, 186) Then DdlAlmacen.AutoPostBack = True
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False
             End If

Inventarios/RecepcionAlmacen.aspx.vb

@@ -489,7 +489,7 @@ Partial Class Inventarios_RecepcionAlmacen
             Dim PermisoEspecialCambioFecha As Boolean = False
             If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 AndAlso Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
 
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False

Inventarios/TraspasoAlmacen.aspx.vb

@@ -229,7 +229,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim PermisoEspecialCambioFecha As Boolean = False
             If UsuarioActual.CveUsuario.Contiene(100, 1937) Then PermisoEspecialCambioFecha = True
 
-            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Then
+            If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 And Not PermisoEspecialCambioFecha Or (UsuarioActual.Empresa.Funcionalidad(382) = "1" And Not UsuarioActual.TienePermisoProceso(405)) Then
                 TxtFecha.Enabled = False
                 ImgFecha.Visible = False
                 TxtFechaRecepcion.Enabled = False

Ventas/ClientesAbonar.aspx.vb

@@ -240,6 +240,12 @@ Partial Class Ventas_ClientesAbonar
                 DVImporteDeduccionesPago.Visible = True
             End If
 
+            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                If Not UsuarioActual.TienePermisoProceso(404) Then
+                    TxtFechaDocumento.Enabled = False
+                    ImgCalendario.Visible = False
+                End If
+            End If
 
         End If