From bd36e4617f5e83af08b1a884c4ed5c5515912ce5 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Wed, 30 Sep 2020 15:38:43 -0700
Subject: [PATCH] Carga de  DdlSubProyectos

---
 Ventas/Clientes.aspx.vb | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 1e3cdac65..4601aba6d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1196,15 +1196,14 @@ Partial Class Clientes
 
 
     End Sub
-    Private Sub CargaSubProyectoss()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
+    Private Sub CargaSubProyectoss()
+
+        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
 
-        'If UsuarioActual.CveSucursal = -1 Then
-        '    DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        'Else
-        '    DdlSubProyecto.SelectedValue = UsuarioActual.CveSucursal.ToString
-        'End If
+        DdlSubProyecto.DataBind()
+
+
     End Sub
     Private Sub CargaMetodosPago()
         DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")