--Se quitó imprimir boleto de repboleto por que se movió a repcontratodetalles. Se trabajo en la edición de los datos de usuario al editar el boleto. Se mejoró la estructura de repContratos y se quitaron llamados a modales en VB. Se implementó consulta en repContratos.

Transportes/RepBoletos.aspx

@@ -40,7 +40,6 @@
              <div class="portlet light xspadding  bordered margin-bottom-10">
                 <asp:GridView ID="GvBoletos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningún boleto registrado"
                     CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
-                    OnRowDataBound="GvBoletos_RowDataBound"
                     data-sort="true" DataKeyNames="CveViajePasajero,Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia">
                     <Columns>
                         <asp:TemplateField HeaderText="No. Asiento">
@@ -98,9 +97,6 @@
                                     CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-cancel'></i>"
                                     data-toggle="confirmation" data-popout="true" data-original-title='<%# If(Eval("Estatus").ToString = "True", "Cancelar Boleto", "Reactivar") %>'
                                     data-btn-ok-label="si" OnClick="BtnCancelar_Click" />
-                                <asp:LinkButton ID="BtnImprimir" runat="server" AlternateText="Viaje"
-                                    CssClass="btn btn-circle btn-sm blue" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"
-                                    OnClick="ImprimirBoleto" />
                             </ItemTemplate>
                         </asp:TemplateField>
                     </Columns>

Transportes/RepBoletos.aspx.vb

@@ -5,7 +5,6 @@ Imports System.Data
 Imports ADSNetLibrary.Helpers
 Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
-Imports Microsoft.Reporting.WebForms
 
 Partial Class ListadoBoletos
     Inherits ClsPaginas
@@ -46,35 +45,6 @@ Partial Class ListadoBoletos
         GvBoletos.DataBind()
     End Sub
 
-    Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
-        Dim dtResult As New DataTable()
-        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
-        Dim Fecha As Date = GvRow.DataKey("FechaIng").ToDate
-        Dim Importe As Decimal = GvRow.DataKey("Importe").ToDecimal
-
-        Dim params As New List(Of ReportParameter) From {
-            New ReportParameter("Ruta", Ruta),
-            New ReportParameter("Origen", GvRow.DataKey("Partida")),
-            New ReportParameter("Destino", GvRow.DataKey("Destino")),
-            New ReportParameter("FechaSalida", Fecha.ToShortDateString()),
-            New ReportParameter("HoraSalida", Fecha.ToString("HH:mm")),
-            New ReportParameter("Nombre", GvRow.DataKey("Nombre")),
-            New ReportParameter("Visa", GvRow.DataKey("Visa")),
-            New ReportParameter("Celular", GvRow.DataKey("Celular")),
-            New ReportParameter("Importe", Importe.FormatoNumero(2)),
-            New ReportParameter("TipoBoleto", "Tipo Boleto"),
-            New ReportParameter("Agencia", GvRow.DataKey("Agencia")),
-            New ReportParameter("TelefonoAgencia", GvRow.DataKey("TelefonoAgencia")),
-            New ReportParameter("Asiento", GvRow.DataKey("Asiento"))
-        }
-
-        ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Boleto.mrt", dtResult, params, NombreArchivo:="Boleto")
-        'Empresas/Grales/Formatos/EntradaSalida.mrt
-        'Empresas/188/Formatos/Boleto.mrt
-
-    End Sub
-
-
     Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveViajePasajero As Integer = GvRow.DataKey("CveViajePasajero").ToEntero()
@@ -140,10 +110,4 @@ Partial Class ListadoBoletos
             CargaDatos()
         End Try
     End Sub
-
-    Protected Sub GvBoletos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            ScriptManager.GetCurrent(Me).RegisterPostBackControl(e.Row.FCLinkButton("BtnImprimir"))
-        End If
-    End Sub
 End Class

Transportes/RepContratoDetalle.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" AutoEventWireup="true" Title="Transportes V&A - Detalles del Contrato"
-    MasterPageFile="~/Site.master"
+    MasterPageFile="~/Site.master" EnableEventValidation="true"
     CodeFile="RepContratoDetalle.aspx.vb"
     Inherits="RepContratoDetalle" %>
 
