471 lines
20 KiB
VB.net
471 lines
20 KiB
VB.net
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
|