From ea9bbea37ccd3b01db9658c07257fa6af8a8460a Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 9 Nov 2020 11:15:01 -0700
Subject: [PATCH] Correcion en recepcion de compras con usados

---
 Inventarios/RecepcionAlmacen.aspx.vb | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 99ce829eb..993e5ce61 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -978,8 +978,17 @@ Partial Class Inventarios_RecepcionAlmacen
                             CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
                         End If
                     Else
-                        SumarImporteUsados = False
                         DtRecepcion = ObjInventario.DtResultados.Copy()
+
+                        'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS
+                        If ObjCompras.GetCompraDetalle(pCveCompra) Then
+                            If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then
+                                SumarImporteUsados = True
+                            Else
+                                SumarImporteUsados = False
+                            End If
+                        End If
+
                     End If
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero