- PARAMETRO DE cveconcepto

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

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>

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