-- quitar código contapqi

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