From 7e99432d44c6cce2730c2f348b91c229e314b74b Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 30 Dec 2020 10:13:36 -0700
Subject: [PATCH] Solicitud de  traspaso, permiso eliminar solicitud de
 traspaso

---
 Contratos/ContratoObra.aspx           |  2 +-
 Contratos/ContratoObra.aspx.vb        |  3 ---
 Inventarios/TrasladoSolicitud.aspx.vb | 11 +++++++----
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index 416c1b002..6efbb60f6 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -2420,7 +2420,7 @@
 
                                          <asp:GridView ID="GvDatosVentasAvanceInternoMaquinaria" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                             <Columns>
-                                                <asp:BoundField HeaderText="SubTipoActivoFijo"  DataField="SubTipoActivoFijo"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="SubTipoActivoFijo"  ItemStyle-Width="40%" DataField="SubTipoActivoFijo"    ItemStyle-CssClass="Texto Izquierda"   />
                                                 <asp:BoundField HeaderText="Descripción"     DataField="Descripcion"    ItemStyle-CssClass="Texto Izquierda"   />
                                                 <asp:BoundField HeaderText="Horas"      DataField="Horas"      ItemStyle-CssClass="Texto Izquierda"   />                                                
                                                 <asp:BoundField HeaderText="Importe"      DataField="Total"    ItemStyle-CssClass="Texto Derecha"  DataFormatString={0:N}  />                                                
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index e0dc4dbf5..257981658 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2439,9 +2439,6 @@ Partial Class Contratos_ContratoObra
             GvDatosVentasAvanceInternoMaquinaria.Visible = False
         End If
 
-
-        GvDatosVentasAvanceInterno.Visible = True
-
         Dim ObjContratos As New ClsContratos
 
         If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index baf983a9c..828eadeda 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/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