PA para el reporte de metas vendedores

App_Code/ClsVentas.vb

@@ -4305,6 +4305,28 @@ Public Class ClsVentas
         End Try
         Return retorno
     End Function
+
+    Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
+                                          CveClasificacion2 As Integer, CveMarca As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@FechaMesActual", SqlDbType.DateTime).Value = FechaMesActual
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
+            .Add("@CveCategoria", SqlDbType.Int).Value = CveCategoria
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de metas por vendedores", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
 #Region "Conciliación emitidas SAT"
 
     Public Function ConciliacionemitidasSATGet(cveEmpresa As Int32) As Boolean