diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 05560ccb3..6228b0e4d 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -298,11 +298,11 @@ Partial Class RH_Personal
         End Set
     End Property
 
-    Private Property PU As Double
+    Private Property PU As Decimal
         Get
             Return CInt(ViewState("PU"))
         End Get
-        Set(value As Double)
+        Set(value As Decimal)
             ViewState("PU") = value
         End Set
     End Property
@@ -4908,7 +4908,7 @@ Partial Class RH_Personal
 
         CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString.ToEntero
         DescripcionUniforme = rowInfo.Item("CodigoPS").ToString
-        PU = rowInfo.Item("PU").ToString.ToDouble
+        PU = rowInfo.Item("PU").ToString.ToDecimal
 
         CveUM = rowInfo.Item("CveUM").ToString.ToEntero
         CvePS = rowInfo.Item("CvePS").ToString.ToEntero