From 4b10a540d230721a5f89853fb56052d76076888d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 25 May 2023 20:25:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20proceso=20para=20visualizar=20prep=C3=B3li?= =?UTF-8?q?za?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/ProveedoresAbonar.aspx.vb | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 46e9f59c1..7dd4fa5af 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -1102,10 +1102,14 @@ Partial Class Bancos_ProveedoresAbonar Msg.AppendFormat(" Folio: {1}

", CveIE, TxtFolio.Text) Msg.AppendFormat(" Imprimir movimiento
", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE))) - 'End If + Msg.AppendFormat(" Listado
", Encripta(String.Format("OP=ImprimeMov&CveIE={0}", CveIE))) If IDPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then Msg.AppendFormat(" Póliza
", IDPoliza) + If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros + Msg.AppendFormat("

Ver Póliza   ", CvePrePoliza) + End If + Dim Mensaje As String = String.Format("El Documento se generó correctamente.

{0} ", Msg.ToString) 'LIMPIA