From 117c32a48daba67437acf640871ac1f3d130788c Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 May 2023 16:31:52 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20c=C3=B3digo=20para=20buscar?= =?UTF-8?q?=20la=20ruta=20del=20reporte?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 609 ++++++++++---------------- Contabilidad/PolizasImpresion.aspx.vb | 9 +- 2 files changed, 227 insertions(+), 391 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 0e2a3a5aa..a825a28f5 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5,6 +5,7 @@ Imports System.Data Imports System.IO Imports System.Xml Imports Extensiones +Imports iText.Barcodes.Dmcode Imports Microsoft.Reporting.WebForms Imports Stimulsoft.Report Imports Stimulsoft.Report.Web @@ -291,9 +292,6 @@ Partial Class PopUpVerFactura End Using - 'endimg - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline") End Sub Private Sub rfctxtvalidar() @@ -462,7 +460,7 @@ Partial Class PopUpVerFactura Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} lrds.Add(rds) - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" + '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc" If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then @@ -984,8 +982,6 @@ Partial Class PopUpVerFactura Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte} lrds.Add(rds) - '"Empresas/Grales/Formatos/EquiposGPS.rdlc" - '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc" Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc" 'If CvetypeImpresion = 2 Then ' ruta = "GPS/PalletEtiqueta_2.rdlc" @@ -1505,17 +1501,12 @@ Partial Class PopUpVerFactura Dim FechaCorte As String = $" Fecha fin: {Fecha}" Dim Usuario As String = $" Usuario: {Nombre}" If DtCortesVentas.Rows.Count > 0 Or DtCortesVentasResumen.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - - Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}")) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim lrds As New List(Of ReportDataSource) Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtCortesVentasResumen} lrds.Add(rds) @@ -1617,8 +1608,6 @@ Partial Class PopUpVerFactura #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO" Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim Dr As DataRow = Nothing Dim ObjContratos As New ClsContratos If Not ObjContratos.GetContratos(CveContrato, UsuarioActual.CveEmpresa) Or Not ObjContratos.DtResultados.Rows.Count > 0 Then @@ -1651,7 +1640,7 @@ Partial Class PopUpVerFactura End If params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}")) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF") End Sub @@ -1992,29 +1981,15 @@ Partial Class PopUpVerFactura End If - - End If ObjGral.Dispose() - - - - - - - End If - If Dt.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) @@ -2044,14 +2019,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Ciudad", Ciudad)) params.Add(New ReportParameter("Licencia", Licencia)) - - - ImprimirPDF($"Empresas/Grales/Formatos/{FormatoRDLC}", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString)) - - - End If End If @@ -2448,9 +2417,6 @@ Partial Class PopUpVerFactura Next End If - - - Dim nodeTFD As XmlNode = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces) If nodeTFD IsNot Nothing Then FolioFiscal = ValorXML(nodeTFD, "UUID", "") @@ -2481,9 +2447,7 @@ Partial Class PopUpVerFactura If DtConceptos.Rows.Count > 0 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) 'EMPRESA params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("RegimenFiscal", UsuarioActual.Empresa.Regimen)) @@ -3559,7 +3523,7 @@ Partial Class PopUpVerFactura Select Case CveConcepto Case 1 'INICIAL Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Inicial.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim SBDireccion As New StringBuilder() @@ -3579,7 +3543,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios") End If @@ -3587,8 +3551,6 @@ Partial Class PopUpVerFactura Case 2, 32, 33, 36, 48 ' E N T R A D A S Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Entradas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - Dim dr As DataRow = Nothing If CveCompra > 0 Then 'buscar en compras, para mandar los datos @@ -3609,7 +3571,7 @@ Partial Class PopUpVerFactura End If If UsuarioActual.CveEmpresa = 119 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC)) params.Add(New ReportParameter("RazonSocial", RazonSocial)) params.Add(New ReportParameter("Remision", Remision)) @@ -3669,7 +3631,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios") ElseIf UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim concepto As String = "" If CveConcepto.Contiene(2, 32, 33) Then concepto = "ENTRADA DE ALMACÉN" @@ -3727,7 +3689,7 @@ Partial Class PopUpVerFactura Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "ENTRADA DE ALMACÉN")) @@ -3760,7 +3722,6 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) Dim concepto As String = "" If CveConcepto.Contiene(3, 40) Then @@ -3824,7 +3785,6 @@ Partial Class PopUpVerFactura CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString) DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString) Else - DomicilioSucursal = DomicilioCliente End If @@ -3906,7 +3866,7 @@ Partial Class PopUpVerFactura ElseIf UsuarioActual.CveEmpresa = 140 Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -3942,7 +3902,7 @@ Partial Class PopUpVerFactura Else Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", concepto)) @@ -4018,12 +3978,10 @@ Partial Class PopUpVerFactura End If Case 4 ' ENTRADA POR DESARMADO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Entrada por Desarmado de Paquete")) params.Add(New ReportParameter("Almacen", Almacen)) @@ -4043,11 +4001,10 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Desarmado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 5 'SALIDA POR ARMADO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Salida por Armado de Paquete")) @@ -4077,9 +4034,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", Personal)) params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If DtMovimientos.COUNT("Serie") > 0 Then params.Add(New ReportParameter("MostrarSerieLote", "1")) @@ -4103,20 +4058,13 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("Fecha", Fecha)) @@ -4159,9 +4107,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) params.Add(New ReportParameter("Responsable", Personal)) params.Add(New ReportParameter("NombreRecibio", Personal)) - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If DtMovimientos.COUNT("Serie") > 0 Then params.Add(New ReportParameter("MostrarSerieLote", "1")) Else @@ -4185,19 +4131,12 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -4343,10 +4282,7 @@ Partial Class PopUpVerFactura Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta)) If Archivo.Exists Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4391,10 +4327,8 @@ Partial Class PopUpVerFactura ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4440,10 +4374,7 @@ Partial Class PopUpVerFactura ElseIf UsuarioActual.CveEmpresa = 140 Then params.Add(New ReportParameter("CantidadProductos", "500")) params.Add(New ReportParameter("CantidadUsados", "500")) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) @@ -4453,9 +4384,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) ElseIf UsuarioActual.CveEmpresa = 153 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", AlmacenDestino)) ' se invierte params.Add(New ReportParameter("Destino", Almacen)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) @@ -4467,9 +4396,7 @@ Partial Class PopUpVerFactura ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Origen", Almacen)) params.Add(New ReportParameter("Destino", AlmacenDestino)) @@ -4577,7 +4504,7 @@ Partial Class PopUpVerFactura ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionConsignacion.rdlc", DtMovimientos, params, String.Format("Devolucion por Consignacion - {0}", Folio), RDSName:="DsInventarios") Case 13 'D E V O L U C I O N D E P R O V E E D O R Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta)) @@ -4625,7 +4552,7 @@ Partial Class PopUpVerFactura If Not Archivo.Exists Then - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF(String.Format("Empresas/Grales/Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Devolucion Proveedor - {0}", Folio), RDSName:="DsInventarios") Else @@ -4636,7 +4563,7 @@ Partial Class PopUpVerFactura Case 14 'E N T R E G A P O R G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If UsuarioActual.CveEmpresa = 72 Then @@ -4678,7 +4605,7 @@ Partial Class PopUpVerFactura Case 15 'S A L I D A G A R A N T I A Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidasGarantia.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH @@ -4727,7 +4654,7 @@ Partial Class PopUpVerFactura Case 18 'D E V O L U C I O N D E L C L I E N T E Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If Archivo.Exists Then @@ -4771,7 +4698,7 @@ Partial Class PopUpVerFactura 'End If Else - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" @@ -4800,11 +4727,11 @@ Partial Class PopUpVerFactura End If Case 19 'ARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Armado de Paquete")) @@ -4825,11 +4752,11 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Armado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios") Case 20 'DESARMADO DE PAQUETE - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "Desarmado de Paquete")) @@ -4850,17 +4777,10 @@ Partial Class PopUpVerFactura Case 21, 22 'SALIDA POR PRESTAMO - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalida.rdlc" - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc" - End If - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - - 'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + Dim Archivo As String = RutaFormatoReporte("EntradaSalida.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) If CveConcepto = 21 Then params.Add(New ReportParameter("Concepto", "Salida por Prestamo")) Else @@ -4873,7 +4793,6 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Descuentos", "")) params.Add(New ReportParameter("IVA", "")) params.Add(New ReportParameter("Total", "")) - 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) params.Add(New ReportParameter("FacturadoA", NombreCliente)) If (UsuarioActual.CveEmpresa = 72) Then @@ -4888,15 +4807,9 @@ Partial Class PopUpVerFactura End If 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + ' ' Dim params As New List(Of ReportParameter) - ' - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) @@ -4917,17 +4830,10 @@ Partial Class PopUpVerFactura Case 24 'SALIDA POR RESGUARDO If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - - Dim ArchivoRuta As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo As String = String.Format("{0}Formatos/EntradaSalidaUniforme.rdlc", UsuarioActual.Empresa.Ruta) - - If Not ArchivoRuta.Exists Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("EntradaSalidaUniforme.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim DepartamentoRecibe As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", Recibio)) Dim DepartamentoEntrego As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Departamento", String.Format("NombreCompleto = '{0}'", NombreEntrego)) @@ -4958,19 +4864,13 @@ Partial Class PopUpVerFactura ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) Dim TipoResponsable As String = "" Dim Responsable As String = "" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/PrestamoProductos.rdlc" - - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc" - End If - - - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + Dim Archivo As String = RutaFormatoReporte("PrestamoProductos.rdlc") + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) @@ -5005,11 +4905,11 @@ Partial Class PopUpVerFactura End If Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) Dim ConceptoReporte As String = If(CveConcepto = 28, "Entrada por Préstamo", "Devolución de Préstamo") params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) @@ -5025,12 +4925,8 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/PrestamosProveedor.rdlc", DtMovimientos, params, String.Format("Proveedor - {0}", Folio.ToString), RDSName:="DsInventarios") Case 30 - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") Dim params As New List(Of ReportParameter) - 'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" @@ -5063,16 +4959,11 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("NombreEntrego", Capturo)) params.Add(New ReportParameter("NombreRecibio", Recibio)) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - 'End If + ImprimirPDF(RutaFormatoReporte("ConsumoInterno.rdlc"), DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - If Archivo2.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/ConsumoInterno.rdlc", DtMovimientos, params, String.Format("Salida de Consumo Interno - {0}", Folio.ToString), RDSName:="DsInventarios") - End If Case 31 'SALIDA POR DEMOSTRACION Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/SalidaDemostracion.rdlc", UsuarioActual.Empresa.Ruta)) @@ -5094,7 +4985,7 @@ Partial Class PopUpVerFactura 'Dim Imagen As New System.IO.FileInfo(String.Format("Empresas/{0}/Logo.png", 72)) Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta)) Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta)) - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim params As New List(Of ReportParameter) If DtMovimientos(0)("CveAlmacen").ToString.ToEntero.Contiene(77, 146, 147, 148, 229, 342, 359, 360, 361, 362) Then @@ -5249,9 +5140,8 @@ Partial Class PopUpVerFactura End If Else - Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", UsuarioActual.Empresa.Ruta)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Concepto", "SALIDA POR AJUSTE")) params.Add(New ReportParameter("Almacen", Almacen)) @@ -5311,14 +5201,10 @@ Partial Class PopUpVerFactura End If End If + ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + - If A.Exists Then - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - Else - ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") End If - - End If End If Case 42 'ENTRADAS USADOS @@ -5332,17 +5218,10 @@ Partial Class PopUpVerFactura End If ObjAcum.Dispose() - 'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) - 'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) - - 'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) - Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Direccion", Almacen)) params.Add(New ReportParameter("FechaConFormato", Fecha)) - 'params.Add(New ReportParameter("FechaInicial", Fecha)) - 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Sucursal", "Sucursal")) params.Add(New ReportParameter("Cliente", NombreCliente)) params.Add(New ReportParameter("Folio", Folio)) @@ -5524,7 +5403,7 @@ Partial Class PopUpVerFactura End If End If - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + If Not RutaReporte.Exists Then @@ -5534,7 +5413,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) End If @@ -5586,7 +5465,6 @@ Partial Class PopUpVerFactura Private Sub CreaDTMateriales() TmpDTMaterialesOS = New DataTable TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) - TmpDTMaterialesOS.Columns.Add("CveOSDetalle", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivo", GetType(Integer)) TmpDTMaterialesOS.Columns.Add("CveConsecutivoDetalle", GetType(Integer)) @@ -5662,8 +5540,6 @@ Partial Class PopUpVerFactura Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer) Dim ObjAF As New ClsAF - 'Dim ObjSubProyecto As New ClsSubProyectos - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta)) Dim dtVC As DataTable = Nothing Dim dtHijos As DataTable = Nothing @@ -5675,8 +5551,6 @@ Partial Class PopUpVerFactura If ObjAF.GetActivosFijosResguardos(-1, CveAFR, -1, -1) Then dtVC = ObjAF.DtResultados End If - - dr = dtVC.Rows(0) Select Case Tipo @@ -5726,16 +5600,13 @@ Partial Class PopUpVerFactura ObjAF.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) params.Add(New ReportParameter("SubproyectoDestino", dr("SubProyectoDestino").ToString)) params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", dr("Folio").ToString)) params.Add(New ReportParameter("Responsable", dr("NombreCompleto").ToString)) params.Add(New ReportParameter("Observaciones", dr("ObservacionesAF").ToString)) - If UsuarioActual.CveEmpresa.Contiene(72) Then Dim SBDomicilioSucursal As New StringBuilder() Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("") @@ -5766,13 +5637,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("DireccionSucursal", SBDomicilioSucursal.ToString)) End If - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\ResguardoAF.rdlc", UsuarioActual.Empresa.Ruta), dtVC, params, NomArchivo) - Else - ImprimirPDF("Empresas/Grales/Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo) - End If - + ImprimirPDF(RutaFormatoReporte("ResguardoAF.rdlc"), dtVC, params, NomArchivo) End Sub Private Sub ImprimirPDFAFR2(CveAFR As Integer, Tipo As Integer) @@ -5797,7 +5662,6 @@ Partial Class PopUpVerFactura dr = dtVC.Rows(0) - Select Case Tipo Case 1 params.Add(New ReportParameter("Tipo", "RESGUARDO DE ACTIVO FIJO")) @@ -6015,7 +5879,6 @@ Partial Class PopUpVerFactura End If Dim params As New List(Of ReportParameter) - If CveTipoTransaccion = 1 Then Dim Folio = ObjIE.Folio Dim Importe = ObjIE.Importe @@ -6035,7 +5898,6 @@ Partial Class PopUpVerFactura If UsuarioActual.CveEmpresa.Contiene(141) Then - Dim InicialesUsuarioGenero As String = "" Try @@ -6047,196 +5909,190 @@ Partial Class PopUpVerFactura End Try - params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero)) - - End If Dim DtMovimientosPoliza As DataTable = Nothing - If UsuarioActual.CveEmpresa = 48 Then - 'Movimientos del IE - If ObjIE.IDPoliza > 0 Then + If UsuarioActual.CveEmpresa = 48 Then + 'Movimientos del IE + If ObjIE.IDPoliza > 0 Then - Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) - If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then - Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) - Else - DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable - End If - - ObjConta.Dispose() + Dim ObjConta As New ClsContPAQi(UsuarioActual.Empresa) + If Not ObjConta.GetPoliza(ObjIE.IDPoliza, -1, -1, -1, -1) Then + Alert("Ocurrio un error al cargar los datos del cheque", TipoMensaje.MsgError) Else - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = "" - Dr("Cuenta") = "" - Dr("Cargo") = 0 - Dr("Abono") = 0 - DtMovimientosPoliza.Rows.Add(Dr) + DtMovimientosPoliza = ObjConta.DtResultados.AsEnumerable().Take(27).CopyToDataTable End If - ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then - Dim PreP As New ClsContabilidad - If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then - DtMovimientosPoliza = New DataTable - DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) - DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) - DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) - If PreP.DtResultados.Rows.Count > 0 Then - - For Each drt As DataRow In PreP.DtResultados.Rows - Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = drt("CuentaCodigo") - Dr("Cuenta") = drt("CuentaNombre") - Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") - Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") - DtMovimientosPoliza.Rows.Add(Dr) - - Next - - - End If - End If - PreP.Dispose() - End If - - - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) - - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + ObjConta.Dispose() Else - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) - ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = "" + Dr("Cuenta") = "" + Dr("Cargo") = 0 + Dr("Abono") = 0 + DtMovimientosPoliza.Rows.Add(Dr) End If - - - ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then - - Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String - Dim FechaExpedicion As Date = Now - Dim Importe As Double - Dim FormatoCheque As String = "" - - Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer - Dim tIdPoliza As Integer - Dim DtMovimientosPoliza As DataTable = Nothing - Dim RFC As String = "" - Dim Correo As String = "" - Dim CLABE As String = "" - Dim NoSucursal As String = "" - Dim Telefono As String = "" - Dim IVA As Double = 0 - - Folio = "" - TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" - CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 - Ruta = UsuarioActual.Empresa.Ruta - - PagueseA = ObjIE.PagueseA - Folio = ObjIE.Folio - Importe = ObjIE.Importe - CveTipoTransaccion = ObjIE.CveTipoTransaccion - Banco = ObjIE.Banco - NumCuenta = ObjIE.DepositoCuenta - If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE - CLABE = ObjIE.DepositoCLABE - If CLABE = "" Then CLABE = ObjIE.DepositoReferencia - NoSucursal = ObjIE.DepositoSucursal - RefCrediproveedor = ObjIE.DepositoRefCrediProveedor - TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) - FechaExpedicion = ObjIE.FechaDocumento - Observacion = ObjIE.Observaciones - UsuarioRegistro = ObjIE.UsuarioNombre - SubProyecto = ObjIE.SubProyecto - AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") - NotificarA = ObjIE.NotificarA - tIdPoliza = ObjIE.IDPoliza - + ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then Dim PreP As New ClsContabilidad If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + DtMovimientosPoliza = New DataTable + DtMovimientosPoliza.Columns.Add("CODIGO", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cuenta", GetType(String)) + DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double)) + DtMovimientosPoliza.Columns.Add("Abono", GetType(Double)) + If PreP.DtResultados.Rows.Count > 0 Then - CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero - CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero - IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + For Each drt As DataRow In PreP.DtResultados.Rows + Dim Dr = DtMovimientosPoliza.NewRow + Dr("CODIGO") = drt("CuentaCodigo") + Dr("Cuenta") = drt("CuentaNombre") + Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") + Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") + DtMovimientosPoliza.Rows.Add(Dr) - If CveProveedor > 0 Then - Dim Prov As New ClsCompProveedores - If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then - If Prov.DtResultados.Rows.Count > 0 Then - RFC = Prov.DtResultados.Rows(0)("RFC").ToString - Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString - End If - End If - Prov.Dispose() - End If - - If CvePersonal > 0 Then - Dim RH As New ClsRH - If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then - If RH.DtResultados.Rows.Count > 0 Then - Correo = RH.DtResultados.Rows(0)("Correo").ToString - Banco = RH.DtResultados.Rows(0)("Banco").ToString - NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString - CLABE = RH.DtResultados.Rows(0)("CLABE").ToString - End If - - - End If - - RH.Dispose() - - End If + Next End If End If PreP.Dispose() + End If - params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) - params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) - params.Add(New ReportParameter("PagueseA", PagueseA)) - params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) - params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) - params.Add(New ReportParameter("Banco", Banco)) - params.Add(New ReportParameter("NumCuenta", NumCuenta)) - params.Add(New ReportParameter("CLABE", CLABE)) - params.Add(New ReportParameter("Concepto", Observacion)) - params.Add(New ReportParameter("Factura", "")) - params.Add(New ReportParameter("RFC", RFC)) - params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) - params.Add(New ReportParameter("NumSucursal", NoSucursal)) - params.Add(New ReportParameter("Correo", Correo)) - params.Add(New ReportParameter("Telefono", Telefono)) - params.Add(New ReportParameter("NotifiqueA", NotificarA)) - params.Add(New ReportParameter("Obra", SubProyecto)) - params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) - params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta)) - If UsuarioActual.CveEmpresa = 66 Then - params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos/CHQ-{1}.rdlc", UsuarioActual.Empresa.Ruta, CveCuenta), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + Else + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("RFC", UsuarioActual.Empresa.RFC)) + ImprimirPDF(String.Format("Empresas\Grales\Formatos\CHQ.rdlc"), DtMovimientosPoliza, params, String.Format("Cheque-{0}", Folio)) + End If + + ElseIf CveTipoTransaccion.Contiene(2, 8, 9, 10) Then + + Dim Folio, Observacion, UsuarioRegistro, TextoImporte, PagueseA, Ruta, Banco, NumCuenta, AbonoCuenta, SubProyecto, NotificarA, RefCrediproveedor As String + Dim FechaExpedicion As Date = Now + Dim Importe As Double + Dim FormatoCheque As String = "" + + Dim CveProveedor, CvePersonal, CveCuentaDeposito As Integer + Dim tIdPoliza As Integer + Dim DtMovimientosPoliza As DataTable = Nothing + Dim RFC As String = "" + Dim Correo As String = "" + Dim CLABE As String = "" + Dim NoSucursal As String = "" + Dim Telefono As String = "" + Dim IVA As Double = 0 + + Folio = "" + TextoImporte = "" : Observacion = "" : PagueseA = "" : UsuarioRegistro = "" : Banco = "" : NumCuenta = "" : AbonoCuenta = "" : SubProyecto = "" : NotificarA = "" : RefCrediproveedor = "" + CveProveedor = -1 : CvePersonal = -1 : CveCuentaDeposito = 0 + Ruta = UsuarioActual.Empresa.Ruta + + PagueseA = ObjIE.PagueseA + Folio = ObjIE.Folio + Importe = ObjIE.Importe + CveTipoTransaccion = ObjIE.CveTipoTransaccion + Banco = ObjIE.Banco + NumCuenta = ObjIE.DepositoCuenta + If NumCuenta = "" Then NumCuenta = ObjIE.DepositoCIE + CLABE = ObjIE.DepositoCLABE + If CLABE = "" Then CLABE = ObjIE.DepositoReferencia + NoSucursal = ObjIE.DepositoSucursal + RefCrediproveedor = ObjIE.DepositoRefCrediProveedor + TextoImporte = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda)) + FechaExpedicion = ObjIE.FechaDocumento + Observacion = ObjIE.Observaciones + UsuarioRegistro = ObjIE.UsuarioNombre + SubProyecto = ObjIE.SubProyecto + AbonoCuenta = If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "") + NotificarA = ObjIE.NotificarA + tIdPoliza = ObjIE.IDPoliza + + Dim PreP As New ClsContabilidad + If PreP.GetPrePolizasDetalle(-1, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then + If PreP.DtResultados.Rows.Count > 0 Then + CveProveedor = PreP.DtResultados.Rows(0)("CveProveedor").ToString.ToEntero + CvePersonal = PreP.DtResultados.Rows(0)("CvePersonal").ToString.ToEntero + + IVA = PreP.DtResultados.SUM("Importe", "CveConceptoContable = 19") ' concepto de IVA + + If CveProveedor > 0 Then + Dim Prov As New ClsCompProveedores + If Prov.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, CveProveedor, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, CveEmpresa) Then + If Prov.DtResultados.Rows.Count > 0 Then + RFC = Prov.DtResultados.Rows(0)("RFC").ToString + Correo = Prov.DtResultados.Rows(0)("ContactoMail").ToString + End If + End If + Prov.Dispose() + End If + + If CvePersonal > 0 Then + Dim RH As New ClsRH + If RH.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then + If RH.DtResultados.Rows.Count > 0 Then + Correo = RH.DtResultados.Rows(0)("Correo").ToString + Banco = RH.DtResultados.Rows(0)("Banco").ToString + NumCuenta = RH.DtResultados.Rows(0)("BancoNumCuenta").ToString + CLABE = RH.DtResultados.Rows(0)("CLABE").ToString + End If + + + End If + + RH.Dispose() + + End If End If + End If + PreP.Dispose() - Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) - If Archivo.Exists Then - ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - Else - ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) - End If + params.Add(New ReportParameter("Fecha", FechaExpedicion.ToString("dd-MM-yyyy"))) + params.Add(New ReportParameter("Folio", String.Format("Folio: {0}", Folio))) + params.Add(New ReportParameter("PagueseA", PagueseA)) + params.Add(New ReportParameter("Importe", $"$ {Importe.ToString("N2")}")) + params.Add(New ReportParameter("ImporteTexto", TextoImporte.ToUpper)) + params.Add(New ReportParameter("Banco", Banco)) + params.Add(New ReportParameter("NumCuenta", NumCuenta)) + params.Add(New ReportParameter("CLABE", CLABE)) + params.Add(New ReportParameter("Concepto", Observacion)) + params.Add(New ReportParameter("Factura", "")) + params.Add(New ReportParameter("RFC", RFC)) + params.Add(New ReportParameter("IVA", $"$ {IVA.ToString("N2")}")) + params.Add(New ReportParameter("NumSucursal", NoSucursal)) + params.Add(New ReportParameter("Correo", Correo)) + params.Add(New ReportParameter("Telefono", Telefono)) + params.Add(New ReportParameter("NotifiqueA", NotificarA)) + params.Add(New ReportParameter("Obra", SubProyecto)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) + params.Add(New ReportParameter("TipoTransaccion", CveTipoTransaccion.ToString)) - ElseIf CveTipoTransaccion.Contiene(6) Then - 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS - Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" + If UsuarioActual.CveEmpresa = 66 Then + params.Add(New ReportParameter("RefCrediproveedor", RefCrediproveedor)) + End If + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta)) + If Archivo.Exists Then + ImprimirPDF(String.Format("{0}Formatos\Transferencia.rdlc", UsuarioActual.Empresa.Ruta), DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + Else + ImprimirPDF("Empresas\Grales\Formatos\Transferencia.rdlc", DtDetalle, params, String.Format("Transferencia-{0}", CveIE)) + End If + + ElseIf CveTipoTransaccion.Contiene(6) Then + 'IMPRESION DE FORMATO DE IE PAGO EN EFECTIVO PARA COMPU - VIATICOS + Dim Folio As String = "", Observacion As String = "", UsuarioRegistro As String = "", TextoImporte As String = "", PagueseA As String = "" Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim FechaExpedicion As Date = Now Dim Importe As Double @@ -6359,7 +6215,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") End If @@ -6402,9 +6258,6 @@ Partial Class PopUpVerFactura Dim paramList As New List(Of ReportParameter) With paramList - - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") - .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) @@ -6415,21 +6268,11 @@ Partial Class PopUpVerFactura .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True)) .Add(New ReportParameter("Folio", ObjIE.Folio, True)) .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True)) - - - If Imagen.Exists Then - .Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}")) - Else - .Add(New ReportParameter("LogoPath", "")) - End If - + .Add(New ReportParameter("LogoPath", RutaImagenLogo)) End With dtMovs.Dispose() - ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") - End If - End If End If @@ -6726,7 +6569,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable @@ -6805,7 +6648,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub @@ -6859,7 +6702,7 @@ Partial Class PopUpVerFactura End If ObjPS.Dispose() - Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) Dim DtDatos As New DataTable @@ -6938,7 +6781,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Comprobante", Comprobante)) params.Add(New ReportParameter("CodigoTD", CodigoTD)) - params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) + params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) ImprimirPDF("Empresas/Grales/Formatos/Ajuste.rdlc", DtDatos, params, "Reporte de Ajuste", "PDF") ', Content_Disposition:="inline") End Sub diff --git a/Contabilidad/PolizasImpresion.aspx.vb b/Contabilidad/PolizasImpresion.aspx.vb index 2b015f44a..0ea6f1bfa 100644 --- a/Contabilidad/PolizasImpresion.aspx.vb +++ b/Contabilidad/PolizasImpresion.aspx.vb @@ -77,12 +77,7 @@ Partial Class Contabilidad_PolizasImpresion folf = FolioFin.Text.ToEntero() End If - Dim ArchivoReporte As String = "Empresas/Grales/Formatos/Polizas.rdlc" - - If IO.File.Exists(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta)) Then - ArchivoReporte = String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta) - End If - + Dim ArchivoReporte As String = RutaFormatoReporte("Polizas.rdlc") Dim ObjConta As New ClsContabilidad If ObjConta.GetPrePolizasImpresion(UsuarioActual.CveEmpresa, TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, CveTipoPoliza:=ddlTipoPoliza.SelectedValue.ToEntero, FolioI:=foli, FolioF:=folf, CveUsuario:=DdlUsuarioRegistro.SelectedValue.ToEntero, CveSubProyecto:=DdlSegmentoNeg.SelectedValue.ToEntero, @@ -99,8 +94,6 @@ Partial Class Contabilidad_PolizasImpresion params.Add(New ReportParameter("Finicio", TxtFechaInicio.Text)) params.Add(New ReportParameter("FFin", TxtFechaFin.Text)) params.Add(New ReportParameter("Fecha", dr("Fecha").ToString.ToDate.ToShortDateString)) - 'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString)) - 'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString)) params.Add(New ReportParameter("Numero", dr("Folio").ToString)) params.Add(New ReportParameter("Moneda", "")) params.Add(New ReportParameter("CodigoPostal", ""))