From fce13adc957a227580215f03d4fc6170dc7915bb Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 3 May 2023 10:54:28 -0700 Subject: [PATCH] =?UTF-8?q?-=20mejora=20en=20mensaje=20de=20la=20p=C3=B3li?= =?UTF-8?q?za?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PolizaCheque.aspx.vb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/Bancos/PolizaCheque.aspx.vb b/Bancos/PolizaCheque.aspx.vb index 1879bd21b..fc8c83826 100644 --- a/Bancos/PolizaCheque.aspx.vb +++ b/Bancos/PolizaCheque.aspx.vb @@ -1034,7 +1034,15 @@ Partial Class Bancos_PolizaCheque TxtImporte.Text = "" TxtPagueseA.Text = "" TxtObservaciones.Text = "" - Alert($"El Movimiento se guardo correctamente

Movimiento
{If(ObjMov.ContaIdPoliza > 0, "Ver Póliza", "")}", TipoMensaje.MsgInformacion, "window.location.reload();") + Dim StrMsg As New StringBuilder + StrMsg.AppendFormat("El Movimiento se guardo correctamente

Movimiento
", CveIE) + If UsuarioActual.Empresa.TipoContabilidad = 1 Then + StrMsg.AppendFormat("
Ver Póliza", CvePrePoliza) + Else + StrMsg.AppendFormat("
Ver Póliza", ObjMov.ContaIdPoliza) + End If + + Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "window.location.reload();") Else Alert(MsgError.ToString, TipoMensaje.MsgError) ObjIE.RollBack()