588 lines
27 KiB
VB.net
588 lines
27 KiB
VB.net
Option Strict Off
|
|
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 = NowADS().Month.ToString
|
|
TxtFechaICredito.Text = NowADS().FirstDayOfMonth.ToShortDateString
|
|
TxtFechaFCredito.Text = NowADS().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", NowADS().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 = NowADS().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
|