Vya Repviajes unidad, choferes

Transportes/RepContratoDetalle.aspx.vb

@@ -217,7 +217,18 @@ Partial Class RepContratoDetalle
 
 
 
+    Private Property EsAgencia As Boolean
+        Get
+            If ViewState("EsAgencia") Is Nothing Then
+                ViewState("EsAgencia") = False
+            End If
 
+            Return Boolean.Parse(ViewState("EsAgencia").ToString())
+        End Get
+        Set(value As Boolean)
+            ViewState("EsAgencia") = value
+        End Set
+    End Property
 
 
 
@@ -227,14 +238,18 @@ Partial Class RepContratoDetalle
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
 
-        If Request("CveContrato") Is Nothing Then
-            Response.Redirect($"~/Transportes/RepContratos.aspx")
-        End If
-
-        CveContrato = Request("CveContrato").ToEntero
-
         If Not IsPostBack Then
 
+            If Request("CveContrato") Is Nothing Then
+                Response.Redirect($"~/Transportes/RepContratos.aspx")
+            End If
+
+            CveContrato = Request("CveContrato").ToEntero
+
+            If UsuarioActual.CveRol = 1583 Then
+                EsAgencia = True
+            End If
+
             InicializaCombos()
             CargaDatos()
             CargaAuxiliarClienteCxC(DdlClientes.SelectedValue.ToEntero, CveVentaRemision)
@@ -910,10 +925,18 @@ Partial Class RepContratoDetalle
         }
 
         ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
+
     End Sub
     Protected Sub GvViajesPasajeros_RowDataBound(sender As Object, e As GridViewRowEventArgs)
         If e.Row.RowType = DataControlRowType.DataRow Then
+
+            If EsAgencia Then
+                e.Row.FCLinkButton("BtnCancelar").Visible = False
+            End If
+
+
             ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
+
         End If
     End Sub
     Protected Sub EditarBoleto(sender As Object, e As EventArgs)