From 57ebe1de6c89bcbf4c5f317a828055b62cb84ea2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 15 Dec 2020 17:25:09 -0700
Subject: [PATCH] -- cancelacion de traspaso

---
 Inventarios/TraspasoAlmacen.aspx.vb | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 434eaf4fb..9ed386e6f 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1627,7 +1627,7 @@ Partial Class Inventarios_TraspasoAlmacen
         End If
 
         Dim CveMovimientoEntrada As Integer = 0
-        Dim Folio As Integer = 0
+        Dim tFolio As Integer = 0
         Dim ErrorMovInv As Boolean = False
         Dim TextoError As String = ""
         Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
@@ -1651,7 +1651,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If Concepto = "" Then Concepto = "Cancelación Traspaso"
 
             If Not ErrorMovInv Then
-                Folio = ObjInventario.Folio
+                tFolio = ObjInventario.Folio
                 CvePrePoliza = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 If CvePrePoliza <= 0 Then
@@ -1750,7 +1750,7 @@ Partial Class Inventarios_TraspasoAlmacen
                     End If
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
-                                                     CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal) Then
+                                                     CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImporteDecimal) Then
                         ErrorMovInv = True
                         TextoError = "Ocurrió un erro al cancelar el traspaso"
                     End If
@@ -1772,7 +1772,7 @@ Partial Class Inventarios_TraspasoAlmacen
             TxtObservacionesRecepcion.Text = ""
 
             Dim Mensaje As StringBuilder = New StringBuilder
-            Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
+            Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", tFolio, CveMovimientoEntrada)
             Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
             If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio Virtual: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a></b>&nbsp;<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)