diff --git a/AC/CatClasificacionFuncional.aspx b/AC/CatClasificacionFuncional.aspx index 67fef9632..4a30afbef 100644 --- a/AC/CatClasificacionFuncional.aspx +++ b/AC/CatClasificacionFuncional.aspx @@ -10,162 +10,61 @@ Catálogo de Clasificación Funcional - -    - -   - -   -   - + + +
  • + +
    • +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + +     -
    -
    - - - - - - - - - - - - - - - - - - - - - -
    - - Clasificación Funcional - - - - - Clave - - - - - Estatus - - - - - Fecha - - - - - Usuario - - - Comandos
    - - - - - - - -     -
    -     -     - - - - - - -   - - - - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -   -
    -     - -
    - -
    -     -     - - - - - -     - - -     -     -     -
    -
    + + + + + + + + + + + + + + + + + + + + + + - + - +     diff --git a/AC/CatClasificacionFuncional.aspx.vb b/AC/CatClasificacionFuncional.aspx.vb index 5f689d67b..f5e504a36 100644 --- a/AC/CatClasificacionFuncional.aspx.vb +++ b/AC/CatClasificacionFuncional.aspx.vb @@ -9,6 +9,14 @@ Imports Microsoft.Reporting.WebForms Partial Class AC_CatClasificacionFuncional Inherits ClsPaginas + Private Property CveClasificacionFuncional() As Integer 'Guardamos el ID de registro para saber cual registro Editar + Get + Return If(IsNothing(ViewState("CveClasificacionFuncional")), -1, CInt(ViewState("CveClasificacionFuncional"))) + End Get + Set + ViewState("CveClasificacionFuncional") = Value + End Set + End Property Private Property DtClasificacionFuncional As DataTable Get Return CType(ViewState("DtClasificacionFuncional"), DataTable) @@ -61,51 +69,32 @@ Partial Class AC_CatClasificacionFuncional End If End Sub - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click - Dim ObjClasificacionFuncional As New ClsAC - If ObjClasificacionFuncional.AddClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtClasificacionFuncional.Text = "" - TxtClaveClasificacionFuncional.Text = "" - Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) - UpTitulos.Update() - ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End If - ObjClasificacionFuncional.Dispose() + Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click + TxtClasificacionFuncional.Text = "" + TxtClaveClasificacionFuncional.Text = "" + ChkEstatus.Checked = True + CheckActiveSection.Visible = False + LbAgregar.Text = "Agregar" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional")) End Sub -#Region "G V D A T O S" - 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(400) - e.Row.Cells(1).Width = Unit.Pixel(100) - 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(105) - e.Row.Cells(6).Width = Unit.Pixel(65) - - End If - e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center - End If + 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 + CveClasificacionFuncional = GvRow.DataKey("CveClasificacionFuncional").ToEntero + TxtClasificacionFuncional.Text = GvRow.DataKey("ClasificacionFuncional") + TxtClaveClasificacionFuncional.Text = GvRow.DataKey("ClaveClasificacionFuncional") + CheckActiveSection.Visible = True + ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo" + LbAgregar.Text = "Actualizar" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional")) End Sub - Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjClasificacionFuncional As New ClsAC - If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvRow.DataKey("CveClasificacionFuncional").ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados @@ -121,6 +110,81 @@ Partial Class AC_CatClasificacionFuncional End If End Sub + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ObjClasificacionFuncional As New ClsAC + If LbAgregar.Text = "Agregar" Then + If ObjClasificacionFuncional.AddClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TxtClasificacionFuncional.Text = "" + TxtClaveClasificacionFuncional.Text = "" + Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) + 'UpTitulos.Update() + ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString()) + Else + CargaGrid("") + End If + End If + Else + If ObjClasificacionFuncional.UpdateClasificacionFuncional(TxtClasificacionFuncional.Text.Trim, TxtClaveClasificacionFuncional.Text.Trim, ChkEstatus.Checked, CveClasificacionFuncional) Then + GvDatos.EditIndex = -1 + ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados + Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString()) + Else + CargaGrid("") + End If + End If + End If + ObjClasificacionFuncional.Dispose() + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarClasifFuncional")) + End Sub + +#Region "G V D A T O S" + 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(400) + e.Row.Cells(1).Width = Unit.Pixel(100) + 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(105) + 'e.Row.Cells(6).Width = Unit.Pixel(65) + + End If + e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center + e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center + End If + End Sub + + 'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + ' Dim ObjClasificacionFuncional As New ClsAC + ' If ObjClasificacionFuncional.RemoveClasificacionFuncional(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + ' GvDatos.EditIndex = -1 + ' ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + ' GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados + ' Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion) + ' End If + + ' ObjClasificacionFuncional.Dispose() + + ' If ViewState("Orden").ToString() <> String.Empty Then + ' CargaGrid(ViewState("Orden").ToString()) + ' Else + ' CargaGrid("") + ' End If + 'End Sub + Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit GvDatos.EditIndex = -1 If ViewState("Orden").ToString() <> String.Empty Then @@ -130,32 +194,6 @@ Partial Class AC_CatClasificacionFuncional End If End Sub - Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating - - Dim ObjClasificacionFuncional As New ClsAC - - Dim ClasificacionFuncional As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtClasificacionFuncional"), TextBox).Text.Trim - Dim ClaveClasificacionFuncional As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtClaveClasificacionFuncional"), TextBox).Text.Trim - Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked - Dim CveClasificacionFuncional As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero - - If ObjClasificacionFuncional.UpdateClasificacionFuncional(ClasificacionFuncional, ClaveClasificacionFuncional, Estatus, CveClasificacionFuncional) Then - GvDatos.EditIndex = -1 - ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados - Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - End If - - ObjClasificacionFuncional.Dispose() - - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - - End Sub - Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing GvDatos.EditIndex = e.NewEditIndex @@ -215,11 +253,11 @@ Partial Class AC_CatClasificacionFuncional #End Region #Region " EXPORTAR - PDF - EXCEL " - Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Tbl.ExportToExcel("Catalogo Clasificacion Funcional") End Sub - Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) + Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) ImprimiReporte() End Sub 'No quitar porque no funciona el exporta PDF diff --git a/AC/CatClasificacionGeografica.aspx b/AC/CatClasificacionGeografica.aspx index a5bbabfc4..6d139a988 100644 --- a/AC/CatClasificacionGeografica.aspx +++ b/AC/CatClasificacionGeografica.aspx @@ -11,133 +11,67 @@ Catálogo de Clasificación Geográfica -   - + + +
  • + +
    • +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + +     -
    -
    - - - - - - - - - - - - + + + + + + <%--ItemStyle-Width="250px"--%> + + <%--ItemStyle-Width="100px"--%> + + <%--ItemStyle-Width="120px"--%> + + <%--ItemStyle-Width="100px"--%> + + + + + + + + + + + + - - - - - - - -
    - - Clasificación Geográfica - - - - - Estatus - - - - Fecha - - - - - Usuario - - - Comandos
    - - - -     -
    -     -     - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -   -
    -     - - - -     - - - - - -     - - -     -     -     -
    -
    - - + +     diff --git a/AC/CatClasificacionGeografica.aspx.vb b/AC/CatClasificacionGeografica.aspx.vb index 2e208fe08..3f0bf74c0 100644 --- a/AC/CatClasificacionGeografica.aspx.vb +++ b/AC/CatClasificacionGeografica.aspx.vb @@ -13,6 +13,14 @@ Imports Microsoft.Reporting.WebForms Partial Class AC_CatClasificacionGeografica Inherits ClsPaginas + Private Property CveClasificacionGeografica() As Integer 'Guardamos el ID de registro para saber cual registro Editar + Get + Return If(IsNothing(ViewState("CveClasificacionGeografica")), -1, CInt(ViewState("CveClasificacionGeografica"))) + End Get + Set + ViewState("CveClasificacionGeografica") = Value + End Set + End Property Private Property DtClasificacionGeografica As DataTable Get Return CType(ViewState("DtClasificacionGeografica"), DataTable) @@ -65,24 +73,74 @@ Partial Class AC_CatClasificacionGeografica End If End Sub + Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click + TxtClasificacionGeografica.Text = "" + ChkEstatus.Checked = True + CheckActiveSection.Visible = False + LbAgregar.Text = "Agregar" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional")) + End Sub + + 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 + CveClasificacionGeografica = GvRow.DataKey("CveClasificacionGeografica").ToEntero + TxtClasificacionGeografica.Text = GvRow.DataKey("ClasificacionGeografica") + CheckActiveSection.Visible = True + ChkEstatus.Checked = GvRow.DataKey("Estatus") = "Activo" + LbAgregar.Text = "Actualizar" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional")) + End Sub + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ObjClasificacionGeografica As New ClsAC - If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtClasificacionGeografica.Text = "" - Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) - UpTitulos.Update() - ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados + If LbAgregar.Text = "Agregar" Then + If ObjClasificacionGeografica.AddClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TxtClasificacionGeografica.Text = "" + Alert("El Nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion) + 'UpTitulos.Update() + ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") + End If + Else + If ObjClasificacionGeografica.UpdateClasificacionGeografica(TxtClasificacionGeografica.Text.Trim, ChkEstatus.Checked, CveClasificacionGeografica) Then + GvDatos.EditIndex = -1 + ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.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');", "DivAgregarClasifFuncional")) ObjClasificacionGeografica.Dispose() 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 ObjClasificacionGeografica As New ClsAC + If ObjClasificacionGeografica.RemoveClasificacionGeografica(GvRow.DataKey("CveClasificacionGeografica").ToEntero) Then + GvDatos.EditIndex = -1 + ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados + Alert("El Registro se eliminó correctamente.", TipoMensaje.MsgInformacion) + End If + + ObjClasificacionGeografica.Dispose() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString()) + Else + CargaGrid("") + End If + End Sub + #Region "G V D A T O S" Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -91,16 +149,16 @@ Partial Class AC_CatClasificacionGeografica e.Row.Cells(1).Width = Unit.Pixel(100) e.Row.Cells(2).Width = Unit.Pixel(100) e.Row.Cells(3).Width = Unit.Pixel(100) - e.Row.Cells(4).Width = Unit.Pixel(50) - e.Row.Cells(5).Width = Unit.Pixel(50) + 'e.Row.Cells(4).Width = Unit.Pixel(50) + 'e.Row.Cells(5).Width = Unit.Pixel(50) End If e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center - e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center + 'e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center End If End Sub @@ -215,11 +273,11 @@ Partial Class AC_CatClasificacionGeografica #End Region #Region " EXPORTAR - PDF - EXCEL " - Protected Sub ImgExcel_Click(sender As Object, e As ImageClickEventArgs) + Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Tbl.ExportToExcel("Catalogo Clasificacion Geografica") End Sub - Protected Sub BtnImprimir_Click(sender As Object, e As ImageClickEventArgs) + Protected Sub BtnImprimir_Click(sender As Object, e As EventArgs) ImprimiReporte() End Sub 'No quitar porque no funciona el exporta PDF diff --git a/AC/CatFinalidad.aspx b/AC/CatFinalidad.aspx index da0f3ea8a..afdba0723 100644 --- a/AC/CatFinalidad.aspx +++ b/AC/CatFinalidad.aspx @@ -11,117 +11,150 @@ Catálogo de Finalidad + + +
  • + +
    • +     +
    -
    - - - - - - + + + + + + + + + + +
    - - Finalidad +
    + + + + + + - + - + - + - - - - - - - - - - -
    + + Finalidad - - - - Estatus + + + + Estatus - - - - Fecha + + + + Fecha - - - - Usuario + + + + Usuario - - Comandos
    - - - -     -
    -     -     - - - - - - -   - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    + +
    		Comandos
        +
    +     +     + + + + + + +   + + + + + + + + + + + + + + + + + + + + + + + + + + + +
     
    -     - - - -     - - - - - -     - - -     -     -     + + + + + + + + + + + + + + + + +
    +     diff --git a/AC/CatFinalidad.aspx.vb b/AC/CatFinalidad.aspx.vb index 56e27e2f0..d55f5f545 100644 --- a/AC/CatFinalidad.aspx.vb +++ b/AC/CatFinalidad.aspx.vb @@ -52,6 +52,15 @@ Partial Class AC_CatFinalidad End If End Sub + Protected Sub BtnAgregarClasificacionFuncional_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificacionFuncional.Click + TxtFinalidad.Text = "" + ChkEstatus.Checked = True + CheckActiveSection.Visible = False + LbAgregar.Text = "Agregar" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarClasifFuncional")) + End Sub + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click Dim ObjFinalidad As New ClsAC If ObjFinalidad.AddFinalidad(TxtFinalidad.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then diff --git a/AC/CatFuentesFinanciamiento.aspx b/AC/CatFuentesFinanciamiento.aspx index d74ba75fb..37080fd69 100644 --- a/AC/CatFuentesFinanciamiento.aspx +++ b/AC/CatFuentesFinanciamiento.aspx @@ -10,15 +10,26 @@ Catálogo de Fuentes de Financiamiento - -    - -   - -   + + +
  • + +
    • +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + +     -
    + <%--
    @@ -43,7 +54,7 @@ - <%-- --%> + <%--  Estatus @@ -67,128 +78,49 @@ - - - - - - - - - - + + <%-- - --%> - - - - - - - + - +       - + <%---- - - - - - - - -   - - - - - - - - - -   - - - - - - - - <%-- - -   - - - - - - - - --%> - - -   - - - - - - - - - - - - - - - - - - - - - - - - - -
    - -   -
    -     - - - -     - - - - - -     - - -     -     -
    -
    +
    --%> + + + + + + + + + + + + + + + + + + + + + + + @@ -199,10 +131,10 @@ - - - - + + + + @@ -214,6 +146,50 @@ + +     + --%> diff --git a/AC/CatPrograma.aspx.vb b/AC/CatPrograma.aspx.vb index c51366971..1df045b7d 100644 --- a/AC/CatPrograma.aspx.vb +++ b/AC/CatPrograma.aspx.vb @@ -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 diff --git a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc index c70e81df1..897510c84 100644 --- a/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc +++ b/Contabilidad/Reportes/RepBalanzaComprobacion.rdlc @@ -24,7 +24,6 @@ Textbox1 - 0cm 0.98806cm 20.2388cm + + true + true + + + + + ="Usuario Imprimio: " & Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + +