From 721e07a0b21a3aa603e613576703d9cc72afdb8c Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 22 Sep 2020 12:12:28 -0700
Subject: [PATCH] - si ya esta autorizdo, no se puede eliminar. y se corrige
 error al eliminar ya registrado

---
 Inventarios/TrasladoSolicitud.aspx    |  2 +-
 Inventarios/TrasladoSolicitud.aspx.vb | 23 ++++++++++++-----------
 2 files changed, 13 insertions(+), 12 deletions(-)

diff --git a/Inventarios/TrasladoSolicitud.aspx b/Inventarios/TrasladoSolicitud.aspx
index a0bb909a6..a210fbb38 100644
--- a/Inventarios/TrasladoSolicitud.aspx
+++ b/Inventarios/TrasladoSolicitud.aspx
@@ -308,7 +308,7 @@
                                 <%--<asp:BoundField HeaderText="Direccion Envio" HeaderStyle-HorizontalAlign="Left" DataField="DireccionEnvio" ItemStyle-Width="20%" />--%>
                                 <asp:BoundField HeaderText="Observaciones" DataField="Observaciones" ItemStyle-Width="20%" />
                                 <asp:BoundField HeaderText="Precio" HeaderStyle-HorizontalAlign="Right" DataFormatString="{0:c}" ItemStyle-HorizontalAlign="Right" DataField="Precio" Visible="false" ItemStyle-Width="5%" />
-                                <asp:BoundField HeaderText="Serie" HeaderStyle-HorizontalAlign="Right" ItemStyle-HorizontalAlign="Right" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
+                                <asp:BoundField HeaderText="Serie" DataField="Serie" Visible="false" ItemStyle-Width="5%" />
                                 <asp:TemplateField HeaderText="Eliminar" ItemStyle-HorizontalAlign="Center" HeaderStyle-HorizontalAlign="Center" ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="imgD" runat="server" CausesValidation="False" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="Si" />
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 51ae79244..85eec4810 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -4,10 +4,10 @@ Option Explicit On
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-
+
 Partial Class Inventarios_TrasladoSolicitud
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "Propiedades"
     Private Property TempDT As DataTable
         Get
@@ -64,10 +64,10 @@ Partial Class Inventarios_TrasladoSolicitud
             End If
 
         End If
-    End Sub
-
-
-
+    End Sub
+
+
+
 #Region "  INICIALIZA VALORES  "
     Private Sub InicializaValores()
         CveTraspasoSolicitud = -1
@@ -140,10 +140,10 @@ Partial Class Inventarios_TrasladoSolicitud
         'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
         'DdlProductoServicio.DataBind()
         'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
     Private Sub CargaDatos()
         Dim ObjInventarios As New ClsInventarios
@@ -158,7 +158,7 @@ Partial Class Inventarios_TrasladoSolicitud
                 LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
                 TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
 
-
+                TempDT = ObjInventarios.DtResultados
                 GvDatos.DataSource = ObjInventarios.DtResultados
                 GvDatos.DataBind()
 
@@ -269,6 +269,7 @@ Partial Class Inventarios_TrasladoSolicitud
                         LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
                         LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
                         LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+                        GvDatos.Columns(6).Visible = False ' se oculta la columna de eliminar
 
                     End If