-- sms, nuevo usuario en indicadores
This commit is contained in:
194
Inicio.aspx.vb
194
Inicio.aspx.vb
@@ -141,112 +141,112 @@ Partial Class Inicio
|
|||||||
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
|
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
|
||||||
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
|
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
|
||||||
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
|
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
|
||||||
MuestraAniversarioLaboral()
|
If UsuarioActual.CveRol = 1 Then MuestraAniversarioLaboral()
|
||||||
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
|
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
|
||||||
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
|
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165, 3960, 4527) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
|
||||||
|
',4527-pamela
|
||||||
|
divsms1.Visible = True
|
||||||
|
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
|
||||||
|
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
|
||||||
|
If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960, 4527) Then 'diego de la concha
|
||||||
|
DdlSMSOpciones.SelectedValue = "2"
|
||||||
|
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
|
||||||
|
DdlSMSVendedores.DataBind()
|
||||||
|
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||||
|
DdlSMSTecnico.DataBind()
|
||||||
|
End If
|
||||||
|
If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas
|
||||||
|
DdlSMSOpciones.SelectedValue = "2"
|
||||||
|
DdlSMSOpciones.Items.RemoveAt(4)
|
||||||
|
DdlSMSOpciones.Items.RemoveAt(3)
|
||||||
|
DdlSMSOpciones.Items.RemoveAt(2)
|
||||||
|
Dim CveGerenteVendedor As Integer = -1
|
||||||
|
If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela
|
||||||
|
If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez
|
||||||
|
|
||||||
divsms1.Visible = True
|
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ")
|
||||||
txtFechaInicioSMS.Text = Now.FirstDayOfMonth.ToString
|
DdlSMSVendedores.DataBind()
|
||||||
txtFechaFinSMS.Text = Now.LastDayOfMonth.ToString
|
DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||||
If UsuarioActual.CveUsuario.Contiene(3964, 4165, 3960) Then 'diego de la concha
|
End If
|
||||||
DdlSMSOpciones.SelectedValue = "2"
|
If UsuarioActual.CveRol = 1577 Then 'vendedores
|
||||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 ")
|
DdlSMSOpciones.SelectedValue = "1"
|
||||||
DdlSMSVendedores.DataBind()
|
DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString))
|
||||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString
|
||||||
DdlSMSTecnico.DataBind()
|
DdlSMSVendedores.Enabled = False
|
||||||
End If
|
DdlSMSOpciones.Enabled = False
|
||||||
If UsuarioActual.CveRol.Contiene(1639) Then 'gerente ventas
|
End If
|
||||||
DdlSMSOpciones.SelectedValue = "2"
|
If UsuarioActual.CveRol = 1578 Then 'almacenista
|
||||||
DdlSMSOpciones.Items.RemoveAt(4)
|
DdlSMSOpciones.SelectedValue = "3"
|
||||||
DdlSMSOpciones.Items.RemoveAt(3)
|
DdlSMSOpciones.Enabled = False
|
||||||
DdlSMSOpciones.Items.RemoveAt(2)
|
End If
|
||||||
Dim CveGerenteVendedor As Integer = -1
|
If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos
|
||||||
If UsuarioActual.CveUsuario = 4419 Then CveGerenteVendedor = 1386 '; --' daniela
|
DdlSMSOpciones.SelectedValue = "5"
|
||||||
If UsuarioActual.CveUsuario = 4137 Then CveGerenteVendedor = 1172 '; --'jesus alvarez
|
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
||||||
|
DdlSMSTecnico.DataBind()
|
||||||
|
DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0)
|
||||||
|
|
||||||
DdlSMSVendedores.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveEstatus=1 and CveSuperior = {CveGerenteVendedor} ")
|
ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos
|
||||||
DdlSMSVendedores.DataBind()
|
DdlSMSOpciones.SelectedValue = "4"
|
||||||
DdlSMSTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
|
DdlSMSOpciones.Enabled = False
|
||||||
End If
|
DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString))
|
||||||
If UsuarioActual.CveRol = 1577 Then 'vendedores
|
DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString
|
||||||
DdlSMSOpciones.SelectedValue = "1"
|
DdlSMSTecnico.Enabled = False
|
||||||
DdlSMSVendedores.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveVendedor.ToString))
|
End If
|
||||||
DdlSMSVendedores.SelectedValue = UsuarioActual.CveVendedor.ToString
|
|
||||||
DdlSMSVendedores.Enabled = False
|
CargaSMSKPI()
|
||||||
DdlSMSOpciones.Enabled = False
|
|
||||||
End If
|
|
||||||
If UsuarioActual.CveRol = 1578 Then 'almacenista
|
|
||||||
DdlSMSOpciones.SelectedValue = "3"
|
|
||||||
DdlSMSOpciones.Enabled = False
|
|
||||||
End If
|
|
||||||
If UsuarioActual.CveUsuario = 3984 Then 'Erick, modalidad de gerente de técnicos
|
|
||||||
DdlSMSOpciones.SelectedValue = "5"
|
|
||||||
DdlSMSTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("CveRol = 1582")
|
|
||||||
DdlSMSTecnico.DataBind()
|
|
||||||
DdlSMSOpciones.Items.RemoveAt(2) : DdlSMSOpciones.Items.RemoveAt(1) : DdlSMSOpciones.Items.RemoveAt(0)
|
|
||||||
|
|
||||||
ElseIf UsuarioActual.CveRol = 1582 Then 'tecnicos
|
|
||||||
DdlSMSOpciones.SelectedValue = "4"
|
|
||||||
DdlSMSOpciones.Enabled = False
|
|
||||||
DdlSMSTecnico.Items.Add(New ListItem(UsuarioActual.Nombre, UsuarioActual.CveUsuario.ToString))
|
|
||||||
DdlSMSTecnico.SelectedValue = UsuarioActual.CveUsuario.ToString
|
|
||||||
DdlSMSTecnico.Enabled = False
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
CargaSMSKPI()
|
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
|
||||||
|
CargaGraficas()
|
||||||
|
End If
|
||||||
|
|
||||||
|
CargaTareas()
|
||||||
|
If UsuarioActual.CveRol = 1 Then
|
||||||
|
divInd.Visible = True
|
||||||
|
CargaSubProyectos()
|
||||||
|
End If
|
||||||
|
|
||||||
|
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
|
||||||
|
|
||||||
|
InicializaCalendar()
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa = 72 Then
|
||||||
|
DivDirectorioTelefonico.Visible = True
|
||||||
|
CargaDirectorioTelefonico()
|
||||||
|
Else
|
||||||
|
DivDirectorioTelefonico.Visible = False
|
||||||
|
End If
|
||||||
|
|
||||||
|
'CARGA COMUNICADO
|
||||||
|
If UsuarioActual.TienePermisoProceso(224) Then
|
||||||
|
LnkAgregar.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
CargaComunicado()
|
||||||
|
|
||||||
|
'Evaluacion del proveedor
|
||||||
|
CargaEvaluacionProveedor()
|
||||||
|
|
||||||
|
CargaDocumentacion()
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
|
||||||
|
LnkInconsistencias.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
IniializaDdlsOpcionesAgenda()
|
||||||
|
|
||||||
|
|
||||||
|
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
||||||
|
DVTareas.Visible = True
|
||||||
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
If (UsuarioActual.CveRol = 1062) Or (UsuarioActual.CveUsuario = 100) Then
|
|
||||||
CargaGraficas()
|
|
||||||
End If
|
|
||||||
|
|
||||||
CargaTareas()
|
|
||||||
If UsuarioActual.CveRol = 1 Then
|
|
||||||
divInd.Visible = True
|
|
||||||
CargaSubProyectos()
|
|
||||||
End If
|
|
||||||
|
|
||||||
'MUESTRA CALENDARIO SOLO ROL ADMINISTRADOR-AD
|
|
||||||
|
|
||||||
InicializaCalendar()
|
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa = 72 Then
|
|
||||||
DivDirectorioTelefonico.Visible = True
|
|
||||||
CargaDirectorioTelefonico()
|
|
||||||
Else
|
|
||||||
DivDirectorioTelefonico.Visible = False
|
|
||||||
End If
|
|
||||||
|
|
||||||
'CARGA COMUNICADO
|
|
||||||
If UsuarioActual.TienePermisoProceso(224) Then
|
|
||||||
LnkAgregar.Visible = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
CargaComunicado()
|
|
||||||
|
|
||||||
'Evaluacion del proveedor
|
|
||||||
CargaEvaluacionProveedor()
|
|
||||||
|
|
||||||
CargaDocumentacion()
|
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.CveRol = 1 Or UsuarioActual.CveUsuario.Contiene(93, 1425, 2, 1606, 1472, 100, 1918) Then
|
|
||||||
LnkInconsistencias.Visible = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
IniializaDdlsOpcionesAgenda()
|
|
||||||
|
|
||||||
|
|
||||||
If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
|
|
||||||
DVTareas.Visible = True
|
|
||||||
End If
|
|
||||||
|
|
||||||
End If
|
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Function GetFacturasCanceladasPendientesWS(objventas As ClsVentas, RFC As String, CveEmpresa As Integer, Optional showalert As Boolean = True) As Boolean
|
Public Function GetFacturasCanceladasPendientesWS(objventas As ClsVentas, RFC As String, CveEmpresa As Integer, Optional showalert As Boolean = True) As Boolean
|
||||||
|
|||||||
Reference in New Issue
Block a user