From 573652b221ca6ca7cf50d331db315c30d5454846 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 7 Feb 2024 05:12:00 -0700
Subject: [PATCH] -

---
 Transportes/RepContratosCalendario.aspx    | 111 +++++++++++++--------
 Transportes/RepContratosCalendario.aspx.vb |  59 ++++++-----
 2 files changed, 101 insertions(+), 69 deletions(-)

diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index d441eabd3..df09535f1 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -14,7 +14,7 @@
 </asp:Content>
 
 <asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
-    Calendario de contratos
+    Calendario de Viajes
 </asp:Content>
 
 
@@ -25,26 +25,45 @@
 
                 <ajax:TabPanel ID="TabAlta" runat="server" HeaderText="Calendario">
                     <ContentTemplate>
-                        <div class="row">
-                            <div class="col-md-12 col-sm-12">
-                                <div class="portlet light calendar ">
-                                    <div class="tipo_vista">
-                                        <div>
-                                            <h4 class="bold ribbon-color-success">Tipo de Vista</h4>
-                                        </div>
-                                        <asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True">
-                                            <asp:ListItem Text="Duración" Value="duracion" Selected="True" />
-                                            <asp:ListItem Text="Fecha de Inicio" Value="fecha" />
-                                        </asp:RadioButtonList>
-                                    </div>
-
-                                    <div class="portlet-body">
+                         <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria">
+                             <div class="portlet-title portlet-filterT smalltitle">
+                                 <div class="tools">
+                                     <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn btn-primary" />
+                                     <a href="javascript:;" class="expand"></a>
+                                 </div>
+                                 <div class="titlefiltros  caption">
+                                     <div class="row" style="height: 32px;">
+                                         <label class="col-md-1">Tipo Vista: </label>
+                                         <div class="col-md-2">
+                                               <asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
+                                                   <asp:ListItem Text="Duración" Value="duracion" Selected="True" />
+                                                   <asp:ListItem Text="Fecha de Salida" Value="fecha" />
+                                               </asp:RadioButtonList>
+                    
+                                         </div>
+                                     </div>
+                                 </div>
+                             </div>
+                             <div class="portlet-body" style="display: none">    
+                
+                                 </div>
+                             </div>
+ 
+                    <div class="row">
+                        <div class="col-md-12 col-sm-12">
+                            <div class="portlet light calendar ">
+                                <div class="tipo_vista">
+                                    <div>
+                                        <h4 class="bold ribbon-color-success">&nbsp;</h4>
+                                    </div>                                     
+                                </div>
+                                <div class="portlet-body">
                                         <div id="calendar">
-                                        </div>
                                     </div>
                                 </div>
                             </div>
                         </div>
+                    </div>
 
                     </ContentTemplate>
                 </ajax:TabPanel>
@@ -56,23 +75,25 @@
                             data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax ">
                             <Columns>
 
-                                <asp:TemplateField HeaderText="No. Contrato">
+                                <asp:TemplateField HeaderText="Folio">
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlCveContrato" runat="server" Text='<%# Eval("CveContrato") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
-                                <asp:TemplateField HeaderText="Descripcion">
+                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="120px">
+                                     <HeaderTemplate>
+                                         Fecha<br />
+                                         Salida
+                                     </HeaderTemplate>
+                                     <ItemTemplate>
+                                         <asp:Literal ID="LtlFechaI" runat="server" Text='<%# Eval("FechaInicial", "{0:dd/MM/yyyy HH:mm}") %>'></asp:Literal>
+                                     </ItemTemplate>
+                                 </asp:TemplateField>
+                                <asp:TemplateField HeaderText="Viaje">
                                     <ItemTemplate>
                                         <asp:Literal ID="LtlDescripcionContrato" runat="server" Text='<%# Eval("DescripcionContrato") %>'></asp:Literal>
                                     </ItemTemplate>
-                                </asp:TemplateField>
-
-                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Ubicación">
-                                    <ItemTemplate>
-                                        <asp:Literal ID="LtUbicacion" runat="server" Text='<%# Eval("Ubicacion") %>'></asp:Literal>
-                                    </ItemTemplate>
-                                </asp:TemplateField>
+                                </asp:TemplateField>  
 
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Center" HeaderText="Cliente">
                                     <ItemTemplate>
@@ -85,17 +106,11 @@
                                         <asp:Literal ID="LtlChofer" runat="server" Text='<%# Eval("NombreCompleto") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
-                                <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
-                                    <HeaderTemplate>
-                                        Fecha<br />
-                                        Salida
-                                    </HeaderTemplate>
+                                <asp:TemplateField HeaderText="Unidad">
                                     <ItemTemplate>
-                                        <asp:Literal ID="LtlFechaIng" runat="server" Text='<%# Eval("FechaInicial", "{0:d}") %>'></asp:Literal>
+                                        <asp:Literal ID="LtlAF" runat="server" Text='<%# Eval("AF") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
-
                                 <asp:TemplateField HeaderText="Fecha Final" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="100px">
                                     <HeaderTemplate>
                                         Fecha<br />
@@ -207,19 +222,37 @@
                                             <asp:Label runat="server" Text="Transporte:"></asp:Label></label><div
                                                 class="col-md-8">
 
