diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index da3261896..f0a7a8aca 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -62,4 +62,8 @@ Public Class CalendarEvent Public Property NumeroContrato As String Public Property Observaciones As String + Public Property CveMoneda As Integer + Public Property Moneda As String + + End Class diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 52d3826f9..6d8b7fdf3 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -684,6 +684,48 @@ Public Class ClsContratos Return Retorno End Function + Public Function GetContratosValUnidadesAgendadas(CveAF As Integer, FechaInicial As DateTime, FechaFinal As DateTime, CveEmpresa As Integer, CveContrato As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Con_ContratosValUnidadesAgendadasGet") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveAF", SqlDbType.Int).Value = CveAF + .Add("@FechaInicial", SqlDbType.DateTime).Value = FechaInicial + .Add("@FechaFinal", SqlDbType.DateTime).Value = FechaFinal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las unidades agendadas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + + + Public Function UpdateContratoArchivo(CveContrato As Integer, Archivo As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Con_ContratosArchivoUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@Archivo", SqlDbType.VarChar).Value = Archivo + .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 archivo adjunto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + #End Region diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index d5dbda671..75b6ae9e5 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -107,12 +107,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState If context.Request("U").ToEntero > 0 Then CveUsuario = context.Request("U").ToEntero - CveEmpresa = context.Request("E").ToEntero - - Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1) - Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1) - - + CveEmpresa = context.Request("E").ToEntero + FI = context.Request("start").ToDate FF = context.Request("end").ToDate @@ -487,168 +483,208 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Dim tipoVista As String = context.Request("tipoVista") DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer)) DT_SubProyectos.Columns.Add("backgroundColor") - DT_EstatusOS.Columns.Add("", GetType(Integer)) - - Dim cveContrato As Integer = -1 + DT_EstatusOS.Columns.Add("", GetType(Integer)) - If context.Request("cveContrato") IsNot Nothing Then - cveContrato = context.Request("cveContrato").ToEntero() + + Dim cveContrato As Integer = If(context.Request("cveContrato") IsNot Nothing, context.Request("cveContrato").ToEntero, -1) + Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1) + Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1) + + Dim CveCliente As Integer = If(context.Request("CveCliente") IsNot Nothing, context.Request("CveCliente").ToEntero, -1) + Dim CveContratoEstatus As Integer = If(context.Request("CveContratoEstatus") IsNot Nothing, context.Request("CveContratoEstatus").ToEntero, -1) + Dim CveTipoActivoFijo As Integer = If(context.Request("CveTipoActivoFijo") IsNot Nothing, context.Request("CveTipoActivoFijo").ToEntero, -1) + Dim CvePersonal As Integer = If(context.Request("CvePersonal") IsNot Nothing, context.Request("CvePersonal").ToEntero, -1) + + If Not cveContrato > 0 Then + cveContrato = -1 + End If + + If Not CveCliente > 0 Then + CveCliente = -1 End If - If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34) Then - - If ObjContratos.DtResultados.Rows.Count > 0 Then - - Try - For Each dr As DataRow In ObjContratos.DtResultados.Rows - Dim cevent As CalendarEvent = New CalendarEvent() - - cevent.id = dr("CveContrato").ToString.ToEntero - cevent.title = dr("DescripcionContrato").ToString - cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) - cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) - cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) - cevent.allDay = False - cevent.NombreAcercamiento = dr("Ubicacion").ToString - cevent.CveCliente = dr("CveCliente").ToString.ToEntero - cevent.NombreComercial = dr("NombreComercial").ToString - cevent.CvePersonal = dr("CveChofer").ToString.ToEntero - cevent.CvePersonal2 = dr("CveChofer2").ToString.ToEntero - cevent.CveEventoEstatus = dr("CveContratosEstatus").ToString.ToEntero - cevent.Dolares = dr("Importe").ToString.ToDecimal - cevent.Pesos = dr("ImporteMax").ToString.ToDecimal - cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal + If ObjContratos.GetContratos(cveContrato, usuarioActual_.CveEmpresa, TipoContrato:=34, CveCliente:=CveCliente, CveEstatus:=CveContratoEstatus) Then + + 'CveTipoAF + 'CveChofer, CveChofer2 + Dim filtro As String = "" + If CveTipoActivoFijo > 0 Then + filtro = $"{filtro} CveTipoAF = {CveTipoActivoFijo}" + End If + + If CvePersonal > 0 Then + If filtro.Length > 0 Then + filtro = $"{filtro} AND " + End If + filtro = $"{filtro} CveChofer = {CvePersonal} OR CveChofer2 = {CvePersonal} " + End If + + + If CveSubProyecto > 0 Then + If filtro.Length > 0 Then + filtro = $"{filtro} AND " + End If + filtro = $"{filtro} CveSubProyecto = {CveSubProyecto} " + End If + + Dim DTContratos As DataTable = ObjContratos.DtResultados.FiltraParametros(filtro) + + If DTContratos.Rows.Count > 0 Then + + Try + For Each dr As DataRow In DTContratos.Rows + Dim cevent As CalendarEvent = New CalendarEvent() + + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.title = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) + cevent.FechaFinal = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) + cevent.allDay = False + cevent.NombreAcercamiento = dr("Ubicacion").ToString + cevent.CveCliente = dr("CveCliente").ToString.ToEntero + cevent.NombreComercial = dr("NombreComercial").ToString + cevent.CvePersonal = dr("CveChofer").ToString.ToEntero + cevent.CvePersonal2 = dr("CveChofer2").ToString.ToEntero + cevent.CveEventoEstatus = dr("CveContratosEstatus").ToString.ToEntero + cevent.Dolares = dr("Importe").ToString.ToDecimal + cevent.Pesos = dr("ImporteMax").ToString.ToDecimal + cevent.Anticipo = dr("ImporteMin").ToString.ToDecimal cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero cevent.CveTipoAF = dr("CveTipoAF").ToString.ToEntero - cevent.backgroundColor = dr("BackgroundColor").ToString - cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString - cevent.NumeroContrato = dr("NumeroContrato").ToString - cevent.Observaciones = dr("Observaciones").ToString - - If Not cevent.recurrenciatipo > 0 Then - - 'AGREGAMOS CUANDO NO ES RECURRENTE - Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) - 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA - If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicial").ToString.ToDateTime > tFecha Then - events.Add(cevent) - End If - Else - - 'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE - - Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero - Dim FI As DateTime, FF As DateTime, FT As DateTime - Dim DiasSemana As String() = cevent.diassemana.Split(","c) - FI = cevent.start.ToDateTime - FF = cevent.end.ToDateTime - - 'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA - Select Case FinRecurrencia - Case -1 - FT = DateAdd(DateInterval.Year, 2, dr("FechaInicial").ToString.ToDateTime) - Case Is > 0 - FinRecurrencia -= 1 - Select Case cevent.recurrenciatipo - Case 1 - FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) - Case 2 - FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) - Case 3 - FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) - FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT) - Case 4 - FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) - Case 5 - FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) - End Select - End Select - - 'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES - Do - If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then - For Each drDias As String In DiasSemana - Dim FIT As Date = FI, FFT As Date = FF - - FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI) - FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF) - - cevent = New CalendarEvent() - cevent.id = dr("CveContrato").ToString.ToEntero - cevent.description = dr("DescripcionContrato").ToString - cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) - cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) - cevent.allDay = False - cevent.CveCliente = dr("CveCliente").ToString.ToEntero - cevent.NombreComercial = dr("NombreComercial").ToString - cevent.NombreAcercamiento = dr("Ubicacion").ToString + cevent.backgroundColor = dr("BackgroundColor").ToString + cevent.CantidadPasajeros = dr("CantidadPasajeros").ToString + cevent.NumeroContrato = dr("NumeroContrato").ToString + cevent.Observaciones = dr("Observaciones").ToString + cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero + cevent.CveMoneda = dr("CveMoneda").ToString.ToEntero + cevent.Moneda = dr("Moneda").ToString + + + If Not cevent.recurrenciatipo > 0 Then + + 'AGREGAMOS CUANDO NO ES RECURRENTE + Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA + If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicial").ToString.ToDateTime > tFecha Then + events.Add(cevent) + End If + Else + + 'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE + + Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero + Dim FI As DateTime, FF As DateTime, FT As DateTime + Dim DiasSemana As String() = cevent.diassemana.Split(","c) + FI = cevent.start.ToDateTime + FF = cevent.end.ToDateTime + + 'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA + Select Case FinRecurrencia + Case -1 + FT = DateAdd(DateInterval.Year, 2, dr("FechaInicial").ToString.ToDateTime) + Case Is > 0 + FinRecurrencia -= 1 + Select Case cevent.recurrenciatipo + Case 1 + FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 2 + FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 3 + FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT) + Case 4 + FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 5 + FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + End Select + End Select + + 'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES + Do + If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then + For Each drDias As String In DiasSemana + Dim FIT As Date = FI, FFT As Date = FF + + FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI) + FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF) + + cevent = New CalendarEvent() + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.description = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) + cevent.allDay = False + cevent.CveCliente = dr("CveCliente").ToString.ToEntero + cevent.NombreComercial = dr("NombreComercial").ToString + cevent.NombreAcercamiento = dr("Ubicacion").ToString cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero - cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero - cevent.CvePersonal = dr("CveChofer").ToString.ToEntero - - - '11/05/2018 - Evento Gasto Recurrente - cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero - If cevent.CveTipoEvento = 10 Then - cevent.Importe = dr("Importe").ToString.ToDouble - End If - - If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then - cevent.backgroundColor = "#1BBC9B" - End If - - 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA - If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicial").ToString.ToDateTime Then - events.Add(cevent) - End If - Next - Else - cevent = New CalendarEvent() - cevent.id = dr("CveContrato").ToString.ToEntero - cevent.description = dr("DescripcionContrato").ToString - cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) - cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) - cevent.NombreAcercamiento = dr("Ubicacion").ToString + cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero + cevent.CvePersonal = dr("CveChofer").ToString.ToEntero + + + '11/05/2018 - Evento Gasto Recurrente + cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero + If cevent.CveTipoEvento = 10 Then + cevent.Importe = dr("Importe").ToString.ToDouble + End If + + If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then + cevent.backgroundColor = "#1BBC9B" + End If + + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA + If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicial").ToString.ToDateTime Then + events.Add(cevent) + End If + Next + Else + cevent = New CalendarEvent() + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.description = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = If(tipoVista = "fecha", String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime.AddHours(1)), String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime)) + cevent.NombreAcercamiento = dr("Ubicacion").ToString cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero - cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero - cevent.allDay = False - - - - 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA - If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then - events.Add(cevent) - End If - End If - - Select Case cevent.recurrenciatipo - Case 1 - FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI) - FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF) - Case 2 - FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI) - FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF) - Case 3 - FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI) - FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF) - Case 4 - FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI) - FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF) - Case 5 - FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI) - FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF) - End Select - - Loop Until FI > FT - End If - Next - Catch ex As Exception - GuardaLog(ex.ToString()) - End Try - End If - - End If - ObjContratos.Dispose() + cevent.CveActivoFijo = dr("CveAF").ToString.ToEntero + cevent.allDay = False + + + + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA + If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then + events.Add(cevent) + End If + End If + + Select Case cevent.recurrenciatipo + Case 1 + FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF) + Case 2 + FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF) + Case 3 + FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF) + Case 4 + FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF) + Case 5 + FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF) + End Select + + Loop Until FI > FT + End If + Next + Catch ex As Exception + GuardaLog(ex.ToString()) + End Try + End If + + End If + ObjContratos.Dispose() Return ErrorEventos End Function diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 0c556ae5a..722ac2d7f 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2852,7 +2852,7 @@ Partial Class Compras_eFacturas Protected Sub LnkSolicitarSat_Click(ByVal sender As Object, ByVal e As EventArgs) - Exit Sub + Dim sbResultado As StringBuilder = New StringBuilder() Dim idSolicitudCFDI As Integer = 0 diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index eb0470f9f..5812337ce 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -117,8 +117,7 @@
- - +
@@ -136,6 +135,21 @@
+
+ +
+ + + +
+
+ +
+
+
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index c56d1e3f3..a50e74d4c 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -125,6 +125,15 @@ Partial Class RepContratoDetalle 'Lista de Monedas DdlMoneda.DataSource = GlobalDTMonedas DdlMoneda.DataBind() + + + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) + + DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + End Sub Private Sub CargaDatos() 'Información General @@ -139,7 +148,7 @@ Partial Class RepContratoDetalle SubProyecto = Contrato.Rows(0)("SubProyecto").ToString CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero LbFolio.Text = Contrato.Rows(0)("NumeroContrato").ToString - LbCveSubProyecto.Text = Contrato.Rows(0)("CveSubProyecto").ToString + DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString @@ -147,13 +156,14 @@ Partial Class RepContratoDetalle TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString - TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString - TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString + TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") + TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss") TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString) TxtImporte.Text = Math.Round(Importe, 2).ToString TxtAnticipo.Text = Math.Round(Anticipo, 2).ToString CveContratoEstatus = Contrato.Rows(0)("CveContratosEstatus").ToString.ToEntero + DdlSubProyecto.SelectedValueExist(Contrato.Rows(0)("CveSubProyecto").ToString) If Not IsDBNull(ObjContratos.Archivo) AndAlso ObjContratos.Archivo <> "" AndAlso ObjContratos.Archivo <> "-1" AndAlso ObjContratos.Archivo <> $"{ObjContratos.CveContrato}." Then ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "CONTRATOS", ObjContratos.Archivo) @@ -277,7 +287,7 @@ Partial Class RepContratoDetalle ObjContratos.IniciaTransacSQL() Try If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", - LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, + DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then Alert("Contrato actualizado correctamente") End If diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index 69f5d475e..f35f0f535 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -262,7 +262,8 @@
-
@@ -273,6 +274,28 @@
+ + +
+ +
+
+ + + + + + <%--
+ +
--%> +
+
+
+
@@ -323,18 +346,16 @@
- + > -
- -
+
@@ -344,18 +365,16 @@
- + > -
- -
+
@@ -468,10 +487,10 @@ Text="Agregar" ValidationGroup="GrpGuardar"> - + aria-hidden="true">Subir Archivo--%>
diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index e77e81d96..f1b92413e 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -51,6 +51,11 @@ Partial Class ListadoContratos DdlEstatus.DataBind() DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1")) + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) + + DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoModal.DataBind() + DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) End Sub Private Sub CargaDatos() Dim ObjContratos As New ClsContratos @@ -91,27 +96,102 @@ Partial Class ListadoContratos End Sub Protected Sub AddContrato(sender As Object, e As EventArgs) + Dim ErrorProceso As Boolean = False + Dim CveContrato As Integer = -1 + + Dim FileExtension As String = "-1" + Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos + Dim Filename As String = "" + Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos") + + If Not Directory.Exists(folderContratosPath) Then + Directory.CreateDirectory(folderContratosPath) + End If + + If DdlClientes.SelectedValue = "" Then Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia) Exit Sub End If - Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero + 'Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero 'Agregamos Contrato Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then - ObjContratos.Commit() - Alert("Agregado Correctamente.") + + CveContrato = ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", + DdlSubProyectoModal.SelectedValue.ToEntero, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, + DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, + CveVendedor:=UsuarioActual.CveVendedor) + + If CveContrato > 0 Then + + If Filesgral.Count > 0 Then + + For Each fileItem As Archivo In Filesgral + + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") + Dim tempArray() As String + tempArray = fileItem.filename.ToString().Split("-".ToCharArray()) + Dim fDestino = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", $"{CveContrato.ToString}.{ FileExtension}") + + Try + If File.Exists(fDestino) Then + File.Delete(fDestino) + End If + + File.Move(fileItem.FileUrl, fDestino) + + If Not File.Exists(fDestino) Then + ErrorProceso = True + End If + + If ObjContratos.UpdateContratoArchivo(CveContrato, $"{CveContrato.ToString}.{ FileExtension}", UsuarioActual.CveEmpresa) Then + ErrorProceso = False + End If + + Catch ex As Exception + ErrorProceso = True + End Try + + + Exit For + Next + + Else + ErrorProceso = False + End If + Anexo.Text = "" + + Else + ErrorProceso = True End If - ObjContratos.Dispose() + 'Aumentamos Folio - Dim ObjFolios As New ClsGralFolios - If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then - ObjFolios.Dispose() + Dim ObjFolios As New ClsGralFolios(ObjContratos.IniciaTransacSQL()) + If Not ObjFolios.UpdateFolioActual(DdlSubProyectoModal.SelectedValue.ToEntero, "Con", True, UsuarioActual.CveEmpresa) Then + ErrorProceso = True End If + + If Not ErrorProceso Then + ObjContratos.Commit() + Alert("Agregado Correctamente.") + Else + ObjContratos.RollBack() + Alert("Se presento un error al guardar el contrato.", TipoMensaje.MsgAdvertencia) + End If + + ObjContratos.Dispose() + + ResetModal() + + CargaDatos() + RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1") + End Sub + + Protected Sub ResetModal() 'Reiniciamos modal TxtDescripcion.Text = "" TxtFechaSalida.Text = "" @@ -119,6 +199,7 @@ Partial Class ListadoContratos TxtObservaciones.Text = "" TxtUbicacion.Text = "" DdlClientes.SelectedText = "" + DdlSubProyectoModal.SelectedValueExist(-1) DdlTipoAF.SelectedValueExist(-1) TxtImporte.Text = "" TxtAnticipo.Text = "" @@ -126,8 +207,6 @@ Partial Class ListadoContratos LbArchivo.Text = "" UpModal.Update() - CargaDatos() - RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1") End Sub Protected Sub LnkExcel_Click(sender As Object, e As EventArgs) Handles LnkExcel.Click GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index 9902036ff..9eae17ef2 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -46,7 +46,7 @@ <%-- Filtros --%> -
+
<%-- Filtro Visible - Consulta --%>
@@ -103,7 +103,7 @@ <%-- Estatus --%>
- @@ -118,7 +118,7 @@
@@ -126,7 +126,7 @@
@@ -134,7 +134,7 @@
@@ -148,7 +148,7 @@
<%--Calendario Tab--%> - +
@@ -208,7 +208,7 @@ + data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda,Moneda,CveSubProyecto"> @@ -358,6 +358,17 @@
+
+ +
+ + + +
+
+
@@ -401,7 +412,7 @@
- +
@@ -601,12 +612,22 @@ yAxis.data.setAll(categorias); + // Obtener valores de las cajas de texto + var fechaI = document.getElementById('<%= txtFechaI.ClientID %>').value; + var fechaF = document.getElementById('<%= txtFechaF.ClientID %>').value; + + // Convertir valores a objetos Date + var minDate = new Date(fechaI.split("/").reverse().join("-")); + var maxDate = new Date(fechaF.split("/").reverse().join("-")); + dateAxis = am5xy.DateAxis.new(root, { - baseInterval: { timeUnit: "minute", count: 1 }, + baseInterval: { timeUnit: "day", count: 1 }, renderer: am5xy.AxisRendererX.new(root, { minorGridEnabled: true, minGridDistance: 90 - }) + }), + min: minDate.getTime(), + max: maxDate.getTime() //min: new Date(2024, 6, 15).getTime(), //max: new Date(2024, 6, 31).getTime() }); @@ -752,10 +773,17 @@ $('#<%=DdlEstatusContrato.ClientID%>').val(event.CveEventoEstatus); $('#<%=TxtDolares.ClientID%>').val(event.Dolares); $('#<%=TxtPesos.ClientID%>').val(event.Pesos); + $('#<%=TxtMoneda.ClientID%>').val(event.Moneda); + + //document.getElementById('<%= TxtMoneda.ClientID %>').value = event.Moneda; + $('#<%=TxtAnticipo.ClientID%>').val(event.Anticipo); $('#<%=HdnCveContrato.ClientID%>').val(event.id); $('#<%=DdlTipoAF.ClientID%>').val(event.CveTipoAF); + $('#<%=DdlSubProyectoModal.ClientID%>').val(event.CveSubProyecto); + + // alert(event.Moneda); if (event.NombreComercial !== null) { @@ -769,29 +797,46 @@ } + function formatearFechaISO(fechaISO) { + let fecha = new Date(fechaISO); - function formatearFechaISO(fechaISO) { - let fecha = new Date(fechaISO); + // Formatear la fecha en DD/MM/YYYY + let dia = fecha.getDate().toString().padStart(2, '0'); + let mes = (fecha.getMonth() + 1).toString().padStart(2, '0'); // getMonth() devuelve mes de 0-11 + let año = fecha.getFullYear(); + + // Formatear la hora en formato 24 horas + let horas = fecha.getHours().toString().padStart(2, '0'); + let minutos = fecha.getMinutes().toString().padStart(2, '0'); + let segundos = fecha.getSeconds().toString().padStart(2, '0'); + + // Combinar la fecha y la hora + return `${dia}/${mes}/${año} ${horas}:${minutos}:${segundos}`; + } + + + //function formatearFechaISO(fechaISO) { + // let fecha = new Date(fechaISO); - // Formatear la fecha en DD/MM/YYYY - let dia = fecha.getDate().toString().padStart(2, '0'); - let mes = (fecha.getMonth() + 1).toString().padStart(2, '0'); // getMonth() devuelve mes de 0-11 - let año = fecha.getFullYear(); + // // Formatear la fecha en DD/MM/YYYY + // let dia = fecha.getDate().toString().padStart(2, '0'); + // let mes = (fecha.getMonth() + 1).toString().padStart(2, '0'); // getMonth() devuelve mes de 0-11 + // let año = fecha.getFullYear(); - // Formatear la hora en formato 12 horas con AM/PM - let horas = fecha.getHours(); - let minutos = fecha.getMinutes().toString().padStart(2, '0'); - let periodo = 'a. m.'; - if (horas >= 12) { - periodo = 'p. m.'; - horas = horas > 12 ? horas - 12 : horas; // Convertir hora de formato 24 a 12 horas - } - if (horas === 0) horas = 12; // Medianoche se muestra como 12 a.m. - horas = horas.toString().padStart(2, '0'); + // // Formatear la hora en formato 12 horas con AM/PM + // let horas = fecha.getHours(); + // let minutos = fecha.getMinutes().toString().padStart(2, '0'); + // let periodo = 'a. m.'; + // if (horas >= 12) { + // periodo = 'p. m.'; + // horas = horas > 12 ? horas - 12 : horas; // Convertir hora de formato 24 a 12 horas + // } + // if (horas === 0) horas = 12; // Medianoche se muestra como 12 a.m. + // horas = horas.toString().padStart(2, '0'); - // Combinar la fecha y la hora - return `${dia}/${mes}/${año} ${horas}:${minutos}:00 ${periodo}`; - } + // // Combinar la fecha y la hora + // return `${dia}/${mes}/${año} ${horas}:${minutos}:00 ${periodo}`; + //} function RadionButtonSelectedValueSet(name, SelectdValue) { $('input[name="' + name + '"][value="' + SelectdValue + '"]').prop('checked', true); @@ -905,7 +950,11 @@ tipoVista: '<%= RBTipoVista.Text %>', METODO: 'contrato_transportes', CveUsuarioPara: $('#DdlTecnico').val(), - CveSubProyecto: $('#DdlSubProyecto').val() + CveSubProyecto: $('#DdlSubProyecto').val(), + CveCliente: $('#C_DdlCliente_Value').val(), + CveContratoEstatus: $('#DdlEstatusConsulta').val(), + CveTipoActivoFijo: $('#DdlTipoUnidad').val(), + CvePersonal: $('#DdlChoferFiltro').val() } }, eventDrop: eventDropped, @@ -944,6 +993,16 @@ } + function TabAltaClicked(sender, e) { + + setTimeout(function () { + InitCalendar(); + + }, 10); + + } + + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index ce5475750..5ff342023 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -75,6 +75,8 @@ Partial Class RepContratosCalendario GvContratos.DataBind() UpTitulos.Update() + RegistraScript("InitCalendar();") + End Sub Public Shared Function GetLastDayOfMonth(ByVal dateTime As DateTime) As DateTime @@ -157,7 +159,7 @@ Partial Class RepContratosCalendario DdlTipoUnidad.DataBind() 'Lista de Activos fijos - DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) + DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros(" EstadoActivoFijo= 'Activo' ") DdlAF.DataBind() DdlAF.Items.Insert(0, New ListItem("-", "-1")) @@ -187,7 +189,13 @@ Partial Class RepContratosCalendario DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyectos.DataBind() - DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1")) + + CargarCentrosDeCosto(Nothing, Nothing, Nothing, LblSubProyectoModal) + + DdlSubProyectoModal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) + DdlSubProyectoModal.DataBind() + DdlSubProyectoModal.Items.Insert(0, New ListItem("Seleccione uno", "-1")) 'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto) UpModal.Update() @@ -196,7 +204,8 @@ Partial Class RepContratosCalendario Private Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Dim BackgroundColor As String = DataBinder.Eval(e.Row.DataItem, "BackgroundColor").ToString() - e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor) + e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor) + e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaInicial").ToDate.Ticks.ToString) End If End Sub Protected Sub MostrarModal(sender As Object, e As System.EventArgs) @@ -219,15 +228,40 @@ Partial Class RepContratosCalendario Protected Sub UpdateContrato(sender As Object, e As EventArgs) Dim ObjContratos As New ClsContratos - If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then - RegistraScript("$('#ModalActualizar').modal('hide');") + Dim DTAgendadados As New DataTable + If ObjContratos.GetContratosValUnidadesAgendadas(DdlAF.SelectedValue.ToEntero, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, UsuarioActual.CveEmpresa, CveContrato) Then + + DTAgendadados = ObjContratos.DtResultados.Copy + + If DTAgendadados.Rows.Count > 0 Then + Dim sb As New StringBuilder + sb.Append($"Se detectaron Contratos con la unidad {DdlAF.SelectedItem.Text} asignada en las fechas especificadas.

