corrección AF registro Metricas Valores Detalle

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