Solicitud de traspaso, permiso eliminar solicitud de traspaso

Inventarios/TrasladoSolicitud.aspx.vb

@@ -214,7 +214,11 @@ Partial Class Inventarios_TrasladoSolicitud
                 Else
                     TrGuia.Visible = False
                 End If
-                BtnEliminar.Visible = True
+
+                If UsuarioActual.TienePermisoProceso(313) Then
+                    BtnEliminar.Visible = True
+                End If
+
                 BtnGuardar.Enabled = False
                 TxtObservaciones.Enabled = False
                 TxtFecha.Enabled = False
@@ -563,6 +567,8 @@ Partial Class Inventarios_TrasladoSolicitud
         Dim CodigoPS As String = ""
 
 
+
+        'Aqui poner permiso   para poder evitar permiso de  traslado
         If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
 
             If ObjInventarios.DtResultados.Rows.Count > 0 Then
@@ -1037,9 +1043,6 @@ Partial Class Inventarios_TrasladoSolicitud
             MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
             CargaDatos()
             RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
-
-
-
         End If
 
     End Sub