diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index a6b8a70b9..3d1962323 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -67,6 +67,42 @@ + + + +
+
+
+ +
+
+
+ +
+ <%-- --%> + + + general + optima + motobateria + +
+ +
+ + + + + +
+
+
+
+
+
+
+
+
@@ -77,12 +113,12 @@ -
+
- + + +   + + + + +   + +   @@ -201,9 +246,9 @@
- +
- +
@@ -216,10 +261,27 @@
  +
+
+   + + general + optima + motobateria + + +
+
+
+ + + + +
<%--
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index ef5209ca0..795b00dfc 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -38,7 +38,7 @@ Partial Class Acumuladores_CatFoliosGarantia If Not Page.IsPostBack Then CargaSubProyectos() - CargadatosGvFolioGarantia() + CargadatosGvFolioGarantia(-1, "-1") End If End Sub @@ -53,11 +53,11 @@ Partial Class Acumuladores_CatFoliosGarantia DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) End Sub - Private Sub CargadatosGvFolioGarantia() + Private Sub CargadatosGvFolioGarantia(EstatusValor As Integer, tipoFolioValor As String) Dim objAcum As New ClsAcumuladores - If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa) Then + If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=EstatusValor, TipoFolio:=tipoFolioValor) Then GvFolioGarantia.DataSource = objAcum.DtResultados Else GvFolioGarantia.DataSource = Nothing @@ -116,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia If Not Actualizar Then - If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero) Then + If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then TxtFolioGarantia.Text = "" ChkEstatus.Checked = True @@ -125,7 +125,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia() + CargadatosGvFolioGarantia(-1, "-1") RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") UpGral.Update() @@ -135,7 +135,8 @@ Partial Class Acumuladores_CatFoliosGarantia Alert("Ocurrió un error al guardar el Folio de Garantía", TipoMensaje.MsgError) End If Else - If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero) Then + If ObjAcum.FoliosGarantiaUpdate(CveFolioGarantia, TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, DdlSubProyectos.SelectedValue.ToEntero, + DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero) Then TxtFolioGarantia.Text = "" ChkEstatus.Checked = True @@ -144,7 +145,7 @@ Partial Class Acumuladores_CatFoliosGarantia 'TxtCompra.Text = "" 'TxtPuntos.Text = "" - CargadatosGvFolioGarantia() + CargadatosGvFolioGarantia(-1, "-1") UpModalFolioGarantia.Update() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolioGarantia"), "jsHideModalFolioGarantia") @@ -171,7 +172,7 @@ Partial Class Acumuladores_CatFoliosGarantia Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia") If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then - CargadatosGvFolioGarantia() + CargadatosGvFolioGarantia(-1, "-1") Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion) Else @@ -180,7 +181,7 @@ Partial Class Acumuladores_CatFoliosGarantia objAcum.Dispose() - CargadatosGvFolioGarantia() + CargadatosGvFolioGarantia(-1, "-1") CveFolioGarantia = -1 @@ -198,6 +199,8 @@ Partial Class Acumuladores_CatFoliosGarantia TxtFolioGarantia.Text = GvRow.DataKey("FolioGarantia") ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) + TxtLimite.Text = GvRow.DataKey("Limite") + DdlTipoFolioModal.SelectedValue = GvRow.DataKey("tipoFolio") 'TxtCargo.Text = GvRow.DataKey("Cargo").ToDecimal.ToString("###,###,###.00") 'TxtBonificacion.Text = GvRow.DataKey("Bonificacion").ToDecimal.ToString("###,###,###.00") 'TxtCompra.Text = GvRow.DataKey("Compra").ToDecimal.ToString("###,###,###.00") @@ -221,6 +224,8 @@ Partial Class Acumuladores_CatFoliosGarantia #End Region - + Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) + CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue) + End Sub End Class diff --git a/App_Code/ClsAcumuladores.vb b/App_Code/ClsAcumuladores.vb index 56eb8028b..0a9418855 100644 --- a/App_Code/ClsAcumuladores.vb +++ b/App_Code/ClsAcumuladores.vb @@ -483,7 +483,7 @@ Public Class ClsAcumuladores #Region " FOLIOS GARANTÍA " - Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1) As Boolean + Public Function FoliosGarantiaGet(CveFolioGarantia As Integer, CveEmpresa As Integer, Optional Estatus As Integer = -1, Optional TipoFolio As String = "-1") As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -493,6 +493,7 @@ Public Class ClsAcumuladores .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia .Add("@Estatus", SqlDbType.Int).Value = Estatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@tipoFolio", SqlDbType.VarChar).Value = TipoFolio End With Try @@ -507,7 +508,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer) As Boolean + Public Function FoliosGarantiaAdd(FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -520,6 +521,8 @@ Public Class ClsAcumuladores .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio + .Add("@Limite", SqlDbType.Int).Value = Limite End With @@ -535,7 +538,7 @@ Public Class ClsAcumuladores Return Retorno End Function - Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer) As Boolean + Public Function FoliosGarantiaUpdate(CveFolioGarantia As Integer, FolioGarantia As String, Estatus As Integer, CveUsuario As Integer, CveSubProyecto As Integer, TipoFolio As String, Limite As Integer) As Boolean Dim Retorno As Boolean = False 'Data = New DataTable @@ -548,6 +551,8 @@ Public Class ClsAcumuladores .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@TipoFolio", SqlDbType.VarChar).Value = TipoFolio + .Add("@Limite", SqlDbType.Int).Value = Limite End With diff --git a/App_Code/ClsCompProveedores.vb b/App_Code/ClsCompProveedores.vb index 56585d092..b439b1ff9 100644 --- a/App_Code/ClsCompProveedores.vb +++ b/App_Code/ClsCompProveedores.vb @@ -1549,6 +1549,143 @@ Public Class ClsCompProveedores #End Region +#Region "TIPOS CONTRATOS" + + Public Function GetTiposContratos(CveTipoContrato As Integer, CveEmpresa As Integer, Estatus As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el los tipos de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function AddTiposContratos(TipoContrato As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosAdd") + + With SqlAdapter.SelectCommand.Parameters + .Add("@TipoContrato", SqlDbType.VarChar).Value = TipoContrato + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function UpdateTiposContratos(CveTipoContrato As Integer, TipoContrato As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato + .Add("@CveTipoContrato", SqlDbType.VarChar).Value = TipoContrato + .Add("@Estatus", SqlDbType.Bit).Value = Estatus + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function RemoveTiposContratos(CveTipoContrato As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function GetTiposContratosDcumentos(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosDocumentosGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el tipo de contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + Public Function UpdateTiposContratosDocumentos(CveTipoContrato As Integer, CveDocumentacion As Integer, Requerido As Boolean) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Prov_SAT_CatTipoContratosDocumentosUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato + .Add("@CveDocumentacion", SqlDbType.Int).Value = CveDocumentacion + .Add("@Requerido", SqlDbType.Bit).Value = Requerido + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al Obtener los actualizar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region + ' IDisposable #Region " IDisposable Support " diff --git a/Edoc/CatDocumentosContratos.aspx b/Edoc/CatDocumentosContratos.aspx index 25f611602..96906ac70 100644 --- a/Edoc/CatDocumentosContratos.aspx +++ b/Edoc/CatDocumentosContratos.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="RH - Catálogo de Géneros" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentosContratos.aspx.vb" Inherits="Edoc_CatDocumentosContratos" %> +<%@ Page Title="Documentos Contratos" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatDocumentosContratos.aspx.vb" Inherits="Edoc_CatDocumentosContratos" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> @@ -27,394 +27,39 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Tipo de contratoDocumentoRequerido
SubContratosACTA CONSTITUTIVA (PERSONA FISICA NO APLICA) -
-
SubContratosIDENTIFICACION REPRESENTANTE LEGAL
SubContratosPODER REPRESENTANTE LEGAL
SubContratosREGISTRO PATRONAL IMSS
SubContratosREGISTRO ANTE EL SAT
SubContratosPAGOS PROVSIONALES
SubContratosPAGO DEL IMSS
SubContratosPAGO DEL ESTADO
SubContratosOPINION DE CUMPLIMIENTO SAT
SubContratosCARTA DE NO ADEUDO IMSS
SubContratosRELACION DE PERSONAL
SubContratosRECIBOS XML NOMINA
SubContratosREGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)
AcarreosACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)
AcarreosIDENTIFICACION REPRESENTANTE LEGAL
AcarreosPODER REPRESENTANTE LEGAL
AcarreosREGISTRO PATRONAL IMSS
AcarreosREGISTRO ANTE EL SAT
AcarreosPAGOS PROVSIONALES
AcarreosPAGO DEL IMSS
AcarreosPAGO DEL ESTADO
AcarreosOPINION DE CUMPLIMIENTO SAT
AcarreosCARTA DE NO ADEUDO IMSS
AcarreosRELACION DE PERSONAL
AcarreosRECIBOS XML NOMINA
AcarreosREGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)
LimpiezaACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)
LimpiezaIDENTIFICACION REPRESENTANTE LEGAL
LimpiezaPODER REPRESENTANTE LEGAL
LimpiezaREGISTRO PATRONAL IMSS
LimpiezaREGISTRO ANTE EL SAT
LimpiezaPAGOS PROVSIONALES
LimpiezaPAGO DEL IMSS
LimpiezaPAGO DEL ESTADO
LimpiezaOPINION DE CUMPLIMIENTO SAT
LimpiezaCARTA DE NO ADEUDO IMSS
LimpiezaRELACION DE PERSONAL
LimpiezaRECIBOS XML NOMINA
LimpiezaREGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)
MaterialesACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)
MaterialesIDENTIFICACION REPRESENTANTE LEGAL
MaterialesPODER REPRESENTANTE LEGAL
MaterialesREGISTRO PATRONAL IMSS
MaterialesREGISTRO ANTE EL SAT
MaterialesPAGOS PROVSIONALES
MaterialesPAGO DEL IMSS
MaterialesPAGO DEL ESTADO
MaterialesOPINION DE CUMPLIMIENTO SAT
MaterialesCARTA DE NO ADEUDO IMSS
MaterialesRELACION DE PERSONAL
MaterialesRECIBOS XML NOMINA
MaterialesREGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)
AcarreosACTA CONSTITUTIVA (PERSONA FISICA NO APLICA)
AcarreosIDENTIFICACION REPRESENTANTE LEGAL
AcarreosPODER REPRESENTANTE LEGAL
AcarreosREGISTRO PATRONAL IMSS
AcarreosREGISTRO ANTE EL SAT
AcarreosPAGOS PROVSIONALES
AcarreosPAGO DEL IMSS
AcarreosPAGO DEL ESTADO
AcarreosOPINION DE CUMPLIMIENTO SAT
AcarreosCARTA DE NO ADEUDO IMSS
AcarreosRELACION DE PERSONAL
AcarreosRECIBOS XML NOMINA
AcarreosREGISTRO DE OBRA ANTE EL SIROC (SOLAMENTE AL INICIO)
- - <%-- + +
+ - + + - - - - - - - - - - - - - - - + + - - - + + + - - - - + + + + + - - - -
- -   -
-
- - - -
- - - - - -
- - -
--%> + + + + + +
+ + + + + diff --git a/Edoc/CatDocumentosContratos.aspx.vb b/Edoc/CatDocumentosContratos.aspx.vb index fdf7d0d87..9d9e86c54 100644 --- a/Edoc/CatDocumentosContratos.aspx.vb +++ b/Edoc/CatDocumentosContratos.aspx.vb @@ -11,106 +11,42 @@ Partial Class Edoc_CatDocumentosContratos Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDatos() End If End Sub - 'Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarMotivoD.Click - ' RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposContrato")) - 'End Sub - - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click + Private Sub CargaDatos() + Dim ObjProv As New ClsCompProveedores + If ObjProv.GetTiposContratosDcumentos(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjProv.DtResultados + Else + GvDatos.DataSource = Nothing + End If + + ObjProv.Dispose() + + GvDatos.DataBind() 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(250) - ' 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(61) - ' End If - ' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left - ' End If - 'End Sub + Protected Sub ChkRequerido_CheckedChanged(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, CheckBox).NamingContainer, GridViewRow) - 'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting - ' Dim ObjGenero As New ClsRH - ' If ObjGenero.RemoveGenero(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then - ' GvDatos.EditIndex = -1 - ' ViewState("DTGenero") = ObjGenero.DtResultados - ' GlobalDTGenero = ObjGenero.DtResultados - ' Alert("El Género se eliminó correctamente.", TipoMensaje.MsgInformacion) - ' End If + Dim CveTipoContrato As Integer = GvRow.DataKey("CveTipoContrato").ToEntero + Dim CveDocumentacion As Integer = GvRow.DataKey("CveDocumentacion").ToEntero + Dim ChkRequerido As CheckBox = GvRow.FCCheckBox("ChkRequerido") - ' ObjGenero.Dispose() + Dim ObjProv As New ClsCompProveedores - ' If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - ' Else - ' CargaGrid("") - ' End If - 'End Sub + ObjProv.UpdateTiposContratosDocumentos(CveTipoContrato, CveDocumentacion, ChkRequerido.Checked) - '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 - ' CargaGrid(ViewState("Orden").ToString()) - ' Else - ' CargaGrid("") - ' End If - 'End Sub - - 'Protected Sub GvDatos_RowUpdating(sender As Object, e As EventArgs) Handles BtnEditarTiposDModal.Click - ' Dim ObjGenero As New ClsRH - ' Dim Genero As String = GeneroTxt.Text.Trim - ' Dim Estatus As Boolean = ChkEstatus.Checked - ' Dim CveGenero As Integer = CveGeneroAEditar - - ' If ObjGenero.UpdateGenero(Genero, Estatus, CveGenero) Then - ' GvDatos.EditIndex = -1 - ' ViewState("DTGenero") = ObjGenero.DtResultados - ' GlobalDTGenero = ObjGenero.DtResultados - ' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) - ' End If - - ' ObjGenero.Dispose() - - ' If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - ' Else - ' CargaGrid("") - ' End If - 'End Sub - - 'Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs) - ' BtnAgregarTiposDModal.Visible = False - ' BtnEditarTiposDModal.Visible = True - ' CheckActiveSection.Visible = True - ' saltoDeLinea.Visible = True - - ' Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar - ' GeneroTxt.Text = GvRow.DataKey("Genero") - ' ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False) - ' CveGeneroAEditar = Convert.ToInt32(GvRow.DataKey("CveGenero")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating" - - ' UpDatos.Update() - ' If ViewState("Orden").ToString() <> String.Empty Then - ' CargaGrid(ViewState("Orden").ToString()) - ' Else - ' CargaGrid("") - ' End If - ' RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) - 'End Sub -#End Region + ObjProv.Dispose() + End Sub End Class diff --git a/Edoc/CatTipoContratos.aspx b/Edoc/CatTipoContratos.aspx index 77164873c..422b85b15 100644 --- a/Edoc/CatTipoContratos.aspx +++ b/Edoc/CatTipoContratos.aspx @@ -13,7 +13,7 @@
  • - +
  • @@ -28,97 +28,54 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    Tipo de ContratoEstatusUsuarioComandos
    SubContratosActivoSistema
    AcarreosActivoSistema
    LimpiezaActivoSistema
    MaterialesActivoSistema
    - <%-- +
    + - + + - - - - - - - - - - - - - - - + + - + + + + + + + - + + - - -
    - -   -
    -
    + - + - + - + -
    - - -
    --%> - + + + +
    +