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

todos los catálgoos ahora tienen el diseño con ventana modal

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-11-23 18:24:29 -07:00
parent 27867bb874
commit fe64254ef9
18 changed files with 1428 additions and 1100 deletions
Download Patch File Download Diff File Expand all files Collapse all files

112
AC/CatPrograma.aspx.vb
View File

@@ -8,6 +8,15 @@ Imports Extensiones
Partial Class AC_CatPrograma
Inherits ClsPaginas
Private Property CvePrograma() As Integer 'Guardamos el ID de registro para saber cual registro Editar
Get
Return If(IsNothing(ViewState("CvePrograma")), -1, CInt(ViewState("CvePrograma")))
End Get
Set
ViewState("CvePrograma") = Value
End Set
End Property
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
ViewState("Orden") = ""
@@ -34,22 +43,43 @@ Partial Class AC_CatPrograma
End If
End Sub
Protected Sub BtnMostrarModal_Click(sender As Object, e As EventArgs) Handles BtnMostrarModal.Click
TxtPrograma.Text = ""
DdlProgramaCONAC.SelectedValue = "-1"
ChkEstatus.Checked = True
CheckActiveSection.Visible = False
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
Dim ObjPrograma As New ClsAC
If ObjPrograma.AddPrograma(TxtPrograma.Text.Trim, DdlProgramaCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtPrograma.Text = ""
Alert("El Programa se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
If LbAgregar.Text = "Agregar" Then
If ObjPrograma.AddPrograma(TxtPrograma.Text.Trim, DdlProgramaCONAC.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TxtPrograma.Text = ""
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
Alert("El Programa se guardó correctamente.", TipoMensaje.MsgInformacion)
'UpTitulos.Update()
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
End If
Else
If ObjPrograma.UpdatePrograma(TxtPrograma.Text, DdlProgramaCONAC.SelectedValue.ToEntero, ChkEstatus.Checked, CvePrograma) Then
GvDatos.EditIndex = -1
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
End If
End If
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivModal"))
ObjPrograma.Dispose()
End Sub
@@ -59,24 +89,56 @@ Partial Class AC_CatPrograma
End Sub
#Region "G V D A T O S"
Protected Sub LnkEditar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
CvePrograma = GvRow.DataKey("CvePrograma").ToEntero
TxtPrograma.Text = GvRow.DataKey("Programa")
DdlProgramaCONAC.SelectedValue = GvRow.DataKey("CveProgramaCONAC")
CheckActiveSection.Visible = True
ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo"
LbAgregar.Text = "Actualizar"
UpModalTiposD.Update()
RegistraScript(String.Format("$('#{0}').modal();", "DivModal"))
End Sub
Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
Dim ObjPrograma As New ClsAC
If ObjPrograma.RemovePrograma(GvRow.DataKey("CvePrograma").ToEntero) Then
GvDatos.EditIndex = -1
ViewState("DTProgramas") = ObjPrograma.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAC_Programas = ObjPrograma.DtResultados
Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion)
End If
ObjPrograma.Dispose()
If ViewState("Orden").ToString() <> String.Empty Then
CargaGrid(ViewState("Orden").ToString())
Else
CargaGrid("")
End If
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
If e.Row.RowIndex = 0 Then
e.Row.Cells(0).Width = Unit.Pixel(250)
e.Row.Cells(1).Width = Unit.Pixel(150)
e.Row.Cells(2).Width = Unit.Pixel(100)
e.Row.Cells(3).Width = Unit.Pixel(100)
e.Row.Cells(4).Width = Unit.Pixel(100)
e.Row.Cells(5).Width = Unit.Pixel(53)
e.Row.Cells(6).Width = Unit.Pixel(68)
End If
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
'If e.Row.RowIndex = 0 Then
' e.Row.Cells(0).Width = Unit.Pixel(250)
' e.Row.Cells(1).Width = Unit.Pixel(150)
' e.Row.Cells(2).Width = Unit.Pixel(100)
' e.Row.Cells(3).Width = Unit.Pixel(100)
' e.Row.Cells(4).Width = Unit.Pixel(100)
' e.Row.Cells(5).Width = Unit.Pixel(53)
' e.Row.Cells(6).Width = Unit.Pixel(68)
'End If
'e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
e.Row.FCDropDownList("DdlProgramaCONAC").DataSource = GlobalDTAC_ProgramasCONAC
e.Row.FCDropDownList("DdlProgramaCONAC").DataBind()
e.Row.FCDropDownList("DdlProgramaCONAC").SelectedValue = e.Row.DBCampo("CveProgramaCONAC")
End If
'If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
' e.Row.FCDropDownList("DdlProgramaCONAC").DataSource = GlobalDTAC_ProgramasCONAC
' e.Row.FCDropDownList("DdlProgramaCONAC").DataBind()
' e.Row.FCDropDownList("DdlProgramaCONAC").SelectedValue = e.Row.DBCampo("CveProgramaCONAC")
'End If
End If
End Sub