-                                                <asp:DropDownList ID="DdlTransporte" AppendDataBoundItems="true" DataValueField="CveActivoFijo"
-                                                    DataTextField="Descripcion" Class="table-group-action-input form-control input-inline text-center"
+                                                <asp:DropDownList ID="DdlTipoAF" DataValueField="CveTipoActivoFijo"
+                                                    DataTextField="TipoActivoFijo" Class="table-group-action-input form-control input-inline "
                                                     Width="200px" runat="server">
                                                 </asp:DropDownList>
-                                                <asp:RequiredFieldValidator ID="RFVTransporte" runat="server" ControlToValidate="DdlTransporte"
+                                                <asp:RequiredFieldValidator ID="RFVTipoAF" runat="server" ControlToValidate="DdlTipoAF"
                                                     Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Transporte''</b> es necesario, por favor ingréselo."
                                                     ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCETransporte" runat="server" HighlightCssClass="vco"
-                                                    TargetControlID="RFVTransporte" Width="400px" BehaviorID="_content_VCETransporte">
+                                                    TargetControlID="RFVTipoAF" Width="400px" >
                                                 </ajax:ValidatorCalloutExtender>
 
                                             </div>
                                     </div>
+                                     <div class="row margin-bottom-5" id="DivAF" runat="server">
+                                     <label class="col-md-4 bold">
+                                         <asp:Label runat="server" Text="Unidad:"></asp:Label></label><div
+                                             class="col-md-8">
+
+                                             <asp:DropDownList ID="DdlAF"   DataValueField="CveActivoFijo"
+                                                 DataTextField="CodigoDescripcion" Class="table-group-action-input form-control input-inline "
+                                                 Width="200px" 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>''Transporte''</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>
+
+                                         </div>
+                                 </div>
 
                                     <div class="row margin-bottom-5" id="TrChofer" runat="server">
                                         <label class="col-md-4 bold">
@@ -324,7 +357,7 @@
             $('#<%=TxtFechaSalida.ClientID.ToString%>').val(event.start._i);
             $('#<%=TxtFechaRegreso.ClientID.ToString%>').val(event.end._i);
             $('#<%=DdlClientes.ClientID%>').val(event.CveCliente);
-            $('#<%=DdlTransporte.ClientID%>').val(event.CveActivoFijo);
+            $('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);
             $('#<%=DdlChofer.ClientID%>').val(event.CvePersonal);
             $('#<%=TxtDolares.ClientID%>').val(event.Dolares);
             $('#<%=TxtPesos.ClientID%>').val(event.Pesos);
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 55be0361e..3a0ab654b 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -11,6 +11,7 @@ Partial Class RepContratosCalendario
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            CargaCombos()
             InicializaCalendar()
             CargaDatos()
 
@@ -28,24 +29,27 @@ Partial Class RepContratosCalendario
 
     End Sub
     Private Sub InicializaCalendar()
-        'Lista Activos Fijos'
-        Dim ObjAF As New ClsAF()
-        If ObjAF.GetActivosFijos(-1, 13, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
-            If ObjAF.DtResultados.Rows.Count > 0 Then
-                DdlTransporte.DataSource = ObjAF.DtResultados
-                DdlTransporte.Items.Insert(0, New ListItem("Seleccione", ""))
-            End If
-        End If
-        DdlTransporte.DataBind()
-        ObjAF.Dispose()
+
+        RegistraScript("InitCalendar();")
+        DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
+    End Sub
+
+    Private Sub CargaCombos()
+        DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoAF.DataBind()
+        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
+        DdlTipoAF.DataBind()
+
+        DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
+        DdlAF.DataBind()
+        DdlAF.Items.Insert(0, New ListItem("-", ""))
+        DdlTipoAF.DataBind()
 
         'Lista Chofer'
         DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
-        DdlChofer.Items.Insert(0, New ListItem("Seleccione", ""))
+        DdlChofer.Items.Insert(0, New ListItem("-", ""))
 
-        RegistraScript("InitCalendar();")
-        DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
     End Sub
 
     Protected Sub MostrarModal(sender As Object, e As System.EventArgs)
@@ -55,28 +59,23 @@ Partial Class RepContratosCalendario
 
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
 
-        If DdlClientes.SelectedValue = "" Then
-            Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
-            Exit Sub
-        End If
+        'If DdlClientes.SelectedValue = "" Then
+        '    Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
+        '    Exit Sub
+        'End If
 
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        Try
-            If ObjContratos.UpdateContratos(CveContrato.Value.ToEntero, "", 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:=2, CveContratosEstatus:=1, CveChofer:=DdlChofer.SelectedValue.ToEntero, CveTipoAF:=DdlTransporte.SelectedValue.ToEntero) Then
 
-                ObjContratos.Commit()
-                Alert("Actualizado Correctamente.")
-            End If
-
-
-        Catch ex As Exception
-            Alert("Ocurrió un error al actualizar el contrato", TipoMensaje.MsgError)
+        If ObjContratos.UpdateContratoAF(CveContrato.Value.ToEntero, DdlAF.SelectedValue.ToEntero, DdlChofer.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            ObjContratos.Commit()
+            Alert("Actualizado Correctamente.")
+        Else
             ObjContratos.RollBack()
-        Finally
-            ObjContratos.Dispose()
-            CargaDatos()
-        End Try
+        End If
+
+        ObjContratos.Dispose()
+        CargaDatos()
 
     End Sub