correcion para devoluciones

Inventarios/RecepcionAlmacen.aspx.vb

@@ -992,11 +992,12 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim CargaSoloUsados As Boolean = False
 
                 If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
-                    Dim DtRecepcion As DataTable = Nothing
+                    Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
                     Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
                     Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
                     Dim CveSubProyecto As Integer
 
+                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
                         'SI LA COMPRA TIENE PRODUCTOS Y USADOS SOLO MOSTRAR LOS PRODUCTOS
                         If NumProductos > 0 AndAlso NumUsados > 0 Then
                             DtRecepcion = ObjInventario.DtResultados.FiltraParametros("EsUsado = False")
@@ -1008,9 +1009,8 @@ Partial Class Inventarios_RecepcionAlmacen
                             SumarImporteUsados = True
                             ValidarRecepcionUsados = True
                             DtRecepcion = ObjInventario.DtResultados.Copy()
-                        If TipoMovimiento <> 3 Then 'sino es devolucion/NC
+
                             CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
-                        End If
 
                         Else
                             DtRecepcion = ObjInventario.DtResultados.Copy()
@@ -1027,6 +1027,7 @@ Partial Class Inventarios_RecepcionAlmacen
                             End If
 
                         End If
+                    End If
 
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
 
@@ -1129,10 +1130,12 @@ Partial Class Inventarios_RecepcionAlmacen
                                         If CargaSoloUsados Then
                                             CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                                         Else
+                                            If TipoMovimiento <> 3 Then 'cuando no es devolución
                                                 CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra)
                                             End If
                                         End If
                                     End If
+                                End If
                                 'End If
                             End If
                         End If