-- 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
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
'IMPRIME POLIZA
|
||||||
|
|
||||||
'IMPRIME VALE
|
|
||||||
If UrlParametros("OP").ToString = "PREPO" Then
|
If UrlParametros("OP").ToString = "PREPO" Then
|
||||||
If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
|
If UrlParametros("CVEPREPOLIZA") IsNot Nothing AndAlso UrlParametros("CVEPREPOLIZA").ToString.ToEntero > 0 Then
|
||||||
ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
|
ImprimeImPrimePrePolizaS(UrlParametros("CVEPREPOLIZA").ToString.ToEntero)
|
||||||
@@ -6947,47 +6945,90 @@ Partial Class PopUpVerFactura
|
|||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
|
|
||||||
#Region "OP PREPO"
|
#Region "IMPRESION POLIZAS"
|
||||||
|
|
||||||
|
|
||||||
Public Sub ImprimeImPrimePrePolizaS(CvePrePoliza As Integer)
|
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
|
Dim drp As DataRow = ObjConta.DtResultados.FiltroPrimero("")
|
||||||
Exit Sub
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
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 = ""
|
TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
|
||||||
Dim params As New List(Of ReportParameter)
|
CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
|
||||||
Dim Bytes As Byte() = Nothing
|
ConceptoPolizaImp = drp("Concepto").ToString
|
||||||
Dim DtDetalle As New DataTable
|
FolioPoliza = drp("FolioPoliza").ToString
|
||||||
Dim CveTipoPolizaImp As Integer = 0
|
CveMonedaImp = drp("CveMoneda").ToString.ToEntero
|
||||||
Dim FolioPoliza As String = ""
|
Dim TipoPolizaString As String = If(CveTipoPolizaImp = 1, "I", If(CveTipoPolizaImp = 2, "E", "D")).ToString
|
||||||
Dim ConceptoPolizaImp As String = ""
|
|
||||||
Dim CveMonedaImp As Integer = 0
|
|
||||||
Dim TipoPolizaString = ""
|
|
||||||
|
|
||||||
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
|
ImprimirPDF(RutaReporte, DtDetalle, params, $"P{TipoPolizaString}{FolioPoliza}", Formato:="PDF")
|
||||||
|
|
||||||
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
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
@@ -6995,124 +7036,7 @@ Partial Class PopUpVerFactura
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
ObjContabilidad.Dispose()
|
ObjConta.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")
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
End Sub
|
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>
|
<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>
|
||||||
<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>
|
<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>
|
||||||
|
|
||||||
<%-- <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>
|
<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
|
Else
|
||||||
BtnEliminar.Visible = False
|
BtnEliminar.Visible = False
|
||||||
LnkExcel.Visible = True
|
LnkExcel.Visible = True
|
||||||
LnkImprimirPDF.Visible = False
|
|
||||||
DvPlantilla.Visible = True
|
DvPlantilla.Visible = True
|
||||||
|
|
||||||
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
||||||
@@ -337,7 +336,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
CreaDT()
|
CreaDT()
|
||||||
BtnEliminar.Visible = False
|
BtnEliminar.Visible = False
|
||||||
LnkExcel.Visible = True
|
LnkExcel.Visible = True
|
||||||
LnkImprimirPDF.Visible = False
|
|
||||||
DvPlantilla.Visible = True
|
DvPlantilla.Visible = True
|
||||||
|
|
||||||
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
TxtFechaDocumento.Text = Now.ToString("dd/MM/yyyy")
|
||||||
@@ -464,7 +462,8 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
TxtUsuarioElaboro.Text = dr("Usuario").ToString
|
TxtUsuarioElaboro.Text = dr("Usuario").ToString
|
||||||
TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
|
TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
|
||||||
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
|
CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
|
||||||
|
HplImprimirPDF.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=PREPO&CvePrePoliza={CvePrePoliza}")}"
|
||||||
|
HplImprimirPDF.Visible = True
|
||||||
If UsuarioActual.CveRol = 1 Then
|
If UsuarioActual.CveRol = 1 Then
|
||||||
TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
|
TxtUsuarioElaboro.ToolTip = dr("Modulo").ToString
|
||||||
End If
|
End If
|
||||||
@@ -543,7 +542,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
RegistraScript("comparar();")
|
RegistraScript("comparar();")
|
||||||
|
|
||||||
LnkExcel.Visible = False
|
LnkExcel.Visible = False
|
||||||
LnkImprimirPDF.Visible = True
|
|
||||||
Else
|
Else
|
||||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
BtnEliminar.Visible = False
|
BtnEliminar.Visible = False
|
||||||
@@ -2165,23 +2163,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
RegistraScript("calculateCargo()", "abono")
|
RegistraScript("calculateCargo()", "abono")
|
||||||
RegistraScript("comparar()", "compara")
|
RegistraScript("comparar()", "compara")
|
||||||
End Sub
|
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
|
Private Sub GvMov_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvMov.RowEditing
|
||||||
Actualizar = True
|
Actualizar = True
|
||||||
@@ -2717,75 +2698,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End Sub
|
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"
|
#Region "Crear A Partier de"
|
||||||
|
|
||||||
@@ -2923,7 +2835,7 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
'Next
|
'Next
|
||||||
End If
|
End If
|
||||||
LnkExcel.Visible = False
|
LnkExcel.Visible = False
|
||||||
LnkImprimirPDF.Visible = True
|
HplImprimirPDF.Visible = True
|
||||||
Else
|
Else
|
||||||
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
|
||||||
BtnEliminar.Visible = False
|
BtnEliminar.Visible = False
|
||||||
@@ -3215,44 +3127,6 @@ Partial Class ContabilidadC_RegPrePolizaS
|
|||||||
End Sub
|
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
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user