-- mejora en código para buscar la ruta del reporte
This commit is contained in:
@@ -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 = $" <b>Fecha fin:</b> {Fecha}"
|
||||
Dim Usuario As String = $" <b>Usuario:</b> {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,12 +5201,8 @@ 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
|
||||
@@ -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,11 +5909,8 @@ Partial Class PopUpVerFactura
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Dim DtMovimientosPoliza As DataTable = Nothing
|
||||
@@ -6101,8 +5960,6 @@ Partial Class PopUpVerFactura
|
||||
DtMovimientosPoliza.Rows.Add(Dr)
|
||||
|
||||
Next
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
PreP.Dispose()
|
||||
@@ -6119,7 +5976,6 @@ Partial Class PopUpVerFactura
|
||||
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
|
||||
@@ -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
|
||||
|
||||
@@ -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", ""))
|
||||
|
||||
Reference in New Issue
Block a user