- cveempresa en sucursales

App_Code/ClsClientes.vb

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