From 31931565f0941321828f75616f317988fa966746 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Fri, 29 Apr 2022 13:27:55 -0700
Subject: [PATCH] =?UTF-8?q?--=20devolucion=20automatica=20en=20cancelaci?=
 =?UTF-8?q?=C3=B3n,=20que=20en=20prep=C3=B3liza=20registre=20el=20nuevomov?=
 =?UTF-8?q?imeinto=20de=20salida?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3c67875f7..96d491d7a 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -14986,12 +14986,12 @@ Partial Class Compras_Compras
 
         End If
         ObjComprasComprobacion.Dispose()
-
+        Dim cvemovimientoentrada As Integer = -1
 
         'DEVOLUCIÓN AUTOMATICA
         If CheckDevAuto.Checked Then
             Dim ErrorMovInv As Boolean = False
-            Dim cvemovimientoentrada As Integer
+
             Dim folio As Integer
             Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
             Dim importeconcepto As Decimal
@@ -15133,7 +15133,8 @@ Partial Class Compras_Compras
                                 If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                             dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                             dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            dr("CveMovimientoAlmacen").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                            If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
+                                                                            dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
                                                                             ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1, CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero, CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
                                     ErrorCancelar = True
                                     Exit For