-- mejoras

Ventas/Clientes.aspx.vb

@@ -917,7 +917,6 @@ Partial Class Clientes
 
             ChecaPermiteCredito()
 
-
             'Crea y carga CuentasBancarias - tab:Bancos
             CargaCuentasBancarias()
 
@@ -939,8 +938,6 @@ Partial Class Clientes
             TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
             TxtFechaFCredito.Text = Now.ToShortDateString()
 
-
-
             If UsuarioActual.TienePermisoProceso(257) Then  'Falta agregar proceso
                 DivMapAddSucursal.Visible = True
                 LiLnkAgragarDireccion.Visible = True
@@ -950,17 +947,12 @@ Partial Class Clientes
 
             MostrarTxtDireccionesClienteEnvio()
 
-
-            If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso UsuarioActual.CveRol = 1 Then
+            If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso UsuarioActual.TienePermisoProceso(350) Then
                 CargaCombosLineasAdicionales()
                 TabLineasAdicionales.Visible = True
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
-
-            End If
-
-
-
+            End If
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -10338,8 +10330,7 @@ Partial Class Clientes
 
         If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
             DivRazonSocial2.Attributes.Add("class", "col-md-8")
-            DVRegimenSociedad.Visible = True
-            TxtNombreComercial.Enabled = False
+            DVRegimenSociedad.Visible = True
         Else
             TxtNombreComercial.Enabled = True
         End If
@@ -10365,31 +10356,17 @@ Partial Class Clientes
 
 
 
-    Private Sub CargaCombosLineasAdicionales()
-
-        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
-            DdlProveedorLineaAdicionalModal.setEsWebService(True)
-            DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
-            DdlProveedorLineaAdicionalModal.SelectedText = "-"
-            DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
-
-
-
-        Else
-            DdlProveedorLineaAdicionalModal.setEsWebService(False)
-            DdlProveedorLineaAdicionalModal.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedorLineaAdicionalModal.ddl.DataBind()
-            DdlProveedorLineaAdicionalModal.ddl.Items.Insert(0, New ListItem("-", "-1"))
-        End If
-
-
-
+    Private Sub CargaCombosLineasAdicionales()
+
+        DdlProveedorLineaAdicionalModal.setEsWebService(True)
+        DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicionalModal.SelectedText = "-"
+        DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
+
         DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoriaLineaAdicionalModal.DataBind()
-        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
-
-
-
+        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
+
     End Sub
 
     Private Sub GetLineasAdicionales()