diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 0585cb4a3..48675aa7f 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3009,10 +3009,8 @@ Partial Class Inventarios_RecepcionAlmacen
                                         Row("CveUM") = GvRow.DataKey("CveUM").ToEntero()
                                         DtPSVirtual.Rows.Add(Row)
                                     End If
-
                                 End If
                             Next
-
                         End If
                     Next
 
@@ -3065,36 +3063,32 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
+                            CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, 13, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoRef, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/VD")
+
                             If CveMovimientoVirtual > 0 Then
+                                FolioVirtual = ObjInventario.Folio
 
-                                CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, 13, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimientoRef, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/VD")
+                                For Each RowUsado As DataRow In DtPSVirtual.Rows
+                                    Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
+                                    Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
+                                    Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
+                                    Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
 
-                                If CveMovimientoVirtual > 0 Then
-                                    FolioVirtual = ObjInventario.Folio
-
-                                    For Each RowUsado As DataRow In DtPSVirtual.Rows
-                                        Dim CvePS = RowUsado("CvePS").ToString().ToEntero()
-                                        Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal()
-                                        Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal()
-                                        Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero()
-
-                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                                            ErrorMovInv = True
-                                            Exit For
-                                        End If
-                                    Next
-
-                                    If SumarImporteUsados Then
-                                        If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
-                                            ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
-                                        End If
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtual, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                        ErrorMovInv = True
+                                        Exit For
                                     End If
+                                Next
 
-                                Else
-                                    ErrorMovInv = True
+                                If SumarImporteUsados Then
+                                    If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
+                                        ImporteIngresoAdicional = ObjInventario.DtResultados.SUMD("TotalOriginal")
+                                    End If
                                 End If
-                            End If
 
+                            Else
+                                ErrorMovInv = True
+                            End If
                         Else
                             ErrorMovInv = True
                         End If