Impresión de prepolizas y correcciones en conta ejercicios

App_Code/ClsContabilidad.vb

@@ -5986,6 +5986,37 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function GetPrePolizasImpresion(CveEmpresa As Integer, FechaI As String, FechaF As String, Optional CveTipoPoliza As Integer = -1, Optional FolioI As Integer = -1,
+                                           Optional FolioF As Integer = -1, Optional CveUsuario As Integer = -1, Optional IdSegNegocio As Integer = -1,
+                                           Optional CveCuenta As Integer = -1, Optional CvePlantillaPoliza As Integer = -1, Optional CveProveedor As Integer = -1) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Conta_PrePolizasImpresionGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@FechaI", SqlDbType.Date).Value = FechaI
+            .Add("@FechaF", SqlDbType.Date).Value = FechaF
+            .Add("@CveTipoPoliza", SqlDbType.Int).Value = CveTipoPoliza
+            .Add("@FolioI", SqlDbType.Int).Value = FolioI
+            .Add("@FolioF", SqlDbType.Int).Value = FolioF
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@IdSegNegocio", SqlDbType.Int).Value = IdSegNegocio
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            Me.OnError("Ocurrió un error al eliminar el catálogo de Conta Ejercicios", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region "  RECONSTRUCCION DE PREPOLIZAS  "
     Public Function ReconstruirPP_PagoCompra(CvePrePoliza As Integer) As Boolean
         Dim Retorno = False

Contabilidad2/CatContaEjercicios.aspx

@@ -65,11 +65,6 @@
                                 </h4>
                             </div>
                             <div class="modal-body" style="text-align: left">
-                                <div class="form-group form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo" Style="width: 50%">
-                                    </asp:DropDownList>
-                                    <label for="<%= DdlCuentas.ClientID.ToString()%>">Cuenta:</label>
-                                </div>
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox ID="TxtEjercicio" CssClass="form-control " runat="server" MaxLength="50" CausesValidation="true" Style="width: 100%"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RFVClave" runat="server" ControlToValidate="TxtEjercicio" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>'¨Ejercicio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModulo"></asp:RequiredFieldValidator>
@@ -106,6 +101,31 @@
                     </asp:UpdatePanel>
                 </div>
             </div>
+            <div id="ModalGenerarPoliza" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog" style="width: 150px;">
+                    <asp:UpdatePanel runat="server" class="modal-content" ID="UpdatePanel1" UpdateMode="Conditional">
+                        <ContentTemplate>
+                            <div class="modal-header ">
+                                <button type="button" class="close" data-dismiss="modal">×</button>
+                                <h4 class="modal-title">
+                                    <asp:Literal ID="LtlMGPTitulo" runat="server">Conta Ejercicios</asp:Literal>
+                                </h4>
+                            </div>
+                            <div class="modal-body" style="text-align: left">
+                                <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlCuentas" runat="server" CssClass="form-control input-sm select2me" DataValueField="CveCuenta" DataTextField="CtaCodigo" Style="width: 50%">
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlCuentas.ClientID.ToString()%>">Cuenta:</label>
+                                </div>
+                            </div>
+                            <div class="modal-footer">
+                                <asp:LinkButton ID="LbGenerarPoliza" runat="server" class="btn btn-success" Text="Generar" ValidationGroup="GrpModulo" />
+                                <button id="Button1" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                            </div>
+                        </ContentTemplate>
+                    </asp:UpdatePanel>
+                </div>
+            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Contabilidad2/CatContaEjercicios.aspx.vb

@@ -13,6 +13,30 @@ Partial Class Contabilidad2_CatContaEjercicios
             ViewState("CveEjercicio") = Value
         End Set
     End Property
+    Private Property Ejercicio() As Integer
+        Get
+            Return If(IsNothing(ViewState("Ejercicio")), -1, CInt(ViewState("Ejercicio")))
+        End Get
+        Set
+            ViewState("Ejercicio") = Value
+        End Set
+    End Property
+    Private Property PeriodoActualNumero() As Integer
+        Get
+            Return If(IsNothing(ViewState("PeriodoActualNumero")), -1, CInt(ViewState("PeriodoActualNumero")))
+        End Get
+        Set
+            ViewState("PeriodoActualNumero") = Value
+        End Set
+    End Property
+    Private Property Estatus() As Boolean
+        Get
+            Return CBool(ViewState("Estatus"))
+        End Get
+        Set
+            ViewState("Estatus") = Value
+        End Set
+    End Property
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
@@ -39,6 +63,7 @@ Partial Class Contabilidad2_CatContaEjercicios
         TxtEjercicio.Text = ""
         ChkEstatus.Checked = 0
         DdlPeriodoActual.SelectedValue = 0
+        LbAgregar.Text = "Agregar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
     End Sub
@@ -48,12 +73,12 @@ Partial Class Contabilidad2_CatContaEjercicios
         Dim errorString As String = ""
         If LbAgregar.Text = "Agregar" Then
             If Not ObjConta.AddContaEjercicio(DateTime.Today, UsuarioActual.CvePersonal, UsuarioActual.CveEmpresa, Ejercicio:=TxtEjercicio.Text,
-                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
+                                              PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al agregar"
             End If
         ElseIf LbAgregar.Text = "Actualizar" Then
             If Not ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=TxtEjercicio.Text, PeriodoActual:=DdlPeriodoActual.SelectedValue.ToEntero,
-                                                 CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero, Estatus:=ChkEstatus.Checked) Then
+                                                 Estatus:=ChkEstatus.Checked) Then
                 errorString = "Error al actualizar"
             End If
         End If
