correccion en validacion de movimiento virtual

Inventarios/RecepcionAlmacen.aspx.vb

@@ -386,6 +386,15 @@ Partial Class Inventarios_RecepcionAlmacen
         End Set
     End Property
 
+    Private Property RealizarMovimientoVirtual As Boolean
+        Get
+            Return If(IsNothing(ViewState("RealizarMovimientoVirtual")), False, CBool(ViewState("RealizarMovimientoVirtual")))
+        End Get
+        Set
+            ViewState("RealizarMovimientoVirtual") = Value
+        End Set
+    End Property
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -839,6 +848,7 @@ Partial Class Inventarios_RecepcionAlmacen
         CveAlmacenApartado = -1
         CveAlmacenDevolucionProveedor = -1
         RealizarTraspasoAlmacenDevolucion = False
+        RealizarMovimientoVirtual = False
         BtnGuardar.Enabled = True
         CargaAlmacenes(-1)
 
@@ -891,6 +901,7 @@ Partial Class Inventarios_RecepcionAlmacen
         'CargaAlmacenes(-1)
 
         RealizarTraspasoAlmacenDevolucion = False
+        RealizarMovimientoVirtual = False
         CveAlmacenDevolucionProveedor = -1
 
         Dim ObjCompras As New ClsCompras
@@ -962,6 +973,11 @@ 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
+                        RealizarMovimientoVirtual = True
+                        DivVirtualAdvertencia.Visible = True
+                    End If
+
                     If TipoMovimiento = 2 AndAlso CveAlmacenDevolucionProveedor > 0 Then
                         RealizarTraspasoAlmacenDevolucion = True
 
@@ -1079,10 +1095,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     DivCodigoSeriePS.Visible = False
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-                    DivVirtualAdvertencia.Visible = True
-                End If
-
             End If
         Else
             BtnGuardar.Visible = False
@@ -2663,7 +2675,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'VIRTUAL
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
 
                     Dim DtPSVirtual As New DataTable("DtTamanios")
 
@@ -2778,7 +2790,7 @@ Partial Class Inventarios_RecepcionAlmacen
             Else
 
                 'VIRTUAL
-                If CveTipoCompra = 9 And UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If CveTipoCompra = 9 And RealizarMovimientoVirtual Then
 
                     Dim DtPSVirtual As New DataTable("DtTamanios")
                     DtPSVirtual.Columns.Add(New DataColumn("CvePS", GetType(Integer)))