From 7d655d3e135871ca872eac2650564c03d7939503 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 3 Dec 2020 11:08:07 -0700
Subject: [PATCH] Cambios API Econo

---
 App_Code/ClsProductosServicios.vb | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index d77dbbe60..1a939af3d 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -2137,12 +2137,13 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function GetProductosModificados(CveEmpresa As Integer, CvePrecioLista As Integer) As Boolean
+    Public Function GetProductosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ProductosModificadosGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2153,12 +2154,13 @@ Public Class ClsProductosServicios
 
         Return Retorno
     End Function
-    Public Function GetPreciosModificados(CveEmpresa As Integer, CvePrecioLista As Integer) As Boolean
+    Public Function GetPreciosModificados(CveEmpresa As Integer, CvePrecioLista As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ProductosPreciosModificadosGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -2187,11 +2189,12 @@ Public Class ClsProductosServicios
         Return Retorno
     End Function
 
-    Public Function GetVendedoresModificados(CveEmpresa As Integer) As Boolean
+    Public Function GetVendedoresModificados(CveEmpresa As Integer, Optional HorasDiferencia As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VendedoresModificadosGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@HorasDiferencia", SqlDbType.Int).Value = HorasDiferencia
         End With
         Try
             SqlAdapter.Fill(Data)