From 10e88ccca20780f746287238bac71bc52d22fe3b Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Fri, 6 Mar 2020 22:08:40 -0700
Subject: [PATCH] PA para el reporte de metas vendedores

---
 App_Code/ClsVentas.vb | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 4519bd0b3..1afc4f4b2 100644
--- a/App_Code/ClsVentas.vb
+++ b/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