-

Transportes/Boletos.aspx.vb

@@ -77,9 +77,6 @@ Partial Class Boletos
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
-
-
-
             If Request.QueryString("CveViaje") Is Nothing And UsuarioActual.CveVendedor <> Nothing And UsuarioActual.CveVendedor <> -1 Then
                 Response.Redirect("/Transportes/RepViajes.aspx")
             End If
@@ -204,9 +201,7 @@ Partial Class Boletos
                 Else
                     ImporteR = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL
                 End If
-
                 ImporteR = If(edad <= 4 Or edad >= 60, ImporteR - 20, ImporteR)
-
             End If
 
             If ImporteR > 0 Then
@@ -256,8 +251,6 @@ Partial Class Boletos
 
         Try
             For Each dr As DataRow In DtPasajeros.Rows
-
-
                 Dim CveViajePasajero As Integer = ObjTransporte.AddViajesPasajeros(CveViaje, dr("CveDestinoOrigen").ToString.ToEntero, dr("CveDestinoFinal").ToString.ToEntero, UsuarioActual.CveVendedor, dr("Importe").ToString.ToDecimal, dr("Asiento").ToString.ToEntero, dr("Nombre").ToString, dr("FechaNacimiento").ToString.ToDate, dr("CveSexo").ToString.ToBool, dr("Visa").ToString, dr("Celular").ToString, dr("Observaciones").ToString, UsuarioActual.CveUsuario)
 
                 If CveViajePasajero < 1 Then
@@ -265,7 +258,6 @@ Partial Class Boletos
                     SbAlert.Append("Ocurrió un error al generar el viaje")
                     Exit For
                 End If
-
                 dr("CveViajePasajero") = CveViajePasajero
                 'dr("Numero") = dr("Importe").ToString
             Next
@@ -490,6 +482,7 @@ Partial Class Boletos
             ObjFactura.CveSubProyectoEjecucion = CveSubProyecto
             ObjFactura.SetSubProyecto()
             ObjFactura.SetSubProyectoMatriz()
+            If ObjFactura.CveMoneda >= 2 Then ObjFactura.TipoCambio = GlobalTipoCambio(ObjFactura.Fecha).ToDecimal
 
             For Each Dr As DataRow In DtPasajeros.Rows
                 Dim Obs As String = Dr("Observaciones").ToString
@@ -501,7 +494,6 @@ Partial Class Boletos
                 End If
 
                 Dim PorcentajeIVA As Decimal = 0
-
                 Dim DrPS As DataRow = ClsPaginas.GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSBoleto).FiltroPrimero("") ' Estado = -1
 
                 If DrPS Is Nothing Then
@@ -544,7 +536,4 @@ Partial Class Boletos
         Return Retorno
     End Function
 
-
-
-
 End Class