Imports System.Data
Imports System.IO
Imports Extensiones
Imports iText.Kernel.Geom
Imports iText.Kernel.Pdf
Imports iText.Kernel.Pdf.Canvas
Imports iText.Layout
Imports iText.IO.Image
Imports Microsoft.Reporting.WebForms

Partial Class Contabilidad_FiltraPolizas
    Inherits ClsPaginas
#Region "Propiedades"
    Private Property DtDatos As DataTable
        Get
            Return CType(ViewState("DtDatos"), DataTable)
        End Get
        Set(value As DataTable)
            ViewState("DtDatos") = value
        End Set
    End Property

    Public Property Tick As String
        Get
            Return CType(ViewState("Tick"), String)
        End Get
        Set(value As String)
            ViewState("Tick") = value
        End Set
    End Property


#End Region


    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load

        If Not Page.IsPostBack Then
            ViewState("Orden") = ""
            DdlPeriodo.SelectedValue = Now.Month.ToString
            TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
            TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString

            If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then

                CargaSegmentoNeg()
                CargaEjercicios()
                'CargaDatos()
                CargaGvBitacora()

            Else
                Alert("Este módulo requiere el uso de Contabilidad.", TipoMensaje.MsgAdvertencia)
                BtnConsultar.Enabled = False
                LnkImprimir.Visible = False
                LnkExcel.Visible = False
            End If

            'Dim httpApps As HttpApplication = HttpContext.ApplicationInstance

            ''Get list of active modules
            'Dim httpModuleCollections As HttpModuleCollection = httpApps.Modules
            '' ViewBag.ModulesCount = httpModuleCollections.Count
            'gvv.DataSource = httpModuleCollections
            'gvv.DataBind()

        End If
    End Sub
    Public Sub CargaDatos()

        Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
        Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()

        If UsuarioActual.Empresa.TipoContabilidad = 1 Then

            Dim ObjConta As New ClsContabilidad

            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
                DtDatos = ObjConta.DtResultados
                Gv.DataSource = ObjConta.DtResultados
            Else
                Gv.DataSource = Nothing
            End If

            ObjConta.Dispose()

        Else

            Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa)
            If ObjConta.GetPolizas(Ejercicio, Periodo, DdlTipoPoliza.SelectedValue.ToEntero(), DdlSegmentoNeg.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
                DtDatos = ObjConta.DtResultados
                Gv.DataSource = ObjConta.DtResultados
                'If DdlTipoPoliza.SelectedValue.ToEntero > 0 Then
                '    ViewState("DTPolizas") = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
                '    DtDatos = ObjConta.DtResultados.FiltraParametros($"TipoPol = '{DdlTipoPoliza.SelectedItem}'")
                'Else
                '    ViewState("DTPolizas") = ObjConta.DtResultados
                '    DtDatos = ObjConta.DtResultados
                'End If
            Else
                Gv.DataSource = Nothing
            End If

            ObjConta.Dispose()

        End If

        Gv.DataBind()
        UpDatos.Update()
    End Sub

    Private Sub CargaSegmentoNeg()

        DdlSegmentoNeg.Items.Clear()

        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
            DdlSegmentoNeg.DataValueField = "CveSubProyecto"
            DdlSegmentoNeg.DataTextField = "SubProyecto"
            DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        Else
            DdlSegmentoNeg.DataValueField = "Id"
            DdlSegmentoNeg.DataTextField = "Nombre"

            Dim ObjContPAQ As New ClsContPAQi(UsuarioActual.Empresa)
            If ObjContPAQ.GetSegmentosNegocio(-1, "-1") Then
                DdlSegmentoNeg.DataSource = ObjContPAQ.DtResultados
            End If
            ObjContPAQ.Dispose()

        End If

        DdlSegmentoNeg.DataBind()
        DdlSegmentoNeg.Items.Insert(0, New ListItem("Todos", "-1"))

    End Sub

    Private Sub CargaEjercicios()

        DdlEjercicio.Items.Clear()

        If UsuarioActual.Empresa.TipoContabilidad = 1 Then

            Dim ObjConta As New ClsContabilidad

            If ObjConta.GetEjercicios(UsuarioActual.CveEmpresa) Then
                DdlEjercicio.DataSource = ObjConta.DtResultados
            Else
                DdlEjercicio.DataSource = Nothing
            End If
            ObjConta.Dispose()

        Else
            Dim ClsConta As New ClsContPAQi(UsuarioActual.Empresa)
            If ClsConta.GetEjercicios() Then
                DdlEjercicio.DataSource = ClsConta.DtResultados
            Else
                DdlEjercicio.DataSource = Nothing
            End If
            ClsConta.Dispose()

        End If

        DdlEjercicio.DataBind()
        DdlEjercicio.SelectedValueExist(UsuarioActual.Empresa.EjercicioActual.ToString)

    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub DdlEjercicio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEjercicio.SelectedIndexChanged
        CargaDatos()
    End Sub

    Private Sub DdlPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPeriodo.SelectedIndexChanged
        CargaDatos()
    End Sub

    'Private Sub DdlTipoPoliza_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoPoliza.SelectedIndexChanged
    '    CargaDatos()
    'End Sub

#Region "O R D E N A M I E N T O"
    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim Orden As String = ""
        Dim Campo As String = ""
        Dim Literal As Literal = Nothing
        Const OrdenInicial As String = ""
        Dim Arg(2) As String

        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
        Campo = Arg(0)
        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)

        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
        Else
            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
        End If
        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
        ViewState("Orden") = Orden
        'CargaGrid(Orden)
    End Sub
    'Private Sub CargaGrid(Orden As String)
    '    If Orden <> String.Empty Then
    '        Dim DV As New DataView(CType(ViewState("DTPolizas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
    '        Gv.DataSource = DV.ToTable()
    '        DV.Dispose()
    '    Else
    '        Gv.DataSource = CType(ViewState("DTPolizas"), DataTable)
    '    End If
    '    Gv.DataBind()
    'End Sub

