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

Compras/Compras.aspx

@@ -77,7 +77,8 @@
             <asp:UpdatePanel ID="UpDevolucionAlmacen" runat="server" UpdateMode="Conditional">
                 <ContentTemplate>
                     <li id="LiDevolucionAlmacen" runat="server" visible="false">
-                        <asp:LinkButton Text="Solicitar Devolución" OnClick="LBDevolucionAlmacen_Click" ID="LBDevolucionAlmacen" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />
+                        <%--<asp:LinkButton Text="Solicitar Devolución" OnClick="LBDevolucionAlmacen_Click" ID="LBDevolucionAlmacen" runat="server" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro de solicitar la Devolución de Almacén?" data-btn-ok-label="si" />--%>
+                        <asp:LinkButton ID="HplDevv" OnClick="LBDevolucionAlmacen_Click"   runat="server"><i class='fa fa-plus'></i> Solicitar Devolución</asp:LinkButton>
                     </li>
                 </ContentTemplate>
             </asp:UpdatePanel>
@@ -4966,6 +4967,44 @@
         </div>
     </div>
 
+    <div id="DivDevolucion" class="modal fade">
+        <div class="modal-dialog">
+            <asp:UpdatePanel ID="UPPSolDev" runat="server" class="modal-content rowpadding" tabindex="-1" UpdateMode="Conditional">
+                <ContentTemplate>
+                    <div class="modal-header">
+                        <h4>
+                           Productos a devolver
+                        </h4>
+                    </div>
+                    <div class="modal-body">
+                        <div class="row">
+                             
+                        </div>
+                      
+                        <div class="form-group form-md-line-input input-iconright">
+                               <asp:GridView ID="GvSolDev" runat="server" AutoGenerateColumns="false" GridLines="none" BorderWidth="0" DataKeyNames="CveCompraDetalle,CvePS" CssClass="table GvPS table-striped table-hover table-advance Widthall ScrollAD mysmallbtn">
+                                   <Columns>
+                                        <asp:TemplateField ItemStyle-Width="55px" HeaderText="Cant">
+                                                <ItemTemplate>
+                                                    <asp:TextBox ID="TxtCant" runat="server" Text='<%#Eval("Cantidad") %>' Width="50px" ></asp:TextBox>
+                                                </ItemTemplate>
+                                            </asp:TemplateField>
+                                       <asp:BoundField DataField="UM" headertext="UM" />
+                                       <asp:BoundField DataField="CodigoPS" headertext="Producto" />
+                                   </Columns>
+                               </asp:GridView>
+                        </div>
+                         
+                    </div>
+                    <div class="modal-footer">
+                        <asp:Button ID="BtnDevolucion" runat="server" Text="Solicitar Devolución" OnClick="BtnDevolucion_Click"   ClientIDMode="Static" CssClass="btn btn-success"   />
+                        <button type="button" class="btn default" data-dismiss="modal">Cancelar</button>
+                    </div>
+                </ContentTemplate>
+            </asp:UpdatePanel>
+        </div>
+    </div>
+
     <%--  MODAL FLETES E IMPORTACIONES  --%>
     <div id="ModalFletesImportaciones" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpModalFletesImportaciones" UpdateMode="Conditional">

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