From 791f12f269a630074e55cd908deb98915d29659f Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 14 Jun 2022 12:17:10 -0700
Subject: [PATCH]

---
 Ventas/Ventas.aspx.vb | 4 +++-
 vwd.webinfo           | 2 ++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 5299b19cd..da54eafee 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2630,7 +2630,9 @@ Partial Class Ventas
             If Request("CveEmbarqueManifiesto") IsNot Nothing AndAlso IsNumeric(Request("CveEmbarqueManifiesto")) AndAlso Request("CveEmbarqueManifiesto").ToEntero() > 0 Then
                 DdlMoneda.SelectedValueExist(2)
                 Using ObjVentas As New ClsNominas
-
+                    If ObjVentas.EmbarqueManifiestoGet(-1, -1, -1, Request("CveEmbarqueManifiesto").ToString().ToEntero()) And ObjVentas.DtResultados.Rows.Count > 0 Then
+                        DdlSubProyectoDatos.SelectedValueExist(ObjVentas.DtResultados.Rows(0)("CveSubProyecto").ToString())
+                    End If
                     If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, "", Request("CveEmbarqueManifiesto").ToEntero()) Then
                         TmpDT = ObjVentas.DtResultados
                         TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
diff --git a/vwd.webinfo b/vwd.webinfo
index e7646cde4..fa5b57957 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -504,6 +504,8 @@
     
   
     
+  
+