- activar prorrateo 8.5 en compra registrada

-- mover botnes de prorraeo al div más arriba

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