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

- cveempresa en sucursales

Browse Source
This commit is contained in:
rrene
2024-04-06 06:27:15 -07:00
parent 9f5cfcb6f0
commit c55f5b35d2
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
App_Code/ClsClientes.vb
View File

@@ -3,11 +3,8 @@ Option Strict On
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports AjaxControlToolkit
Imports Extensiones Imports Extensiones
Imports iText.StyledXmlParser.Css.Resolve.Shorthand.Impl
Imports Modelos
Imports Stimulsoft.Report.Func
Public Class ClsClientes Public Class ClsClientes
Implements IDisposable Implements IDisposable
@@ -980,13 +977,13 @@ Public Class ClsClientes
Return Retorno Return Retorno
End Function End Function
Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean
Public Function GetSucursales(CveCliente As Integer, Optional CveClienteSucursal As Integer = -1) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Vta_SucursalClienteGet") DataAdapter("PA_Vta_SucursalClienteGet")
SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente SqlAdapter.SelectCommand.Parameters.Add("@CveCliente", SqlDbType.Int).Value = CveCliente
SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal SqlAdapter.SelectCommand.Parameters.Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal
SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2159,7 +2156,7 @@ Public Class ClsClientes
#End Region #End Region
#Region "A P L I C A C I O N" #Region "A P L I C A C I O N"
Public Function AddClienteApp(Cliente As MCliente) As Boolean Public Function AddClienteApp(Cliente As Modelos.MCliente) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_ClientesAppAdd") DataAdapter("PA_ClientesAppAdd")