From cacd261747b917cbeb19747fb75d0989558021b1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 26 Sep 2024 17:36:14 -0700
Subject: [PATCH] -- parametro adicional de cvesubproyecto

---
 App_Code/ClsContabilidad.vb    | 6 ++----
 Ventas/AuxiliarCliente.aspx    | 5 +++++
 Ventas/AuxiliarCliente.aspx.vb | 4 +---
 3 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index e21cb2136..cda545d68 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -437,19 +437,17 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
+    Public Function GetClienteAuxiliar(CveCliente As Integer, CveConceptoContable As Integer, CveSubProyecto As Integer, FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_ClienteAuxiliar")
 
         With SqlAdapter.SelectCommand.Parameters
-
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveConceptoContable", SqlDbType.Int).Value = CveConceptoContable
-
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
-
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
diff --git a/Ventas/AuxiliarCliente.aspx b/Ventas/AuxiliarCliente.aspx
index 86e5822cd..b7fac9e64 100644
--- a/Ventas/AuxiliarCliente.aspx
+++ b/Ventas/AuxiliarCliente.aspx
@@ -119,6 +119,11 @@
                                 <asp:ListItem  Text="Detallado" Value="1"></asp:ListItem>
                                 <asp:ListItem Selected="True" Text="Agrupado por Venta" Value="2"></asp:ListItem>
                             </asp:DropDownList>
+                        </div>
+                              <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
+                        <div runat="server" id="DivSubProyecto" class="col-md-2">
+                            <asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+   
                         </div>
                     </div>
                 </div>
diff --git a/Ventas/AuxiliarCliente.aspx.vb b/Ventas/AuxiliarCliente.aspx.vb
index 780126fa8..26bbb200f 100644
--- a/Ventas/AuxiliarCliente.aspx.vb
+++ b/Ventas/AuxiliarCliente.aspx.vb
@@ -40,8 +40,6 @@ Partial Class Ventas_AuxiliarCliente
         End If
     End Sub
 
-
-
     Private Sub CargaFiltros()
 
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -59,7 +57,7 @@ Partial Class Ventas_AuxiliarCliente
         'DdlConceptosContables.DataSource = GlobalDTContaConceptosContables(-1)
         'DdlConceptosContables.DataBind()
         'DdlConceptosContables.Items.Insert(0, New ListItem("Todos", "-1"))
-
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
 
         txtFechaI.Text = NowADS().AddDays(-30).ToString("dd/MM/yyyy")
         txtFechaF.Text = NowADS().ToString("dd/MM/yyyy")