cambios en los reportes

Compras/PopUpVerFactura.aspx.vb

@@ -2422,10 +2422,15 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Desarmado de Paquete - {0}", Folio.ToString), RDSName:="DsInventarios")
 
 
-            Case 21 'SALIDA POR PRESTAMO
+            Case 21, 22 'SALIDA POR PRESTAMO
                 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/EntradaSalida.rdlc"
+                If Not File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+                    Archivo = "Empresas/Grales/Formatos/EntradaSalida.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))
@@ -2433,7 +2438,7 @@ Partial Class PopUpVerFactura
                     params.Add(New ReportParameter("LogoPath", ""))
                 End If
 
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                'params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                 params.Add(New ReportParameter("Concepto", "Salida por Prestamo"))
                 params.Add(New ReportParameter("Almacen", Almacen))
                 params.Add(New ReportParameter("Fecha", Fecha))
@@ -2447,36 +2452,42 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("FacturadoA", NombreCliente))
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-                End If
-                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
-            Case 22 'ENTRADA POR PRESTAMO
-                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim params As New List(Of ReportParameter)
-
-                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", ""))
+                    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                End If
+                If CveConcepto = 21 Then
+                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+                ElseIf CveConcepto = 22 Then
+                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
 
-                params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
-                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", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-                params.Add(New ReportParameter("FacturadoA", NombreCliente))
-                If (UsuarioActual.CveEmpresa = 72) Then
-                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-                End If
-                ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+            'Case 22 'ENTRADA POR PRESTAMO
+            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            '    Dim params As New List(Of ReportParameter)
+
+            '    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("Empresa", UsuarioActual.Empresa.Empresa))
+            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+            '    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", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    If (UsuarioActual.CveEmpresa = 72) Then
+            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '    End If
+            '    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

Empresas/72/Formatos/EntradaSalida.rdlc

@@ -992,6 +992,9 @@
           <Height>0.6cm</Height>
           <Width>1.57396cm</Width>
           <ZIndex>9</ZIndex>
+          <Visibility>
+            <Hidden>=IIF(Parameters!FacturaProveedor.Value&lt;&gt;"",False,True)</Hidden>
+          </Visibility>
           <Style>
             <Border>
               <Style>None</Style>
@@ -1573,6 +1576,12 @@
       <DataType>String</DataType>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="NombreRecibio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="compuproveedores">