From 9fa640048296ac84f075da4e47d3ccd27b2d2403 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sun, 9 Jan 2022 21:01:22 -0700
Subject: [PATCH] =?UTF-8?q?recuperar=20bit=C3=A1cora?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/TraspasoAlmacen.aspx    |  3 +++
 Inventarios/TraspasoAlmacen.aspx.vb | 41 ++++++++++++++++++++++++++---
 2 files changed, 40 insertions(+), 4 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx b/Inventarios/TraspasoAlmacen.aspx
index 71dbc9b57..279110a06 100644
--- a/Inventarios/TraspasoAlmacen.aspx
+++ b/Inventarios/TraspasoAlmacen.aspx
@@ -63,6 +63,9 @@
     <li>
         <asp:HyperLink ID="LnkCargarExcel" runat="server" NavigateUrl="#" data-toggle="modal" data-target="#DivCargaExcelConceptos" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color: #686868;"></i> Cargar Conceptos</asp:HyperLink>
     </li>
+    <li>
+        <asp:Linkbutton ID="HplCargaBitacora" runat="server" OnClick="HplCargaBitacora_Click"  Style="color: #686868;"><i class="fa fa-file-load-o" style="color: #686868;"></i> Cargar Bitácora</asp:Linkbutton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index a80e630a7..4e53310ab 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -159,6 +159,15 @@ Partial Class Inventarios_TraspasoAlmacen
             ViewState("FolioBusqueda") = value
         End Set
     End Property
+
+    Private Property ArchivoBitacora As String
+        Get
+            Return CType(ViewState("ArchivoBitacora"), String)
+        End Get
+        Set(value As String)
+            ViewState("ArchivoBitacora") = value
+        End Set
+    End Property
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -173,6 +182,7 @@ Partial Class Inventarios_TraspasoAlmacen
             RVFechaRecepcion.MaximumValue = Now.ToShortDateString
             Folio = 0
             CveMovimientoTimbrado = -1
+            ArchivoBitacora = UsuarioActual.Empresa.Ruta & "Temp\Traspaso_" & UsuarioActual.CveUsuario & ".xml"
 
             If UsuarioActual.CveEmpresa = 119 Then
                 divGastoIndirecto.Visible = False
@@ -287,6 +297,7 @@ Partial Class Inventarios_TraspasoAlmacen
         dt.Columns.Add("Embalaje")
         dt.Columns.Add("PesoKg", Type.GetType("System.Decimal"))
 
+        dt.TableName = "TablaTraspaso"
 
         DtMovimientos = dt
 
@@ -701,10 +712,10 @@ Partial Class Inventarios_TraspasoAlmacen
 
             DtMovimientos.Rows.Add(registro)
             RegistraScript("playsonidito('beep-07.wav')")
-
+            IO.Path.GetDirectoryName(ArchivoBitacora).DirectoryExistsCreate 'verifica que exista la ruta
+            ActualizaBitacora()
         End If
 
-
         CargaGvDatos()
 
         If Limpia Then
@@ -715,6 +726,14 @@ Partial Class Inventarios_TraspasoAlmacen
             TxtnSerie.Focus()
         End If
     End Sub
+    Private Sub ActualizaBitacora(Optional Eliminar As Boolean = False)
+        If Not Eliminar Then
+            DtMovimientos.WriteXml(ArchivoBitacora, XmlWriteMode.WriteSchema)
+        Else
+            File.Delete(ArchivoBitacora)
+        End If
+
+    End Sub
 
     Private Sub LimpiaAgregar()
         'DdlClasificacion.SelectedValue = "-1"
@@ -1355,8 +1374,6 @@ Partial Class Inventarios_TraspasoAlmacen
         ChkTransitorio.Enabled = True
         TxtGastoIndirecto.Text = ""
 
-
-
         DivMov.Visible = False
         CargadoDeMov = False
 
@@ -1364,6 +1381,7 @@ Partial Class Inventarios_TraspasoAlmacen
         UpMov.Update()
 
         DtMovimientos.Rows.Clear()
+        ActualizaBitacora()
         CargaGvDatos()
     End Sub
 #End Region
@@ -1477,9 +1495,12 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub EscondeColumnasGVM(DtTemp As DataTable)
 
         GvDatos.Columns(5).Visible = DtTemp.MAX("Serie").ToString <> ""
+        TdSerie.Visible = GvDatos.Columns(5).Visible : ThSerie.Visible = GvDatos.Columns(5).Visible
         GvDatos.Columns(6).Visible = DtTemp.MAX("Lote").ToString <> ""
+        TdLote.Visible = GvDatos.Columns(6).Visible : ThLote.Visible = GvDatos.Columns(6).Visible
         GvDatos.Columns(7).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad")
         GvDatos.Columns(7).Visible = DtTemp.MAX("FechaCaducidad").ToString.ToDate > MinFecha
+        TdFechaCaducidad.Visible = GvDatos.Columns(7).Visible : ThFechaCaducidad.Visible = GvDatos.Columns(7).Visible
         GvDatos.Columns(8).Visible = DtTemp.MAX("CveSeccionAlmacen").ToString.ToEntero > 0
 
         ''TxtnSerie.Visible = False
@@ -1581,6 +1602,7 @@ Partial Class Inventarios_TraspasoAlmacen
         DbRow = DtMovimientos.Rows(e.RowIndex)
 
         DtMovimientos.Rows.Remove(DbRow)
+        ActualizaBitacora()
         CargaGvDatos()
     End Sub
 
@@ -3057,6 +3079,17 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
 
+    End Sub
+
+    Protected Sub HplCargaBitacora_Click(sender As Object, e As EventArgs)
+
+        If IO.File.Exists(ArchivoBitacora) Then
+            DtMovimientos.ReadXml(ArchivoBitacora)
+            CargaGvDatos()
+            Alert("Registro(s) Recuperados", TipoMensaje.ToastInformacion)
+        Else
+            Alert("No hay bitácora para recuperar.", TipoMensaje.ToastInformacion)
+        End If
 
     End Sub
 End Class