@@ -6732,7 +6721,7 @@
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 1d0794060..2feb7d74d 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/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)