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