Merge branch 'master' of http://agonzalez@192.168.10.111:8383/SIG.git

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
@@ -2886,7 +2895,7 @@ Partial Class Inventarios_RecepcionAlmacen
                     Dim dtt As DataTable = ObjInventario.DtResultados
                     Dim tTotalInsertado As Decimal = dtt.SUMD("TotalOriginal") + ImporteIngresoAdicional
                     If CveTipoCompra = 8 Then 'entrada almacen con costo indirecto cargado en la misma compra
-                        tTotalInsertado = dtt.SUMD("Total") ' está incluido el costo indirecto en la factura
+                        tTotalInsertado = dtt.SUMD("Total") + ImporteIngresoAdicional ' está incluido el costo indirecto en la factura
                     End If
                     If Math.Round(TotalCompraOC * If(TipoCambio > 1, TipoCambio, 1), 2) <> Math.Round(tTotalInsertado, 2) Then
                         ErrorMovInv = True