@@ -283,7 +283,8 @@
                                                             Width="200px"></asp:TextBox>
 
                                                         <button type="button" class="btn btn-primary" runat="server" clientidmode="Static"
-                                                            id="Button1" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload"
+                                                            id="Button1" data-toggle="modal" data-target="#ModalUpload" visible="true">
+                                                            <i class="fa fa-upload"
                                                                 aria-hidden="true"></i>Subir Archivo</button>
 
                                                     </ContentTemplate>
@@ -411,7 +412,7 @@
                                     <div class="row">
                                         <%-- Datos del Boleto --%>
                                         <div class="col-md-8">
-                                            <asp:Panel runat="server" ID="PnEditarViaje" Visible="true">
+                                            <asp:Panel runat="server" ID="PnEditarViaje" Visible="false">
                                                 <div class="row margin-bottom-5">
                                                     <label class="col-md-4 bold">Ruta</label>
                                                     <div class="col-md-8">
@@ -469,7 +470,7 @@
                                                     <label class="col-md-4 bold">Nombre</label>
                                                     <div class="col-md-8">
 
-                                                        <asp:Label CssClass="form-control" runat="server" ID="LbNombre">Nombre</asp:Label>
+                                                        <asp:TextBox CssClass="form-control" runat="server" ID="TxtNombre">Nombre</asp:TextBox>
                                                     </div>
 
                                                 </div>
@@ -478,7 +479,7 @@
                                                     <label class="col-md-4 bold">Visa</label>
                                                     <div class="col-md-8">
 
-                                                        <asp:Label CssClass="form-control" runat="server" ID="LbVisa">Visa</asp:Label>
+                                                        <asp:TextBox CssClass="form-control" runat="server" ID="TxtVisa">Visa</asp:TextBox>
                                                     </div>
 
                                                 </div>
@@ -486,23 +487,23 @@
                                                 <div class="row margin-bottom-5">
                                                     <label class="col-md-4 bold">Celular</label>
                                                     <div class="col-md-8">
-                                                        <asp:Label CssClass="form-control" runat="server" ID="LbCelular">Celular</asp:Label>
+                                                        <asp:TextBox CssClass="form-control" runat="server" ID="TxtCelular">Celular</asp:TextBox>
                                                     </div>
                                                 </div>
 
                                                 <div class="row margin-bottom-5">
                                                     <label class="col-md-4 bold">Observación</label>
                                                     <div class="col-md-8">
-                                                        <asp:Label CssClass="form-control" runat="server"
+                                                        <asp:TextBox CssClass="form-control" runat="server"
-                                                            ID="LbObservacion">Observacion</asp:Label>
+                                                            ID="TxtObservacion">Observacion</asp:TextBox>
                                                     </div>
                                                 </div>
 
                                                 <div class="row margin-bottom-5">
                                                     <label class="col-md-4 bold">Sexo</label>
                                                     <div class="col-md-8">
-                                                        <asp:Label CssClass="form-control" runat="server"
+                                                        <asp:TextBox CssClass="form-control" runat="server"
-                                                            ID="LbSexo">Sexo</asp:Label>
+                                                            ID="TxtSexo">Sexo</asp:TextBox>
                                                     </div>
                                                 </div>
 
@@ -510,15 +511,14 @@
                                                     <label class="col-md-4 bold">Estatus</label>
                                                     <div class="col-md-8">
 
-                                                        <asp:Label CssClass="form-control" runat="server"
+                                                        <asp:TextBox CssClass="form-control" runat="server"
-                                                            ID="LbEstatus">Estatus</asp:Label>
+                                                            ID="TxtEstatus">Estatus</asp:TextBox>
                                                     </div>
 
                                                 </div>
                                             </asp:Panel>
 
                                         </div>
-
                                         <%-- Asientos --%>
                                         <asp:UpdatePanel runat="server" ID="UpBoletos" UpdateMode="Conditional">
                                             <ContentTemplate>

Transportes/RepContratoDetalle.aspx.vb

