diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index dfed40166..575f4b57f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -15450,9 +15450,10 @@ Partial Class Ventas
                     '    Dim DtTest = ObjConta.DtResultados
                     'End If
                 End If
+            Else
+                ErrorPrepoliza = True
             End If
 
-
             Return ErrorPrepoliza
         Catch ex As Exception
             GuardaLog("GuardaPreP." & ex.ToString())
@@ -15675,7 +15676,7 @@ Partial Class Ventas
                     If DebeGenerarMovimiento Then
 
                         Dim CveAlmacenSalida As Integer = ddlAlmacen.SelectedValue.ToEntero()
-                        Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={DdlSubProyecto.SelectedValue}").ToEntero()
+                        Dim CveAlmacenExA As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveTipoAlmacen:=10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={DdlSubProyectoDatos.SelectedValue}").ToEntero()
 
                         Dim CveRemision As Integer = factura.CveVenta
                         Dim CveMoneda As Integer = DdlMoneda.SelectedValue.ToEntero()