#End Region

#Region "IMPRIMIR"
    Private Sub ImprimirPoliza(Optional Formato As String = "PDF")
        If DtDatos IsNot Nothing Then
            Dim params As New List(Of ReportParameter)
            Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
            Dim dt As DataTable = DtDatos


            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
            params.Add(New ReportParameter("Ejercicio", DdlEjercicio.SelectedItem.ToString))
            params.Add(New ReportParameter("Periodo", DdlPeriodo.SelectedItem.ToString))

            params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
            ImprimirPDF("Empresas/Grales/Formatos/PolizasPeriodo.rdlc", dt, params, String.Format("ReporteDePolizas-{0} {1}", DdlEjercicio.SelectedItem, DdlPeriodo.SelectedItem), Formato:=Formato)
        Else
            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
        End If


    End Sub

    Private Sub LnkImprimir_Click(sender As Object, e As EventArgs) Handles LnkImprimir.Click
        ImprimirPoliza("PDF")
    End Sub

    Private Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
        ImprimirPoliza("EXCEL")
    End Sub
#End Region

#Region "HISTORIAL DE ELIMINACION"

    Private Sub CargaGvBitacora()
        Dim ObjGral As New ClsGenerales
        If ObjGral.GetHistorialBitacoraRemoveGet("Polizas", UsuarioActual.CveEmpresa, TxtFechaICredito.Text.ToDate, TxtFechaFCredito.Text.ToDate, DdlTipoPolizaFiltro.SelectedValue.ToEntero) Then
            GvBitacora.DataSource = ObjGral.DtResultados
        End If
        ObjGral.Dispose()
        GvBitacora.DataBind()
    End Sub

    Private Sub BtnMostrar_Click(sender As Object, e As EventArgs) Handles BtnMostrar.Click
        GvBitacora.Visible = True
        DivBusquedaBitacora.Visible = True
        DivFiltrosBitacora.Visible = True
        BtnOcultar.Visible = True
        BtnMostrar.Visible = False
        UpBitacora.Update()
    End Sub

    Private Sub BtnOcultar_Click(sender As Object, e As EventArgs) Handles BtnOcultar.Click
        GvBitacora.Visible = False
        DivBusquedaBitacora.Visible = False
        DivFiltrosBitacora.Visible = False
        BtnOcultar.Visible = False
        BtnMostrar.Visible = True
        UpBitacora.Update()
    End Sub

    Protected Sub BtnConsultarBitacora_Click(sender As Object, e As EventArgs)
        CargaGvBitacora()
        UpBitacora.Update()
    End Sub