@@ -110,7 +110,7 @@ Partial Class RepContratoDetalle
         'Lista Tipo AF
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTipoAF.DataBind()
-        DdlTipoAF.Items.Insert(0, New ListItem("-", "0"))
+        DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
     End Sub
     Private Sub CargaDatos()
         'Información General
@@ -131,7 +131,7 @@ Partial Class RepContratoDetalle
                 TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString
                 TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString
                 TxtCantidadPasajeros.Text = Contrato.Rows(0)("CantidadPasajeros").ToString
-                DdlTipoAF.SelectedValue = Contrato.Rows(0)("CveTipoAF").ToString
+                DdlTipoAF.SelectedValue = If(Contrato.Rows(0)("CveTipoAF") Is Nothing, "", Contrato.Rows(0)("CveTipoAF").ToString)
                 TxtDolares.Text = Contrato.Rows(0)("Importe").ToString
                 TxtPesos.Text = Contrato.Rows(0)("ImporteMax").ToString
                 TxtAnticipo.Text = Contrato.Rows(0)("ImporteMin").ToString
@@ -151,7 +151,6 @@ Partial Class RepContratoDetalle
                     If ObjTransportes.GetViajesPasajeros(CveContrato) Then
                         GvViajesPasajeros.DataSource = ObjTransportes.DtResultados
                         BusquedaSeleccionada(ObjTransportes.DtResultados)
-
                     End If
                     ObjTransportes.Dispose()
                     GvViajesPasajeros.DataBind()
@@ -315,7 +314,7 @@ Partial Class RepContratoDetalle
         Try
             ObjTransportes.IniciaTransacSQL()
 
-            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, LbNombre.Text, LbVisa.Text, LbCelular.Text, LbObservacion.Text, LbEstatus.Text.ToBool, UsuarioActual.CveUsuario, LbSexo.Text.ToBool) Then
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, DdlRuta.SelectedValue.ToEntero, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, TxtEstatus.Text.ToBool, UsuarioActual.CveUsuario, TxtSexo.Text.ToBool) Then
                 ObjTransportes.Commit()
             End If
         Catch ex As ArgumentException
@@ -326,10 +325,9 @@ Partial Class RepContratoDetalle
             ObjTransportes.Dispose()
 
         End Try
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
+
-        UpTabContainer.Update()
-        UpPasajeros.Update()
         CargaDatos()
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalEditar"))
     End Sub
     Protected Sub OnChangeRuta(sender As Object, e As EventArgs)
         Dim ObjTransportes As New ClsTransportes
@@ -363,6 +361,8 @@ Partial Class RepContratoDetalle
                 End If
             Next
         End If
+        UpTabContainer.Update()
+
         ViajeActual = dt
     End Sub
     Protected Sub ImprimirBoleto(sender As Object, e As EventArgs)
@@ -396,23 +396,45 @@ Partial Class RepContratoDetalle
         End If
     End Sub
     Protected Sub EditarBoleto(sender As Object, e As EventArgs)
+        PnEditarUsuario.Visible = True
+        PnEditarViaje.Visible = False
+        PnAsientos.Visible = False
 
-    End Sub
-    Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
-        PnEditarViaje.Visible = True
-        PnEditarUsuario.Visible = False
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
         LbPartida.Text = GvRow.DataKey("Partida").ToString()
         LbDestino.Text = GvRow.DataKey("Destino").ToString()
         LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
-        LbNombre.Text = GvRow.DataKey("Nombre").ToString()
+        TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
-        LbVisa.Text = GvRow.DataKey("Visa").ToString()
+        TxtVisa.Text = GvRow.DataKey("Visa").ToString()
-        LbCelular.Text = GvRow.DataKey("Celular").ToString()
+        TxtCelular.Text = GvRow.DataKey("Celular").ToString()
-        LbSexo.Text = GvRow.DataKey("Sexo").ToString()
+        TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
-        LbObservacion.Text = GvRow.DataKey("Observacion").ToString()
+        TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
-        LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
+        TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
+
+        UpTabContainer.Update()
+        UpModal.Update()
+        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalEditar"))
+
+    End Sub
+    Protected Sub CambiarBoleto(sender As Object, e As EventArgs)
+        PnEditarViaje.Visible = True
+        PnEditarUsuario.Visible = False
+        PnAsientos.Visible = True
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        CveViajePasajero = GvRow.DataKey("CveViajePasajero").ToEntero
+        LbPartida.Text = GvRow.DataKey("Partida").ToString()
+        LbDestino.Text = GvRow.DataKey("Destino").ToString()
+        LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
+        TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
+        TxtVisa.Text = GvRow.DataKey("Visa").ToString()
+        TxtCelular.Text = GvRow.DataKey("Celular").ToString()
+        TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
+        TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
+        TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
 
