From 329661a456a35b73c7b092be2d5bb82f12b6b9af Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 22 Jun 2023 20:29:50 -0700
Subject: [PATCH] Errores en ventas

---
 Ventas/Ventas.aspx.vb | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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()