From c55f5b35d24ad434b1ec2a153a8d32092479e72e Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 6 Apr 2024 06:27:15 -0700
Subject: [PATCH] - cveempresa en sucursales

---
 App_Code/ClsClientes.vb | 11 ++++-------
 1 file changed, 4 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb
index bd5384c25..e3d47be18 100644
--- a/App_Code/ClsClientes.vb
+++ b/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")