@@ -78,7 +103,6 @@ Partial Class Contabilidad2_CatContaEjercicios
         TxtEjercicio.Text = GvRow.DataKey("Ejercicio")
         ChkEstatus.Checked = GvRow.DataKey("Estatus")
         DdlPeriodoActual.SelectedValue = GvRow.DataKey("PeriodoActualNumero")
-        DdlCuentas.SelectedValue = GvRow.DataKey("CveCuentaCierre")
         LbAgregar.Text = "Actualizar"
         UpModalModulos.Update()
         RegistraScript("$('#ModalCat').modal();")
@@ -97,14 +121,21 @@ Partial Class Contabilidad2_CatContaEjercicios
 
     Protected Sub PolizaCierre(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Ejercicio = GvRow.DataKey("Ejercicio").ToEntero
+        PeriodoActualNumero = GvRow.DataKey("PeriodoActualNumero").ToEntero
+
+        RegistraScript("$('#ModalGenerarPoliza').modal();")
+    End Sub
+
+    Protected Sub LbGenerarPoliza_Click(sender As Object, e As EventArgs) Handles LbGenerarPoliza.Click
         Dim ObjConta As New ClsContabilidad
         Dim FechaI As String = $"01/01/{DateTime.Now.Year}"
         Dim FechaF As String = $"{DateTime.DaysInMonth(DateTime.Now.Year, 12)}/12/{DateTime.Now.Year}"
         Dim CvePrePolizaCierre As Integer = -1
-        CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, GvRow.DataKey("Ejercicio").ToEntero, GvRow.DataKey("CveCuentaCierre").ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
+        CvePrePolizaCierre = ObjConta.CierreEjercicio(UsuarioActual.CveEmpresa, Ejercicio, DdlCuentas.SelectedValue.ToEntero, FechaI, FechaF, UsuarioActual.CvePersonal)
         If CvePrePolizaCierre > 0 Then
-            If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=GvRow.DataKey("Ejercicio").ToEntero, PeriodoActual:=GvRow.DataKey("PeriodoActualNumero").ToEntero,
-                                                 CveCuentaCierre:=GvRow.DataKey("CveCuentaCierre").ToEntero, CvePrePoliza:=CvePrePolizaCierre, Estatus:=GvRow.DataKey("Estatus")) Then
+            If ObjConta.UpdateContaEjercicio(CveEjercicio, Ejercicio:=Ejercicio, PeriodoActual:=PeriodoActualNumero, CveCuentaCierre:=DdlCuentas.SelectedValue.ToEntero,
+                                             CvePrePoliza:=CvePrePolizaCierre, Estatus:=Estatus) Then
                 Alert("Cierre de ejercicio correcto")
             End If
         End If

Contabilidad2/PolizasImpresion.aspx