") + For Each dr As DataRow In DTAgendadados.Rows + sb.AppendLine($"Contrato: {dr("NumeroContrato").ToString }, Salida: {dr("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")}, Regreso: {dr("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")}
") + Next + + Alert(sb.ToString, TipoMensaje.MsgAdvertencia) + DTAgendadados.Dispose() + ObjContratos.Dispose() + Exit Sub + + End If + + End If + + + If ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", -1, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", DdlSubProyectoModal.SelectedValue.ToEntero, + -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, -1, 0, CveContratoTipo:=34, CveContratosEstatus:=DdlEstatusContrato.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveChofer2:=DdlChofer2.SelectedValue.ToEntero, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveAF:=DdlAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text.Trim) Then + RegistraScript("$('#ModalActualizar').modal('hide');") Alert("Actualizado Correctamente.") End If - ObjContratos.Dispose() - UpTitulos.Update() - CargaDatos() - InicializaCalendar() + ObjContratos.Dispose() + + UpTitulos.Update() + CargaDatos() + InicializaCalendar() + End Sub Protected Sub UpdateModal(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) @@ -238,14 +272,15 @@ 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 tt") - TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy hh:mm tt") - TxtMoneda.Text = GvRow.DataKey("CveMoneda") + TxtFechaSalida.Text = Convert.ToDateTime(GvRow.DataKey("FechaInicial")).ToString("dd/MM/yyyy HH:mm:ss") + TxtFechaRegreso.Text = Convert.ToDateTime(GvRow.DataKey("FechaFinal")).ToString("dd/MM/yyyy HH:mm:ss ") + TxtMoneda.Text = GvRow.DataKey("Moneda") 'Requeridos - DdlAF.SelectedValue = GvRow.DataKey("CveAF") + DdlAF.SelectedValueExist(GvRow.DataKey("CveAF")) DdlChofer.SelectedValueExist(GvRow.DataKey("CveChofer")) DdlChofer2.SelectedValueExist(GvRow.DataKey("CveChofer2")) - DdlEstatusContrato.SelectedValue = GvRow.DataKey("CveContratosEstatus") + DdlEstatusContrato.SelectedValueExist(GvRow.DataKey("CveContratosEstatus")) + DdlSubProyectoModal.SelectedValueExist(GvRow.DataKey("CveSubProyecto")) CveContrato = GvRow.DataKey("CveContrato").ToEntero UpCommando.Update() UpModal.Update() @@ -283,6 +318,8 @@ Partial Class RepContratosCalendario Protected Sub RBTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs) InicializaCalendar() CargaCronograma() + + End Sub Protected Sub DdlTipoVista_SelectedIndexChanged(sender As Object, e As EventArgs)