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
    - <%-- +
    + - + + - - - - - - - - - - - - - - - + + - + + + + + + + - + + - - -
    - -   -
    -     + - + - + - + -     - - -     --%> - + + + +
    +