-- simplificación de código, un solo lugar para impresión de póliza
This commit is contained in:
@@ -1454,9 +1454,7 @@ Partial Class PopUpVerFactura
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'IMPRIME VALE
|
||||
'IMPRIME POLIZA
|
||||
If UrlParametros("OP").ToString = "PREPO" Then
|
||||
If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
|
||||
ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
|
||||
@@ -6947,47 +6945,90 @@ Partial Class PopUpVerFactura
|
||||
#End Region
|
||||
|
||||
|
||||
#Region "OP PREPO"
|
||||
|
||||
#Region "IMPRESION POLIZAS"
|
||||
|
||||
Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
|
||||
|
||||
If Not CvePrePoliza > 0 Then Exit Sub
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If Not CvePrePoliza > 0 Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("")
|
||||
|
||||
If drp IsNot Nothing Then
|
||||
|
||||
'ObjContabilidad.Dispose()
|
||||
Dim DtDetalle As New DataTable
|
||||
Dim CveTipoPolizaImp As Integer
|
||||
Dim FolioPoliza As String
|
||||
Dim ConceptoPolizaImp As String
|
||||
Dim CveMonedaImp As Integer
|
||||
Dim TipoPolImp As String
|
||||
Dim RutaReporte As String
|
||||
Dim params = New List(Of ReportParameter)
|
||||
|
||||
Dim rutaArchivo As String = ""
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Bytes As Byte() = Nothing
|
||||
Dim DtDetalle As New DataTable
|
||||
Dim CveTipoPolizaImp As Integer = 0
|
||||
Dim FolioPoliza As String = ""
|
||||
Dim ConceptoPolizaImp As String = ""
|
||||
Dim CveMonedaImp As Integer = 0
|
||||
Dim TipoPolizaString = ""
|
||||
TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
||||
CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
|
||||
ConceptoPolizaImp = drp("Concepto").ToString
|
||||
FolioPoliza = drp("FolioPoliza").ToString
|
||||
CveMonedaImp = drp("CveMoneda").ToString.ToEntero
|
||||
Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString
|
||||
|
||||
Dim ObjContabilidad As New ClsContabilidad
|
||||
If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then
|
||||
|
||||
Dim TipoPolImp As String = ""
|
||||
Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
|
||||
RutaReporte = RutaFormatoReporte("PolizasResumen.rdlc")
|
||||
|
||||
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
Dim dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados
|
||||
dr = DtDetalle.Rows(0)
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
|
||||
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("Numero", FolioPoliza))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
|
||||
params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
|
||||
params.Add(New ReportParameter("Folio", FolioPoliza))
|
||||
params.Add(New ReportParameter("pImg", RutaImagenLogo))
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
Else
|
||||
RutaReporte = RutaFormatoReporte("Polizas.rdlc")
|
||||
If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
|
||||
Dim dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
|
||||
dr = DtDetalle.Rows(0)
|
||||
|
||||
Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
|
||||
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("Numero", dr("FolioPoliza").ToString))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
|
||||
If dr IsNot Nothing Then
|
||||
|
||||
TipoPolImp = If(dr("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(dr("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
||||
CveTipoPolizaImp = dr("CveTipoPoliza").ToString.ToEntero
|
||||
ConceptoPolizaImp = dr("Concepto").ToString
|
||||
FolioPoliza = dr("FolioPoliza").ToString
|
||||
CveMonedaImp = dr("CveMoneda").ToString.ToEntero
|
||||
ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
|
||||
|
||||
Else
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
@@ -6995,124 +7036,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
End If
|
||||
|
||||
ObjContabilidad.Dispose()
|
||||
|
||||
Select Case CveTipoPolizaImp
|
||||
Case 1
|
||||
TipoPolizaString = "I"
|
||||
Exit Select
|
||||
Case 2
|
||||
TipoPolizaString = "E"
|
||||
Exit Select
|
||||
Case Else
|
||||
TipoPolizaString = "D"
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(282).ToEntero = 1 Then
|
||||
|
||||
|
||||
Dim Archivo As System.IO.FileInfo
|
||||
|
||||
Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
|
||||
|
||||
Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
Dim dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
|
||||
dr = DtDetalle.Rows(0)
|
||||
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("TipoPoliza", TipoPolImp))
|
||||
params.Add(New ReportParameter("Finicio", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
params.Add(New ReportParameter("FFin", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy")))
|
||||
|
||||
params.Add(New ReportParameter("Numero", FolioPoliza))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
params.Add(New ReportParameter("UsuarioRegistro", UsuarioActual.Usuario))
|
||||
params.Add(New ReportParameter("ConceptoPoliza", ConceptoPolizaImp))
|
||||
|
||||
params.Add(New ReportParameter("Folio", FolioPoliza))
|
||||
|
||||
|
||||
If Logo.Exists Then
|
||||
params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("pImg", ""))
|
||||
End If
|
||||
|
||||
|
||||
If Archivo.Exists Then
|
||||
rutaArchivo = Archivo.FullName
|
||||
Else
|
||||
rutaArchivo = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
|
||||
Else
|
||||
|
||||
Dim Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
|
||||
params = New List(Of ReportParameter)
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
'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 dr As DataRow
|
||||
DtDetalle = ObjConta.DtResultados.FiltraParametros("Contabilizable = 1", "Orden")
|
||||
dr = DtDetalle.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))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||
End If
|
||||
|
||||
FolioPoliza = dr("FolioPoliza").ToString
|
||||
params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMonedaImp = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
End If
|
||||
|
||||
If Archivo.Exists Then
|
||||
rutaArchivo = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
|
||||
Else
|
||||
rutaArchivo = "Empresas/Grales/Formatos/Polizas.rdlc"
|
||||
End If
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
ImprimirPDF(rutaArchivo, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
|
||||
|
||||
|
||||
|
||||
ObjConta.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -78,8 +78,8 @@
|
||||
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="true" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
|
||||
</li>
|
||||
<asp:HyperLink ID="HplImprimirPDF" runat="server" Target="_blank" Visible="false" ><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:HyperLink>
|
||||
</li>
|
||||
|
||||
<%-- <li>
|
||||
<asp:LinkButton ID="LnkImprimePDFResumen" runat="server" Visible="true" OnClick="LnkImprimePDFResumen_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir PDF Resumen</asp:LinkButton>
|
||||
|
||||
@@ -311,7 +311,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
Else
|
||||
BtnEliminar.Visible = False
|
||||
LnkExcel.Visible = True
|
||||
LnkImprimirPDF.Visible = False
|
||||
DvPlantilla.Visible = True
|
||||
|
||||
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
||||
@@ -337,7 +336,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
CreaDT()
|
||||
BtnEliminar.Visible = False
|
||||
LnkExcel.Visible = True
|
||||
LnkImprimirPDF.Visible = False
|
||||
DvPlantilla.Visible = True
|
||||
|
||||
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
||||
@@ -464,7 +462,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
TxtUsuarioElaboro.Text = dr("Usuario").ToString
|
||||
TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
|
||||
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
|
||||
|
||||
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
|
||||
HplImprimirPDF.Visible = True
|
||||
If UsuarioActual.CveRol = 1 Then
|
||||
TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
|
||||
End If
|
||||
@@ -543,7 +542,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
RegistraScript("comparar();")
|
||||
|
||||
LnkExcel.Visible = False
|
||||
LnkImprimirPDF.Visible = True
|
||||
Else
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
BtnEliminar.Visible = False
|
||||
@@ -2165,23 +2163,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
RegistraScript("calculateCargo()", "abono")
|
||||
RegistraScript("comparar()", "compara")
|
||||
End Sub
|
||||
'Protected Sub DdlSubProyectoFiltroMov_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
' For Each Gvr As GridViewRow In GvMov.Rows
|
||||
' If DdlSubProyectoFiltroMov.SelectedValue.ToEntero > 0 Then
|
||||
' If Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero = DdlSubProyectoFiltroMov.SelectedValue.ToEntero Or Not Gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero > 0 Then
|
||||
' Gvr.Visible = True
|
||||
' Else
|
||||
' Gvr.Visible = False
|
||||
' End If
|
||||
' Else
|
||||
' Gvr.Visible = True
|
||||
' End If
|
||||
' Next
|
||||
' UpPrePoliza.Update()
|
||||
' RegistraScript("calculateAbono()", "cargo")
|
||||
' RegistraScript("calculateCargo()", "abono")
|
||||
' RegistraScript("comparar()", "compara")
|
||||
'End Sub
|
||||
|
||||
Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing
|
||||
Actualizar = True
|
||||
@@ -2717,75 +2698,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Paquete Egresos"
|
||||
Protected Sub LnkImprimirPDF_Click(sender As Object, e As EventArgs)
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(282) = "1" Then
|
||||
ImprimePrePolizasDetalleResumen("PDF")
|
||||
Else
|
||||
ImprimirPolizaPDF()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ImprimirPolizaPDF()
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Bytes As Byte() = Nothing
|
||||
Dim Ruta As String = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)
|
||||
Dim Archivo As New System.IO.FileInfo(Ruta)
|
||||
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
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)
|
||||
|
||||
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))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(141) Then
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToString("dd/MM/yyyy hh:mm:ss")))
|
||||
Else
|
||||
params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString))
|
||||
End If
|
||||
params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
|
||||
params.Add(New ReportParameter("Moneda", ""))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
|
||||
If UsuarioActual.CveEmpresa.Contiene(119, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioRegistro", GlobalDTUsuarios(dr("CveUsuario").ToString.ToEntero).FiltroPrimeroValor("Nombre")))
|
||||
End If
|
||||
If UsuarioActual.CveEmpresa.Contiene(140, 141) Then
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
End If
|
||||
If Archivo.Exists Then
|
||||
|
||||
Ruta = UsuarioActual.Empresa.Ruta & "Formatos/Polizas.rdlc"
|
||||
|
||||
Else
|
||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||
Ruta = "Empresas/Grales/Formatos/Polizas.rdlc"
|
||||
End If
|
||||
|
||||
ImprimirbytesPDF(StreamPDF(Ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
|
||||
|
||||
End If
|
||||
|
||||
ObjConta.Dispose()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Crear A Partier de"
|
||||
|
||||
@@ -2923,7 +2835,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
'Next
|
||||
End If
|
||||
LnkExcel.Visible = False
|
||||
LnkImprimirPDF.Visible = True
|
||||
HplImprimirPDF.Visible = True
|
||||
Else
|
||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||
BtnEliminar.Visible = False
|
||||
@@ -3215,44 +3127,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ImprimePrePolizasDetalleResumen(Optional Tipo As String = "PDF")
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim TipoPolizaString As String = If(DdlTipoPoliza.SelectedValue = "1", "I", If(DdlTipoPoliza.SelectedValue = "2", "E", "D")).ToString
|
||||
|
||||
Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
|
||||
Dim ConceptoPoliza As String = TxtConcepto.Text
|
||||
Dim RutaReporte As String = RutaFormatoReporte("PolizasResumen.rdlc")
|
||||
Dim ObjConta As New ClsContabilidad
|
||||
|
||||
If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) 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)
|
||||
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("TipoPoliza", DdlTipoPoliza.SelectedItem.Text))
|
||||
params.Add(New ReportParameter("Finicio", TxtFechaDocumento.Text))
|
||||
params.Add(New ReportParameter("FFin", TxtFechaDocumento.Text))
|
||||
params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
|
||||
params.Add(New ReportParameter("Numero", TxtFolio.Text))
|
||||
params.Add(New ReportParameter("Moneda", If(CveMoneda = 2, "Dolar", "Peso Mexicano")))
|
||||
params.Add(New ReportParameter("CodigoPostal", ""))
|
||||
params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text))
|
||||
params.Add(New ReportParameter("ConceptoPoliza", ConceptoPoliza))
|
||||
params.Add(New ReportParameter("Folio", TxtFolio.Text))
|
||||
params.Add(New ReportParameter("pImg", RutaImagenLogo))
|
||||
|
||||
ImprimirbytesPDF(StreamPDF(RutaReporte, dtVC, params, "PrePoliza", Formato:=Tipo), $"P{TipoPolizaString}{TxtFolio.Text}", Formato:=Tipo, Descarga:=True)
|
||||
|
||||
End If
|
||||
ObjConta.Dispose()
|
||||
|
||||
End Sub
|
||||
Protected Sub LnkImprimePDFResumen_Click(sender As Object, e As EventArgs)
|
||||
ImprimePrePolizasDetalleResumen("PDF")
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user