--Cambios para adaptar a la nueva BD RMF. Tanto métodos, PA y contenidos de las tablas

Transportes/Boletos.aspx

@@ -67,14 +67,14 @@
     </style>
 </asp:Content>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+<%--<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
     <contenttemplate>      
         <li>
             <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
                 Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
         </li>
     </contenttemplate>
-</asp:Content>
+</asp:Content>--%>
 
 <asp:Content ID="Content2" ContentPlaceHolderID="C" runat="Server">
 

Transportes/Boletos.aspx.vb

@@ -154,7 +154,7 @@ Partial Class Boletos
 
         Try
             AsientoSeleccionado = AsientoSeleccionado.Replace("A", "")
-            Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario)
+            Dim retorno As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero, Importe, AsientoSeleccionado.ToEntero, TxtNombre.Text, TxtVisa.Text, TxtCelular.Text, CBool(RblSexo.SelectedValue), TxtObservaciones.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             If retorno > 1 Then
                 ObjTransporte.Commit()

Transportes/RepBoletos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" Title="Transportes V&A - Boletos"  AutoEventWireup="false"
-    MasterPageFile="~/Site.master" CodeFile="ListadoBoletos.aspx.vb"
+    MasterPageFile="~/Site.master" CodeFile="RepBoletos.aspx.vb"
     Inherits="ListadoBoletos" EnableEventValidation="true" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -14,9 +14,9 @@
     </style>
 </asp:Content>
 
-<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
+<%--<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
  
-</asp:Content>
+</asp:Content>--%>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
     <div class="row my-1" style="margin-right: 10px; margin-top: 10px;" align="right">
@@ -107,8 +107,6 @@
         </asp:GridView>
     </div>
 
-
-
 </asp:Content>
 
 

Transportes/RepBoletos.aspx.vb

@@ -28,7 +28,7 @@ Partial Class ListadoBoletos
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             If Request.QueryString("CveViaje") Is Nothing Then
-                Response.Redirect("/Transportes/ListadoViajes.aspx")
+                Response.Redirect("/Transportes/RepViajes.aspx")
             End If
             CveViaje = Request.QueryString("CveViaje").ToEntero
             Ruta = Request.QueryString("Ruta")

Transportes/RepContratos.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" AutoEventWireup="false" Title="Transportes V&A - Contratos" MasterPageFile="~/Site.master"
-    CodeFile="ListadoContratos.aspx.vb"
+    CodeFile="RepContratos.aspx.vb"
     Inherits="ListadoContratos" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -38,14 +38,14 @@
             <li>
                 <asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
             </li>
-            <li>
-                <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="ListadoContratos.aspx"
+<%--            <li>
+                <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="RepContratos.aspx"
                     Target="_blank"><i class='fa fa-file'></i>Contratos</asp:HyperLink>
             </li>
             <li>
-                <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
+                <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="RepViajes.aspx"
                     Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
-            </li>
+            </li>--%>
 
         </ContentTemplate>
     </asp:UpdatePanel>

Transportes/RepViajes.aspx

@@ -1,5 +1,5 @@
 <%@ Page Language="VB" Title="Transportes V&A - Viajes" AutoEventWireup="false" MasterPageFile="~/Site.master"
-    CodeFile="ListadoViajes.aspx.vb"
+    CodeFile="RepViajes.aspx.vb"
     Inherits="ListadoViajes" %>
 
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -27,14 +27,14 @@
         <li>
             <asp:LinkButton ID="LBAgregarViaje" runat="server"><i class='fa fa-plus'></i>Agregar viaje</asp:LinkButton>
         </li>
-        <li>
+<%--        <li>
             <asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="ListadoContratos.aspx"
                 Target="_blank"><i class='fa fa-file'></i>Contratos</asp:HyperLink>
         </li>
         <li>
             <asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="ListadoViajes.aspx"
                 Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
-        </li>
+        </li>--%>
     </contenttemplate>
 
 </asp:Content>

Transportes/RepViajes.aspx.vb

@@ -1,6 +1,5 @@
 Option Explicit On
 Option Strict On
-Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
 
 Partial Class ListadoViajes
@@ -58,7 +57,7 @@ Partial Class ListadoViajes
         ObjRutas.Dispose()
 
         'Lista Destinos'
-        Dim ObjDestinos As New ClsDestinos()
+        Dim ObjDestinos As New ClsTransportes()
         If ObjDestinos.GetDestinos() Then
 
             If ObjDestinos.DtResultados.Rows.Count > 0 Then
@@ -72,8 +71,9 @@ Partial Class ListadoViajes
             End If
         End If
         ObjRutas.Dispose()
+
         'Lista Chofer'
-        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+        DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("Seleccione Chofer", ""))
 
@@ -256,7 +256,7 @@ Partial Class ListadoViajes
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim CveViaje As String = GvRow.DataKey("CveViaje")
         Dim Ruta As String = GvRow.DataKey("Ruta")
-        Response.Redirect(String.Format("~/Transportes/ListadoBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
+        Response.Redirect(String.Format("~/Transportes/RepBoletos.aspx?CveViaje={0}&Ruta={1}", CveViaje, Ruta))
 
     End Sub
 End Class