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 @@
-
-
- <%--
+
+
+
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
-
-
+
+
+
-
-
-
-
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- --%>
+
+
+
+
+
+
+
+
+
+
+
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 Contrato |
- Estatus |
- Usuario |
- Comandos |
-
-
- | SubContratos |
- Activo |
- Sistema |
- |
-
-
- | Acarreos |
- Activo |
- Sistema |
- |
-
-
- | Limpieza |
- Activo |
- Sistema |
- |
-
-
- | Materiales |
- Activo |
- Sistema |
- |
-
-
-
- <%--
+
+
-
+
+
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
-
+
+
+
+
+
+
+
-
+
+
-
-
-
-
-
-
-
+
-
+
-
+
-
+
-
-
-
- --%>
-
+
+
+
+
+