From 6d66ab292956e6bfbaf61c958fee98a401376ca4 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 21 Jun 2023 12:57:43 -0700 Subject: [PATCH] =?UTF-8?q?-=20activar=20prorrateo=208.5=20en=20compra=20r?= =?UTF-8?q?egistrada=20--=20mover=20botnes=20de=20prorraeo=20al=20div=20m?= =?UTF-8?q?=C3=A1s=20arriba?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx | 23 +++++++++-------------- Compras/Compras.aspx.vb | 13 ++++--------- 2 files changed, 13 insertions(+), 23 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 2df209c95..7644e534e 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -854,7 +854,7 @@
-
+
@@ -915,6 +915,12 @@ +
+ + + +
+
@@ -976,13 +982,7 @@     - - - - - - - + @@ -1117,12 +1117,7 @@
- -
- - - -
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 72bb963e5..0478b39c0 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1418,11 +1418,6 @@ Partial Class Compras_Compras End If - - If UsuarioActual.TienePermisoProceso(360) Then - BtnProrateoDeducible.Visible = True - End If - ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then ViewState("CveCompra") = Request("CveCompra") @@ -1462,9 +1457,9 @@ Partial Class Compras_Compras UpLnkPaqueteriaGuias.Update() End If - If Not CveCompra > 0 Then - LIContratos.Visible = True - End If + If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True + + If Not CveCompra > 0 Then LIContratos.Visible = True 'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero) @@ -10171,7 +10166,7 @@ Partial Class Compras_Compras CargaGvInv() CargaGVsAF() CargaGvPersonal() - Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.MsgInformacion) + Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.ToastInformacion) End Sub Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then