-- para solicitar devoluciones, muestra un modal previo, para especificar los productos

Compras/Compras.aspx.vb

@@ -7552,7 +7552,7 @@ Partial Class Compras_Compras
                                                     End If
                                                 End If
 
-                                                If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                                                If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) AndAlso UsuarioActual.CveEmpresa <> 72 Then
                                                     If ObjConta.ValorPolizaDescuadre > 0 Then
                                                         GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
                                                         ErrorPrepolizaDescuadre = True
@@ -10485,7 +10485,7 @@ Partial Class Compras_Compras
         If UsuarioActual.CveEmpresa.Contiene(119, 7) Then
             node = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
             If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
-                If ValorXML(node, "TipoRelacion").ToString.Contiene("04", "07") Then
+                If ValorXML(node, "TipoRelacion").ToString.Contiene("07") Then
                     Dim nodeDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionado", Prefijo), namespaces)
                     For Each documento As XmlNode In nodeDocumentosRelacionados
                         If documento.Attributes("UUID").Value <> "" Then
@@ -16933,6 +16933,8 @@ Partial Class Compras_Compras
         CargaRetIVAConcepto()
         CargaRetISRConcepto()
 
+        Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
+        If NumNoDed > 0 Then GvPS.Columns(10).Visible = True 'visualiza columnas de nodeducibles
 
         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
             InicializaAplicaNCFact()
@@ -18436,30 +18438,69 @@ Partial Class Compras_Compras
             End If
 
             If EstatusAlmacen = 1 Then
-                LBDevolucionAlmacen.Text = "<i class='fa fa-pencil'></i> Cancelar Devolución Almacén"
-                LBDevolucionAlmacen.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
+                HplDevv.Text = "<i class='fa fa-pencil'></i> Cancelar Devolución Almacén"
+                HplDevv.ToolTip = "¿Está seguro de Cancelar la Devolución de Almacén?"
             Else
-                LBDevolucionAlmacen.Text = "<i class='fa fa-pencil'></i> Solicitar Devolución Almacén"
-                LBDevolucionAlmacen.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?"
+                HplDevv.Text = "<i class='fa fa-pencil'></i> Solicitar Devolución Almacén"
+                HplDevv.ToolTip = "¿Está seguro de Solicitar la Devolución de Almacén?"
             End If
 
         End If
 
         'UpInvDev.Update()
     End Sub
+
     Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
+        GvSolDev.DataSource = TmpDT
+        GvSolDev.DataBind()
+        RegistraScript("$('#DivDevolucion').modal('show');", "DivDevolucion")
+        UPPSolDev.Update()
+
+    End Sub
+    Protected Sub BtnDevolucion_Click(sender As Object, e As EventArgs)
         Dim ObjCompras As New ClsCompras
+        Dim TieneError As Boolean = False
+        ObjCompras.IniciaTransacSQL()
+
+        If EstatusAlmacen = 0 Then
+            For Each gvr As GridViewRow In GvSolDev.Rows
+                If gvr.FCTextBox("TxtCant").Text.ToDecimal > 0 Then
+                    'actualiza el estatus del detalle
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 0)
+                Else
+                    ObjCompras.UpdateEstatusAlmacenDetalle(gvr.DataKey("CveCompraDetalle").ToEntero, 1)
+                End If
+            Next
+        End If
 
         If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) 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
+            ObjCompras.Commit()
+        Else
+            ObjCompras.RollBack()
+        End If
 
         ObjCompras.Dispose()
 
         InicializaDevolucionAlmacen()
     End Sub
 
+    'Protected Sub LBDevolucionAlmacen_Click(sender As Object, e As EventArgs)
+    '    Dim ObjCompras As New ClsCompras
+
+    '    If ObjCompras.UpdateEstatusAlmacen(CveCompra, If(EstatusAlmacen = 1, 0, 1)) 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
+
+    '    ObjCompras.Dispose()
+
+    '    InicializaDevolucionAlmacen()
+    'End Sub
+
     Private Sub HabilitaNCInv()
 
         If Not UsuarioActual.CveUsuario = 100 Then
@@ -19960,6 +20001,8 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+
+
 End Class
 
 Public Class MMensajeDevolucion