From 95ea41211d59728ccf46b7436a93b75553ef578f Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Jan 2021 12:57:32 -0700 Subject: [PATCH] - --- Inventarios/RecepcionAlmacen.aspx.vb | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index fc9a9f92b..0a4a9ebf9 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -938,11 +938,11 @@ Partial Class Inventarios_RecepcionAlmacen TotalCompraOC = ObjCompras.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal - ObjCompras.DtResultados.Rows(0)("Descuentos").ToString.ToDecimal CveTipoCompra = ObjCompras.DtResultados.Rows(0)("CveTipoCompra").ToString.ToEntero - If CveTipoCompra = 9 Then + If CveTipoCompra = 9 Then ' apoyo logistico CargaAlmacenes(-1, "27", CveTipoCompra) ElseIf CveTipoCompra = 10 Then CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra) - ElseIf TipoMovimiento = 3 Then + ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor CargaAlmacenes(-1, "21,2", CveTipoCompra) Else CargaAlmacenes(-1) @@ -967,11 +967,14 @@ Partial Class Inventarios_RecepcionAlmacen CargaSoloUsados = True SumarImporteUsados = True DtRecepcion = ObjInventario.DtResultados.Copy() - If UsuarioActual.CveRol = 1 Then - CargaAlmacenes(-1, "22", CveTipoCompra) - Else - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) + If TipoMovimiento <> 3 Then 'sino es devolucion/NC + If UsuarioActual.CveRol = 1 Then + CargaAlmacenes(-1, "22", CveTipoCompra) + Else + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) + End If End If + Else DtRecepcion = ObjInventario.DtResultados.Copy()