diff --git a/Contratos/CatContratosEstatus.aspx b/Contratos/CatContratosEstatus.aspx new file mode 100644 index 000000000..02290d75a --- /dev/null +++ b/Contratos/CatContratosEstatus.aspx @@ -0,0 +1,245 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatContratosEstatus.aspx.vb" Inherits=" Contratos_CatContratosEstatus" %> + + + + + + + + + + + Catálogo de Estado de Orden de Servicio + + + + +
  • + +
    • + +     +     +     + + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + <%--POPUP AGREGAR--%> + + + +     + + + + + + + + + + + + + + bootstrap-colorpicker.min.css + + + + + diff --git a/Contratos/CatContratosEstatus.aspx.vb b/Contratos/CatContratosEstatus.aspx.vb new file mode 100644 index 000000000..93344f055 --- /dev/null +++ b/Contratos/CatContratosEstatus.aspx.vb @@ -0,0 +1,145 @@ +Imports System.Data +Imports Extensiones + +Partial Class Contratos_CatContratosEstatus + Inherits ClsPaginas + +#Region " PROPIEDADES" + + + Private Property CveContratoEstatus As Integer + Get + Return ViewState("CveContratoEstatus").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveContratoEstatus") = value + End Set + End Property + Private Property Modalidad As String + Get + Return ViewState("Modalidad").ToString + End Get + Set(value As String) + ViewState("Modalidad") = value + End Set + End Property +#End Region + + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + CargaDatos() + CveContratoEstatus = -1 + End If + RegistraScript(" $('#TxtBackgroundColor').simpleColorPicker();") + End Sub + + Public Sub CargaDatos() + + Using objEstatus As New ClsContratos + If objEstatus.GetContratosEstatus(UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = objEstatus.DtResultados + End If + End Using + GvDatos.DataBind() + OrdenaDatos() + End Sub + + Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click + + TxtEstatusOS.Text = "" + TxtBackgroundColor.Text = "" + BtnAgregarEstatusCon.Text = "Agregar" + divChkEstatus.Visible = False + UpBodyEstatus.Update() + UpFooter.Update() + RegistraScript("$('#divAddEstatus').modal();LimpiaModal()") + Modalidad = "I" + End Sub + Protected Sub BtnAgregarEstatusCon_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusCon.Click + Dim ObjEstatus As New ClsContratos + Dim TieneError As Boolean = False + + If Modalidad = "I" Then + If ObjEstatus.AddContratoEstatus(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, TxtBackgroundColor.Text.Replace("#", ""), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + Alert("Estatus agregado") + GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) = Nothing + End If + Else + If CveContratoEstatus <> -1 Then + If Not ObjEstatus.UpdateContratoEstatus(CveContratoEstatus, TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, ChkEstatus.Checked, TxtBackgroundColor.Text.Replace("#", ""), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + End If + If Not TieneError Then + GvDatos.EditIndex = -1 + Alert("Estatus actualizado") + GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) = Nothing + Else + Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia) + End If + End If + + + ObjEstatus.Dispose() + CargaDatos() + RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatus")) + UpDatos.Update() + + 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) + End Sub + Public Sub Edit_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + DdlTipoEstatus.SelectedValueExist(GvRow.DataKey("TipoEstatus")) + TxtEstatusOS.Text = GvRow.DataKey("ContratoEstatus") + ChkEstatus.Checked = If(GvRow.DataKey("Estatus").ToString = "True", True, False) + CveContratoEstatus = GvRow.DataKey("CveContratoEstatus").ToEntero + TxtBackgroundColor.Text = "#" & GvRow.DataKey("BackgroundColor") + BtnAgregarEstatusCon.Text = "Actualizar" + divChkEstatus.Visible = True + UpBodyEstatus.Update() + UpAddEstatus.Update() + Modalidad = "A" + RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatus")) + 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 + ' Dim URL As String = String.Format("javascript:LimpiaModal();SetValue('HdnModalidad', 'U');SetValue('HdnID', '{0}');ShowDivRegistro();return false;", e.Row.DBCampo("CveContratoEstatus").ToEntero, e.Row.DBCampo("ContratoEstatus")) + ' 'GeneroLigas + ' Dim Liga As String = String.Format("", URL) + ' e.Row.VerticalAlign = VerticalAlign.Middle + ' e.Row.FCLinkButton("ImgE").OnClientClick = URL + 'End If + End Sub + Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + Dim ObjEstatus As New ClsContratos + Dim CveContratoEstatus As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveContratoEstatus").ToEntero + + If ObjEstatus.RemoveContratoEstatus(CveContratoEstatus, UsuarioActual.CveEmpresa) Then + GvDatos.EditIndex = -1 + GlobalDTContratosEstatus(UsuarioActual.CveEmpresa) = Nothing + Alert("El Estatus de contrato se eliminó correctamente.", TipoMensaje.MsgInformacion) + End If + + ObjEstatus.Dispose() + CargaDatos() + UpDatos.Update() + + End Sub + + +#End Region + +#Region "O R D E N A M I E N T O" + Private Sub OrdenaDatos() + If (GvDatos.Rows.Count > 0) Then + GvDatos.UseAccessibleHeader = True + GvDatos.HeaderRow.TableSection = TableRowSection.TableHeader + RegistraScript("OrdenarGV();") + End If + End Sub +#End Region + +End Class