@@ -439,21 +461,21 @@ Partial Class RepContratoDetalle
         LbPartida.Text = GvRow.DataKey("Partida").ToString()
         LbDestino.Text = GvRow.DataKey("Destino").ToString()
         LbImporte.Text = Convert.ToDecimal(GvRow.DataKey("Importe")).ToString("C")
-        LbNombre.Text = GvRow.DataKey("Nombre").ToString()
+        TxtNombre.Text = GvRow.DataKey("Nombre").ToString()
-        LbVisa.Text = GvRow.DataKey("Visa").ToString()
+        TxtVisa.Text = GvRow.DataKey("Visa").ToString()
-        LbCelular.Text = GvRow.DataKey("Celular").ToString()
+        TxtCelular.Text = GvRow.DataKey("Celular").ToString()
-        LbSexo.Text = GvRow.DataKey("Sexo").ToString()
+        TxtSexo.Text = GvRow.DataKey("Sexo").ToString()
-        LbObservacion.Text = GvRow.DataKey("Observacion").ToString()
+        TxtObservacion.Text = GvRow.DataKey("Observacion").ToString()
-        LbEstatus.Text = GvRow.DataKey("Estatus").ToString()
+        TxtEstatus.Text = GvRow.DataKey("Estatus").ToString()
         LbCreado.Text = GvRow.DataKey("FechaIng").ToString()
         TxtAsiento.Text = GvRow.DataKey("Asiento").ToString()
-        Dim Estatus As Boolean = Not LbEstatus.Text.ToBool
+        Dim Estatus As Boolean = Not TxtEstatus.Text.ToBool
         Dim ObjTransportes As New ClsTransportes
         Try
             ObjTransportes.IniciaTransacSQL()
 
-            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, LbNombre.Text, LbVisa.Text, LbCelular.Text, LbObservacion.Text, Estatus, UsuarioActual.CveUsuario, LbSexo.Text.ToBool) Then
+            If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero, CveContrato, UsuarioActual.CveVendedor, LbImporte.Text.ToDecimal, TxtAsiento.Text.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, TxtObservacion.Text, Estatus, UsuarioActual.CveUsuario, TxtSexo.Text.ToBool) Then
-                Alert($"El boleto ha modificado el estatus de su boleto correctamente.")
+                Alert("Se ha modificado el estatus de su boleto correctamente.")
 
                 ObjTransportes.Commit()
             End If
@@ -465,6 +487,7 @@ Partial Class RepContratoDetalle
             ObjTransportes.Dispose()
             CargaDatos()
         End Try
+        UpPasajeros.Update()
     End Sub
 #End Region
 

Transportes/RepContratos.aspx

@@ -17,11 +17,13 @@
 
 <asp:Content ID="Content3" ContentPlaceHolderID="H" runat="Server">
     <li>
-        <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
+        <asp:LinkButton runat="server" ClientIDMode="Static"
+            data-toggle="modal" data-target="#ModalAgregar"><i class='fa fa-plus' ></i>Agregar Contrato</asp:LinkButton>
     </li>
 
     <li>
-        <asp:LinkButton OnClick="ModalPersonalizar" runat="server"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
+        <asp:LinkButton runat="server" ClientIDMode="Static"
+            data-toggle="modal" data-target="#ModalPersonalizar"><i class="fa fa-pencil"></i>Personalizar Columnas</asp:LinkButton>
     </li>
     <li>
         <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Generar PDF</asp:LinkButton>
@@ -39,7 +41,7 @@
                 <%-- Filtro Visible - Consulta --%>
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
-                        <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" class="btn
+                        <asp:Button OnClick="Consultar" runat="server" Text="Consultar" class="btn
                 btn-primary" />
                         <a href="javascript:;" class="expand"></a>
                     </div>
