Formato de Préstamo de Productos según TipoAlmacen

2019-08-20 10:54:06 -07:00
parent 71e6b5fd9b
commit 3c9f0ed8cb
2 changed files with 242 additions and 130 deletions
--- 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)
--- 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