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

tipoConsulta

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2019-12-30 12:29:15 -07:00
parent afc2822cf6
commit b77dbee539
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsCompProveedores.vb
View File

@@ -292,7 +292,7 @@ Public Class ClsCompProveedores
Return Retorno Return Retorno
End Function 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, 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 CveTipoProveedor As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1) As Boolean Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1) As Boolean
@@ -301,7 +301,7 @@ Public Class ClsCompProveedores
DataAdapter("PA_Comp_ProveedoresGet") DataAdapter("PA_Comp_ProveedoresGet")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoConsulta", SqlDbType.Int).Value = TipoConsulta .Add("@TipoConsulta", SqlDbType.Int).Value = tipoConsulta
.Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
.Add("@Codigo", SqlDbType.VarChar).Value = Codigo .Add("@Codigo", SqlDbType.VarChar).Value = Codigo
.Add("@RazonSocial", SqlDbType.VarChar).Value = RazonSocial .Add("@RazonSocial", SqlDbType.VarChar).Value = RazonSocial
@@ -321,7 +321,7 @@ Public Class ClsCompProveedores
Try Try
SqlAdapter.Fill(Data) 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.CveProveedor = Data.Rows(0)("CveProveedor").ToString.ToEntero
Me.Codigo = Data.Rows(0)("Codigo").ToString Me.Codigo = Data.Rows(0)("Codigo").ToString
Me.RazonSocial = Data.Rows(0)("RazonSocial").ToString Me.RazonSocial = Data.Rows(0)("RazonSocial").ToString