Vya - Nuevas observaciones 2024.07.19

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.</br></br>")
+                For Each dr As DataRow In DTAgendadados.Rows
+                    sb.AppendLine($"Contrato: <b>{dr("NumeroContrato").ToString }</b>, Salida: {dr("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")}, Regreso: {dr("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm:ss")} </br>")
+                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)