From 1a75d635a6668388db88920cd6e3a64a3a941d53 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 2 Sep 2022 12:51:59 -0700
Subject: [PATCH] =?UTF-8?q?visualizar=20m=C3=B3dulo=20Rol=201?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePolizaS.aspx.vb | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index cd96ee540..2b6a245a2 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -434,6 +434,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                 '  TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
 
+                If UsuarioActual.CveRol = 1 Then
+                    TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
+                End If
+
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
                     'DivAgregarConceptos.Visible = True
                     LnkAddConcepto.Visible = True