corrección de código

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,8 +3063,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero()).FiltroPrimeroValor("CveAlmacenVirtual").ToEntero()
 
-                            If CveMovimientoVirtual > 0 Then
-
                             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
@@ -3093,8 +3089,6 @@ Partial Class Inventarios_RecepcionAlmacen
                             Else
                                 ErrorMovInv = True
                             End If
-                            End If
-
                         Else
                             ErrorMovInv = True
                         End If