From ced72df011bf96eddf80f15ec08c6a9be70c56c0 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 18 Aug 2020 17:26:58 -0700
Subject: [PATCH] =?UTF-8?q?correcci=C3=B3n=20AF=20registro=20Metricas=20Va?=
 =?UTF-8?q?lores=20Detalle?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 App_Code/ClsAF.vb | 48 +++++++++++++++++++++++------------------------
 1 file changed, 24 insertions(+), 24 deletions(-)

diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb
index 07ef8202a..e1402fd73 100644
--- a/App_Code/ClsAF.vb
+++ b/App_Code/ClsAF.vb
@@ -3431,27 +3431,27 @@ Public Class ClsAF
         End Try
 
         Return Retorno
-    End Function
-
-    Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
-        Dim Retorno As Boolean = False
-
-        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
-
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
-            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
-        End With
-
-        Try
-            SqlAdapter.Fill(Data)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
+    End Function
+
+    Public Function AddMetricasValoresDetalle(CveMetricaValor As Integer, CveMetrica As Integer, Valor As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+            .Add("@Valor", SqlDbType.Decimal).Value = Valor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el detalle de los valores de métricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
     End Function
 
     Public Function DeleteMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
@@ -3473,10 +3473,10 @@ Public Class ClsAF
         End Try
 
         Return Retorno
-    End Function
-
+    End Function
+
 #End Region
-
+
 #Region "TIPO SERVICIO"
     Public Function GetTiposServicios(CveTipoServicio As Integer, CveTipoMantenimiento As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False