From 354cd1d724aa413481e3a4a6f685ec02937d88a5 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Wed, 29 Apr 2020 15:24:24 -0700
Subject: [PATCH] -- actualizar poliza

---
 Contabilidad/RegPrePoliza1.aspx.vb | 22 +++++++++++++++++++++-
 1 file changed, 21 insertions(+), 1 deletion(-)

diff --git a/Contabilidad/RegPrePoliza1.aspx.vb b/Contabilidad/RegPrePoliza1.aspx.vb
index 396eb55d9..0d84d4c48 100644
--- a/Contabilidad/RegPrePoliza1.aspx.vb
+++ b/Contabilidad/RegPrePoliza1.aspx.vb
@@ -158,6 +158,15 @@ Partial Class ContabilidadC_RegPrePoliza
             ViewState("IndiceGrid") = value
         End Set
     End Property
+    Public Property IdPoliza As Integer
+        Get
+            Return CType(ViewState("IdPoliza"), Integer)
+        End Get
+        Set(value As Integer)
+            ViewState("IdPoliza") = value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -174,6 +183,7 @@ Partial Class ContabilidadC_RegPrePoliza
             Observaciones = "-1"
             Beneficiario = "-1"
             Actualizar = False
+            IdPoliza = -1
 
             If IfNull(Request("Tipo"), "").ToString = "NOMPROV" Then
                     DivTipoGasto.Visible = True
@@ -388,9 +398,15 @@ Partial Class ContabilidadC_RegPrePoliza
                     LnkComplementoPago.Visible = True
                 End If
 
+                IdPoliza = dr("IdPoliza").ToString.ToEntero
                 If dr("IdPoliza").ToString.ToEntero > 0 Then
                     HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                     divContabilziada.Visible = True
+                    BtnEliminar.Visible = False
+                    If UsuarioActual.CveUsuario = 100 Then
+                        BtnContabilizar.Visible = True
+                        BtnContabilizar.Text = "Actualizar Poliza"
+                    End If
                 ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
                     'sino está contabilizada, se activa el botón
                     BtnContabilizar.Visible = True
@@ -1622,7 +1638,11 @@ Partial Class ContabilidadC_RegPrePoliza
 
         Dim ObjConta As New ClsContabilidad
 
-        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+        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