diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 76051dd19..514f2022a 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -178,8 +178,7 @@ Partial Class Inventarios_Kardex
         DdlUnidadMedida.DataBind()
         DdlUnidadMedida.Items.Insert(0, New ListItem("Todos", "-1"))
 
-
-        If UsuarioActual.CveUsuario = 100 Then
+        If UsuarioActual.CveRol = 1 Then
             LblPS.ToolTip = ddlProducto2.SelectedValue
             lblAlm.InnerText = ddlProducto2.SelectedValue
         End If