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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Sistemas/CatTareasProgramadas.aspx.vb
View File

@@ -120,9 +120,9 @@ Partial Class Sistemas_CatTareasProgramadas
LtlTituloModalTareasProgramadas.Text = "Agregar Tarea Programada"
BtnAgregarTareasProgramadasModal.Text = "Agregar"
DdlTareaProgra.SelectedValue = -1
DdlTareaProgra.SelectedValue = "-1"
DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)
DdlEmpresas.SelectedValue = -1
DdlEmpresas.SelectedValue = "-1"
TxtNumerico.Text = ""
TxtParametros.Text = ""
TxtCorreo.Text = ""
@@ -143,16 +143,16 @@ Partial Class Sistemas_CatTareasProgramadas
Dim recursividadEnDias = 0
If DdlTipoR.SelectedValue.ToString = "D" Then
recursividadEnDias = TxtNumerico.Text
recursividadEnDias = TxtNumerico.Text.ToEntero
ElseIf DdlTipoR.SelectedValue.ToString = "H" Then
recursividadEnHoras = TxtNumerico.Text
recursividadEnHoras = TxtNumerico.Text.ToEntero
ElseIf DdlTipoR.SelectedValue.ToString = "M" Then
recursividadEnMinutos = TxtNumerico.Text
recursividadEnMinutos = TxtNumerico.Text.ToEntero
End If
If Not Actualizar Then
If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
CargadatosGvTareasProgramadas()
@@ -168,7 +168,7 @@ Partial Class Sistemas_CatTareasProgramadas
If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
End If
If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue, DdlTareaProgra.SelectedValue, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
If ObTareasProgra.AddTareasProgramadas(DdlEmpresas.SelectedValue.ToEntero, DdlTareaProgra.SelectedValue.ToEntero, TxtFechaI.Text, "", recursividadEnMinutos, TxtParametros.Text, TxtFechaI.Text, TxtFechaI.Text, TxtCorreo.Text, TxtPlantilla.Text, recursividadEnHoras, recursividadEnDias) Then
CargadatosGvTareasProgramadas()
UpModalTareasProgramadas.Update()
@@ -193,9 +193,9 @@ Partial Class Sistemas_CatTareasProgramadas
Dim ObTareasProgra As New ClsTareasProgramadas
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
CveEmpresa = GvRow.DataKey("CveEmpresa")
Dim activo As Boolean = False
CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
If ObTareasProgra.RemoveTareasProgramadas(CveTareaProgramada, CveEmpresa) Then
CargadatosGvTareasProgramadas()
@@ -216,13 +216,13 @@ Partial Class Sistemas_CatTareasProgramadas
Public Sub Edit_ClickTareasProgramadas(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim activo As Boolean = False
LtlTituloModalTareasProgramadas.Text = "Editar Tarea Programada"
Actualizar = True
CveTareaProgramada = GvRow.DataKey("CveTareaProgramada")
CveEmpresa = GvRow.DataKey("CveEmpresa")
CveTareaProgramada = GvRow.DataKey("CveTareaProgramada").ToEntero
CveEmpresa = GvRow.DataKey("CveEmpresa").ToEntero
DdlTareaProgra.SelectedValueExist(CveTareaProgramada)
DdlTareaProgra_SelectedIndexChanged(Nothing, Nothing)
@@ -230,13 +230,13 @@ Partial Class Sistemas_CatTareasProgramadas
DdlEmpresas.SelectedValueExist(CveEmpresa)
If GvRow.DataKey("RecursividadEnMinutos").ToEntero > 0 Then
TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos").ToEntero
TxtNumerico.Text = GvRow.DataKey("RecursividadEnMinutos")
DdlTipoR.SelectedValue = "M"
ElseIf GvRow.DataKey("RecursividadEnHoras").ToEntero > 0 Then
TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras").ToEntero
TxtNumerico.Text = GvRow.DataKey("RecursividadEnHoras")
DdlTipoR.SelectedValue = "H"
ElseIf GvRow.DataKey("RecursividadEnDias").ToEntero > 0 Then
TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias").ToEntero
TxtNumerico.Text = GvRow.DataKey("RecursividadEnDias")
DdlTipoR.SelectedValue = "D"
End If