-- contratos
This commit is contained in:
@@ -85,7 +85,7 @@
|
||||
<div class="portlet solid grey-cascade portlet-filter" id="idnecesaria2">
|
||||
<div class="portlet-title portlet-filterT smalltitle">
|
||||
<div class="tools">
|
||||
<asp:Button ID="Button1" runat="server" Text="Consultar" class="btn btn-primary" />
|
||||
<asp:Button ID="BtnConsultarListado" runat="server" Text="Consultar" class="btn btn-primary" OnClick="BtnConsultarListado_Click" />
|
||||
<a href="javascript:;" class="expand"></a>
|
||||
</div>
|
||||
<div class="titlefiltros caption">
|
||||
@@ -129,13 +129,8 @@
|
||||
|
||||
<label class="col-md-1 ">Cliente:</label>
|
||||
<div class="col-md-2">
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="Dropdownlost1" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
|
||||
<%-- <asp:DropDownList ID="DdlClientes" runat="server" AppendDataBoundItems="true" DataTextField="Nombre" DataValueField="CveCliente" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
|
||||
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>--%>
|
||||
</div>
|
||||
|
||||
|
||||
<ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesFiltro" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;"></ADS:Dropdownlost>
|
||||
</div>
|
||||
<label class="col-md-1 ">Estatus:</label>
|
||||
<div class="col-md-2">
|
||||
<asp:DropDownList ID="DdlEstatusConsulta" runat="server" Class="table-group-action-input form-control input-inline select2me"
|
||||
@@ -251,15 +246,14 @@
|
||||
|
||||
<asp:TemplateField HeaderText="Estatus">
|
||||
<ItemTemplate>
|
||||
<asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus1") %>'>
|
||||
<asp:Label ID="LtlContrato" runat="server" Text='<%# Eval("ContratoEstatus") %>'>
|
||||
</asp:Label>
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
|
||||
<asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Acciones">
|
||||
<ItemTemplate>
|
||||
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" CssClass="miGrid"
|
||||
OnClick="UpdateModal" Text="Actualizar Contrato" />
|
||||
<asp:LinkButton ID="BtnEditar" runat="server" AlternateText="Editar" OnClick="UpdateModal" CssClass="btn btn-circle btn-xs green" Text="<i class='fa fa-pencil'></i>" />
|
||||
</ItemTemplate>
|
||||
</asp:TemplateField>
|
||||
</Columns>
|
||||
@@ -356,8 +350,8 @@
|
||||
<label class="col-md-4">Tipo Unidad</label>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList ID="DdlTipoAF" DataValueField="CveTipoActivoFijo"
|
||||
DataTextField="TipoActivoFijo" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" Height="35px" runat="server" Enabled="false">
|
||||
DataTextField="TipoActivoFijo" Class="form-control input-inline"
|
||||
Width="100%" runat="server" Enabled="false">
|
||||
</asp:DropDownList>
|
||||
|
||||
</div>
|
||||
@@ -369,13 +363,7 @@
|
||||
<asp:DropDownList ID="DdlAF" DataValueField="CveActivoFijo"
|
||||
DataTextField="Descripcion" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVAF" runat="server" ControlToValidate="DdlAF"
|
||||
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Unidad''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco"
|
||||
TargetControlID="RFVAF" Width="400px">
|
||||
</ajax:ValidatorCalloutExtender>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -385,29 +373,16 @@
|
||||
<asp:DropDownList ID="DdlChofer" AppendDataBoundItems="true" DataValueField="CvePersonal"
|
||||
DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVChofer" runat="server" ControlToValidate="DdlChofer"
|
||||
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEChofer" runat="server" HighlightCssClass="vco"
|
||||
TargetControlID="RFVChofer" Width="400px">
|
||||
</ajax:ValidatorCalloutExtender>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row my-1">
|
||||
<label class="col-md-4">Chofer 2</label>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList ID="DdlChofer2" AppendDataBoundItems="true" DataValueField="CvePersonal"
|
||||
DataTextField="NombreCompleto" Class="table-group-action-input form-control input-inline select2me"
|
||||
Width="100%" runat="server">
|
||||
</asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVChofer2" runat="server" ControlToValidate="DdlChofer2"
|
||||
Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Chofer 2''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEChofer2" runat="server" HighlightCssClass="vco"
|
||||
TargetControlID="RFVChofer2" Width="400px">
|
||||
</ajax:ValidatorCalloutExtender>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
@@ -30,38 +30,30 @@ Partial Class RepContratosCalendario
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
|
||||
txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T")
|
||||
txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
|
||||
txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
|
||||
|
||||
If Not IsPostBack Then
|
||||
CargaCombos()
|
||||
InicializaCalendar()
|
||||
CargaDatos()
|
||||
|
||||
End If
|
||||
InicializaCalendar()
|
||||
|
||||
End Sub
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjContratos As New ClsContratos
|
||||
GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
|
||||
' GvContratos.HeaderStyle.ForeColor = Drawing.Color.Black
|
||||
Dim CveCliente As Integer = DdlClientesFiltro.SelectedValue.ToEntero
|
||||
If CveCliente = 0 Then CveCliente = -1
|
||||
|
||||
If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=34) Then
|
||||
If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlClientesFiltro.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
|
||||
GvContratos.DataSource = ObjContratos.DtResultados
|
||||
GvContratos.DataBind()
|
||||
End If
|
||||
|
||||
DtAvance = ObjContratos.DtResultados
|
||||
|
||||
If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
|
||||
|
||||
|
||||
DdlEstatusContrato.DataSource = ObjContratos.DtResultados
|
||||
DdlEstatusContrato.DataBind()
|
||||
DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
|
||||
|
||||
End If
|
||||
|
||||
ObjContratos.Dispose()
|
||||
End Sub
|
||||
Private Sub InicializaCalendar()
|
||||
@@ -92,7 +84,7 @@ Partial Class RepContratosCalendario
|
||||
|
||||
DdlChoferFiltro.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
|
||||
DdlChoferFiltro.DataBind()
|
||||
DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", ""))
|
||||
DdlChoferFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("MedidaVehicularClave IN (2,3)")
|
||||
DdlTipoUnidad.DataBind()
|
||||
@@ -102,6 +94,12 @@ Partial Class RepContratosCalendario
|
||||
DdlEstatusConsulta.DataBind()
|
||||
DdlEstatusConsulta.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
|
||||
DdlEstatusContrato.DataBind()
|
||||
DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
|
||||
|
||||
|
||||
|
||||
CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)
|
||||
|
||||
End Sub
|
||||
@@ -140,54 +138,19 @@ Partial Class RepContratosCalendario
|
||||
TxtDescripcion.Text = GvRow.DataKey("DescripcionContrato")
|
||||
TxtObservaciones.Text = GvRow.DataKey("Observaciones")
|
||||
TxtUbicacion.Text = GvRow.DataKey("Ubicacion")
|
||||
TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm:ss tt")
|
||||
TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm:ss tt")
|
||||
TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy hh:mm tt")
|
||||
TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt")
|
||||
'Requeridos
|
||||
ViewState("Contrato") = GvRow.DataKey("CveContrato")
|
||||
DdlAF.SelectedValue = GvRow.DataKey("CveAF")
|
||||
DdlChofer.SelectedValue = GvRow.DataKey("CveChofer")
|
||||
DdlChofer2.SelectedValue = GvRow.DataKey("CveChofer2")
|
||||
DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer"))
|
||||
DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2"))
|
||||
DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus")
|
||||
|
||||
UpModal.Update()
|
||||
RegistraScript("$('#ModalActualizar').modal('show');")
|
||||
End Sub
|
||||
Protected Sub Consultar(sender As Object, e As EventArgs)
|
||||
Dim fechaInicial As String = txtFechaI.Text
|
||||
Dim fechaFinal As String = txtFechaF.Text
|
||||
|
||||
Dim cliente As String = If(DdlClientes.SelectedValue = "", "", $"C.CveCliente = {DdlClientes.SelectedValue} AND")
|
||||
Dim estatus As String = ""
|
||||
Dim nombreEstatus As String = ""
|
||||
Dim innerEstatus As String = ""
|
||||
|
||||
Dim tipoUnidad As String = ""
|
||||
Dim nombreTipoUnidad As String = ""
|
||||
Dim innerTipoUnidad As String = ""
|
||||
|
||||
Dim chofer As String = ""
|
||||
Dim nombreChofer As String = ""
|
||||
Dim innerChofer As String = ""
|
||||
|
||||
If (DdlEstatusConsulta.SelectedValue <> "") Then
|
||||
estatus = $"C.CveContratosEstatus = {DdlEstatusConsulta.SelectedValue} AND"
|
||||
nombreEstatus = ", CE.ContratoEstatus As ContratoEstatus1"
|
||||
innerEstatus = " INNER JOIN Con_ContratosEstatus CE with(nolock) ON CE.CveContratoEstatus = C.CveContratosEstatus "
|
||||
End If
|
||||
|
||||
If (DdlTIpoUnidad.SelectedValue <> "") Then
|
||||
'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND"
|
||||
'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1"
|
||||
'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus "
|
||||
End If
|
||||
|
||||
If (DdlChofer.SelectedValue <> "") Then
|
||||
'tipoUnidad = $"C.CveContratosEstatus = {DdlTIpoUnidad.SelectedValue} AND"
|
||||
'nombreTipoUnidad = ", CE.ContratoTipoUnidad As ContratoTipoUnidad1"
|
||||
'innerTipoUnidad = " INNER JOIN Con_ContratosTipoUnidad CE with(nolock) ON CE.CveContratoTipoUnidad = C.CveContratosEstatus "
|
||||
End If
|
||||
UpTitulos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click
|
||||
GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
|
||||
@@ -214,4 +177,8 @@ Partial Class RepContratosCalendario
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub BtnConsultarListado_Click(sender As Object, e As EventArgs)
|
||||
CargaDatos()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user