Mejora en carga de lista de precios

Ventas/Clientes.aspx.vb

@@ -910,7 +910,8 @@ Partial Class Clientes
                 CargaDocumentacionCliente()
 
                 'TxtPais.Text = "México"
-            End If
+            End If
+
 
             If UsuarioActual.Empresa.CvePlataforma = 3 Then
                 LbAddDispositivo.Visible = True
@@ -1334,7 +1335,13 @@ Partial Class Clientes
         DdlMetodoPagoSucursal.DataBind()
         'DdlMetodoPago.DataBind()
     End Sub
-    Private Sub CargaPrecioLista()
+    Private Sub CargaPrecioLista()
+        'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS
+        If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
+            DdlSubProyecto.AutoPostBack = False
+            DivPrecioLista.Visible = False
+        End If
+
         DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
         DdlPrecioLista.DataBind()
         DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
@@ -5838,13 +5845,15 @@ Partial Class Clientes
 
     Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
         If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then
-            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0)
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)
             If Dr IsNot Nothing Then
                 If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then
                     DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString())
                 End If
             End If
         End If
+
+        UpDatos.Update()
     End Sub
 
 #End Region
@@ -8470,8 +8479,8 @@ Partial Class Clientes
 
     End Sub
 
-    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged
-        CargarSubProyecto(DdlSubProyecto, DdlProyectoFiltro.SelectedValue)
+    Protected Sub DdlProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyectoFiltro, DdlProyectoFiltro.SelectedValue)
     End Sub
 
     Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)