From ff7b907921677d15ae046d8334379c8f529b1c99 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 30 Jan 2020 12:34:02 -0700
Subject: [PATCH] correccion en traspaso y agregando el detalle de eliminacion
 de movimiento con mayor definicion

---
 Inventarios/EntradasSalidas.aspx.vb | 23 ++++++++++++++++++++---
 Inventarios/RepEntradasSalidas.aspx |  2 +-
 Inventarios/TraspasoAlmacen.aspx.vb |  2 +-
 3 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 06da0da29..9fa13cac4 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -251,9 +251,18 @@ Partial Class Inventarios_EntradasSalidas
         Set(value As Integer)
             ViewState("CvePrePoliza") = value
         End Set
-    End Property
+    End Property
+    Private Property DescripcionDetalladaEliminar As String
+        Get
+            Return CType(ViewState("DescripcionDetalladaEliminar"), String)
+        End Get
+        Set(value As String)
+            ViewState("DescripcionDetalladaEliminar") = value
+        End Set
+    End Property
+
 #End Region
-
+
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
@@ -1012,6 +1021,14 @@ Partial Class Inventarios_EntradasSalidas
     Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
 
         RegistraScript("$('#divDescripcion').modal()")
+
+        Dim Description As String = String.Format("Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:<br/>",
+                                                   DdlConcepto.SelectedItem, DdlAlmacen.SelectedItem, TxtFecha.Text, TxtFolio.Text, LblUsuarioRegistro.Text, TxtObservaciones.Text)
+        For Each dr As DataRow In DtMovimientos.Rows
+            Dim detalleDescripcion As String = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}<br/>", dr("Cantidad").ToString.ToEntero, dr("CodigoPS"), dr("PU"), dr("UnidadMedida"))
+            Description = String.Format("{0}{1}", Description, detalleDescripcion)
+        Next
+        DescripcionDetalladaEliminar = Description
         UpDescripcion.Update()
 
         'Dim Inv As New ClsInventarios
@@ -1069,7 +1086,7 @@ Partial Class Inventarios_EntradasSalidas
                 ObjConta.IniciaTransacSQL()
             End If
 
-            If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
+            If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, String.Format("{0}, Informacion = {1}", TxtDescripcion.Text, DescripcionDetalladaEliminar), "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
                 TieneError = True
             End If
 
diff --git a/Inventarios/RepEntradasSalidas.aspx b/Inventarios/RepEntradasSalidas.aspx
index f74137b2a..763ab212c 100644
--- a/Inventarios/RepEntradasSalidas.aspx
+++ b/Inventarios/RepEntradasSalidas.aspx
@@ -300,7 +300,7 @@
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                     <asp:BoundField DataField="Id_Clave" HeaderText="Folio / Concepto" ItemStyle-HorizontalAlign="Left" />
-                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
+                                    <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" HTMLEncode="false"/>
                                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-HorizontalAlign="Left" />
                                 </Columns>
                             </asp:GridView>
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index d995d8ae8..eb06c2009 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -852,7 +852,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero)
                 CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=-1, Modulo:="TA/G")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G")
                 FolioEntrada = ObjInventario.Folio
                 If CveMovimientoEntrada <= 0 Then
                     TextoError = "Ocurrió un error al generar el movimiento de entrada"