merge manual

Compras/Compras.aspx.vb

@@ -1266,10 +1266,6 @@ Partial Class Compras_Compras
             TieneOC = False
             CveMoneda = -1
 
-            '[IPP] Eliminar 22Junio2018
-            'If UsuarioActual.Empresa.UsaInventarios Then
-            '    TabAlmacen.Enabled = Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0
-            'End If
 
             ImgAnticiposPendientes.Attributes.Add("OnClick", "MuestraAnticipos();")
             'ImgCerrar.Attributes.Add("OnClick", "$('#DivAnticipos').hide(200);")
@@ -4001,23 +3997,23 @@ Partial Class Compras_Compras
             End If
         End If
 
-        'VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
-        If UsuarioActual.CveEmpresa = 72 Then
+        ''VERIFICA SI LOS PRODUCTOS/SERVICIOS EXISTEN EN EL CATALOGO DEL SAT
+        'If UsuarioActual.CveEmpresa = 72 Then
 
-            Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
-            If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
-                Dim StrNoEncontrados As New StringBuilder
-                StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
-                For Each drt As DataRow In DtNoEncontrados.Rows
-                    StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
-                Next
-                Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
-                DtNoEncontrados.Dispose()
-                StrNoEncontrados.Clear()
-                Exit Sub
-            End If
-            DtNoEncontrados.Dispose()
-        End If
+        '    Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(CveSATPS,0) = 46920 ")
+        '    If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
+        '        Dim StrNoEncontrados As New StringBuilder
+        '        StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+        '        For Each drt As DataRow In DtNoEncontrados.Rows
+        '            StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
+        '        Next
+        '        Alert(StrNoEncontrados.ToString(), TipoMensaje.MsgAdvertencia)
+        '        DtNoEncontrados.Dispose()
+        '        StrNoEncontrados.Clear()
+        '        Exit Sub
+        '    End If
+        '    DtNoEncontrados.Dispose()
+        'End If
 
         'Verifica funcionalidad 702 "Require orden de compra para factura de compra"
 
@@ -4650,7 +4646,7 @@ Partial Class Compras_Compras
                                                         ErrorOC = True
                                                     End If
                                                     'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                                         ErrorOC = True
                                                     End If
                                             End Select
@@ -4665,7 +4661,7 @@ Partial Class Compras_Compras
                                                         ErrorOC = True
                                                     End If
                                                     'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                                         ErrorOC = True
                                                     End If
                                             End Select
@@ -14641,6 +14637,35 @@ Partial Class Compras_Compras
     Protected Sub BtnCancelarCompra2_Click(sender As Object, e As EventArgs)
         RegistraScript("$('#DivCancelarCompra').modal('hide');")
 
+
+        Dim ObjComprasComprobacion As New ClsCompras
+
+
+        If ObjComprasComprobacion.GetComprasPagosConciliados(CveCompra, UsuarioActual.CveEmpresa) Then
+
+            Dim TienePagosConciliados As Boolean = False
+
+            If ObjComprasComprobacion.DtResultados.Rows.Count > 0 Then
+                TienePagosConciliados = True
+                Dim PagosConciliados As New StringBuilder
+
+                For Each Drow As DataRow In ObjComprasComprobacion.DtResultados.Rows
+                    PagosConciliados.AppendLine($"<a target='_blank' class='Texto' href=../Bancos/IE.aspx?CveIE={Drow("CveIE").ToString}>{Drow("Folio").ToString} </a>  <br>")
+                Next
+
+
+                Alert($"La compra no se puede cancelar, tiene pagos conciliados: <br>  {PagosConciliados.ToString}", TipoMensaje.MsgAdvertencia)
+            End If
+
+            If TienePagosConciliados Then
+                ObjComprasComprobacion.Dispose()
+                Exit Sub
+            End If
+
+
+        End If
+        ObjComprasComprobacion.Dispose()
+
         Dim ObjAC As ClsContPAQi = Nothing
         If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
@@ -15176,12 +15201,7 @@ Partial Class Compras_Compras
                 Dr("RetISRTC") = Dr("RetISR")
                 Dr("TotalTC") = Dr("ImporteAjustadoDescuento")
 
-                '[IPP] - JAMEntregaAdelantado | AJUSTE DE CANITDAD POR RECIBIR EN BASE A SALDOS DE INV-COMPRAS
-                'If UsuarioActual.CveUsuario = 100 Then
-                'If Dr("CveTipoPS").ToString.ToEntero = 2 And UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
-                '    Dr("CantidadDisponible") = If(Dr("CantidadDisponible").ToString.ToDouble > Dr("CantidadPendienteVincular").ToString.ToDouble, Dr("CantidadPendienteVincular"), Dr("CantidadDisponible"))
-                'End If
-                'End If
+
             Next
 
             'DESCRIPCION DE OC CUANDO NO ES COMPRA REGISTRADA
