From b551cdf64852ab50d535a2cfaecca8171480cd57 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Feb 2025 18:28:49 -0700
Subject: [PATCH] =?UTF-8?q?--=20opci=C3=B3n=20para=20quitar=20de=20la=20co?=
 =?UTF-8?q?ntabilidad=20una=20p=C3=B3liza?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePolizaS.aspx    |  6 +++++-
 Contabilidad/RegPrePolizaS.aspx.vb | 34 ++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 8b3e8406f..10eedf997 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -87,6 +87,10 @@
                      <li>
                          <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
                      </li>
+                    <li>
+                         <asp:LinkButton ID="BtnQuitarContabilidad" runat="server" Text="Quitar Contabilidad" Visible="false"   
+     data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" OnClick="BtnQuitarContabilidad_Click"  /> 
+                    </li>
                 </ContentTemplate>
             </asp:UpdatePanel>    
      
@@ -567,7 +571,7 @@
                         <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Seguro de eliminar?" data-btn-ok-label="si" />
                          <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
                         <asp:Button ID="BtnDescontabilizar" runat="server" Text="Descontabilizar" CssClass="btn btn-primary" Visible="false"   
-                            data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  /> 
+                            data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  />                        
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index d9051657e..c4129847f 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -312,6 +312,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Contabilizar()
                         End If
 
+                        If Request("quitaconta") IsNot Nothing Then
+                            Quitacontabilidad()
+                        End If
+
                     End If
 
                     Exit Sub
@@ -508,6 +512,10 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.Columns(7).Visible = True
                 End If
 
+                If UsuarioActual.CveRol = 1 OrElse UsuarioActual.CveUsuario = 2296 Then
+                    BtnQuitarContabilidad.Visible = True
+                End If
+
                 If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,292)").Rows.Count > 0 AndAlso DtMovimientos.FiltraParametros("CveConceptoContable IN (30)").Rows.Count = 0 Then
                     LnkComplementoPago.Visible = True
                 End If
@@ -2892,5 +2900,31 @@ Partial Class ContabilidadC_RegPrePolizaS
     Protected Sub LnkEmitirComplemento_Click(sender As Object, e As EventArgs)
         GeneraTimbre(CvePrePoliza)
     End Sub
+
+    Protected Sub BtnQuitarContabilidad_Click(sender As Object, e As EventArgs)
+        Quitacontabilidad()
+    End Sub
+
+    Private Sub Quitacontabilidad()
+        Dim tieneerror As Boolean = False
+        Dim oculta As Boolean = False
+        Dim ObjConta As New ClsContabilidad()
+        ObjConta.IniciaTransacSQL()
+        'If GvPrePoliza.Rows.Count = 0 Then oculta = True
+
+        For Each gvr As GridViewRow In GvPrePoliza.Rows
+            If Not ObjConta.UpdateContabilizable(gvr.DataKey("CvePrePolizaDetalle").ToEntero, oculta) Then
+                tieneerror = True
+            End If
+        Next
+        If Not tieneerror Then
+            ObjConta.Commit()
+            Alert("limpieza")
+        Else
+            ObjConta.RollBack()
+        End If
+
+        ObjConta.Dispose()
+    End Sub
 End Class