From 0932e4d9f107623f117a35b2edd176d763415aff Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 18 Dec 2024 17:13:12 -0700 Subject: [PATCH] =?UTF-8?q?Bloque=20Fechas=20IE=20y=20Almacenes=20Grupo=20?= =?UTF-8?q?D=C3=ADaz?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 7 +++++++ Bancos/PopIECompras.aspx.vb | 8 ++++++++ Bancos/PopIEVentas.aspx.vb | 8 ++++++++ Bancos/ProveedoresAbonar.aspx.vb | 8 ++++++++ Inventarios/EntradasSalidas.aspx.vb | 4 ++-- Inventarios/EntregaAlmacen.aspx.vb | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- Ventas/ClientesAbonar.aspx.vb | 6 ++++++ 9 files changed, 42 insertions(+), 5 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 961d521e5..4be15dbe9 100644 --- a/Bancos/IE.aspx.vb +++ b/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 diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 5d3eb3332..8e54d2bb1 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/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 diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 2019215db..1a8c0f482 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/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 diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1227b7197..d27e7066e 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/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 diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 4f0d0d4c4..c286f04ca 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/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 diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index ead541bd9..13307a503 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 854da5a4d..216ace50e 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/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 diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 0f6103c6a..cefa814b5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/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 diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 88ed5969c..0090577c5 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/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