-

App_Code/ClsTransportes.vb

@@ -135,14 +135,14 @@ Public Class ClsTransportes
 #End Region
 
 #Region "Boletos"
-    Public Function AddViajesPasajeros(CveViaje As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer
+    Public Function AddViajesPasajeros(CveContrato As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer, Importe As Decimal, Asiento As Integer, Nombre As String, Visa As String, Celular As String, Sexo As Boolean, Observacion As String, CveUsuario As Integer, CveVendedor As Integer) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Trans_ViajesPasajerosAdd")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output
-            .Add("@CveViaje", SqlDbType.Int).Value = CveViaje
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
             .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen
             .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal
             .Add("@Importe", SqlDbType.Money).Value = Importe
@@ -167,12 +167,12 @@ Public Class ClsTransportes
 
         Return Retorno
     End Function
-    Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean
+    Public Function GetViajesPasajeros(CveContrato As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Trans_ViajesPasajerosGet")
         With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveViaje", SqlDbType.Int).Value = CveViaje
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
             .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero
             .Add("@Estatus", SqlDbType.Int).Value = Estatus
         End With