Correcion en recepcion de compras con usados

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