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