agregando cuenta al reporte

Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb

@@ -84,6 +84,14 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             ViewState("TP") = value
         End Set
     End Property
+    Private Property Cuenta As String
+        Get
+            Return ViewState("Cuenta").ToString
+        End Get
+        Set(value As String)
+            ViewState("Cuenta") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -226,6 +234,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
             Exit Sub
         End If
         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
             DtDatos = ObjConta.DtResultados
@@ -463,6 +472,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
         params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
         params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
         params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue))
+        params.Add(New ReportParameter("Cuenta", Cuenta))
         ImprimirPDF("Contabilidad2/Reportes/RepMovimientosAuxiliaresCatalogo.rdlc", DtDatos, params, "MovimientosAuxiliares", Formato)
     End Sub
     Protected Sub DdlTipoCuentas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoCuentas.SelectedIndexChanged