@@ -0,0 +1,116 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PolizasImpresion.aspx.vb" Inherits="Contabilidad2_PolizasImpresion" %>
+
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
+</asp:Content>
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
+    <asp:Panel ID="Panel1" runat="server" DefaultButton="BtnConsultar">
+        <div class="portlet solid grey-cascade portlet-filter">
+            <div class="portlet-title portlet-filterT smalltitle" style="min-height: 49px;">
+                <div class="tools">
+                    <asp:Button ID="BtnConsultar" CssClass="btn btn-default" runat="server" Text="Generar" />
+                </div>
+                <div class="titlefiltros  caption ">
+                    <div class="row" style="padding-top: 1px;">
+                        <label class="col-md-1 truncate">Fecha Inicio:</label>
+                        <div class="col-md-2">
+
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                <asp:TextBox ID="TxtFechaInicio" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="ImgFechaInicio" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                                <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaInicio" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaInicio" PopupButtonID="ImgFechaInicio" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RFVFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CVEFechaInicio" runat="server" ControlToValidate="TxtFechaInicio" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VcoFechaInicio1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaInicio" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VcoFechaInicio2" runat="server" HighlightCssClass="vco" TargetControlID="CVEFechaInicio" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                        <label class="col-md-1 truncate">Fecha Fin:</label>
+                        <div class="col-md-2 ">
+
+                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 120px !important; padding: 0px;">
+                                <asp:TextBox ID="TxtFechaFin" runat="server" CssClass="form-control" CausesValidation="true" Style="width: 118px" MaxLength="10"></asp:TextBox>
+                                <span class="input-group-btn ">
+                                    <asp:LinkButton ID="ImgFechaFin" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                </span>
+                                <ajax:MaskedEditExtender ID="MEEFecha" runat="server" TargetControlID="TxtFechaFin" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <ajax:CalendarExtender runat="server" ID="CEFecha" TargetControlID="TxtFechaFin" PopupButtonID="ImgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                <asp:RequiredFieldValidator ID="RFVFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                <asp:CompareValidator ID="CVFechaFin" runat="server" ControlToValidate="TxtFechaFin" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fecha''</b> no tiene el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="GrpGuardar"></asp:CompareValidator>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaFin1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
+                                <ajax:ValidatorCalloutExtender ID="VCOFechaFin2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaFin" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>
+                        </div>
+                        <label class="col-md-1 truncate">Tipo Póliza:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="ddlTipoPoliza" DataTextField="TipoPoliza" DataValueField="CveTipoPoliza" CssClass="form-control input-sm select2-me" runat="server"></asp:DropDownList>
+                        </div>
+                    </div>
+                </div>
+            </div>
+            <div class="portlet-body">
+
+                <div class="row">
+                    <label class="col-md-1 truncate">Folio Inicio:</label>
+                    <div class="col-md-2">
+                        <asp:TextBox ID="FolioInicio" CssClass="form-control input-sm" runat="server" Width="60px"></asp:TextBox>
+                    </div>
+                    <label class="col-md-1 truncate">Folio Fin:</label>
+                    <div class="col-md-2 ">
+                        <asp:TextBox ID="FolioFin" CssClass="form-control input-sm" runat="server" Width="60px"></asp:TextBox>
+                    </div>
+                    <label class="col-md-1 truncate">Registró:</label>
+                    <div class="col-md-2 ">
+                        <asp:DropDownList ID="DdlUsuarioRegistro" DataTextField="Nombre" DataValueField="CveUsuario" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
+                    </div>
+                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">Segmento de Neg.:</label>
+                    <div class="col-md-2 ">
+                        <asp:DropDownList ID="DdlSegmentoNeg" DataTextField="Nombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
+                    </div>
+                </div>
+
+                <div class="row">
+                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Segmento de Negocio">Cuenta:</label>
+                    <div class="col-md-2 ">
+                        <asp:DropDownList ID="DdlCuenta" DataValueField="CveCuenta" DataTextField="CtaCodigo" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
+                    </div>
+                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Grupo Plantilla">Grupo Plantilla:</label>
+                    <div class="col-md-2 ">
+                        <asp:DropDownList ID="DdlGrupoPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            <asp:ListItem Text="Compras" Value="1"></asp:ListItem>
+                            <asp:ListItem Text="Ventas" Value="2"></asp:ListItem>
+                            <asp:ListItem Text="Pago Compra" Value="3"></asp:ListItem>
+                            <asp:ListItem Text="Pago Venta" Value="4"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+
+                    <label class="col-md-1 truncate">Tipo Proveedor:</label>
+                    <div class="col-md-3">
+                        <asp:DropDownList ID="DdlTipoProveedor" CssClass="form-control input-sm select2me" Width="260px" runat="server">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            <asp:ListItem Text="Proveedor" Value="1"></asp:ListItem>
+                            <asp:ListItem Text="Acreedor" Value="2"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
+
+                </div>
+
+            </div>
+        </div>
+    </asp:Panel>
+     
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
+</asp:Content>
+

