- mejora en mensaje de la póliza

Bancos/PolizaCheque.aspx.vb

@@ -1034,7 +1034,15 @@ Partial Class Bancos_PolizaCheque
                         TxtImporte.Text = ""
                         TxtPagueseA.Text = ""
                         TxtObservaciones.Text = ""
-                        Alert($"El Movimiento se guardo correctamente <br><br> <a href=""/Bancos/IE.aspx?CveIE={CveIE}"" target=""_blank"">Movimiento</a><br/><a href=""/Contabilidad/RegPoliza.aspx?IdPoliza={ObjMov.ContaIdPoliza}"" target=""_blank"">{If(ObjMov.ContaIdPoliza > 0, "Ver Póliza", "")}</a>", TipoMensaje.MsgInformacion, "window.location.reload();")
+                        Dim StrMsg As New StringBuilder
+                        StrMsg.AppendFormat("El Movimiento se guardo correctamente <br><br> <a href=""/Bancos/IE.aspx?CveIE={0}"" target=""_blank"" class='Texto'>Movimiento</a><br/>", CveIE)
+                        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
+                            StrMsg.AppendFormat("<br/><a href=""/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}"" target=""_blank"" class='Texto'> Ver Póliza</a>", CvePrePoliza)
+                        Else
+                            StrMsg.AppendFormat("<br/><a href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"" target=""_blank"" class='Texto'> Ver Póliza</a>", ObjMov.ContaIdPoliza)
+                        End If
+
+                        Alert(StrMsg.ToString, TipoMensaje.MsgInformacion, "window.location.reload();")
                     Else
                         Alert(MsgError.ToString, TipoMensaje.MsgError)
                         ObjIE.RollBack()