AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cambios API Econo

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2020-12-03 11:08:07 -07:00
parent 4f69db851d
commit 7d655d3e13
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
App_Code/ClsProductosServicios.vb
View File

@@ -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)