Merge branch 'master' of http://192.168.10.111:8383/SIG

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
@@ -837,6 +846,7 @@ Partial Class Inventarios_RecepcionAlmacen
         CveAlmacenApartado = -1
         CveAlmacenDevolucionProveedor = -1
         RealizarTraspasoAlmacenDevolucion = False
+        RealizarMovimientoVirtual = False
         BtnGuardar.Enabled = True
         CargaAlmacenes(-1)
 
@@ -889,6 +899,7 @@ Partial Class Inventarios_RecepcionAlmacen
         'CargaAlmacenes(-1)
 
         RealizarTraspasoAlmacenDevolucion = False
+        RealizarMovimientoVirtual = False
         CveAlmacenDevolucionProveedor = -1
 
         Dim ObjCompras As New ClsCompras
@@ -960,6 +971,12 @@ Partial Class Inventarios_RecepcionAlmacen
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
+                    '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
+
                     If TipoMovimiento = 2 AndAlso CveAlmacenDevolucionProveedor > 0 Then
                         RealizarTraspasoAlmacenDevolucion = True
 
@@ -1077,10 +1094,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
@@ -2657,7 +2670,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'VIRTUAL
-                If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
+                If RealizarMovimientoVirtual Then
 
                     Dim DtPSVirtual As New DataTable("DtTamanios")
 
@@ -2772,7 +2785,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)))