--FIX error compilacion

Ventas/Ventas.aspx.vb

@@ -3731,6 +3731,20 @@ Partial Class Ventas
 
         UpPS.Update()
     End Sub
+
+    Private Sub CargaListasPreciosSubProyectos()
+        'If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso UsuarioActual.Empresa.Funcionalidad(360) = "1" Then
+        '    DivPrecioLista.Visible = True
+        '    Using ObjVta As New ClsVentas
+        '        If ObjVta.GetPreciosListaSPPermitidos(DdlSubProyectoDatos.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
+        '            Dim Dt = ObjVta.DtResultados.Copy()
+        '            DdlPrecioLista.DataSource = Dt
+        '            DdlPrecioLista.SelectedValue = Dt.FiltroPrimeroValor("CvePrecioLista", "Predeterminada = 'True'")
+        '        End If
+        '    End Using
+        '    UpPS.Update()
+        'End If
+    End Sub
     Private Sub BloqueaClasificaciones()
         If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
             DdlClasificacion.Enabled = False
@@ -18550,6 +18564,8 @@ Partial Class Ventas
             DdlPS.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
         End If
 
+        CargaListasPreciosSubProyectos()
+
         UpDetalle.Update()
         UpEmitirTransitorio.Update()
     End Sub