corrección AF registro Metricas Valores Detalle

App_Code/ClsAF.vb

@@ -3433,7 +3433,7 @@ Public Class ClsAF
         Return Retorno
     End Function
 
-    Public Function AddMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1, Optional Valor As String = "-1") As Boolean
+    Public Function AddMetricasValoresDetalle(CveMetricaValor As Integer, CveMetrica As Integer, Valor As Decimal) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_AF_MetricasValoresDetalleAdd")
@@ -3441,7 +3441,7 @@ Public Class ClsAF
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
             .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
-            .Add("@Valor", SqlDbType.VarChar).Value = Valor
+            .Add("@Valor", SqlDbType.Decimal).Value = Valor
         End With
 
         Try