From 2fb95ea786c5fe5d632e79de0b88820f64e18c13 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 16 Feb 2022 08:54:13 -0700
Subject: [PATCH] =?UTF-8?q?--=20bot=C3=B3n=20de=20contabilizar?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePolizaS.aspx    |  8 ++----
 Contabilidad/RegPrePolizaS.aspx.vb | 42 ++++++++++++------------------
 2 files changed, 19 insertions(+), 31 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index 15117ab36..da6e5c217 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -231,11 +231,7 @@
                             <label class="col-md-1">Contabilizada:</label>
                             <div class="col-md-2">
                                 <asp:HyperLink ID="HplContabilizada" runat="server" Target="_blank">Si</asp:HyperLink>
-                            </div>
-                            <label class="col-md-1">Folio:</label>
-                            <div class="col-md-1">
-                                <asp:Label ID="LblFolio" Font-Bold="true" Font-Size="Large" runat="server"></asp:Label>
-                            </div>
+                            </div>                             
                         </div>
 
                         <div class="row" visible="false" runat="server" id="DivTipoGasto">
@@ -713,7 +709,7 @@
                         <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                         <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
                         <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
-                        <%--<asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" />--%>
+                         <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 6fd890e1f..13b90a69e 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -531,14 +531,13 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
 
-                If UsuarioActual.CveEmpresa = 119 Then
-                    ' BtnContabilizar.Visible = True
+                If dr("FolioPoliza").ToString = "" Then
+                    BtnContabilizar.Visible = True
                 End If
 
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     If dr("FolioPoliza").ToString.ToEntero > 0 Then
                         divContabilizada.Visible = True
-                        LblFolio.Text = dr("FolioPoliza").ToString
                         Folio = dr("FolioPoliza").ToString
 
                     End If
@@ -2588,29 +2587,29 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Function
 #End Region
 
-    'Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
+    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
 
-    '    Contabilizar()
+        Contabilizar()
 
-    'End Sub
+    End Sub
 
-    'Private Sub Contabilizar()
+    Private Sub Contabilizar()
 
-    '    Dim ObjConta As New ClsContabilidad
+        Dim ObjConta As New ClsContabilidad
 
-    '    If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
-    '        ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
-    '    End If
+        If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero
+            ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False)
+        End If
 
-    '    If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
-    '        Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
-    '    Else
+        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1), Concepto:=TxtConcepto.Text, Fecha:=TxtFechaDocumento.Text.ToDateTime()) Then
+            Alert(String.Format("Prepóliza contabilizada. <br/><br/>Folio:<a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion)
+        Else
 
-    '        Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
-    '    End If
+            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+        End If
 
-    '    ObjConta.Dispose()
-    'End Sub
+        ObjConta.Dispose()
+    End Sub
 
 
 #Region "Paquete Egresos"
@@ -2772,16 +2771,9 @@ Partial Class ContabilidadC_RegPrePolizaS
                     LnkComplementoPago.Visible = True
                 End If
 
-
-                If UsuarioActual.CveEmpresa = 119 Then
-                    ' BtnContabilizar.Visible = True
-                End If
-
-
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
                     If dr("FolioPoliza").ToString.ToEntero > 0 Then
                         divContabilizada.Visible = True
-                        LblFolio.Text = dr("FolioPoliza").ToString
                         Folio = dr("FolioPoliza").ToString
 
                     End If