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

vwd.webinfo

@@ -504,6 +504,8 @@
     
   
     
+  
+