--Se modificó contratos para que agregara Importe en dólares a Importe en ClsContratos, ImporteMax para los pesos e ImporteMin para el anticipo. Se limpio el campo de DdlClientes al querer guardar un contrato nuevo.

Transportes/Boletos.aspx.vb

@@ -157,6 +157,7 @@ Partial Class Boletos
             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
+                Alert("Boleto generado correctamente")
                 ObjTransporte.Commit()
             End If
         Catch ex As Exception
@@ -164,7 +165,6 @@ Partial Class Boletos
             Alert($"No se pudo generar el boleto {ex}", TipoMensaje.MsgError)
         Finally
             ObjTransporte.Dispose()
-            Response.Redirect($"/Transportes/Boletos.aspx?CveViaje={CveViaje}")
         End Try
 
     End Sub