From 3c9f0ed8cbeccadbda8527d3a2428cf81569a170 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 20 Aug 2019 10:54:06 -0700 Subject: [PATCH] =?UTF-8?q?Formato=20de=20Pr=C3=A9stamo=20de=20Productos?= =?UTF-8?q?=20seg=C3=BAn=20TipoAlmacen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/PopUpVerFactura.aspx.vb | 355 +++++++++++++++++++++----------- SIGGIT.sln | 17 +- 2 files changed, 242 insertions(+), 130 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4626b4598..2aea5300e 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1632,72 +1632,175 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Armado - {0}", Folio.ToString), RDSName:="DsInventarios") Case 6, 23 ' ENTRADA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) End If + + 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") + End If Case 7 ' SALIDA RESGUARDO - Dim params As New List(Of ReportParameter) - If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then - params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("Responsable", Personal)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - params.Add(New ReportParameter("LogoPath", logouri)) - If DtMovimientos.COUNT("SerieLote") > 0 Then - params.Add(New ReportParameter("MostrarSerieLote", "1")) + If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then + Dim params As New List(Of ReportParameter) + If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 145) Then + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Concepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + params.Add(New ReportParameter("LogoPath", logouri)) + If DtMovimientos.COUNT("SerieLote") > 0 Then + params.Add(New ReportParameter("MostrarSerieLote", "1")) + Else + params.Add(New ReportParameter("MostrarSerieLote", "0")) + End If Else - params.Add(New ReportParameter("MostrarSerieLote", "0")) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) + params.Add(New ReportParameter("NombreRecibio", Personal)) + params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + params.Add(New ReportParameter("NombreProveedor", Proveedor)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + End If + + 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("Folio", Folio)) - params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Observaciones", Observaciones)) - params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper)) - params.Add(New ReportParameter("NombreRecibio", Personal)) - params.Add(New ReportParameter("Responsable", Personal)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) params.Add(New ReportParameter("AlmacenOrigen", Almacen)) params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - params.Add(New ReportParameter("NombreProveedor", Proveedor)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Resguardo.rdlc", DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 8, 26 ' T R A S L A D O - S A L I D A Dim params As New List(Of ReportParameter) @@ -2275,93 +2378,95 @@ Partial Class PopUpVerFactura ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") 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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim params As New List(Of ReportParameter) - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim params As New List(Of ReportParameter) + Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" - Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntradaSalidaUniforme.rdlc" + If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then + Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" + End If - If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then - Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc" - End If + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) + params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Concepto", "Salida por resguardo")) + params.Add(New ReportParameter("Almacen", Almacen)) + params.Add(New ReportParameter("Fecha", Fecha)) + params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Folio", Folio)) + 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", Recibio)) + params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) + params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) + + + params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") Else - params.Add(New ReportParameter("LogoPath", "")) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 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 + + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("Fecha", Fecha)) + 'params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) + params.Add(New ReportParameter("Observaciones", Observaciones)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) + params.Add(New ReportParameter("AlmacenOrigen", Almacen)) + params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) + + Dim Mov As New ClsInventarios + If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then + If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then + TipoResponsable = "Personal" + Responsable = Recibio + 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString + ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then + TipoResponsable = "Cliente" + Responsable = Mov.DtResultados(0)("Nombre").ToString + ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then + TipoResponsable = "Proveedor" + Responsable = Mov.DtResultados(0)("RazonSocial").ToString + End If + End If + Mov.Dispose() + + params.Add(New ReportParameter("Responsable", Responsable)) + params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) + + ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") End If - params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("Concepto", "Salida por resguardo")) - params.Add(New ReportParameter("Almacen", Almacen)) - params.Add(New ReportParameter("Fecha", Fecha)) - params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("Folio", Folio)) - 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", Recibio)) - params.Add(New ReportParameter("PuestoRecibio", PuestoEntrego)) - params.Add(New ReportParameter("PuestoEntrego", PuestoRecibio)) - - - params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - params.Add(New ReportParameter("UsuarioImprimio", NombreCapturo)) - params.Add(New ReportParameter("Observaciones", Observaciones)) - - - ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Uniforme_{0}", Folio.ToString), RDSName:="DsInventarios") - - 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - '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 - - 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - 'If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - 'Else - ' params.Add(New ReportParameter("LogoPath", "")) - 'End If - - 'params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - 'params.Add(New ReportParameter("Folio", Folio)) - 'params.Add(New ReportParameter("Fecha", Fecha)) - ''params.Add(New ReportParameter("FechaMovimiento", FechaMovimiento.ToString("dd/MM/yyyy"))) - 'params.Add(New ReportParameter("Observaciones", Observaciones)) - 'params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - 'params.Add(New ReportParameter("CveConcepto", CveConcepto.ToString)) - 'params.Add(New ReportParameter("AlmacenOrigen", Almacen)) - 'params.Add(New ReportParameter("AlmacenDestino", AlmacenDestino)) - - 'Dim Mov As New ClsInventarios - 'If Mov.GetMovimientos(DtMovimientos(0)("CveMovimiento").ToString.ToEntero, -1, Folio.ToEntero, UsuarioActual.CveEmpresa) AndAlso Mov.DtResultados.Rows.Count = 1 Then - ' If Mov.DtResultados(0)("CvePersonal").ToString <> "" Then - ' TipoResponsable = "Personal" - ' Responsable = Recibio - ' 'Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' ElseIf Mov.DtResultados(0)("CveCliente").ToString <> "" Then - ' TipoResponsable = "Cliente" - ' Responsable = Mov.DtResultados(0)("Nombre").ToString - ' ElseIf Mov.DtResultados(0)("CveProveedor").ToString <> "" Then - ' TipoResponsable = "Proveedor" - ' Responsable = Mov.DtResultados(0)("RazonSocial").ToString - ' End If - 'End If - 'Mov.Dispose() - - 'params.Add(New ReportParameter("Responsable", Responsable)) - 'params.Add(New ReportParameter("TipoResponsable", TipoResponsable)) - - 'ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Resguardo - {0}", Folio.ToString), RDSName:="DsInventarios") Case 28, 29 'ENTRADA POR PRESTAMO DE PROVEEDOR Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim params As New List(Of ReportParameter) diff --git a/SIGGIT.sln b/SIGGIT.sln index 43ee77b10..83724e226 100644 --- a/SIGGIT.sln +++ b/SIGGIT.sln @@ -1,10 +1,14 @@  Microsoft Visual Studio Solution File, Format Version 12.00 -# Visual Studio 14 -VisualStudioVersion = 14.0.25420.1 +# Visual Studio 15 +VisualStudioVersion = 15.0.27703.2035 MinimumVisualStudioVersion = 10.0.40219.1 -Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{FDC5C912-427E-4541-B08F-04591188AA00}" +Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}" ProjectSection(WebsiteProperties) = preProject + SccProjectName = ""$/localhost", CAAAAAAA" + SccAuxPath = "" + SccLocalPath = "." + SccProvider = "MSSCCI:Microsoft Visual SourceSafe" UseIISExpress = "false" TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.0" Debug.AspNetCompiler.VirtualPath = "/localhost" @@ -29,10 +33,13 @@ Global Debug|Any CPU = Debug|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution - {FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {FDC5C912-427E-4541-B08F-04591188AA00}.Debug|Any CPU.Build.0 = Debug|Any CPU + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {332C883B-3BAC-495B-9E95-82357599CF89} + EndGlobalSection EndGlobal