diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 8a138cf63..f844f6e0c 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2964,10 +2964,11 @@ Partial Class Compras_eFacturas End Sub Private Sub MostrarSolcitudesSAT() + LnkShowSolicitudes.Visible = False - If UsuarioActual.Empresa.ArchivoPfx.Trim.Length > 0 Then - Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.ArchivoPfx}" + If UsuarioActual.Empresa.FielPFX.Trim.Length > 0 Then + Dim ArchivoCertificado As String = $"{UsuarioActual.Empresa.Ruta}Certificados\{UsuarioActual.Empresa.FielPFX}" If File.Exists(ArchivoCertificado) Then LnkShowSolicitudes.Visible = True End If diff --git a/Contabilidad2/RepEstadoActividades.aspx b/Contabilidad2/RepEstadoActividades.aspx index df5c0b947..ec5af5705 100644 --- a/Contabilidad2/RepEstadoActividades.aspx +++ b/Contabilidad2/RepEstadoActividades.aspx @@ -68,8 +68,8 @@ - -
+ +
diff --git a/Contabilidad2/RepEstadoActividades.aspx.vb b/Contabilidad2/RepEstadoActividades.aspx.vb index 4a1bcccf3..9aab64b5f 100644 --- a/Contabilidad2/RepEstadoActividades.aspx.vb +++ b/Contabilidad2/RepEstadoActividades.aspx.vb @@ -105,6 +105,12 @@ Partial Class AC_RepEstadoActividades DVConsolidado2.Visible = True End If + If UsuarioActual.CveRol = 1 Then + DVSubtotales1.Visible = True + DVSubtotales2.Visible = True + End If + + End If End Sub