-- devoluciones de compra que retorna RNC

Compras/Compras.aspx.vb

@@ -19144,10 +19144,15 @@ Partial Class Compras_Compras
     Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
         Dim TieneError As Boolean = False
+        Dim ImporteCompra As Decimal = 0
         Dim tCveSubProyeto As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+        Dim ModalidadDevolucion As Integer = 1  ' 1 - devolución para que alamcen la confirme, 2 - devolución en automático generando RNC
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then ModalidadDevolucion = 2
+
         ObjCompras.IniciaTransacSQL()
 
-        Dim ImporteCompra As Decimal = 0
+        If ModalidadDevolucion = 1 Then
             If EstatusAlmacen = 0 Then
 
                 For Each gvr As GridViewRow In GvSolDev.Rows
@@ -19160,10 +19165,25 @@ Partial Class Compras_Compras
                         ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1, UsuarioActual.CveUsuario, CantidadDevolucion:=0)
                     End If
                 Next
+
+                If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
+                    EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
+                    Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
                 End If
 
-        ImporteRNC = ImporteCompra.RoundSQL
+            End If
+            InicializaDevolucionAlmacen()
+        Else
 
+            For Each gvr As GridViewRow In GvSolDev.Rows
+                Dim Cantidad As Decimal = gvr.FCTextBox("TxtCant").Text.ToDecimal
+                Dim PU As Decimal = gvr.DataKey("PU").ToDecimal
+                If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
+                    ImporteCompra = ImporteCompra + ((PU * Cantidad))
+                End If
+            Next
+
+            ImporteRNC = ImporteCompra.RoundSQL
 
             If ChkEsDevolucionDevInv.Checked Then
 
@@ -19218,10 +19238,6 @@ Partial Class Compras_Compras
                 End If
 
             End If
-
-        If Not TieneError AndAlso ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1), UsuarioActual.CveUsuario) Then
-            EstatusAlmacen = If(EstatusAlmacen = 1, 0, 1)
-            Alert(If(EstatusAlmacen = 1, "La solicitud de devolución de almacen se guardo correctamente.", "La solicitud de almacen se canceló correctamente."))
         End If
 
         If Not TieneError Then
@@ -19232,7 +19248,7 @@ Partial Class Compras_Compras
         End If
 
         ObjCompras.Dispose()
-        InicializaDevolucionAlmacen()
+
     End Sub
 
     Function RegistroInventarioDevTemporal(ByRef transaccion As SqlTransaction, tCveSubProyecto As Integer, CveCompraDRMCRelacionada As Integer, EsCancelacion As Boolean) As Boolean