AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- quitar código contapqi

Browse Source
This commit is contained in:
rrene
2023-08-21 12:19:21 -07:00
parent da425123e8
commit 98c72644dd
1 changed files with 0 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Contabilidad/RegPrePolizaS.aspx.vb
View File

@@ -2820,8 +2820,6 @@ Partial Class ContabilidadC_RegPrePolizaS
Dim MensajeAlert = New StringBuilder Dim MensajeAlert = New StringBuilder
Dim ObjIE As New ClsBancos() Dim ObjIE As New ClsBancos()
Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL) 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 IDPoliza As Integer = 0
Dim MsgError As String = "" Dim MsgError As String = ""
Dim CveIE As Integer Dim CveIE As Integer
@@ -2937,12 +2935,9 @@ Partial Class ContabilidadC_RegPrePolizaS
End If End If
If MsgError = "" Then 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}""") 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() ObjIE.Commit()
If Conta IsNot Nothing Then Conta.Commit()
TxtConcepto.Text = "" TxtConcepto.Text = ""
GvMov.DataBind() GvMov.DataBind()
TxtFechaDocumento.Text = "" TxtFechaDocumento.Text = ""
@@ -2950,12 +2945,10 @@ Partial Class ContabilidadC_RegPrePolizaS
Else Else
Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError) Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
ObjIE.RollBack() ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack()
End If End If
ObjIE.Dispose() ObjIE.Dispose()
ObjMov.Dispose() ObjMov.Dispose()
If Conta IsNot Nothing Then Conta.Dispose()
End If End If