From b77dbee53903443d80a3a6e39baa2e1f3b014ff2 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 30 Dec 2019 12:29:15 -0700 Subject: [PATCH] tipoConsulta --- App_Code/ClsCompProveedores.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index cc81e5ff1..56585d092 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -292,7 +292,7 @@ Public Class ClsCompProveedores Return Retorno End Function - Public Function GetProveedores(TipoConsulta As TipoConsulta, CveProveedor As Integer, Codigo As String, RazonSocial As String, NombreComercial As String, + Public Function GetProveedores(tipoConsulta As TipoConsulta, CveProveedor As Integer, Codigo As String, RazonSocial As String, NombreComercial As String, NombreCorto As String, RFC As String, ContactoNombre As String, Telefono As String, Estatus As Integer, CveEmpresa As Integer, Optional CveTipoProveedor As Integer = -1, Optional CveUsuarioResponsable As Integer = -1, Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1) As Boolean @@ -301,7 +301,7 @@ Public Class ClsCompProveedores DataAdapter("PA_Comp_ProveedoresGet") With SqlAdapter.SelectCommand.Parameters - .Add("@TipoConsulta", SqlDbType.Int).Value = TipoConsulta + .Add("@TipoConsulta", SqlDbType.Int).Value = tipoConsulta .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@RazonSocial", SqlDbType.VarChar).Value = RazonSocial @@ -321,7 +321,7 @@ Public Class ClsCompProveedores Try SqlAdapter.Fill(Data) - If Data.Rows.Count = 1 Then + If Data.Rows.Count = 1 And tipoConsulta <> TipoConsulta.ParaGlobalDT Then Me.CveProveedor = Data.Rows(0)("CveProveedor").ToString.ToEntero Me.Codigo = Data.Rows(0)("Codigo").ToString Me.RazonSocial = Data.Rows(0)("RazonSocial").ToString