@@ -225,13 +227,13 @@
     <div id="ModalAgregar" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel runat="server" ID="UpModal" UpdateMode="Conditional">
             <ContentTemplate>
-                <div class="modal-dialog rowpadding">
+                <div class="modal-dialog">
                     <div class="modal-content">
                         <div class="modal-header">
                             <button type="button" class="close" data-dismiss="modal" aria-label="Close">
                                 <span aria-hidden="true">&times;</span>
                             </button>
-                            <h4 class="modal-title" id="myModalLabel" runat="server">Agregar Contrato</h4>
+                            <h4 class="modal-title">Agregar Contrato</h4>
                         </div>
 
                         <div class="modal-body">
@@ -401,10 +403,10 @@
                                 ValidationGroup="GrpGuardar"></asp:Button>
                             <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
                             <button type="button" class="btn btn-secondary" runat="server" clientidmode="Static"
-                                id="BtnArchivo" data-toggle="modal" data-target="#ModalUpload" visible="true"><i class="fa fa-upload"
+                                id="BtnArchivo" data-toggle="modal" data-target="#ModalUpload" visible="true">
+                                <i class="fa fa-upload"
                                     aria-hidden="true"></i>Subir Archivo</button>
                         </div>
-
                     </div>
                 </div>
             </ContentTemplate>
@@ -413,11 +415,13 @@
     <%-- Modal para personalizar columnas --%>
     <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
         <ContentTemplate>
-            <div id="DivPersonalizar" class="modal fade" role="dialog">
+            <div id="ModalPersonalizar" class="modal ADS fade" role="dialog">
                 <div class="modal-dialog">
                     <div class="modal-content">
                         <div class="modal-header">
-                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                                <span aria-hidden="true">&times;</span>
+                            </button>
                             <h4 class="modal-title">Personalizar Columnas</h4>
                         </div>
 
@@ -437,45 +441,48 @@
                             </div>
                         </div>
                     </div>
-
                 </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-    <%--MODAL UPLOAD--%>
+    <%-- Modal Archivo--%>
-    <div id="ModalUpload" class="modal ADS fade" role="dialog">
+    <asp:UpdatePanel runat="server" ID="UpArchivo" UpdateMode="Conditional">
-        <div class="modal-dialog">
+        <ContentTemplate>
+            <div id="ModalUpload" class="modal ADS fade" role="dialog">
+                <div class="modal-dialog">
 
-            <div class="modal-content">
+                    <div class="modal-content">
-                <div class="modal-header ">
+                        <div class="modal-header ">
-                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Subir Archivo</h4>
+                            <h4 class="modal-title">Subir Archivo</h4>
-                </div>
+                        </div>
 
-                <div class="modal-body">
+                        <div class="modal-body">
-                    <asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional">
+                            <asp:UpdatePanel runat="server" ID="UPAddEventoBitacora" UpdateMode="Conditional">
-                        <ContentTemplate>
+                                <ContentTemplate>
-                            <div class="row">
+                                    <div class="row">
-                                <div class="col-md-12">
+                                        <div class="col-md-12">
-                                    <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
+                                            <asp:TextBox ID="Anexo" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
-                                </div>
+                                        </div>
-                            </div>
+                                    </div>
-                        </ContentTemplate>
+                                </ContentTemplate>
-                    </asp:UpdatePanel>
+                            </asp:UpdatePanel>
-                </div>
+                        </div>
-                <div class="modal-footer">
+                        <div class="modal-footer">
-                    <asp:UpdatePanel runat="server">
+                            <asp:UpdatePanel runat="server">
-                        <ContentTemplate>
+                                <ContentTemplate>
-                            <asp:Button runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary"
+                                    <asp:Button runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary"
-                                OnClick="GuardarArchivo" />
+                                        OnClick="GuardarArchivo" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
 
-                        </ContentTemplate>
+                                </ContentTemplate>
-                    </asp:UpdatePanel>
+                            </asp:UpdatePanel>
+                        </div>
+                    </div>
                 </div>
             </div>
