AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- mejora visual para colores

Browse Source 
-- limitar visibilidad de vendedores  y técnicos
This commit is contained in:
rrene
2024-07-23 18:27:16 -07:00
parent 9cc711b12a
commit 95014d0b73
3 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Ashx/CargaEventos.ashx
View File

@@ -58,7 +58,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
Dim FechaF As Date = context.Request("end").ToDate Dim FechaF As Date = context.Request("end").ToDate
Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente() Dim Cvecliente As Integer = -1 'DdlClienteSucursalCliente()
Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal() Dim CveClienteSucursal As Integer = -1 ' DdlClienteSucursalSucursal()
Dim CveVendedor As Integer = -1 Dim CveVendedor As Integer = If(context.Request("CveVendedor") IsNot Nothing, context.Request("CveVendedor").ToEntero, -1)
Dim CveEstatus As Integer = -1 Dim CveEstatus As Integer = -1
Dim ObjOS As New ClsOS Dim ObjOS As New ClsOS

7
OS/RepServiciosMedicos.aspx
View File

@@ -151,7 +151,9 @@
<label class="col-md-1 "><asp:Label Visible="false" runat="server" ID="LblSubProyectoFiltro"></asp:Label></label> <label class="col-md-1 "><asp:Label Visible="false" runat="server" ID="LblSubProyectoFiltro"></asp:Label></label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" Visible="false" ClientIDMode="Static" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" Visible="false" DataValueField="CveSubProyecto" DataTextField="SubProyecto" runat="server" CssClass="form-control select2me" Width="150px" AppendDataBoundItems="true"></asp:DropDownList>
<asp:HiddenField ID="HdnCveVendedor" runat="server" Value="-1" ClientIDMode="Static" />
</div> </div>
</div> </div>
</div> </div>
@@ -758,7 +760,8 @@
E: '<%= UsuarioActual.CveEmpresa %>', E: '<%= UsuarioActual.CveEmpresa %>',
METODO: 'servicio_medicos', METODO: 'servicio_medicos',
CveUsuarioPara: $('#DdlTecnico').val(), CveUsuarioPara: $('#DdlTecnico').val(),
CveSubProyecto: $('#DdlSubProyecto').val() CveSubProyecto: $('#DdlSubProyecto').val(),
CveVendedor: $('#HdnCveVendedor').val()
} }
}, },
eventDrop: eventDropped, eventDrop: eventDropped,

12
OS/RepServiciosMedicos.aspx.vb
View File

@@ -259,7 +259,9 @@ Partial Class OS_RepServiciosMedicos
CargaUsuariosTecnicos() CargaUsuariosTecnicos()
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta) CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyectoEtiqueta)
LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text LblSubProyectoFiltro.Text = LblSubProyectoEtiqueta.Text
' LblModalSubProyectoLabel.Text = LblSubProyectoEtiqueta.Text If UsuarioActual.CveVendedor > 0 Then
HdnCveVendedor.Value = UsuarioActual.CveVendedor.ToString
End If
CargaTecnicos() CargaTecnicos()
ConsultaOrdenesServiciosNoAsignadas() ConsultaOrdenesServiciosNoAsignadas()
CargaOrdenesServiciosNoAsignadas() CargaOrdenesServiciosNoAsignadas()
@@ -273,7 +275,7 @@ Partial Class OS_RepServiciosMedicos
Private Sub CargaUsuariosTecnicos() Private Sub CargaUsuariosTecnicos()
If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub ' If not UsuarioActual.TienePermisoProceso(171) Then Exit Sub
Dim DTTecnicosresultado As DataTable = Nothing Dim DTTecnicosresultado As DataTable = Nothing
DTTecnicos = New DataTable DTTecnicos = New DataTable
@@ -295,6 +297,8 @@ Partial Class OS_RepServiciosMedicos
End If End If
ObjOS.Dispose() ObjOS.Dispose()
DTTecnicos = DTTecnicos.FiltraParametros("", DistinctColumns:={"CveUsuario", "Nombre"})
DdlTecnicoAsignar.DataSource = DTTecnicos DdlTecnicoAsignar.DataSource = DTTecnicos
DdlTecnicoAsignar.DataBind() DdlTecnicoAsignar.DataBind()
DdlTecnicoAsignar.Visible = True DdlTecnicoAsignar.Visible = True
@@ -345,6 +349,10 @@ Partial Class OS_RepServiciosMedicos
DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DdlTecnico.DataSource = DTTecnicos 'GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DdlTecnico.DataBind() DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
If UsuarioActual.TienePermisoProceso(376) Then
DdlTecnico.Enabled = False
DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario)
End If
End Sub End Sub
Private Sub CargaTecnicosAsignar() Private Sub CargaTecnicosAsignar()