Unificacion de centro de costos en reportes

2023-02-08 21:54:59 -06:00
parent 006d94145e
commit 4dcd1d4b89
7 changed files with 112 additions and 57 deletions
--- a/Contabilidad2/RepAnexoCatalogo.aspx
+++ b/Contabilidad2/RepAnexoCatalogo.aspx
@@ -49,7 +49,7 @@
                                <asp:RequiredFieldValidator ID="RFVDdlCuentas" runat="server" InitialValue="-1" ControlToValidate="DdlCuentas" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta''</b> es necesario, por favor ingréselo." ValidationGroup="GrpConsulta"></asp:RequiredFieldValidator>
                                <ajax:ValidatorCalloutExtender ID="CERFVDdlCuentas" runat="server" HighlightCssClass="vco" TargetControlID="RFVDdlCuentas" Width="350px"></ajax:ValidatorCalloutExtender>
                            </div>
-                            
+
                            <div class="col-md-1 truncate">
                                Fecha Inicio:  
                            </div>
@@ -90,17 +90,17 @@
                <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style=""display:none;""")%>>
                    <div class="row">
                        <div class="col-md-1 truncate">
-                                Tipo Movto
-                            </div>
-                            <div class="col-md-2 truncate">
-                                <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
-                                    <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
-                                    <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
-                                </asp:DropDownList>
-                            </div>
+                            Tipo Movto
+                        </div>
+                        <div class="col-md-2 truncate">
+                            <asp:DropDownList ID="DdlCuenta" runat="server" DataTextField="Cuenta" DataValueField="CveCuenta" TabIndex="4" CssClass="form-control input-sm select2me" Width="100%">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos" Value="1"></asp:ListItem>
+                                <asp:ListItem Text="Saldo actual no igual a cero" Value="2"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos y saldo no igual a cero" Value="3"></asp:ListItem>
+                                <asp:ListItem Text="Con movimientos o saldo no igual a cero" Value="4"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
                        <div class="col-md-1 truncate" id="tdTipoReporte" visible="true">
                            Tipo
                        </div>
@@ -111,12 +111,16 @@
                                <asp:ListItem Text="Complementario" Value="2"></asp:ListItem>
                            </asp:DropDownList>
                        </div>
-                        <div class="col-md-1 truncate">
-                            SubProyecto
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                        </div>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                            </asp:DropDownList>
                        </div>
                        <div class="col-md-2">
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -52,6 +52,14 @@ Partial Class AC2_RepAnexoCatalogo
    '        ViewState("DTCuentas") = value
    '    End Set
    'End Property
+    Private Property CveProyecto As String
+        Get
+            CveProyecto = ViewState("CveProyecto").ToString
+        End Get
+        Set(value As String)
+            ViewState("CveProyecto") = value
+        End Set
+    End Property
    Private Property CveSubProyecto As String
        Get
            CveSubProyecto = ViewState("CveSubProyecto").ToString
@@ -121,6 +129,12 @@ Partial Class AC2_RepAnexoCatalogo
                        DdlCuenta.SelectedValueExist(Request("CM").ToString)
                    End If

+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        CveProyecto = Request("CveProyecto").ToString
+                        DdlProyecto.SelectedValueExist(CveProyecto)
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
+                    End If
+
                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
                        CveSubProyecto = Request("CveSubProyecto").ToString
                        DdlSubproyecto.SelectedValueExist(CveSubProyecto)
@@ -187,9 +201,14 @@ Partial Class AC2_RepAnexoCatalogo

        DdlCuentas.DataBind()

-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
    Private Sub CargaDatos()
        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
        Dim ObjConta As New ClsContabilidad
@@ -206,7 +225,13 @@ Partial Class AC2_RepAnexoCatalogo
            CveSubProyecto = DdlSubproyecto.SelectedValue.ToEntero.ToString
        End If

-        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        If Request("CveProyecto") IsNot Nothing Then
+            CveProyecto = Request("CveProyecto").ToString
+        Else
+            CveProyecto = DdlProyecto.SelectedValue.ToEntero.ToString
+        End If
+
+        If ObjConta.GetAnexoCatalogo(IdCuenta, FechaInicio, FechaFin, DdlCuenta.SelectedValue.ToEntero, CveProyecto.ToEntero, CveSubProyecto.ToEntero, UsuarioActual.CveEmpresa, TipoReporte) Then

            If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
                DtDatos = ObjConta.DtResultados.FiltraParametros(" SaldoInicial <> 0 OR Cargos <> 0 OR Abonos <> 0")
@@ -270,7 +295,7 @@ Partial Class AC2_RepAnexoCatalogo
                e.Row.FCHyperLink("HLSaldoActual").ForeColor = Drawing.Color.Red
            End If

-            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveSubProyecto={3}&TP={4}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveSubProyecto, TipoReporte)
+            e.Row.FCHyperLink("HLSaldoActual").NavigateUrl = String.Format("/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx?CveCuenta={0}&FI={1}&FF={2}&CveProyecto={3}&CveSubProyecto={4}&TP={5}", e.Row.DBCampo("CveCuenta"), FechaInicio.ToShortDateString, FechaFin.ToShortDateString, CveProyecto, CveSubProyecto, TipoReporte)
        End If
    End Sub

--- a/Contabilidad2/RepEstadoActividades.aspx
+++ b/Contabilidad2/RepEstadoActividades.aspx
@@ -20,7 +20,7 @@

 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-     
+
    <asp:UpdatePanel runat="server" ID="UpFiltros" UpdateMode="Conditional">
        <ContentTemplate>
            <div class="portlet solid  grey-cascade portlet-filter">
@@ -52,20 +52,27 @@
                                    <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                </asp:DropDownList>
                            </div>
-                                <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                                <div class="col-md-2 ">
-                                    <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Style="max-width: 200px !important;">
-                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                    </asp:DropDownList>
-                                </div>

-                                <li runat="server" id="liTipoReporte" visible="false">Tipo:
-                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px" >
+                            <div class="col-md-1">
+                                <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                                </asp:DropDownList>
+                            </div>
+                            <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
+                                </asp:DropDownList>
+                            </div>
+
+                            <li runat="server" id="liTipoReporte" visible="false">Tipo:
+                                    <asp:DropDownList ID="DdlTipoReporte" runat="server" Width="150px">
                                        <asp:ListItem Text="Contable" Value="1"></asp:ListItem>
                                        <asp:ListItem Text="Contable y Complementario" Value="2"></asp:ListItem>
                                        <asp:ListItem Text="Complementario" Value="3"></asp:ListItem>
                                    </asp:DropDownList>
-                                </li>                                
+                            </li>
                            </ul>
                        </div>
                    </div>
@@ -169,8 +176,7 @@
                    <td width="30%" align="right">
                        <asp:Label runat="server" Font-Bold="true" ID="LbTotalAnterior"></asp:Label>
                    </td>
-                    <td width="12%" align="right">
-                    </td>
+                    <td width="12%" align="right"></td>
                </tr>
            </table>
        </ContentTemplate>
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -117,22 +117,26 @@ Partial Class AC_RepEstadoActividades
        End If
        DdlPeriodo.SelectedValue = Now.Month.ToString

-        DdlSubproyecto.datasource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlSubproyecto.databind
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)

    End Sub

+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
+    End Sub
+
    Private Sub CargaDatos()


        FechaI = String.Format("01/{0}/{1}", DdlPeriodo.SelectedValue.PadLeft(2, CChar("0")), DdlEjercicio.SelectedValue)
        FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
        Dim TipoReporte = DdlTipoReporte.SelectedValue.ToEntero 'If(ReporteComplementario, DdlTipoReporte.SelectedValue.ToEntero, 1)
-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero

        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
+        If ObjConta.GetEstadoActividades(FechaI.ToDate, FechaF.ToDate, TipoReporte, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa) Then
            DtDatos = ObjConta.DtResultados.FiltraParametros("(ImporteActual <> 0 OR ImporteAcumulado <> 0)")
        Else
            DtDatos = Nothing
@@ -254,8 +258,8 @@ Partial Class AC_RepEstadoActividades
            End If

            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
            End If


@@ -283,8 +287,8 @@ Partial Class AC_RepEstadoActividades
            End If

            If e.Row.DBCampo("CtaMayor").ToString.ToEntero > 0 Then
-                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
-                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveSubProyecto={3}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLActual").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
+                e.Row.FCHyperLink("HLAnterior").NavigateUrl = String.Format("/Contabilidad2/RepAnexoCatalogo.aspx?CveCuenta={0}&FF={1}&FI={2}&ER=1&CveProyecto={3}&CveSubProyecto={4}", e.Row.DBCampo("CveCuenta"), e.Row.DBCampo("FechaFActual").ToDate.ToShortDateString, e.Row.DBCampo("FechaInicial").ToDate.ToShortDateString, DdlProyecto.SelectedValue, DdlSubproyecto.SelectedValue)
            End If

            If e.Row.DBCampo("ImporteActual").ToString.ToDouble < 0 Then
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -109,10 +109,16 @@
                            <asp:DropDownList ID="DdlMoneda" CssClass="form-control input-sm select2me" runat="server" DataTextField="Moneda" DataValueField="CveMoneda" TabIndex="5" ClientIDMode="Static" Width="100%">
                            </asp:DropDownList>
                        </div>
-                        <label class="col-md-2" style="width: 80px;">SubProyecto: </label>
-                        <div class="col-md-2 ">
-                            <asp:DropDownList ID="DdlSubproyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                        <div class="col-md-1">
+                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
+                            </asp:DropDownList>
+                        </div>
+                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                            </asp:DropDownList>
                        </div>
                        <div class="col-md-2" runat="server" id="tdTipoReporte" visible="true">
@@ -243,6 +249,6 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="JS" runat="Server">
    <script type="text/javascript">

-    </script>
+</script>

 </asp:Content>
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -135,12 +135,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
                        TxtFechaF.Text = FechaInicio.ToShortDateString
                    End If

-                    If Request("CveSubProyecto") IsNot Nothing Then
-                        If IsNumeric(Request("CveSubProyecto")) Then
-                            DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto").ToString)
-                        End If
+                    If Request("CveProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveProyecto")) Then
+                        DdlProyecto.SelectedValueExist(Request("CveProyecto"))
+                        DdlProyecto_SelectedIndexChanged(Nothing, Nothing)
                    End If

+                    If Request("CveSubProyecto") IsNot Nothing AndAlso IsNumeric(Request("CveSubProyecto")) Then
+                        DdlSubproyecto.SelectedValueExist(Request("CveSubProyecto"))
+                    End If

                    ErrorParametros = False

@@ -207,9 +209,6 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
        Dim ObjTipoCuenta As New ClsContabilidad '(UsuarioActual.Empresa)
        Dim strGlobal As String = ""

-        DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-        DdlSubproyecto.DataBind()
-
        If ObjTipoCuenta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa, 1, -1) Then
            Dim dr As DataRow = ObjTipoCuenta.DtResultados.FiltroPrimero("Codigo IN ('_GLOBAL')")
            If dr IsNot Nothing Then strGlobal = dr.Item(0).ToString
@@ -228,11 +227,19 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
        End If
        ObjTipoCuenta.Dispose()
        DdlCuentas.DataBind()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, Nothing, LblSubProyecto)
+
+    End Sub
+
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubproyecto, DdlProyecto.SelectedValue, "Todos")
    End Sub
    Private Sub CargaDatos()
        'Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)

-        Dim CveSubProyecto As String = DdlSubproyecto.SelectedValue.ToString
+        Dim CveProyecto As Integer = DdlProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto As Integer = DdlSubproyecto.SelectedValue.ToEntero
        TipoReporte = DdlTipoReporte.SelectedValue.ToString
        If TipoReporte = "1" And DdlCuentas.SelectedValue.ToEntero < 0 Then
            Alert("No ha seleccionado cuenta, Favor de especificar una", TipoMensaje.MsgAdvertencia)
@@ -241,7 +248,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
        IdCuenta = DdlCuentas.SelectedValue.ToEntero
        Cuenta = DdlCuentas.SelectedItem.ToString
        Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
+        If ObjConta.GetMovimientosAuxiliaresCatalogo(IdCuenta, FechaInicio, FechaFin, DdlMoneda.SelectedValue.ToEntero, CveProyecto, CveSubProyecto, UsuarioActual.CveEmpresa, TipoReporte) Then
            DtDatos = ObjConta.DtResultados
            DtTotales = DtDatos.Clone