diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb
index b3dc9efc4..c50f6046b 100644
--- a/CxC/RepCxC.aspx.vb
+++ b/CxC/RepCxC.aspx.vb
@@ -160,6 +160,11 @@ Partial Class RepCxC
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoCobranza, Nothing, Nothing)
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ DivSPCobranza.Visible = True
+ LblSPCobranza.Visible = True
+ End If
+
'Carga Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
diff --git a/CxC/RepCxCDetalle.aspx b/CxC/RepCxCDetalle.aspx
index 05c205b9e..c08dd55e3 100644
--- a/CxC/RepCxCDetalle.aspx
+++ b/CxC/RepCxCDetalle.aspx
@@ -360,13 +360,15 @@
-
+
Sucursal de cobranza:
-
+
+
+
@@ -727,7 +729,7 @@
-
+
diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb
index ac66b0695..40929c86e 100644
--- a/CxC/RepCxCDetalle.aspx.vb
+++ b/CxC/RepCxCDetalle.aspx.vb
@@ -257,6 +257,11 @@ Partial Class RepCxCDetalle
CargaClientes()
End If
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ DivSPCobranza.Visible = True
+ LblSPCobranza.Visible = True
+ End If
+
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx
index 94b992456..b848e197d 100644
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -1888,7 +1888,7 @@
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index c9daae34a..8c2c73917 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -761,6 +761,10 @@ Partial Class Clientes
DivRepresentanteLegal.Visible = True
End If
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ DivSPCobranza.Visible = True
+ End If
+
If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero() > 0 Then
'If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario = 77 AndAlso Not Request("CveCliente").Contiene("10450", "10460", "10458") Then
' BtnGuardar.Enabled = False : BtnEliminar.Enabled = False : LbAgregarSucursal.Enabled = False : LbEnviarActivacionPortal.Enabled = False
diff --git a/Ventas/RepRecuperacion.aspx b/Ventas/RepRecuperacion.aspx
index e6a34b9d2..ea900ab31 100644
--- a/Ventas/RepRecuperacion.aspx
+++ b/Ventas/RepRecuperacion.aspx
@@ -269,10 +269,10 @@
-
+
Sucursal de cobranza:
-
+
diff --git a/Ventas/RepRecuperacion.aspx.vb b/Ventas/RepRecuperacion.aspx.vb
index ceb4cb2a1..f70a1c15b 100644
--- a/Ventas/RepRecuperacion.aspx.vb
+++ b/Ventas/RepRecuperacion.aspx.vb
@@ -107,7 +107,12 @@ Partial Class Ventas_RepRecuperacion
DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
End If
- If UsuarioActual.CveEmpresa = 119 Then DdlCondicionesPago.SelectedValue = "-1"
+ If UsuarioActual.CveEmpresa = 119 Then DdlCondicionesPago.SelectedValue = "-1"
+
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ DivSPCobranza.Visible = True
+ LblSPCobranza.Visible = True
+ End If
'Carga SubProyectos
'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
diff --git a/Ventas/RepRecuperacionDetalle.aspx b/Ventas/RepRecuperacionDetalle.aspx
index 3941d4e5a..167d3ba8f 100644
--- a/Ventas/RepRecuperacionDetalle.aspx
+++ b/Ventas/RepRecuperacionDetalle.aspx
@@ -281,10 +281,10 @@
-
+
Sucursal de cobranza:
-
+
diff --git a/Ventas/RepRecuperacionDetalle.aspx.vb b/Ventas/RepRecuperacionDetalle.aspx.vb
index 13f129216..211eb6ca9 100644
--- a/Ventas/RepRecuperacionDetalle.aspx.vb
+++ b/Ventas/RepRecuperacionDetalle.aspx.vb
@@ -109,6 +109,11 @@ Partial Class Ventas_RepRecuperacionDetalle
DdlClientes.ddl.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
DdlClientes.ddl.DataBind()
DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+ End If
+
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ DivSPCobranza.Visible = True
+ LblSPCobranza.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(307) <> "" Then DdlGrupo.Items.Add(New ListItem(UsuarioActual.Empresa.Funcionalidad(307), "18"))