-

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()