diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index a4f9b0a36..84fcb8ab7 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -197,13 +197,19 @@ Public Class ClsContratos
#End Region
#Region " C O N T R A T O S "
- Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime) As Boolean
+ Public Function GetContratosReporte(CveEmpresa As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveCliente As Integer, Optional CveEstatus As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional CveTipoAF As Integer = -1, Optional CveChofer As Integer = -1, Optional CveTipoContrato As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Con_ContratosReporteGet")
With SqlAdapter.SelectCommand.Parameters
.Add("@FechaInicial", SqlDbType.DateTime).Value = FechaInicial
.Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal
+ .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+ .Add("@CveEstatus", SqlDbType.Int).Value = CveEstatus
+ .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+ .Add("@CveTipoAF", SqlDbType.Int).Value = CveTipoAF
+ .Add("@CveChofer", SqlDbType.Int).Value = CveChofer
+ .Add("@CveTipoContrato", SqlDbType.Int).Value = CveTipoContrato
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 471b4bdec..e29c96c02 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -85,7 +85,7 @@
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 057c83d93..7db256019 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -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