@@ -15213,7 +15233,7 @@ Partial Class Compras_Compras
 
         'SI PUEDE RECIBIR POR OC Y COMPRA
         If UsuarioActual.CveEmpresa.Contiene(119) Then
-            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 And Not UsuarioActual.Empresa.Funcionalidad(153).ToEntero > 0 Then
+            If UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Then
                 Select Case DdlOCVinculaInv.SelectedValue.ToEntero
                     Case 176
                         DTOCGV = DTOCGV.FiltraParametros("((EstatusInventario IN (3,5) AND CveTipoPS = 2) OR CveTipoPS = 1)")
@@ -18706,14 +18726,14 @@ Partial Class Compras_Compras
             For Each gvr As GridViewRow In GvSolDev.Rows
                 If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
                     'actualiza el estatus del detalle
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0, UsuarioActual.CveUsuario)
                 Else
-                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario)
                 End If
             Next
         End If
 
-        If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) Then
+        If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
             EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
             Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
         End If
@@ -19076,7 +19096,7 @@ Partial Class Compras_Compras
                         End If
                         CveMovimientoInventario = DtInv.MAX("CveMovimiento", $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToEntero
                         IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
-                        CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
+                        ' CveCuenta = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen = {DtInv.MIN("CveAlmacen", $"CveCompraDetalle = {Row2("CveCompraDetalle")}")}").ToEntero
 
                         ImporteMovimiento = DtInv.SUM(If(DdlMoneda.SelectedValue = "1", "Total", "TotalExtranjero"), $"CveCompraDetalle = {Row2("CveCompraDetalle")}").ToDecimal
                         ImporteMovimiento = If(ImporteMovimiento > Row2("Total").ToString.ToDecimal, Row2("Total").ToString.ToDecimal, ImporteMovimiento) * Multiplicador
@@ -19106,15 +19126,15 @@ Partial Class Compras_Compras
                             If IdCtaContable = 0 Then
                                 CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
                             End If
-                            If CveCuenta = 0 Then
-                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
-                            End If
+                            'If CveCuenta = 0 Then
+                            '    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                            'End If
                             Dim SeContabiliza As Boolean = True
                             'SI ES GASTO DE ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
                             If DdlTipoCompra.SelectedValue = "10" Then
                                 SeContabiliza = False
                             End If
-                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), CveCuenta:=Row("CveCuenta").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, Concepto, 68, Concepto, FechaMovimiento, Row("IdCtaContable").ToString.ToEntero, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveMovimientoAlmacen:=Row("CveMovimiento").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(TipoCambioActual = 1, 0, ImporteMovimiento), Contabilizable:=SeContabiliza) Then
                                 TieneError = True
                                 Exit For
                             End If
@@ -19471,7 +19491,7 @@ Partial Class Compras_Compras
                                 ErrorTrans = True
                             End If
                             'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                 ErrorTrans = True
                             End If
                     End Select
@@ -19486,7 +19506,7 @@ Partial Class Compras_Compras
                                 ErrorTrans = True
                             End If
                             'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                            If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
                                 ErrorTrans = True
                             End If
                     End Select
@@ -20260,33 +20280,33 @@ Partial Class Compras_Compras
 
     End Sub
 
-    Private Function VerificarProductosSATPS() As Boolean
-        Dim CvePSGRuposAux As New StringBuilder("")
-        For Each gvr As GridViewRow In GvPS.Rows
-            Dim CvePSIndividual As String = gvr.DataKey("CvePS")
-            CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
-        Next
+    'Private Function VerificarProductosSATPS() As Boolean
+    '    Dim CvePSGRuposAux As New StringBuilder("")
+    '    For Each gvr As GridViewRow In GvPS.Rows
+    '        Dim CvePSIndividual As String = gvr.DataKey("CvePS")
+    '        CvePSGRuposAux.AppendFormat("{0},", CvePSIndividual)
+    '    Next
 
-        Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
+    'Dim CvePSGRupos As String = Left(CvePSGRuposAux.ToString, CvePSGRuposAux.Length - 1)
 
-        Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
+    'Dim PSSat As DataTable = GlobalDTPS(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CvePS IN ({0})", CvePSGRuposAux))
 
-        Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
-        For Each PS As GridViewRow In GvPS.Rows
-            Dim PSIndividual As String = PS.DataKey("PS")
-            Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
-            If ClavePSSAT = "46920" Then
-                ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
-            End If
-        Next
+    'Dim ProductosCodigoSATNoPermitidos As New StringBuilder("")
+    'For Each PS As GridViewRow In GvPS.Rows
+    'Dim PSIndividual As String = PS.DataKey("PS")
+    'Dim ClavePSSAT As String = PSSat.FiltroPrimeroValor("CveSATPS", String.Format("PS = '{0}'", PSIndividual))
+    'If ClavePSSAT = "46920" Then
+    '            ProductosCodigoSATNoPermitidos.AppendFormat("{0}</br>", PSIndividual)
+    '        End If
+    'Next
 