-        </div>
+        </ContentTemplate>
-    </div>
+    </asp:UpdatePanel>
 </asp:Content>
 
 

Transportes/RepContratos.aspx.vb

@@ -72,34 +72,26 @@ Partial Class ListadoContratos
         End If
 
         UpTitulos.Update()
-
     End Sub
 #End Region
-
-    Protected Sub MostrarModal()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "ModalAgregar"))
-    End Sub
-    Private Sub LBAgregarContrato_Click(sender As Object, e As EventArgs) Handles LBAgregarContrato.Click
-        MostrarModal()
-    End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
         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
 
         'Agregamos Contrato
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
-        If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", 10, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
+        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, TxtPesos.Text.ToDecimal, TxtDolares.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then
             ObjContratos.Commit()
             Alert("Agregado Correctamente.")
         End If
         ObjContratos.Dispose()
 
         'Aumentamos Folio
-        Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero
         Dim ObjFolios As New ClsGralFolios
         If ObjFolios.UpdateFolioActual(CveSubProyecto, "Con", True, UsuarioActual.CveEmpresa) Then
             ObjFolios.Dispose()
@@ -149,11 +141,16 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
     End Sub
     Protected Sub Consultar(sender As Object, e As EventArgs)
+        Dim ObjContratos As New ClsContratos
+
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, CveSubProyecto:=DdlCentroCostos.SelectedValue.ToEntero, CveTipoAF:=DdlTipoUnidad.SelectedValue.ToEntero, CveChofer:=DdlChofer.SelectedValue.ToEntero) Then
+            GvContratos.DataSource = ObjContratos.DtResultados
+            GvContratos.DataBind()
+        End If
+        ObjContratos.Dispose()
+
         UpTitulos.Update()
     End Sub
-    Protected Sub ModalPersonalizar(sender As Object, e As EventArgs)
-        RegistraScript("$('#DivPersonalizar').modal('show')")
-    End Sub
     Protected Sub Personalizar(sender As Object, e As EventArgs)
         GvContratos.Columns(6).Visible = ChkChofer.Checked
         GvContratos.Columns(7).Visible = ChkChofer2.Checked
@@ -175,6 +172,7 @@ Partial Class ListadoContratos
         End If
 
         For Each fileItem As Archivo In Filesgral
+
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             Session("FileExtension") = FileExtension
             Dim tempArray() As String
@@ -185,10 +183,14 @@ Partial Class ListadoContratos
             ViewState("FUrl") = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos", "Temp", fileItem.filename)
 
             File.Move(fileItem.FileUrl, ViewState("FUrl").ToString)
-            LbArchivo.Text = fileItem.filenameO
+            LbArchivo.Text = tempArray(1)
+
         Next
 
+        UpArchivo.Update()
         UpModal.Update()
+
         RegistraScript("$('#ModalUpload').modal('hide')", "hidemodal1")
+
     End Sub
 End Class

Transportes/RepViajes.aspx.vb

@@ -151,13 +151,13 @@ Partial Class ListadoViajes
             Try
                 'Agregamos Viaje
                 If BtnGuardar.Text = "Agregar" Then
-                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
+                    If ObjContratos.AddContratos(LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaViaje.Text.ToDate, TxtFechaViaje.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, 0, 0, 0, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) > 0 Then
                         ObjContratos.Commit()
                         Alert("Viaje agregado correctamente.")
                     End If
                 Else
                     'Actualizamos Viaje
-                    If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", CveSubProyecto, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
+                    If ObjContratos.UpdateContratos(CveContrato.ToEntero, LbFolio.Text, "", "", UsuarioActual.CveProveedor, -1, -1, TxtFechaInicial.Text.ToDate, TxtFechaInicial.Text.ToDate, "", "", DdlRutas.SelectedValue.ToEntero, -1, -1, -1, -1, "", "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 2, 0, CveContratoTipo:=35, CveContratosEstatus:=50, CvePartida:=DdlPartida.SelectedValue.ToEntero, CveDestino:=DdlDestino.SelectedValue.ToEntero) = True Then
                         ObjContratos.Commit()
                         Alert("El viaje se actualizó correctamente.")
                     End If