correccion en traspaso y agregando el detalle de eliminacion de movimiento con mayor definicion

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