Ventas correcion tipo documento, clientes lista de precio opcin 10

Ventas/Clientes.aspx.vb

@@ -1209,15 +1209,31 @@ Partial Class Clientes
         If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then
             DdlSubProyecto.AutoPostBack = False
             DivPrecioLista.Visible = False
-        End If
-
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-            DivCrearPrecioLista.Visible = True
-        End If
-
-        DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
-        DdlPrecioLista.DataBind()
-        DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
+        End If
+
+        Dim CveFuncionalidad404 As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero
+
+        If CveFuncionalidad404.Contiene(10, 30) Then
+
+            DivPrecioLista.Visible = True
+            DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
+            DdlPrecioLista.DataBind()
+            DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            If CveFuncionalidad404.Contiene(30) Then
+                DivCrearPrecioLista.Visible = True
+                DdlPrecioListaClonar.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa)
+                DdlPrecioListaClonar.DataBind()
+                DdlPrecioListaClonar.Items.Insert(0, New ListItem(" - ", "-1"))
+
+            End If
+
+        End If
+
+
+
+
+
     End Sub
     Private Sub CargaCuentasContables()
         If UsuarioActual.Empresa.ServerContPAQi = "" Then Exit Sub