From 9c1ffb1927d828ce5c646373497aef781bdd3125 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 16 Apr 2020 07:52:32 -0700
Subject: [PATCH] -PU decimal

---
 RH/Personal.aspx.vb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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