Contabilidad2/PolizasImpresion.aspx.vb

@@ -0,0 +1,115 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports System.Activities.Statements
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Contabilidad2_PolizasImpresion
+    Inherits ClsPaginas
+
+
+    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.LoadComplete
+        If Not IsPostBack Then
+            TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
+            TxtFechaFin.Text = Now.ToShortDateString
+
+            DdlUsuarioRegistro.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+            DdlUsuarioRegistro.DataBind()
+            cargaddlpolizas()
+            CargaSegmentoNeg()
+            CargaCuentas()
+        End If
+    End Sub
+    Private Sub BtnConsultar_click(sender As Object, args As EventArgs) Handles BtnConsultar.Click
+        Dim foli As Integer = -1
+        Dim folf As Integer = -1
+        If Not FolioInicio.Text = "" Then
+            foli = FolioInicio.Text.ToEntero()
+        End If
+        If Not FolioFin.Text = "" Then
+            folf = FolioFin.Text.ToEntero()
+        End If
+
+        Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc"
+
+        'If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then
+        '    ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
+        'End If
+
+        Dim ObjConta As New ClsContabilidad
+        If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text, TxtFechaFin.Text, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli,
+                                           FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, IdSegNegocio:=DdlSegmentoNeg.SelectedValue.ToEntero,
+                                           CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CvePlantillaPoliza:=DdlGrupoPlantilla.SelectedValue.ToEntero,
+                                           CveProveedor:=DdlTipoProveedor.SelectedValue.ToEntero) Then
+            If ObjConta.DtResultados.Rows.Count < 10000 Then
+
+                If ObjConta.DtResultados.Rows.Count > 0 Then
+                    Dim dr As DataRow
+                    dr = ObjConta.DtResultados.Rows(0)
+                    Dim params As New List(Of ReportParameter)
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                    params.Add(New ReportParameter("TipoPoliza", dr("TipoPoliza").ToString))
+                    params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate.ToShortDateString))
+                    params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate.ToShortDateString))
+                    params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
+                    'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
+                    'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
+                    params.Add(New ReportParameter("Numero", dr("Folio").ToString))
+                    params.Add(New ReportParameter("Moneda", ""))
+                    params.Add(New ReportParameter("CodigoPostal", ""))
+
+                    'If UsuarioActual.CveEmpresa = 119 Then
+                    '    params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("IdUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
+                    'End If
+
+                    ImprimirPDF(ArchivoReporte, ObjConta.DtResultados, params)
+
+                Else
+                    Alert("Los Filtros Actuales no contienen datos")
+                End If
+
+            Else
+                Alert("Los Filtros Actuales contienen muchos datos")
+            End If
+        End If
+        ObjConta.Dispose()
+
+    End Sub
+    Private Sub cargaddlpolizas()
+        Dim objcont As New ClsContabilidad
+        If objcont.GetTiposPoliza(-1, "-1", UsuarioActual.CveEmpresa) Then
+            ddlTipoPoliza.DataSource = objcont.DtResultados
+            ddlTipoPoliza.DataBind()
+            ddlTipoPoliza.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        End If
+        objcont.Dispose()
+        DdlUsuarioRegistro.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaSegmentoNeg()
+        Dim objtcont As New ClsContabilidad
+        If objtcont.GetSegmentosNegocio(-1, "-1") Then
+            DdlSegmentoNeg.DataSource = objtcont.DtResultados
+            DdlSegmentoNeg.DataBind()
+        End If
+        objtcont.Dispose()
+        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlSegmentoNeg.Items.Insert(1, New ListItem("Sin Asignar", "-2"))
+    End Sub
+
+    Private Sub CargaCuentas()
+
+        Dim objconta As New ClsContabilidad
+        If objconta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
+            DdlCuenta.DataSource = objconta.DtResultados
+        End If
+        objconta.Dispose()
+        DdlCuenta.DataBind()
+
+        DdlCuenta.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+End Class