From db8d7f6aff28a81ab64d754bb104bd62ea5b3092 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 4 Dec 2024 18:25:27 -0700
Subject: [PATCH] -- mejoras, cambio de "no requiere unidad" -- quitar la
 unidad especificada!

---
 Transportes/RepContratoDetalle.aspx        |  3 +--
 Transportes/RepContratoDetalle.aspx.vb     | 29 ----------------------
 Transportes/RepContratos.aspx              |  6 ++---
 Transportes/RepContratosCalendario.aspx    | 19 ++++++++------
 Transportes/RepContratosCalendario.aspx.vb | 29 +++++-----------------
 5 files changed, 21 insertions(+), 65 deletions(-)

diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx
index aba55e9ad..2ca7e6e39 100644
--- a/Transportes/RepContratoDetalle.aspx
+++ b/Transportes/RepContratoDetalle.aspx
@@ -418,8 +418,7 @@
                                                     <div class="col-md-12" style="text-align: center;">
                                                         <asp:UpdatePanel ID="UpPagos" runat="server" UpdateMode="Conditional">
                                                             <ContentTemplate>
-
-                                                                <div class="row" runat="server" visible="false"  id="DVFactura">
+                                                                <div class="row" runat="server" id="DVFactura">
                                                                     <label class="col-md-2">Factura: </label>
                                                                     <div class="col-md-3">
                                                                         <asp:HyperLink runat="server" Text=""  Target="_blank" id="HypRemision" CssClass="Texto"></asp:HyperLink>
diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb
index bd5c5e642..a5c7097d9 100644
--- a/Transportes/RepContratoDetalle.aspx.vb
+++ b/Transportes/RepContratoDetalle.aspx.vb
@@ -7,8 +7,6 @@ Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
-
-
 Partial Class RepContratoDetalle
     Inherits ClsPaginas
 #Region "Propiedades"
@@ -279,18 +277,8 @@ Partial Class RepContratoDetalle
                 LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-light"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveContrato:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveContrato)
                 CargaEventoBitacora()
             End If
-
-            'If CveVentaRemision > 0 Then
-            '    DVFactura.Visible = True
-            '    ChkEsPresupuestal.Enabled = False
-            '    ChkEsPresupuestal.Checked = False
-            'End If
-
         End If
 
-
-
-
     End Sub
     Private Sub InicializaCombos()
         'Lista Tipo AF
@@ -325,16 +313,12 @@ Partial Class RepContratoDetalle
             DdlVendedor.Enabled = False
         End If
 
-
     End Sub
     Private Sub CargaDatos()
 
         CargaDatosContrato()
         CargaDatosViajes()
         'Información General
-
-
-
     End Sub
 
     Private Sub CargaDatosContrato()
@@ -440,7 +424,6 @@ Partial Class RepContratoDetalle
         UpTabContainer.Update()
     End Sub
 
-
 #End Region
     Protected Sub DdlUsuarioFiltroBoletos_SelectedIndexChanged(sender As Object, e As EventArgs)
         CargaDatosViajes()
@@ -478,8 +461,6 @@ Partial Class RepContratoDetalle
             Filename = fileItem.filename
         Next
 
-
-
         If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato) Then
             If Filename <> "" Then
                 Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
@@ -499,7 +480,6 @@ Partial Class RepContratoDetalle
         CargaEventoBitacora()
         UPAddEventoBitacora.Update()
     End Sub
-
     Private Sub CargaEventoBitacora()
 
         If CveContrato > 0 Then
@@ -515,8 +495,6 @@ Partial Class RepContratoDetalle
         End If
 
     End Sub
-
-
     Protected Sub DownloadFile(ByVal sender As Object, ByVal e As EventArgs)
         Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
         Dim Archivo As New System.IO.FileInfo(filePath)
@@ -578,8 +556,6 @@ Partial Class RepContratoDetalle
             BtnDescargar.Visible = True
         End If
     End Sub
-
-
     Public Function ObtenerUrlCompleta() As String
 
         Dim Solicitud As HttpRequest = HttpContext.Current.Request
@@ -589,7 +565,6 @@ Partial Class RepContratoDetalle
             url &= ":" & Solicitud.Url.Port
         End If
 
-
         url &= Solicitud.ApplicationPath
 
         If Not url.EndsWith("/") Then
@@ -599,15 +574,12 @@ Partial Class RepContratoDetalle
         Return url
 
     End Function
-
-
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
         Dim ArchivoUpdate As String = "-1"
         Dim ErrorProceso As Boolean = False
         Dim SeGeneroRemision As Boolean = False
         Dim SerieFolioRemision As String = ""
         If Session("FileExtension").ToString <> "" Then
-
             'ArchivoUpdate = $"{CveContrato.ToString}.{  Session("FileExtension")}"
             ArchivoUpdate = $".{Session("FileExtension").ToString}"
         Else
@@ -617,7 +589,6 @@ Partial Class RepContratoDetalle
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
 
-
         If Not ObjContratos.UpdateContratos(CveContrato, TxtFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "",
                                             DdlSubProyecto.SelectedValue.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkEsPresupuestal.Checked, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal,
                                             DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservaciones.Text) Then
diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx
index cf6ef30a6..d7fc29703 100644
--- a/Transportes/RepContratos.aspx
+++ b/Transportes/RepContratos.aspx
@@ -515,9 +515,9 @@
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                      <div class="row my-1">
-                                         <label class="col-md-5">NO Requiere Unidad</label>                                        
-                                         <div class="col-md-7">
-                                             <asp:CheckBox runat="server" ID="ChkEsPresupuestal" Checked="true" />
+                                         <label class="col-md-6">NO Requiere Unidad</label>                                        
+                                         <div class="col-md-6">
+                                             <asp:CheckBox runat="server" ID="ChkEsPresupuestal"  />
                                          </div>
                                      </div>
                                 </div>
diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 44dece0e9..6bc9d7074 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -296,7 +296,7 @@
                             <asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
                                 <ContentTemplate>
 
-                                    <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
+                                    <div class="row" style="margin-right: 10px; margin-top: 8px;" align="right">
                                         <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                                         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvContratos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                                     </div>
@@ -316,8 +316,7 @@
                                             <asp:TemplateField ItemStyle-Width="120px">
                                                 <HeaderTemplate>
                                                     Fecha<br />
-                                                    Salida
-                                       
+                                                    Salida                                       
                                                 </HeaderTemplate>
                                                 <ItemTemplate>
                                                     <asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal>
@@ -775,11 +774,14 @@
 
    <script >
 
-
        var chartHeader;
        var chartBody;
  
-       function cargaDiagramaGrantAMC4(data, categorias, TipoVista) {
+       function cargaDiagramaGrantAMC4(data, categorias, TipoVista) {                    
+
+           try {
+
+          
 
            // Si ya hay gráficos, eliminarlos para crear nuevos
            if (chartHeader) {
@@ -1009,9 +1011,10 @@
                chartHeader.validateLayout();
            });
        
-       
-
-
+           }
+           catch (error) {
+               console.error(error);
+           }
        }
 
     function cargaDiagramaGrant(data, categorias, TipoVista) {
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 9a2787f34..3fa4603f2 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -53,7 +53,7 @@ Partial Class RepContratosCalendario
             txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
             txtFechaF.Text = GetLastDayOfMonth(NowADS()).ToShortDateString()
             InicializaCombos()
-            CargaDatos()
+            CargaDatos()
         End If
         'InicializaCalendar()
     End Sub
@@ -189,27 +189,14 @@ Partial Class RepContratosCalendario
     End Sub
     Private Sub CargaCronograma(Optional TipoVista As Integer = -1)
         If DtAvance IsNot Nothing Then
-
-
             Dim strData As New StringBuilder
             Dim strAFData As New StringBuilder
 
-
-
-            'Dim separator As String = ""
-            'Dim str As New StringBuilder()
-            'str.AppendLine("datosGant=[")
-
-
             Dim StrFiltro As String = ""
             If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue
-
             Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"})
-
-
             Dim jsonData As New JArray()
             Dim jsonCategorias As New JArray()
-
             Dim random = New Random()
 
             'DATOS
@@ -237,11 +224,11 @@ Partial Class RepContratosCalendario
                 Dim FF As Date = Row("FechaFinal").ToString.ToDate
 
                 strData.AppendLine("{")
-                strData.AppendLine($"category: '{Row("CodigoAF").ToString}',")
+                strData.AppendLine($"category: '{Row("CodigoAF").ToString.Replace("'", "")}',")
                 strData.AppendLine($"fromDate: '{FI.ToString("yyyy-MM-dd HH:mm:ss")}',")
                 strData.AppendLine($"toDate: '{FF.ToString("yyyy-MM-dd HH:mm:ss")}',")
                 'strData.AppendLine($"columnSettings: {{fill: '{String.Format("#{0:X6}", random.Next(16777216))}'}},")
-                strData.AppendLine($"unidad: '{Row("NombreAF").ToString}',")
+                strData.AppendLine($"unidad: '{Row("NombreAF").ToString.Replace("'", "")}',")
                 strData.AppendLine($"color:  am4core.color('" & String.Format("#{0:X6}", random.Next(16777216)) & "'),")
                 strData.AppendLine($"cveContrato: {Row("CveContrato").ToString.ToEntero},")
                 strData.AppendLine($"contrato: '{Row("NumeroContrato").ToString}',")
@@ -249,7 +236,6 @@ Partial Class RepContratosCalendario
                 strData.AppendLine($"cliente: '{Row("NombreComercial").ToString.Replace("'", "")}'")
                 strData.AppendLine("},")
 
-
                 strAF.AppendFormat("{0},", Row("CveAF"))
 
                 'uniad contrato y duracion 
@@ -275,16 +261,15 @@ Partial Class RepContratosCalendario
                     New JProperty("category", Row("Codigo"))
                 )
                 jsonCategorias.Add(obj)
-
                 strAFData.AppendLine("{")
-                strAFData.AppendLine($"category: '{Row("Codigo").ToString}',")
+                strAFData.AppendFormat("category: '{0}'", Row("Codigo"))
                 strAFData.AppendLine("},")
 
             Next
             strAFData.AppendLine("{}]")
 
             'RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});", $"{random.Next(16777216)}")
-            RegistraScript($"cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista});", $"{random.Next(16777216)}")
+            RegistraScript($"  cargaDiagramaGrantAMC4({strData.ToString().Replace(",{}", "")},{strAFData.ToString().Replace(",{}", "")},{TipoVista});  ", random.Next(16777216).ToString)
 
             UPPGantt.Update()
             UPGat.Update()
@@ -562,8 +547,6 @@ Partial Class RepContratosCalendario
                     e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BGC_Atencion)
                 End If
             End If
-
-
         End If
     End Sub
 
@@ -893,7 +876,7 @@ Partial Class RepContratosCalendario
         'End If
 
         DdlAF.DataBind()
-        DdlAF.Items.Insert(0, New ListItem("-", "-1"))
+        DdlAF.Items.Insert(0, New ListItem("-", "0")) 'DEBE DE SER CERO, SI SE QUIERE QUITAR LA UNIDAD
         UpModal.Update()
 
     End Sub