From 98c72644dd58519817e1971db269dbd7d9801440 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 21 Aug 2023 12:19:21 -0700
Subject: [PATCH] =?UTF-8?q?--=20quitar=20c=C3=B3digo=20contapqi?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Contabilidad/RegPrePolizaS.aspx.vb | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 8a4782777..24787bc51 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -2820,8 +2820,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim MensajeAlert = New StringBuilder
             Dim ObjIE As New ClsBancos()
             Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-            ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
-            Dim Conta As ClsContPAQi = Nothing
             Dim IDPoliza As Integer = 0
             Dim MsgError As String = ""
             Dim CveIE As Integer
@@ -2937,12 +2935,9 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If MsgError = "" Then
-
                 Alert(If(MensajeAlert.ToString = "", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}", $"Se registro con exito. {If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} <br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePoliza}""")
 
                 ObjIE.Commit()
-                If Conta IsNot Nothing Then Conta.Commit()
-
                 TxtConcepto.Text = ""
                 GvMov.DataBind()
                 TxtFechaDocumento.Text = ""
@@ -2950,12 +2945,10 @@ Partial Class ContabilidadC_RegPrePolizaS
             Else
                 Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
                 ObjIE.RollBack()
-                If Conta IsNot Nothing Then Conta.RollBack()
             End If
 
             ObjIE.Dispose()
             ObjMov.Dispose()
-            If Conta IsNot Nothing Then Conta.Dispose()
         End If