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

-- cambio en alerta de guardado

Browse Source
This commit is contained in:
rrene
2020-10-08 18:12:28 -07:00
parent 28b42b681f
commit 5264f95b7d
1 changed files with 32 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -983,11 +983,9 @@ Partial Class ContabilidadC_RegPrePoliza
Else Else
MsgError = "No se pudo insertar la póliza" MsgError = "No se pudo insertar la póliza"
End If End If
Catch ex As Exception
MsgError = "Error"
End Try
If MsgError = "" Then If MsgError = "" Then
'MENSAJE IE 'MENSAJE IE
If CveIE > 0 Then If CveIE > 0 Then
MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE) MensajeAlert.AppendFormat("<br/><br/>Folio Bancario: <b><a href = ""/Bancos/IE.aspx?CveIE={0}"" class=""texto"" target=""_blank"" >{1}</a></b>", CveIE, FolioIE)
@@ -999,16 +997,23 @@ Partial Class ContabilidadC_RegPrePoliza
ObjIE.Commit() ObjIE.Commit()
If Conta IsNot Nothing Then Conta.Commit() If Conta IsNot Nothing Then Conta.Commit()
UPPDocumento.Update() 'UPPDocumento.Update()
'TxtObservaciones.Text = ""
TxtObservaciones.Text = "" 'GvMov.DataBind()
GvMov.DataBind() 'TxtFecha.Text = ""
TxtFecha.Text = "" 'TxtObservaciones.Text = ""
TxtObservaciones.Text = ""
Else Else
ObjIE.RollBack() ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack() If Conta IsNot Nothing Then Conta.RollBack()
End If End If
Catch ex As Exception
ObjIE.RollBack()
If Conta IsNot Nothing Then Conta.RollBack()
Alert("Ocurrio un error al registrar el movimiento", TipoMensaje.MsgInformacion)
ex.GuardaLog(ex.Message)
End Try
ObjIE.Dispose() ObjIE.Dispose()
ObjMov.Dispose() ObjMov.Dispose()