diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index 81b12f3db..3c9039c06 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -90,9 +90,9 @@
- - + +
@@ -172,6 +172,11 @@ + + + + +
-
+
@@ -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