varios

Contabilidad/RegPrePoliza.aspx.vb

@@ -210,6 +210,10 @@ Partial Class ContabilidadC_RegPrePoliza
                     GvConcepto.Columns(4).Visible = False
                     GvMov.Columns(5).Visible = False
                 End If
+
+                If IfNull(Request("Conta"), "").ToString = "1" Then
+                    Contabilizar()
+                End If
                 Exit Sub
             Else
 
@@ -1454,8 +1458,17 @@ Partial Class ContabilidadC_RegPrePoliza
 
     Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
 
+        Contabilizar()
+
+    End Sub
+
+    Private Sub Contabilizar()
         Dim ObjConta As New ClsContabilidad
 
+        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)) 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
@@ -1463,14 +1476,13 @@ Partial Class ContabilidadC_RegPrePoliza
             Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
         End If
 
-        ObjConta.Dispose()
-
-
-    End Sub
-
-
+        ObjConta.Dispose()
+    End Sub
+
+
+
 #Region "COMPLEMENTO DE PAGO"
-
+
     Private Sub GeneraTimbre(CvePrePoliza As Integer)
         Dim Str As New StringBuilder
         Dim Banco As New ClsBancos