Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
470
GPS/CatReportesProgramados.aspx.vb
Normal file
470
GPS/CatReportesProgramados.aspx.vb
Normal file
@@ -0,0 +1,470 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports System.IO
|
||||
Imports System.Globalization
|
||||
|
||||
Partial Class GPS_CatReportesProgramados
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
Public Property EsEditar As Integer
|
||||
Get
|
||||
Return ViewState("EsEditar").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("EsEditar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property CveReporteProgramado As Integer
|
||||
Get
|
||||
Return ViewState("CveReporteProgramado").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveReporteProgramado") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Dias As String
|
||||
Get
|
||||
Return ViewState("Dias").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Dias") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Dispositivos As String
|
||||
Get
|
||||
Return ViewState("Dispositivos").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Dispositivos") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Extras As String
|
||||
Get
|
||||
Return ViewState("Extras").ToString
|
||||
End Get
|
||||
Set(value As String)
|
||||
ViewState("Extras") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
EsEditar = 0
|
||||
Dias = ""
|
||||
Dispositivos = ""
|
||||
Extras = ""
|
||||
CargaDdls()
|
||||
CargaDias()
|
||||
CargaDatos()
|
||||
CargaDispositivos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDdls()
|
||||
Dim ObjGPS As New ClsGPS
|
||||
If ObjGPS.GetReportes() Then
|
||||
DdlReporte.DataSource = ObjGPS.DtResultados
|
||||
End If
|
||||
ObjGPS.Dispose()
|
||||
DdlReporte.DataBind()
|
||||
UpAgregar.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDias()
|
||||
Select Case Now.DayOfWeek.ToString
|
||||
Case "Monday"
|
||||
ChkDiasSemana.Items(0).Selected = True
|
||||
Case "Tuesday"
|
||||
ChkDiasSemana.Items(1).Selected = True
|
||||
Case "Wednesday"
|
||||
ChkDiasSemana.Items(2).Selected = True
|
||||
Case "Thursday"
|
||||
ChkDiasSemana.Items(3).Selected = True
|
||||
Case "Friday"
|
||||
ChkDiasSemana.Items(4).Selected = True
|
||||
Case "Saturday"
|
||||
ChkDiasSemana.Items(5).Selected = True
|
||||
Case "Sunday"
|
||||
ChkDiasSemana.Items(6).Selected = True
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDispositivos()
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.DispositivosGet(-1, 1, UsuarioActual.CveCliente) Then
|
||||
GvDispositivos.DataSource = Gps.DtResultados
|
||||
GvDispositivos.DataBind()
|
||||
End If
|
||||
Gps.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaExtras(Extra As Integer)
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.ReportesProgramadosExtrasGet(UsuarioActual.CveCliente, Extra) Then
|
||||
GvExtras.DataSource = Gps.DtResultados
|
||||
GvExtras.DataBind()
|
||||
End If
|
||||
Gps.Dispose()
|
||||
|
||||
UpExtras.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDispositivosReporte(CveReporteProgramado As Integer)
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.ReportesProgramadosDispositivosGet(CveReporteProgramado) Then
|
||||
For Each row As DataRow In Gps.DtResultados.Rows
|
||||
For Each row2 As GridViewRow In GvDispositivos.Rows
|
||||
If row2.DataKey("CveDispositivo").ToEntero = row("CveDispositivo").ToString.ToEntero Then
|
||||
row2.FCCheckBox("Chk").Checked = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Gps.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaExtrasReporte(CveReporteProgramado As Integer, Extra As Integer)
|
||||
|
||||
Select Case Extra
|
||||
|
||||
Case 4 'Evento
|
||||
CargaEventosReporte(CveReporteProgramado)
|
||||
Case 6 'Geocerca
|
||||
CargaGeocercasReporte(CveReporteProgramado)
|
||||
Case 7 'PI
|
||||
CargaPIReporte(CveReporteProgramado)
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGeocercasReporte(CveReporteProgramado As Integer)
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.ReportesProgramadosGeocercasGet(CveReporteProgramado) Then
|
||||
For Each row As DataRow In Gps.DtResultados.Rows
|
||||
For Each row2 As GridViewRow In GvExtras.Rows
|
||||
If row2.DataKey("Cve").ToEntero = row("Cve").ToString.ToEntero Then
|
||||
row2.FCCheckBox("Chk").Checked = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Gps.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPIReporte(CveReporteProgramado As Integer)
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.ReportesProgramadosPIGet(CveReporteProgramado) Then
|
||||
For Each row As DataRow In Gps.DtResultados.Rows
|
||||
For Each row2 As GridViewRow In GvExtras.Rows
|
||||
If row2.DataKey("Cve").ToEntero = row("Cve").ToString.ToEntero Then
|
||||
row2.FCCheckBox("Chk").Checked = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Gps.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaEventosReporte(CveReporteProgramado As Integer)
|
||||
Dim Gps As New ClsGPS
|
||||
If Gps.ReportesProgramadosEventosGet(CveReporteProgramado) Then
|
||||
For Each row As DataRow In Gps.DtResultados.Rows
|
||||
For Each row2 As GridViewRow In GvExtras.Rows
|
||||
If row2.DataKey("Cve").ToEntero = row("Cve").ToString.ToEntero Then
|
||||
row2.FCCheckBox("Chk").Checked = True
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
Next
|
||||
End If
|
||||
Gps.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjGPS As New ClsGPS
|
||||
|
||||
If ObjGPS.ReportesProgramadosGet(UsuarioActual.CveUsuario) Then
|
||||
GvDatos.DataSource = ObjGPS.DtResultados
|
||||
GvDatos.DataBind()
|
||||
End If
|
||||
|
||||
UpDatos.Update()
|
||||
ObjGPS.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub ImgE_Click(sender As Object, e As EventArgs)
|
||||
Dim Boton = CType(sender, LinkButton)
|
||||
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
|
||||
|
||||
CveReporteProgramado = Boton.CommandArgument.ToEntero
|
||||
DdlReporte.SelectedValue = GvRow.DataKey("CveReporte").ToString
|
||||
DdlReporte_SelectedIndexChanged(Nothing, Nothing)
|
||||
DdlFrecuencia.SelectedValue = GvRow.DataKey("TinyFrecuencia").ToString
|
||||
DdlFrecuencia_SelectedIndexChanged(Nothing, Nothing)
|
||||
TxtIntervalo.Text = GvRow.DataKey("Intervalo").ToString
|
||||
'TxtHoraInicio.SetTime(GvRow.DataKey("HorarioInicial").ToDateTime.Hour, GvRow.DataKey("HorarioInicial").ToDateTime.Minute, GvRow.DataKey("HorarioInicial").ToDateTime.Second, If(GvRow.DataKey("HorarioInicial").ToDateTime.ToString("tt", CultureInfo.InvariantCulture) = "PM", MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM))
|
||||
'TxtHoraFin.SetTime(GvRow.DataKey("HorarioFinal").ToDateTime.Hour, GvRow.DataKey("HorarioFinal").ToDateTime.Minute, GvRow.DataKey("HorarioFinal").ToDateTime.Second, If(GvRow.DataKey("HorarioFinal").ToDateTime.ToString("tt", CultureInfo.InvariantCulture) = "PM", MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM))
|
||||
TxtHorarioEnvio.SetTime(GvRow.DataKey("HoraEnvio").ToDateTime.Hour, GvRow.DataKey("HoraEnvio").ToDateTime.Minute, GvRow.DataKey("HoraEnvio").ToDateTime.Second, If(GvRow.DataKey("HoraEnvio").ToDateTime.ToString("tt", CultureInfo.InvariantCulture) = "PM", MKB.TimePicker.TimeSelector.AmPmSpec.PM, MKB.TimePicker.TimeSelector.AmPmSpec.AM))
|
||||
txtFechaI.Text = GvRow.DataKey("FechaI").ToString
|
||||
txtFechaF.Text = GvRow.DataKey("FechaF").ToString
|
||||
TxtCorreo.Text = GvRow.DataKey("Correos").ToString
|
||||
DdlFormato.SelectedValue = GvRow.DataKey("Formato").ToString
|
||||
EsEditar = 1
|
||||
|
||||
'Cargamos los Dias
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Lunes") Then ChkDiasSemana.Items(0).Selected = True Else ChkDiasSemana.Items(0).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Martes") Then ChkDiasSemana.Items(1).Selected = True Else ChkDiasSemana.Items(1).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Miercoles") Then ChkDiasSemana.Items(2).Selected = True Else ChkDiasSemana.Items(2).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Jueves") Then ChkDiasSemana.Items(3).Selected = True Else ChkDiasSemana.Items(3).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Viernes") Then ChkDiasSemana.Items(4).Selected = True Else ChkDiasSemana.Items(4).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Sabado") Then ChkDiasSemana.Items(5).Selected = True Else ChkDiasSemana.Items(5).Selected = False
|
||||
If GvRow.DataKey("NombreDia").ToString.Contains("Domingo") Then ChkDiasSemana.Items(6).Selected = True Else ChkDiasSemana.Items(6).Selected = False
|
||||
|
||||
CargaDispositivosReporte(CveReporteProgramado)
|
||||
CargaExtrasReporte(CveReporteProgramado, DdlReporte.SelectedValue.ToEntero)
|
||||
|
||||
UpBodyEstatus.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#C_GvDispositivos_checkAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "4")
|
||||
|
||||
RegistraScript("$('#divAgregar').modal()", "5")
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click
|
||||
Dim GPS As New ClsGPS
|
||||
|
||||
AgregarDias()
|
||||
AgregarDispositivos()
|
||||
AgregarExtras()
|
||||
|
||||
If Dispositivos = "" AndAlso DdlReporte.SelectedValue <> "9" Then
|
||||
Dias = ""
|
||||
Dispositivos = ""
|
||||
Extras = ""
|
||||
Alert("Debe Seleccionar al menos un Dispostivo", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If DdlReporte.SelectedValue.ToEntero.Contiene(4) AndAlso Extras = "" Then '6, 7, 9
|
||||
Dias = ""
|
||||
Dispositivos = ""
|
||||
Extras = ""
|
||||
|
||||
If DdlReporte.SelectedValue.ToEntero = 4 Then
|
||||
Alert("Debe Seleccionar al menos un Evento", TipoMensaje.MsgAdvertencia)
|
||||
Exit Sub
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 6 Then
|
||||
' Alert("Debe Seleccionar al menos una Geocerca", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 7 Then
|
||||
' Alert("Debe Seleccionar al menos un Punto de Interés", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 9 Then
|
||||
' Alert("Debe Seleccionar al menos un Grupo", TipoMensaje.MsgAdvertencia)
|
||||
' Exit Sub
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim Formato As String = DdlFormato.SelectedValue
|
||||
If EsEditar = 0 Then
|
||||
If GPS.ReportesProgramadosAdd(DdlReporte.SelectedValue.ToEntero, TxtCorreo.Text, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, $"{TxtHorarioEnvio.Hour}:{TxtHorarioEnvio.Minute}:{TxtHorarioEnvio.Second} {TxtHorarioEnvio.AmPm}".ToDateTime, DdlFrecuencia.SelectedValue, If(DivIntervalo.Visible, TxtIntervalo.Text.ToEntero, -1), Dias, Dispositivos, Extras, $"{TxtHoraInicio.Hour}: {TxtHoraInicio.Minute}:{TxtHoraInicio.Second} {TxtHoraInicio.AmPm}".ToDateTime, $"{TxtHoraFin.Hour}:{TxtHoraFin.Minute}:{TxtHoraFin.Second} {TxtHoraFin.AmPm}".ToDateTime, Formato, UsuarioActual.CveUsuario, UsuarioActual.CveCliente) Then
|
||||
Alert("La programacion se agregó correctamente.")
|
||||
LimpiarAgregado()
|
||||
RegistraScript("$('#divAgregar').modal('hide')", "11")
|
||||
End If
|
||||
Else
|
||||
'If GPS.ReportesProgramadosUpdate(CveReporteProgramado, DdlReporte.SelectedValue.ToEntero, TxtCorreo.Text, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, $"{TxtHorarioEnvio.Hour}:{TxtHorarioEnvio.Minute}:{TxtHorarioEnvio.Second} {TxtHorarioEnvio.AmPm}".ToDateTime, DdlFrecuencia.SelectedValue, $"00:00:00 AM".ToDateTime, 0.0, $"00:00:00 AM".ToDateTime, 0, $"{TxtHoraInicio.Hour}:{TxtHoraInicio.Minute}:{TxtHoraInicio.Second} {TxtHoraInicio.AmPm}".ToDateTime, $"{TxtHoraFin.Hour}:{TxtHoraFin.Minute}:{TxtHoraFin.Second} {TxtHoraFin.AmPm}".ToDateTime) Then
|
||||
If GPS.ReportesProgramadosUpdate(CveReporteProgramado, DdlReporte.SelectedValue.ToEntero, TxtCorreo.Text, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, $"{TxtHorarioEnvio.Hour}:{TxtHorarioEnvio.Minute}:{TxtHorarioEnvio.Second} {TxtHorarioEnvio.AmPm}".ToDateTime, DdlFrecuencia.SelectedValue, If(DivIntervalo.Visible, TxtIntervalo.Text.ToEntero, -1), Dias, Dispositivos, Extras, $"{TxtHoraInicio.Hour}: {TxtHoraInicio.Minute}:{TxtHoraInicio.Second} {TxtHoraInicio.AmPm}".ToDateTime, $"{TxtHoraFin.Hour}:{TxtHoraFin.Minute}:{TxtHoraFin.Second} {TxtHoraFin.AmPm}".ToDateTime, Formato, UsuarioActual.CveCliente) Then
|
||||
Alert("La programacion se actualizó correctamente.")
|
||||
LimpiarAgregado()
|
||||
RegistraScript("$('#divAgregar').modal('hide')", "11")
|
||||
End If
|
||||
End If
|
||||
|
||||
Dias = ""
|
||||
Dispositivos = ""
|
||||
Extras = ""
|
||||
|
||||
GPS.Dispose()
|
||||
|
||||
CargaDatos()
|
||||
UpBodyEstatus.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub LimpiarAgregado()
|
||||
DdlReporte.SelectedIndex = 0
|
||||
DdlReporte_SelectedIndexChanged(Nothing, Nothing)
|
||||
DdlFrecuencia.SelectedIndex = 0
|
||||
DdlFrecuencia_SelectedIndexChanged(Nothing, Nothing)
|
||||
TxtIntervalo.Text = ""
|
||||
TxtHoraInicio.SetTime(0, 0, 0, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
|
||||
TxtHoraFin.SetTime(0, 0, 0, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
|
||||
TxtHorarioEnvio.SetTime(0, 0, 0, MKB.TimePicker.TimeSelector.AmPmSpec.AM)
|
||||
txtFechaI.Text = ""
|
||||
txtFechaF.Text = ""
|
||||
TxtCorreo.Text = ""
|
||||
Dispositivos = ""
|
||||
Extras = ""
|
||||
EsEditar = 0
|
||||
LimpiarDias()
|
||||
CargaDispositivos()
|
||||
UpAgregar.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub LimpiarDias()
|
||||
For Each Item As ListItem In ChkDiasSemana.Items
|
||||
Item.Selected = False
|
||||
Next
|
||||
|
||||
CargaDias()
|
||||
End Sub
|
||||
|
||||
Private Sub AgregarDias()
|
||||
For Each Item As ListItem In ChkDiasSemana.Items
|
||||
If Item.Selected Then
|
||||
Dias = Dias + Item.Text + ","
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub AgregarDispositivos()
|
||||
'EN EL CASO DE SALIDA DE PARADAS LOS DISPOSITIVOS VIENEN EN EL GRUPO
|
||||
If DdlReporte.SelectedValue <> "9" Then
|
||||
For Each row As GridViewRow In GvDispositivos.Rows
|
||||
If row.FCCheckBox("Chk").Checked Then
|
||||
Dispositivos = Dispositivos + row.DataKey("CveDispositivo") + ","
|
||||
End If
|
||||
Next
|
||||
Else
|
||||
'Dim ObjGPS As New ClsGPS
|
||||
'For Each row As GridViewRow In GvExtras.Rows
|
||||
' If row.FCCheckBox("Chk").Checked Then
|
||||
' Dim CveGrupo As Integer = row.DataKey("Cve").ToEntero
|
||||
' If ObjGPS.GruposDetallesGet(CveGrupo) Then
|
||||
' For Each Grupos
|
||||
' Dispositivos = Dispositivos + row.DataKey("Cve") + ","
|
||||
' End If
|
||||
' End If
|
||||
'Next
|
||||
'ObjGPS.Dispose()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub AgregarExtras()
|
||||
For Each row As GridViewRow In GvExtras.Rows
|
||||
If row.FCCheckBox("Chk").Checked Then
|
||||
Extras = Extras + row.DataKey("Cve") + ","
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim GPS As New ClsGPS
|
||||
Dim CveReporteProgramado As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveReporteProgramado").ToEntero
|
||||
|
||||
If GPS.ReportesProgramadosDelete(CveReporteProgramado) Then
|
||||
Alert("La programacion se eliminó correctamente.")
|
||||
End If
|
||||
|
||||
GPS.Dispose()
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.VerticalAlign = VerticalAlign.Middle
|
||||
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveReporteProgramado").ToString
|
||||
e.Row.ToolTip = e.Row.DataKey("NombreDia").ToString
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
|
||||
LimpiarAgregado()
|
||||
RegistraScript("$('#divAgregar').modal('hide')", "11")
|
||||
UpBodyEstatus.Update()
|
||||
UpFooter.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub DdlFrecuencia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFrecuencia.SelectedIndexChanged
|
||||
If DdlFrecuencia.SelectedValue = "S" Then
|
||||
DivDia.Visible = True
|
||||
Else
|
||||
DivDia.Visible = False
|
||||
End If
|
||||
|
||||
If DdlFrecuencia.SelectedValue.Contiene("M", "S") Then
|
||||
DivIntervalo.Visible = True
|
||||
Else
|
||||
DivIntervalo.Visible = False
|
||||
End If
|
||||
|
||||
UpAgregar.Update()
|
||||
RegistraScript("$('#C_GvDispositivos_checkAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "1")
|
||||
|
||||
If DdlReporte.SelectedValue.ToEntero.Contiene(4, 6, 7) Then
|
||||
RegistraScript("$('#C_GvExtras_checkAll').click(function () { $(""input[name^='ctl00$C$GvExtras']"").not(this).prop('checked', this.checked); });", "2")
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub linkAgregar_Click(sender As Object, e As EventArgs) Handles linkAgregar.Click
|
||||
LimpiarAgregado()
|
||||
RegistraScript("$('#C_GvDispositivos_checkAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "1")
|
||||
RegistraScript("$('#divAgregar').modal()", "2")
|
||||
End Sub
|
||||
|
||||
Private Sub DdlReporte_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlReporte.SelectedIndexChanged
|
||||
DivDispositivos.Visible = True
|
||||
DivDispositivos.Attributes.Remove("class")
|
||||
DivCuerpo.Attributes.Remove("class")
|
||||
UpAgregar.Attributes.Remove("style")
|
||||
|
||||
If DdlReporte.SelectedValue.ToEntero = 4 Then
|
||||
CargaExtras(3)
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 6 Then
|
||||
' CargaExtras(1)
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 7 Then
|
||||
' CargaExtras(2)
|
||||
'ElseIf DdlReporte.SelectedValue.ToEntero = 9 Then
|
||||
' DivDispositivos.Visible = False
|
||||
' CargaExtras(4)
|
||||
End If
|
||||
|
||||
If DdlReporte.SelectedValue.ToEntero.Contiene(4) Then '6,7,9
|
||||
DivExtras.Visible = True
|
||||
If DdlReporte.SelectedValue.ToEntero <> 9 Then
|
||||
DivDispositivos.Attributes.Add("class", "col-md-4")
|
||||
DivCuerpo.Attributes.Add("class", "col-md-4")
|
||||
DivExtras.Attributes.Add("class", "col-md-4")
|
||||
Else
|
||||
DivExtras.Attributes.Add("class", "col-md-6")
|
||||
DivCuerpo.Attributes.Add("class", "col-md-6")
|
||||
End If
|
||||
RegistraScript("$('#C_UpAgregar').width( 900 )", "1")
|
||||
RegistraScript("$('#C_GvExtras_checkAll').click(function () { $(""input[name^='ctl00$C$GvExtras']"").not(this).prop('checked', this.checked); });", "2")
|
||||
Else
|
||||
DivExtras.Visible = False
|
||||
|
||||
DivDispositivos.Attributes.Add("class", "col-md-6")
|
||||
DivCuerpo.Attributes.Add("class", "col-md-6")
|
||||
RegistraScript("$('#C_UpAgregar').width( 605 )")
|
||||
End If
|
||||
|
||||
RegistraScript("$('#C_GvDispositivos_checkAll').click(function () { $(""input[name^='ctl00$C$GvDispositivos']"").not(this).prop('checked', this.checked); });", "3")
|
||||
UpAgregar.Update()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user