#End Region

    Protected Sub LnkPaqueteEgre_Click(sender As Object, e As EventArgs) Handles LnkPaqueteEgre.Click
        Dim filtro() As String = {"CveCompra", "CveIE", "CveConceptoContable"}
        Dim filtroComplemento() As String = {"CveIE"}
        Dim Pathpdf As New List(Of String)
        Dim pdfs = New List(Of Byte())
        Dim Path As String
        Dim ObjCompra As New ClsCompras
        Dim ObjIE As New ClsBancos()
        Dim pathPoliza As String = ""
        Dim TieneComprobante As String = ""
        Tick = DateTime.Now.Ticks.ToString
        Dim ObjContabilidad As New ClsContabilidad
        Dim CvePrePoliza As Integer
        Dim PolizasSinComprobante As String = "Polizas sin comprobante: <br/>"
        Dim SinComprobante As Boolean = False
        Dim contador As Integer = 0
        Try
            If Gv.Rows.Count > 0 Then


                For Each TempPolizas As GridViewRow In Gv.Rows
                    If TempPolizas.FCCheckBox("ChkPoliza").Checked Then
                        contador += 1
                        CvePrePoliza = TempPolizas.DataKey("CvePrePoliza").ToString.ToEntero
                        ObjContabilidad.GetContabilizacionDiarioDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
                        TieneComprobante = VerificarComprobante(ObjContabilidad.DtResultados)

                        If TieneComprobante = "" And Not SinComprobante Then

                            Path = ImprimirPolizaPDF(CvePrePoliza)
                            pathPoliza = Path
                            If File.Exists(Path) Then
                                Pathpdf.Add(Path)
                            End If
                            Dim dt As DataTable = ObjContabilidad.DtResultados.FiltraParametros("", "", filtro)

                            For Each Row As DataRow In dt.Rows
                                If Row("CveConceptoContable").ToString.ToEntero = 30 Then
                                    If Row("CveIE").ToString.ToEntero > 0 Then
                                        If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                                            If ObjIE.DtResultados.Rows.Count > 0 Then
                                                Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
                                                If File.Exists(Path) Then
                                                    Dim formato As String = System.IO.Path.GetExtension(Path)
                                                    If formato.ToLower.Contiene(".jpg", ".png", ".jpeg") Then
                                                        Dim ComprobantePDF As String = String.Format("{0}\{1}\comprobante.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick)
                                                        Using documento = New Document(New PdfDocument(New PdfWriter(New FileStream(ComprobantePDF, FileMode.Create))), PageSize.A4)
                                                            documento.SetMargins(18, 18, 18, 18)
                                                            Dim image = New Element.Image(ImageDataFactory.Create(Path))
                                                            'image.ScaleToFit(documento.GetPageEffectiveArea(PageSize.A4).GetWidth(), documento.GetPageEffectiveArea(PageSize.A4).GetHeight())
                                                            image.ScaleToFit(540, 700)
                                                            documento.Add(image)
                                                            documento.Close()
                                                        End Using
                                                        Pathpdf.Add(ComprobantePDF)
                                                    Else
                                                        Pathpdf.Add(Path)
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                                If Row("CveConceptoContable").ToString.ToEntero.Contiene(17, 309, 312, 308) Then
                                    If ObjCompra.GetCompras(Row("CveCompra").ToString.ToEntero, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
                                        If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                                            Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                                            Dim RFC As String = dr("RFC").ToString
                                            Dim CveFactura As String = dr("CveFactura").ToString
                                            Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
                                            If File.Exists(Path) Then

                                                Pathpdf.Add(Path)
                                            End If
                                        End If
                                    End If
                                End If
                            Next


                            dt = ObjContabilidad.DtResultados.FiltraParametros("", "", filtroComplemento)
                            For Each Row As DataRow In dt.Rows
                                If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
                                    If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                                        Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                                        Dim RFC As String = dr("RFCde").ToString
                                        Dim CveFactura As String = dr("CveFactura").ToString
                                        Console.WriteLine(RFC & CveFactura)
                                        If CveFactura <> "" Then
                                            Path = String.Format("{0}Compras\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, RFC, CveFactura)
                                            Console.WriteLine(Path)
                                            If File.Exists(Path) Then
                                                Pathpdf.Add(Path)
                                            End If
                                        End If
                                    End If
                                End If
                            Next
                        Else
                            If TieneComprobante <> "" Then
                                PolizasSinComprobante += String.Format("<a href='/Bancos/IE.aspx?CveIE={0}'>{1} {2}</a> <br/>", TieneComprobante, TempPolizas.DataKey("TipoPol").ToString, TempPolizas.DataKey("Folio").ToString)
                                SinComprobante = True
                            End If

                        End If

                    End If
                Next
                If contador > 0 Then
                    If SinComprobante Then
                        Alert(PolizasSinComprobante, TipoMensaje.MsgAdvertencia)
                    Else
                        MergePdfFiles(Pathpdf.ToArray)
                    End If
                Else
                    Alert("No hay polizas seleccionadas para imprimir", TipoMensaje.MsgAdvertencia)

                End If

            Else
                Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia)
            End If

            If File.Exists(pathPoliza) Then
                Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
            End If

        Catch ex As Exception
            Alert("Error al descargar el paquete", TipoMensaje.MsgError)
            If File.Exists(pathPoliza) Then
                Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
            End If
        End Try

        ObjCompra.Dispose()
        ObjIE.Dispose()
    End Sub
    Private Function ImprimirPolizaPDF(CvePrePoliza As Integer) As String
        Dim ObjConta As New ClsContabilidad
        'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)

        Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
        Dim params As New List(Of ReportParameter)
        Dim Bytes As Byte() = Nothing


        'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
            Dim dtVC As DataTable
            Dim dr As DataRow
            dtVC = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
            dr = dtVC.Rows(0)
            Dim ruta As String = ""
            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("FolioPoliza").ToString))
            params.Add(New ReportParameter("Moneda", ""))
            params.Add(New ReportParameter("CodigoPostal", ""))
            If UsuarioActual.CveEmpresa = 119 Then
                params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
            End If
            If UsuarioActual.CveEmpresa = 140 Then
                params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
            End If
            If Archivo.Exists Then
                ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
            Else
                ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
            End If
            Bytes = StreamPDF(ruta, dtVC, params, "ppoliza")
            If Not File.Exists(String.Format("{0}{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString)) Then
                DirectoryExistsCreate(String.Format("{0}{1}", AppDomain.CurrentDomain.BaseDirectory, Tick))
                File.WriteAllBytes(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString), Bytes)
            End If
        End If
        Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, CvePrePoliza.ToString)
        ObjConta.Dispose()

    End Function
    Private Sub MergePdfFiles(pdfFilesList() As String)
        Dim f As Integer = 0
        Dim pdfCount As Integer = pdfFilesList.Length

        Try
            If pdfCount > 0 Then
                Dim currentFile = pdfFilesList(f)
                Dim reader As New PdfReader(currentFile)
                Dim srcDoc As New PdfDocument(reader)
                Dim pageCount = srcDoc.GetNumberOfPages()

                Dim writer As New PdfWriter(New FileStream(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "poliza"), FileMode.Create))
                Dim mergedDoc As New PdfDocument(writer)
                Dim document As New Document(mergedDoc, srcDoc.GetFirstPage.GetPageSizeWithRotation())
                document.SetMargins(18, 18, 18, 18)

                While f < pdfCount
                    Dim p As Integer = 0
                    While p < pageCount
                        p += 1
                        Dim srcPage = srcDoc.GetPage(p)
                        Dim srcPageSize = srcPage.GetPageSizeWithRotation()
                        mergedDoc.SetDefaultPageSize(srcPageSize)
                        Dim canvas As New PdfCanvas(mergedDoc.AddNewPage())
                        Dim srcPageXObj = srcPage.CopyAsFormXObject(mergedDoc)
                        Dim rotation = srcPage.GetRotation()
                        If rotation = 90 Then
                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 0, -1.0F, 1.0F, 0, 0, srcPageSize.GetHeight())
                        ElseIf rotation = 270 Then
                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 0, 1.0F, -1.0F, 0, srcPageSize.GetWidth() + 60, -30)
                        Else
                            canvas.AddXObjectWithTransformationMatrix(srcPageXObj, 1.0F, 0, 0, 1.0F, 0, 0)
                        End If
                    End While
                    f += 1
                    If f < pdfCount Then
                        currentFile = pdfFilesList(f)
                        reader = New PdfReader(currentFile)
                        srcDoc = New PdfDocument(reader)
                        pageCount = srcDoc.GetNumberOfPages()
                    End If
                End While

                srcDoc.Close()
                document.Close()

                Dim Archivo As New System.IO.FileInfo(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "Poliza"))

                If Archivo.Exists Then
                    Response.Clear()
                    Response.ContentType = Nothing
                    Response.AppendHeader("Content-disposition", String.Format("attachment; filename={0}", Archivo.Name))
                    Response.AddHeader("Content-Length", Archivo.Length.ToString())
                    Response.TransmitFile(String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, "Poliza"))
                    Response.Flush() ' send it to the client to download
                    HttpContext.Current.Response.SuppressContent = True
                    HttpContext.Current.ApplicationInstance.CompleteRequest()
                    Response.End()

                End If
                Dim result As Boolean = True
            End If
        Catch ex As Exception
        End Try

    End Sub

    Private Function VerificarComprobante(ByVal PrepolizaDetalle As DataTable) As String
        Dim filtro() As String = {"CveIE", "CveConceptoContable"}
        Dim Path As String
        Dim dt As DataTable = PrepolizaDetalle.FiltraParametros("", "", filtro)
        Dim ObjIE As New ClsBancos()
        Dim TieneComprobante As String = ""

        For Each Row As DataRow In dt.FiltraParametros("CveConceptoContable = 30").Rows

            If ObjIE.GetBancosIE(Row("CveIE").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                If ObjIE.DtResultados.Rows.Count > 0 Then
                    Path = String.Format("{0}IE\{1}", UsuarioActual.Empresa.Ruta, ObjIE.Comprobante.ToString)
                    If File.Exists(Path) Then
                        TieneComprobante = ""
                        Exit For
                    Else
                        TieneComprobante = Row("CveIE").ToString
                        Exit For
                    End If
                Else
                    TieneComprobante = Row("CveIE").ToString
                    Exit For
                End If
            End If

        Next
        ObjIE.Dispose()
        Return TieneComprobante

    End Function

    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles Gv.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then

            If UsuarioActual.Empresa.TipoContabilidad = 1 Then

                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"
            Else
                e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
                e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"

            End If

        End If
    End Sub

End Class