From f1495d6ad41bb297f7b1a60a0cc4eee3fad9d858 Mon Sep 17 00:00:00 2001
From: MLopez <Mario.lopez@adssistemas.mx>
Date: Sat, 11 Feb 2023 09:26:04 -0700
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3n=20en=20Clientes,=20Ddl=20Client?=
 =?UTF-8?q?e-sucursal=20tiene=20otro=20comportamiento,=20no=20usar=20sub?=
 =?UTF-8?q?=20de=20ClsPaginas?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Clientes.aspx.vb | 14 +++-----------
 1 file changed, 3 insertions(+), 11 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 82de53a46..d2c6d535d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1130,10 +1130,6 @@ Partial Class Clientes
             End If
         End If
 
-
-
-
-
         ObjCliente.Dispose()
 
         DdlSucursalCliente.DataBind()
@@ -1148,9 +1144,9 @@ Partial Class Clientes
         DdlClienteSucursalEnvio.DataBind()
         DdlClienteSucursalEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
         DdlClienteSucursalEnvio.SelectedValue = "-1"
-
-
-
+    End Sub
+    Private Sub CargaSubProyectosSuscursales()
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
     End Sub
     Private Sub CargaGridRetenciones()
         Dim ObjClientes As New ClsClientes
@@ -1161,10 +1157,6 @@ Partial Class Clientes
         ObjClientes.Dispose()
         GvRetenciones.DataBind()
     End Sub
-
-
-
-
     Private Sub CargaCuentasEquipos()
         Dim Objeto As New ClsGenerales
         If Objeto.GetCuentasEquipos(CveCliente, -1) Then