From e59acdd5a505b18b971256181954b034e407ea2c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 24 Jan 2025 20:55:05 -0700 Subject: [PATCH] --Campo sucursal cobranza solo para la func 382 --- CxC/RepCxC.aspx | 4 ++-- CxC/RepCxC.aspx.vb | 5 +++++ CxC/RepCxCDetalle.aspx | 8 +++++--- CxC/RepCxCDetalle.aspx.vb | 5 +++++ Ventas/Clientes.aspx | 2 +- Ventas/Clientes.aspx.vb | 4 ++++ Ventas/RepRecuperacion.aspx | 4 ++-- Ventas/RepRecuperacion.aspx.vb | 7 ++++++- Ventas/RepRecuperacionDetalle.aspx | 4 ++-- Ventas/RepRecuperacionDetalle.aspx.vb | 5 +++++ 10 files changed, 37 insertions(+), 11 deletions(-) diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 71af33d1a..00b590813 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -405,10 +405,10 @@ -
+
Sucursal de cobranza:
-
+
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"))