diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 22f389db4..d1c65a7c6 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -135,14 +135,14 @@ Public Class ClsTransportes #End Region #Region "Boletos" - 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 + 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 Dim Retorno As Integer = -1 DataAdapter("PA_Trans_ViajesPasajerosAdd") With SqlAdapter.SelectCommand.Parameters .Add("@CveViajePasajero", SqlDbType.Int).Direction = ParameterDirection.Output - .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje .Add("@CveDestinoOrigen", SqlDbType.Int).Value = CveDestinoOrigen .Add("@CveDestinoFinal", SqlDbType.Int).Value = CveDestinoFinal .Add("@Importe", SqlDbType.Money).Value = Importe @@ -310,89 +310,6 @@ Public Class ClsTransportes End Function #End Region - '#Region "Rutas" - ' Public Function GetRutas(CveRuta As Integer, CveUsuario As Integer, CveEmpresa As Integer, Ruta As String, Estatus As Boolean, FechaIng As DateTime) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasGet") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Estatus - ' .Add("@FechaIng", SqlDbType.DateTime).Value = FechaIng - - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - - ' Catch ex As Exception - ' OnError("Ocurrió un error al obtener las rutas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function AddRuta(Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Integer - ' Dim Retorno As Integer = -1 - - ' DataAdapter("PA_Trans_RutasAdd") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Direction = ParameterDirection.Output - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = CInt(SqlAdapter.SelectCommand.Parameters("@CveRuta").Value.ToString) - ' Catch ex As Exception - ' OnError("Ocurrió un error al agregar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function UpdateRuta(CveRuta As Integer, Ruta As String, Estatus As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Trans_RutasUpdate") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' .Add("@Ruta", SqlDbType.VarChar).Value = Ruta - ' .Add("@Estatus", SqlDbType.Bit).Value = Convert.ToBoolean(Estatus) - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al actualizar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - ' Public Function RemoveRuta(CveRuta As Integer) As Boolean - ' Dim Retorno As Boolean = False - - - ' DataAdapter("PA_Trans_RutasRemove") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveRuta", SqlDbType.Int).Value = CveRuta - ' End With - - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al eliminar la ruta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - - ' Return Retorno - ' End Function - - '#End Region - #Region "Importes" Public Function GetDestinosTarifas(CveSubProyecto As Integer, CveDestinoOrigen As Integer, CveDestinoFinal As Integer) As Boolean Dim Retorno As Boolean = False @@ -469,5 +386,4 @@ Public Class ClsTransportes Return Retorno End Function #End Region - End Class diff --git a/Transportes/RepContratoDetalle.aspx b/Transportes/RepContratoDetalle.aspx index c7940de17..9f55e033b 100644 --- a/Transportes/RepContratoDetalle.aspx +++ b/Transportes/RepContratoDetalle.aspx @@ -10,7 +10,6 @@