From 7bba00bd5abab0cf75cd702457deffc2a5c51fb1 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 26 Mar 2022 07:23:33 -0700
Subject: [PATCH] - PARAMETRO DE cveconcepto

---
 App_Code/ClsContabilidad.vb                  | 3 ++-
 Contabilidad2/CatCuentasAsignaciones.aspx    | 5 +++++
 Contabilidad2/CatCuentasAsignaciones.aspx.vb | 6 +++++-
 3 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 355a0e47d..6b6fce855 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5812,7 +5812,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean
+    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
@@ -5821,6 +5821,7 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
         End With
 
         Try
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx
index b1aac2ea4..da44a42c5 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx
@@ -57,6 +57,11 @@
                                     <asp:ListItem Text="Sin Asignar" Value="2"></asp:ListItem>                                 
                                 </asp:DropDownList>
                             </div>
+
+                            <label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label>
+                            <div runat="server" id="DivCon" class="col-md-2">
+                                <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>                                                   
+                            </div>
                                                           
                         </div>
                     </div>
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 31c0d54c0..5c94f0643 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -17,6 +17,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1)
+            DdlConceptos.DataBind()
+            DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1"))
+
             CargaDatosModal()
         End If
     End Sub
@@ -37,7 +41,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Private Sub CargaDatosSistema()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero, DdlConceptos.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjConta.DtResultados
         End If
         GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0