corrección AF registro Metricas Valores Detalle

This commit is contained in:
Rakcsle Supertramp
2020-08-18 17:26:58 -07:00
parent cda5ef368c
commit ced72df011

View File

@@ -3433,7 +3433,7 @@ Public Class ClsAF
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_AF_MetricasValoresDetalleAdd") DataAdapter("PA_AF_MetricasValoresDetalleAdd")
@@ -3441,7 +3441,7 @@ Public Class ClsAF
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
.Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
.Add("@Valor", SqlDbType.VarChar).Value = Valor .Add("@Valor", SqlDbType.Decimal).Value = Valor
End With End With
Try Try