From 9925e1b51e12d6018a752cb6354e024195bd37de Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 12 Oct 2020 19:31:11 -0700
Subject: [PATCH] No generar movimiento virtuales en motobaterias

---
 Inventarios/RecepcionAlmacen.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 59c4fb6bc..b6f55b9e9 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -971,7 +971,8 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
-                    If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso (DtRecepcion.COUNT("CveTamaño", "CveTamaño > 0") > 0 OrElse CargaSoloUsados) Then
+                    'SI ES MOTOBATERIA NO GENERA MOVIMIENTO VIRTUAL
+                    If UsuarioActual.Empresa.Funcionalidad(573) = "1" AndAlso (DtRecepcion.COUNT("CveTamaño", "CveTamaño > 0 AND CveTamaño <> 16") > 0 OrElse CargaSoloUsados) Then
                         RealizarMovimientoVirtual = True
                         DivVirtualAdvertencia.Visible = True
                     End If