cambio de double a decimal parametro de movimientodetalle

RH/Personal.aspx.vb

@@ -5788,7 +5788,7 @@ Partial Class RH_Personal
         Dim ObjInventario As New ClsInventarios
         ObjInventario.IniciaTransacSQL()
 
-        Dim Cantidad As Double = TxtCantidadResguardo.Text.ToDouble()
+        Dim Cantidad As Decimal = TxtCantidadResguardo.Text.ToDecimal
         Dim Serie As String = TxtLiberarSerie.Text.Trim
         Dim Errores As String = ""