-

App_Code/ClsAF.vb

@@ -3241,6 +3241,73 @@ Public Class ClsAF
         Return Retorno
     End Function
 #End Region
+#Region "M E T R I C A S"
+    Public Function GetMetricas(CveMetrica As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las metricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMetricasValores(Optional CveMetricaValor As Integer = -1, Optional CveAF As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveUsuario As Integer = -1,
+                                       Optional CveSubProyecto As Integer = -1, Optional Fecha As String = "1900-01-01", Optional FechaIng As String = "1900-01-01") As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveAF", SqlDbType.Int).Value = CveAF
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@Fecha", SqlDbType.DateTime).Value = Fecha
+            .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetMetricasValoresDetalle(Optional CveMetricaValor As Integer = -1, Optional CveMetrica As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_AF_MetricasValoresDetalleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveMetricaValor", SqlDbType.Int).Value = CveMetricaValor
+            .Add("@CveMetrica", SqlDbType.Int).Value = CveMetrica
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los valores demetricas de Activo Fijo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+#End Region
 
 
 #Region " IDisposable Support "