-        If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
-            Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
-            Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
-            Return False
-        End If
+    'If ProductosCodigoSATNoPermitidos.ToString.Length > 0 Then
+    'Dim mensajeAdvertencia As String = String.Format("No se permite vinculación de productos con código SAT '01010101', revise los productos:</br></br>{0}", ProductosCodigoSATNoPermitidos.ToString)
+    '        Alert(mensajeAdvertencia, TipoMensaje.MsgAdvertencia)
+    '        Return False
+    'End If
 
-        Return True
+    Return True
 
     End Function
 

Compras/PopUpVerFactura.aspx.vb

@@ -1275,10 +1275,23 @@ Partial Class PopUpVerFactura
         Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
 
         Dim CveMovimientoRelacionado As Integer = -1
+        Dim FolioRelacionado As String = ""
+        Dim CveConceptoMovtoRelacionado As Integer = -1
+
+        'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
-        End If
-
+            If CveConcepto.Contiene(3, 26) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
+                CveConceptoMovtoRelacionado = 37
+            ElseIf CveConcepto = 37 Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
+                CveConceptoMovtoRelacionado = 3
+            End If
+        End If
+
+
+
         Dim CantidadProductos As Decimal = 0
         Dim CantidadUsados As Decimal = 0
 
@@ -1345,7 +1358,8 @@ Partial Class PopUpVerFactura
                           EstadoOrigen, PaisOrigen, CPOrigen, CalleDestino, NoExtDestino, ColoniaDestino, LocalidadDestino,
                           MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio,
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
-                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego)
+                          CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
+                          CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -1362,7 +1376,8 @@ Partial Class PopUpVerFactura
                                   Remision As String, Proveedor As String, CalleOrigen As String, NoExtOrigen As String, ColoniaOrigen As String, LocalidadOrigen As String, MunicipioOrigen As String,
                                   EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String,
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
-                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "")
+                                  RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
+                                  Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "")
 
 
         Select Case CveConcepto
@@ -1542,7 +1557,7 @@ Partial Class PopUpVerFactura
                     ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                 End If
 
-            Case 3, 16  ' S A L I D A S
+            Case 3, 16, 37  ' S A L I D A S
                 'Dim Archivo As New System.IO.FileInfo(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72))
                 '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))
@@ -1552,6 +1567,8 @@ Partial Class PopUpVerFactura
                 Dim concepto As String = ""
                 If CveConcepto = 3 Then
                     concepto = "SALIDA DE ALMACÉN"
+                ElseIf CveConcepto = 37 Then
+                    concepto = "SALIDA VIRTUAL"
                 Else
                     concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
                 End If
@@ -1688,6 +1705,34 @@ Partial Class PopUpVerFactura
 
                             'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                             ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                        ElseIf UsuarioActual.CveEmpresa = 140 Then
+
+                            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", concepto))
+                            params.Add(New ReportParameter("Almacen", Almacen))
+                            params.Add(New ReportParameter("Fecha", Fecha))
+                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+                            params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
+                            params.Add(New ReportParameter("Observaciones", Observaciones))
+                            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("UsuarioImprimio", UsuarioActual.Nombre))
+                            params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+
+                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                         Else
                             params.Add(New ReportParameter("Folio", Folio))
                             params.Add(New ReportParameter("Fecha", Fecha))
@@ -2124,7 +2169,9 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
-                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                     Else
                         params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                         params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
@@ -2469,19 +2516,19 @@ Partial Class PopUpVerFactura
                 If (UsuarioActual.CveEmpresa = 72) Then
                     params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                 End If
-                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
-                    'Else
-                    '    params.Add(New ReportParameter("Folio", Folio))
-                    '    params.Add(New ReportParameter("Fecha", Fecha))
-                    '    params.Add(New ReportParameter("Almacen", Almacen))
-                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
-                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
-                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                    'End If
-
-
+                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+                    'Else
+                    '    params.Add(New ReportParameter("Folio", Folio))
+                    '    params.Add(New ReportParameter("Fecha", Fecha))
+                    '    params.Add(New ReportParameter("Almacen", Almacen))
+                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
+                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
+                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                    'End If
+
+
             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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2658,36 +2705,36 @@ Partial Class PopUpVerFactura
                     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
-
-            '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")
-
+                End If
+
+            '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
                     Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3170,11 +3217,11 @@ Partial Class PopUpVerFactura
         If CveConcepto = 2 Then
         ElseIf CveConcepto = 3 Then
         End If
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'OC' - IMPRIME PDF OC"
     Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
         Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))