diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index f5f94aaee..0a47fc29f 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -36,6 +36,7 @@ Public Class CalendarEvent Public Property CvePersonal As Integer Public Property CvePersonal2 As Integer Public Property CveCliente As Integer + Public Property NombreComercial As String Public Property CveProveedor As Integer Public Property CveOS As Integer Public Property CveOSDetalle As Integer diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 69de2e44a..1d1a578d1 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6856,7 +6856,7 @@ Public Class ClsVentas End Function - Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer) As Boolean + Public Function GetComisionesMedicasRep(FechaInicio As Date, FechaFin As Date, CveEmpresa As Integer, CveSubProyecto As Integer, CveProcedimiento As Integer, CveMedico As Integer, CveVendedor As Integer, CveUsuario As Integer, CveTipoVenta As Integer, Opcion As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_ComisionesMedicasRepGet") @@ -6871,6 +6871,7 @@ Public Class ClsVentas .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 0513bd853..f87a5a85d 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -464,6 +464,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.allDay = False cevent.NombreAcercamiento = dr("Ubicacion").ToString cevent.CveCliente = dr("CveCliente").ToString.ToEntero + cevent.NombreComercial = dr("NombreComercial").ToString cevent.CvePersonal = dr("CveChofer").ToString.ToEntero cevent.CvePersonal2 = dr("CveChofer2").ToString.ToEntero cevent.CveEventoEstatus = dr("CveContratosEstatus").ToString.ToEntero @@ -530,6 +531,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) cevent.allDay = False cevent.CveCliente = dr("CveCliente").ToString.ToEntero + cevent.NombreComercial = dr("NombreComercial").ToString cevent.NombreAcercamiento = dr("Ubicacion").ToString cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CvePersonal = dr("CveChofer").ToString.ToEntero diff --git a/Bancos/RepCortes.aspx b/Bancos/RepCortes.aspx index f04019057..9f9830a38 100644 --- a/Bancos/RepCortes.aspx +++ b/Bancos/RepCortes.aspx @@ -243,7 +243,7 @@ - + diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 9387788fc..bd784469f 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -88,7 +88,6 @@ Partial Class Bancos_RepCortes If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then GvDatos.Columns(3).Visible = True GvDatos.Columns(4).Visible = True - GvDatos.Columns(13).Visible = True End If GvP.DataBind() diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4adaacd27..d9e795b6f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5678,7 +5678,7 @@ Partial Class Compras_Compras Dim CveConceptoAfectacion As Integer = 5 'Proveedores Dim CveConceptoOriginal As Integer - If CveTipoConcepto = 2 Then CveConceptoAfectacion = 305 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoAfectacion = 305 'cuando es acreedor If CveMoneda <> 1 Then Select Case CveConceptoAfectacion Case 5 @@ -5690,7 +5690,7 @@ Partial Class Compras_Compras End If Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores - If CveTipoConcepto = 2 Then CveConceptoAfectacionContado = 308 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoAfectacionContado = 308 'cuando es acreedor If CveMoneda <> 1 Then Select Case CveConceptoAfectacionContado Case 17 @@ -6010,7 +6010,7 @@ Partial Class Compras_Compras Case 17 'Pago Proveedores - If CveTipoConcepto = 2 Then ConceptoContable = 308 'cuando es acreedor + If CveTipoConcepto <> 1 Then ConceptoContable = 308 'cuando es acreedor If CveMoneda <> 1 Then Select Case ConceptoContable Case 17 @@ -6114,7 +6114,7 @@ Partial Class Compras_Compras If importeMovimiento <> 0 Then 'Cuando tiene complementaria lo dividimos en dos Dim CveConceptoContableComplementaria As Integer = 206 - If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor + If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 310 'cuando es acreedor importeMN = importeMovimiento If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, importeMovimiento * TipoCambioCompra - importeMovimiento, CveConceptoContableComplementaria, Referencia, Concepto, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=TipoCambioCompra) Then @@ -6890,7 +6890,7 @@ Partial Class Compras_Compras importeMovimiento = 0 End If Case 5 'Proveedores - If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor + If CveTipoConcepto <> 1 Then ConceptoContable = 305 'cuando es acreedor Dim UsaComplementaria As Boolean = True If UsuarioActual.CveEmpresa.Contiene(13, 83) Then UsaComplementaria = False @@ -6911,7 +6911,7 @@ Partial Class Compras_Compras If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}" Dim CveConceptoContableComplementaria As Integer = 201 - If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 307 + If CveTipoConcepto <> 1 Then CveConceptoContableComplementaria = 307 If tipoCambioActual <> 1 Then diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index fbb0b9b55..a50d87edf 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2080,18 +2080,18 @@ Partial Class Inventarios_EntregaAlmacen If Not Cantidad > 0 Then Alert("No se detecto ningun movimiento por hacer. Por favor verifique e intente nuevamente.", TipoMensaje.MsgAdvertencia) Exit Sub - End If - - + End If 'PROCESO , si tiene proceso "176" no lo valida If Not UsuarioActual.TienePermisoProceso(176) Then - For Each Gvr As GridViewRow In GvDatos.Rows - If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then - Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - Next + If Not TipoDocto.Contiene("Dev") Then 'para devoluciones debe de aceptar parcialidades + For Each Gvr As GridViewRow In GvDatos.Rows + If Gvr.DataKey("CantidadF").ToDecimal <> Gvr.FCTextBox("TbCantidadF").Text.ToDecimal Then + Alert("En la factura no se han especificado todos los productos a entregar, favor de especificarlos para poder dar salida.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + Next + End If End If If EsDevolucionVenta = 1 Or TipoDocto.Contiene({"Ped"}) Then diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index f7e559b31..32c956783 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1953,7 +1953,7 @@ Partial Class OC_OC If isWithFamily() Then DdlClasificacion.DataSource = GlobalDTSubFamilias(CveEmpresaActual).FiltraParametros("EstatusCategoria = 'Activo' AND Estatus = 'Activo'") Else - DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual) + DdlClasificacion.DataSource = GlobalDTClasificaciones(CveEmpresaActual).FiltraParametros(" Estatus = 'Activo' ") End If DdlClasificacion.DataBind() @@ -2408,7 +2408,7 @@ Partial Class OC_OC End If 'Entrega Directa requiere Cliente y Vendedor - If ChkEntregaDirecta.Checked And Ddlcliente.txtValue.Value.ToEntero <= 0 Then + If ChkEntregaDirecta.Checked AndAlso Ddlcliente.txtValue.Value.ToEntero <= 0 Then Alert("Al ser una Entrega Directa es necesario seleccionar un cliente, por favor seleccione uno.") Return True End If @@ -2425,11 +2425,19 @@ Partial Class OC_OC Return True End If - If Ddlcliente.txtValue.Value.ToEntero > 0 And DdlVendedor.SelectedValue.ToEntero <= 0 Then + If Ddlcliente.txtValue.Value.ToEntero > 0 AndAlso DdlVendedor.SelectedValue.ToEntero <= 0 Then Alert("Debe de seleccionar Un vendedor ", TipoMensaje.MsgAdvertencia) TieneError = True End If + 'validación EMD/PRISAY, que tengan método de pago + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + If DdlMetodoPago.SelectedValue.ToEntero <= -1 Then + Alert("Debe de seleccionar método de pago.", TipoMensaje.MsgAdvertencia) + Return True + End If + End If + ''validación que para empresas llanteras, y la clasif son llantas, que requiere la fecha de estimación If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index db0c9cfc5..998b74230 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -381,7 +381,7 @@ public class TareasJam : IHttpHandler } - ErrorProceso = true; + //ErrorProceso = true; if (!ErrorProceso) diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index c60a2f43b..2d01f9a80 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -241,7 +241,13 @@
- + <%----%> +
+ + + + +
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index be43ad1ff..9645e1181 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -380,7 +380,7 @@
+ Width="100%" runat="server" Enabled="true">
@@ -389,7 +389,7 @@
@@ -401,6 +401,7 @@ + Seleccione
@@ -469,6 +470,8 @@ + + @@ -665,6 +668,15 @@ $('#<%=TxtAnticipo.ClientID%>').val(event.Anticipo); $('#<%=CveContrato.ClientID%>').val(event.id); + + if (event.NombreComercial !== null) { + $('#HidModClienteNombre').val(''); + } else { + $('#HidModClienteNombre').val(event.NombreComercial); + } + + $('#HidModCveCliente').val(event.CveCliente); + $('#<%=BtnModal.ClientID%>').click(); } diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 383b245e7..d6923c233 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -62,7 +62,7 @@ Partial Class RepContratosCalendario Private Sub CargaCronograma() If DtAvance IsNot Nothing Then - Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"}) + Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", " SubTipoActivoFijo DESC ", {"Codigo"}) 'For Each Row As DataRow In DtAvance.Rows ' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then @@ -122,10 +122,14 @@ Partial Class RepContratosCalendario 'Lista Chofer' DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer.DataBind() - DdlChofer.Items.Insert(0, New ListItem("-", "")) + DdlChofer.Items.Insert(0, New ListItem("Seleccione", "")) + DdlChofer.SelectedValueExist(-1) + DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa) DdlChofer2.DataBind() - DdlChofer2.Items.Insert(0, New ListItem("-", "")) + DdlChofer2.Items.Insert(0, New ListItem("Seleccione", "")) + DdlChofer2.SelectedValueExist(-1) + DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlChoferFiltro.DataBind() @@ -148,7 +152,7 @@ Partial Class RepContratosCalendario DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) 'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) - + UpModal.Update() End Sub Private Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratos.RowDataBound @@ -157,7 +161,23 @@ Partial Class RepContratosCalendario e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor) End If End Sub - Protected Sub MostrarModal(sender As Object, e As System.EventArgs) + Protected Sub MostrarModal(sender As Object, e As System.EventArgs) + + + If HidModClienteNombre.Value = "" Then + HidModClienteNombre.Value = GlobalDTCliente(UsuarioActual.CveEmpresa, -1, HidModCveCliente.Value.ToEntero).FiltroPrimeroValor("NombreComercial") + End If + + DdlClientes.SelectedText = HidModClienteNombre.Value + DdlClientes.SelectedValue = HidModCveCliente.Value + + DdlClientes.txtText.Value = HidModClienteNombre.Value + DdlClientes.txtValue.Value = HidModCveCliente.Value + + + + UpModal.Update() + RegistraScript("$('#ModalActualizar').modal('show');") End Sub diff --git a/UserControl/AddMedico.ascx b/UserControl/AddMedico.ascx index f56e0b0b4..744d019e3 100644 --- a/UserControl/AddMedico.ascx +++ b/UserControl/AddMedico.ascx @@ -1,16 +1,19 @@ <%@ Control Language="VB" AutoEventWireup="false" CodeFile="AddMedico.ascx.vb" Inherits="UserControl_AddMedico" %> -<%----%> + .contenedor-label { + overflow-x: auto; + white-space: nowrap; + } + + .contenedor-fijo { + width: 150px; /* o el ancho que prefieras */ + overflow-x: auto; + white-space: nowrap; + scrollbar-width: none; + } + +
@@ -49,30 +52,22 @@
- + <%----%>
-
-
- - -
- - - - -
- - - - <%----%> - - <%----%> - - -
+
+
+ + +
+
+
+
+ + +
@@ -110,11 +105,13 @@
- + ErrorMessage="ERROR:
El campo ''Correo'' es necesario, por favor ingréselo." ValidationGroup="GrpGuardarMedico">--%> +
@@ -124,8 +121,8 @@
- + <%----%>
diff --git a/UserControl/AddMedico.ascx.vb b/UserControl/AddMedico.ascx.vb index 410e991a0..f2e4d1edf 100644 --- a/UserControl/AddMedico.ascx.vb +++ b/UserControl/AddMedico.ascx.vb @@ -1,6 +1,5 @@ Imports System.Data Imports Extensiones -Imports Profact.TimbraCFDI.Complementos.InstitucionesEducativas Partial Class UserControl_AddMedico Inherits System.Web.UI.UserControl @@ -76,6 +75,58 @@ Partial Class UserControl_AddMedico CargaEspecialidad() CargaSubEspecialidad(-1) CargaVendedores() + LlenarMeses() + End Sub + + + Private Sub LlenarMeses() + + DdlMesNacimiento.Items.Clear() + DdlMesNacimiento.Items.Add(New ListItem("-", "-1")) + DdlMesNacimiento.Items.Add(New ListItem("Enero", "1")) + DdlMesNacimiento.Items.Add(New ListItem("Febrero", "2")) + DdlMesNacimiento.Items.Add(New ListItem("Marzo", "3")) + DdlMesNacimiento.Items.Add(New ListItem("Abril", "4")) + DdlMesNacimiento.Items.Add(New ListItem("Mayo", "5")) + DdlMesNacimiento.Items.Add(New ListItem("Junio", "6")) + DdlMesNacimiento.Items.Add(New ListItem("Julio", "7")) + DdlMesNacimiento.Items.Add(New ListItem("Agosto", "8")) + DdlMesNacimiento.Items.Add(New ListItem("Septiembre", "9")) + DdlMesNacimiento.Items.Add(New ListItem("Octubre", "10")) + DdlMesNacimiento.Items.Add(New ListItem("Nomviembre", "11")) + DdlMesNacimiento.Items.Add(New ListItem("Diciembre", "12")) + + DdlDiaNacimiento.Items.Add(New ListItem("-", "-1")) + For dia As Integer = 1 To 31 + DdlDiaNacimiento.Items.Add(New ListItem(dia.ToString(), dia.ToString())) + Next + + End Sub + Protected Sub DdlMesNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs) + ValidaFechaNacimiento() + End Sub + + Protected Sub DdlDiaNacimiento_SelectedIndexChanged(sender As Object, e As EventArgs) + ValidaFechaNacimiento() + End Sub + + Private Sub ValidaFechaNacimiento() + + + + If DdlDiaNacimiento.SelectedValue.ToEntero > 0 AndAlso DdlMesNacimiento.SelectedValue.ToEntero > 0 Then + + Dim mes As Integer = Integer.Parse(DdlMesNacimiento.SelectedValue) + Dim diasEnMes As Integer = System.DateTime.DaysInMonth(2000, mes) + + If DdlDiaNacimiento.SelectedValue.ToEntero > diasEnMes Then + DdlDiaNacimiento.SelectedValueExist(diasEnMes) + End If + + End If + + UpModal.Update() + End Sub Sub CargaVendedores() @@ -163,7 +214,8 @@ Partial Class UserControl_AddMedico TxtNombre.Text = "" TxtAPellidos.Text = "" TxtCedulaProfesional.Text = "" - TxtFechaNacimiento.Text = "" + DdlMesNacimiento.SelectedTextExist(-1) + DdlDiaNacimiento.SelectedTextExist(-1) TxtNotas.Text = "" TxtMail.Text = "" TxtTelefono.Text = "" @@ -219,7 +271,20 @@ Partial Class UserControl_AddMedico TxtNombre.Text = Nombre TxtAPellidos.Text = Apellidos TxtCedulaProfesional.Text = CedulaProfesional - TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + + 'TxtFechaNacimiento.Text = FechaNacimiento.ToString("dd/MM/yyyy") + + If FechaNacimiento > MinFecha Then + DdlMesNacimiento.SelectedValueExist(FechaNacimiento.Month) + DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing) + DdlDiaNacimiento.SelectedValueExist(FechaNacimiento.Day) + Else + DdlMesNacimiento.SelectedValueExist(-1) + DdlMesNacimiento_SelectedIndexChanged(Nothing, Nothing) + DdlDiaNacimiento.SelectedValueExist(-1) + End If + + TxtNotas.Text = Notas ChkEstatus.Checked = Estatus TxtMail.Text = Mail @@ -240,9 +305,6 @@ Partial Class UserControl_AddMedico LbAgregar.Text = "Actualizar" LtlTituloModal.Text = $"Actualizar Médico {TxtCedulaProfesional.Text}" - - - UpModal.Update() CargaGVMedicoClienteSucursal(CveMedico, UsuarioActual.CveEmpresa) @@ -250,6 +312,7 @@ Partial Class UserControl_AddMedico End Sub + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ProcesoOK = False Dim ObjVentas As New ClsVentas @@ -260,15 +323,20 @@ Partial Class UserControl_AddMedico Dim Telefono As String = If(TxtTelefono.Text = "(___) ___-____", "", TxtTelefono.Text) Dim Celular As String = If(TxtCelular.Text = "(___) ___-____", "", TxtCelular.Text) + Dim FechaNacimiento As Date = MinFecha + If DdlMesNacimiento.SelectedValue.ToEntero > 0 And DdlDiaNacimiento.SelectedValue.ToEntero > 0 Then + FechaNacimiento = New Date(2000, DdlMesNacimiento.SelectedValue.ToEntero, DdlDiaNacimiento.SelectedValue.ToEntero) + End If + If CveMedico > 0 Then - If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + If ObjVentas.UpdateMedico(CveMedico, TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) Then ProcesoOK = True End If Else - CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, TxtFechaNacimiento.Text.ToDate, TxtNotas.Text.Trim, ChkEstatus.Checked, + CveMedicoNuevo = ObjVentas.AddMedico(TxtNombre.Text.Trim, TxtAPellidos.Text.Trim, TxtCedulaProfesional.Text.Trim, FechaNacimiento, TxtNotas.Text.Trim, ChkEstatus.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Telefono, TxtMail.Text, DdlEspecialidad.SelectedValue.ToEntero, Celular, DdlSubEspecialidad.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, CvePeriodoPago:=DdlPeriodoPago.SelectedValue.ToEntero) @@ -590,9 +658,15 @@ Partial Class UserControl_AddMedico End Sub + + #End Region + + + + End Class diff --git a/Ventas/ActualizarPrecios.aspx b/Ventas/ActualizarPrecios.aspx index 16b94cc0f..dd6743fa4 100644 --- a/Ventas/ActualizarPrecios.aspx +++ b/Ventas/ActualizarPrecios.aspx @@ -52,16 +52,18 @@
  • Importar Listado
    • -
  • + - +
  • + Exportar Excel +
    • - + @@ -208,7 +210,8 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    + CssClass="table table-striped table-advance table-hover Widthall ScrollAD" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron registros" + OnRowDataBound="GVPrecios_RowDataBound" > diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 091061b30..aa0f0018d 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -85,6 +85,18 @@ Partial Class Ventas_ActualizarPrecios Set(value As String) ViewState("PS") = value End Set + End Property + + Private Property PermisoEdicionLista As Boolean + Get + If ViewState("BloquearEdicionListas") Is Nothing Then + ViewState("BloquearEdicionListas") = True + End If + Return Boolean.Parse(ViewState("BloquearEdicionListas").ToString) + End Get + Set(value As Boolean) + ViewState("BloquearEdicionListas") = value + End Set End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load @@ -96,8 +108,16 @@ Partial Class Ventas_ActualizarPrecios If UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 193) Then LblModalidad.Visible = True DivModalidad.Visible = True + End If + + If UsuarioActual.TienePermisoProceso(282) Then + PermisoEdicionLista = False + DivActualizarPrecio.Visible = False + HlAgregarExcel.Visible = False End If + CargaCombos() + End If End Sub Public Sub CargaCombos() @@ -244,7 +264,13 @@ Partial Class Ventas_ActualizarPrecios dvDatos.Visible = True dvMultiple.Visible = False + DivActualizarPrecio.Visible = True + + If UsuarioActual.TienePermisoProceso(282) Then + DivActualizarPrecio.Visible = False + End If + GVPrecios.DataBind() End If @@ -916,6 +942,8 @@ Partial Class Ventas_ActualizarPrecios Dim indiceColumna As Integer = (colIndex) Dim TxtId As String = "TxtPrecio_" + (colIndex - 1).ToString() + + Dim Dr As DataRow = DtPreciosMultiple.Rows(e.Row.RowIndex) If Dr IsNot Nothing Then @@ -924,6 +952,7 @@ Partial Class Ventas_ActualizarPrecios Dim Valor As Decimal = DtPreciosMultiple.Rows(e.Row.RowIndex)(indiceColumna).ToString().ToDecimal() e.Row.FCTextBox(TxtId).Text = Valor.FormatoNumero(2) + e.Row.FCTextBox(TxtId).Enabled = PermisoEdicionLista End If End If @@ -995,6 +1024,9 @@ Partial Class Ventas_ActualizarPrecios dvDatos.Visible = DdlModalidad.SelectedValue = "1" DivActualizarPrecio.Visible = DdlModalidad.SelectedValue = "1" + If UsuarioActual.TienePermisoProceso(282) Then + DivActualizarPrecio.Visible = False + End If dvMultiple.Visible = DdlModalidad.SelectedValue = "2" UPPrecioLista.Update() @@ -1131,4 +1163,15 @@ Partial Class Ventas_ActualizarPrecios End Function + + Protected Sub GVPrecios_RowDataBound(sender As Object, e As GridViewRowEventArgs) + + If e.Row.RowType = DataControlRowType.DataRow Then + + e.Row.FCTextBox("TxtPrecio").Enabled = PermisoEdicionLista + e.Row.FCTextBox("TxtPrecioMinimo").Enabled = PermisoEdicionLista + + End If + + End Sub End Class \ No newline at end of file diff --git a/Ventas/CatMedicos.aspx b/Ventas/CatMedicos.aspx index 186e273ff..1b9bae7f4 100644 --- a/Ventas/CatMedicos.aspx +++ b/Ventas/CatMedicos.aspx @@ -42,275 +42,275 @@ - + - - - - + -
    -
    -
    - - -
    -
    -
    + + + +
    +
    +
    + + +
    +
    +
    -
    - Fecha Inicio: +
    + Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - -
    -
    - Fecha Fin: +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: -
    -
    -
    - - - - +
    +
    +
    + + + + +
    + + + + + + +
    + + + +
    + +
    + + + +
    + + Médico + Procedimiento + Clientes + +
    - - - - - -
    +
    + -
    -