-- parametro adicional de cvesubproyecto

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

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>

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")