EndOfText
}
if ($options & 0x02)
{
print_block_ref_2graphs($stock, $data, $intra_data, $id, $adds_graph);
print_banner_ads("aandeel_midden", "$stock->{market}", 0, 1) if (show_adds("aandeel_advies"));
print_advies($stock, $data, $intra_data, $id, $table, undef);
print_candle_graph($stock, $data, $intra_data, $id, $table, $adds_graph);
}
else
{
print_advies($stock, $data, $intra_data, $id, $table, undef);
print_block_ref_2graphs($stock, $data, $intra_data, $id, $adds_graph);
print_banner_ads("aandeel_midden", "$stock->{market}", 0, 1) if (show_adds("aandeel_advies"));
print_candle_graph($stock, $data, $intra_data, $id, $table, $adds_graph);
}
print "
\n";
print info_block();
print "
\n";
# print disclaimer();
if (!$is_old)
{
$table = get_kantelpunten_table($stock, $data, undef, get_2years_ago($data->{quote_last}), 2);
print $table;
print "
\n";
}
if (0 && !$is_old)
{
print "
\n";
my $layout;
$layout = "adviezen" if ($options & 0x2);
$layout = "grafieken" if (!($options & 0x2));
my $graph;
my $graph_text;
$graph_text = $graph = "candles" if ($options & 0x04);
$graph_text = "$graph.";
$graph = "incl_scan" if (!($options & 0x04));
$graph_text = "incl. scan." if (!($options & 0x04));
print <
U kunt de layout van deze pagina wijzigen : $layout bovenin.
EndOfText
#U kunt de layout van de 3-maands grafiek aanpassen : $graph_text
}
print_voet_start();
my @extra;
push @extra, "belegger_klein" if ($stock->{belegger} ne "");
push @extra, "bduivel_klein" if ($stock->{bduivel} ne "");
print_ads("yahoo_klein", (@extra));
print_empty_lines(1, 0);
print_div("end");
}
sub print_5day_graph(@)
{
my ($stock, $data, $id) = @_;
if ($stock->{tick_sym} ne "")
{
my $intra_data = read_all_intra_data($id);
if (defined($intra_data) && defined($intra_data->{$id}))
{
print_5days_graph($stock->{stock}, $data, (($intra_data->{$id}->{next_try} < time()) ? 'update' : undef));
}
else
{
print_5days_graph($stock->{stock}, $data);
}
}
else
{
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
}
}
sub print_block_ref_2graphs(@)
{
my ($stock, $data, $intra_data, $id) = @_;
print "
\n";
# print_ref2($stock);
# print "
\n";
if (!$is_old)
{
print_our_graph($stock, 'scanm', "/pl/ShowMain.pl?page=20077", "Klik voor informatie over de trendgrafiek.", undef, undef, undef, "noline");
print_space(2);
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Weekly", $stock->{our_data}, undef, 1);
# print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Quarterly", $stock->{our_data});
# print_our_graph($stock, 'bb', "/pl/ShowMain.pl?page=20077", "Klik voor informatie over de trendgrafiek.");
# print_our_graph($stock, 'bb');
# This is the old 5day graph
# print_5day_graph($stock, $data, $id);
}
else
{
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
print_space(2);
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Weekly", $stock->{our_data}, undef, 1);
}
print "
\n";
print_ref1($stock);
print_google_search("aandeel", $stock->{market});
print_empty_lines(1, 0);
print "
\n";
}
sub print_advies(@)
{
my ($stock, $data, $intra_data, $id, $table, $header) = @_;
print "
\n";
print "$header\n" if (defined($header));
if (0 && !$is_old)
{
my $text = <
Buy? signalen moeten aan bijkomende voorwaarden voldoen, voor ze "Direct Advies" worden.
EndOfText
$text = ""; # voorlopig geen extra tekst
if (show_adds("aandeel_scan"))
{
my $left = ((rand(100) > 50) ? 0 : 1);
print_table(0, undef, 0, 0, 0, undef, "95%", "center");
print "\n";
if ($left)
{
print "\n";
print_banner_ads("aandeel_beide", $stock->{market});
print " | \n";
}
print "\n";
print_our_graph($stock, 'scan', "/pl/ShowMain.pl?page=20077", "Klik voor informatie over de trendgrafiek.");
print $text;
print " | \n";
if (!$left)
{
print "\n";
print_banner_ads("aandeel_beide", $stock->{market});
print " | \n";
}
print "
\n";
}
else
{
print_our_graph($stock, 'scan', "/pl/ShowMain.pl?page=20077", "Klik voor informatie over de trendgrafiek.");
print $text;
}
print "
\n";
}
print_table(0, undef, 0, 0, 0, undef, "100%");
print "\n";
# left buttons
print " \n";
print_div("center");
if (1 || $is_old)
{
print " \n";
}
else
{
print_buttons(undef, $page, 'homepage');
print " \n";
my $favorites = set_favorites();
print_buttons($stock->{stock}, undef, ((substr($favorites, $id, 1) eq "0") ? 'fav_add' : 'fav_del'));
}
print_div("end");
print " | \n";
# center graphic
print " \n";
print_div("center");
if ($table ne "")
{
print $table;
if (0 && !$is_old && defined($stock->{bk_id}) && ($stock->{bk_id} ne ""))
{
print <
EndOfText
}
}
else
{
print_our_graph($stock, 'kantelg', "/pl/ShowMain.pl?page=20075", "Klik voor informatie over onze grafieken",
($options & 0x04) ? 1 : undef,
(($intra_data->{$id}->{next_try} < time()) ? 'update' : undef),
($is_old ? $data->{quote_last} : undef) );
}
# elsif (defined($stock->{bchart_symb}) && ($stock->{bchart_symb} ne ""))
# {
# print interim_heading($stock->{html_name}, "3 maanden", 'dblack');
# print_big_graph($stock, $stock->{bchart_symb}, $stock->{bchart_sid},
# $stock->{bchart_sedol}, "month");
# }
print_div("end");
print " | \n";
# right buttons
print " \n";
print_div("center");
print " \n";
# print_buttons($stock->{stock}, undef, 'kantel');
# print " \n";
# print_buttons($stock->{stock}, undef, 'nieuws', (($stock->{tick_sym} ne "") ? 'intraday' : undef), 'quotes', 'analyse');
# print " \n";
# my $ktitle = sprintf("%d juist van de %d adviezen.\n Klik voor details.", $data->{num_ok}, $data->{num_ok}+$data->{num_nok});
# print_pie_graph('small', $data->{num_ok}, $data->{num_nok}, $ktitle, $stock->{market},
# "ShowKantelpunten.pl?stock=$stock->{stock}");
print_div("end");
print " | \n";
print "
\n";
print_table(0, "end");
}
sub print_candle_graph(@)
{
my ($stock, $data, $intra_data, $id, $table, $adds) = @_;
# if (($table ne "") && defined($stock->{bchart_symb}) && ($stock->{bchart_symb} ne ""))
# {
# print interim_heading($stock->{html_name}, "3 maanden", 'dblack');
# print_big_graph($stock, $stock->{bchart_symb}, $stock->{bchart_sid},
# $stock->{bchart_sedol}, "month", 1);
# }
if ($table ne "")
{
print "
\n";
print_our_graph($stock, 'kantelg', "/pl/ShowQuotes.pl?stock=$stock->{stock}", "Toon de volume-onderschepper.",
($options & 0x04) ? 1 : undef,
(($intra_data->{$id}->{next_try} < time()) ? 'update' : undef),
($is_old ? $data->{quote_last} : undef) );
# if (is_super_user() && defined($stock->{bchart_symb}) && ($stock->{bchart_symb} ne ""))
# {
# print interim_heading($stock->{html_name}, "3 maanden", 'dblack');
# print_big_graph($stock, $stock->{bchart_symb}, $stock->{bchart_sid},
# $stock->{bchart_sedol}, "month");
# }
}
# print interim_heading("
" . $stock->{html_name}, "Laatste maand met volumes", 'dblack');
# print_big_graph($stock, $stock->{bchart_symb}, $stock->{bchart_sid},
# $stock->{bchart_sedol}, "volume", 1);
# print_newline(0, 1, 0);
# print_banner_ads("aandeel_midden", "$stock->{market}", 1, 1) if (show_adds("aandeel_advies"));
print_banner_ads("aandeel_midden", "$stock->{market}", 1) if (show_adds("aandeel_advies"));
if (($stock->{tick_sym} ne "") && (!$is_old))
{
print "
\n";
if (defined($adds)) # we always have to do something if adds enabled
{
if (($adds == 0) || ($adds == 1)) # show the 2year graph first
{
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Weekly", $stock->{our_data}, undef, 1);
print_space(2);
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
}
elsif ($adds == 2)
{
print_banner_ads("aandeel_grafiek", $stock->{market});
print_space(2);
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
}
else
{
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
print_space(2);
print_banner_ads("aandeel_grafiek", $stock->{market});
}
}
else
{
print interim_heading(undef, "Overzicht van de laatste jaren", 'dblack') if (!$stock->{our_data});
print_analytical_graph($stock->{stock}, $stock->{bchart_symb}, $stock->{bchart_sid}, "Yearly", $stock->{our_data});
}
}
}
sub print_heading(@)
{
my ($heading, $comment, $img) = @_;
printf "\n\n", $heading;
print "\n";
if (defined($img))
{
print "";
print "$heading
| ";
print " | ";
print "$img | ";
print "
\n";
}
else
{
printf " %s
\n", $heading;
}
print "\n";
print "\n";
printf " %s\n", $comment;
print "\n";
}
sub print_ref1(@)
{
my ($stock, $adds) = @_;
return; # never show, is shown in the menu.
return if ($is_old);
if (!defined($adds) || (($adds != 0) && ($adds != 1)))
{
print_link_unit("aandeel", $stock->{market}, undef, 1) if (show_adds("aandeel_link"));
}
print "\n";
print " \n";
print " \n";
print " \n";
printf " Bedrijf\n", $stock->{id}, get_cur_stock_idx();
print " \n";
printf " Winst\n", $stock->{id}, get_cur_stock_idx();
print " \n";
printf " Website\n", $stock->{id}, get_cur_stock_idx();
print " \n";
if ($stock->{kalender} ne "")
{
printf " Kalender\n", $stock->{id}, get_cur_stock_idx();
}
else
{
print "Kalender\n";
}
print " \n";
printf " Nieuws\n", $stock->{id}, get_cur_stock_idx();
print " \n";
printf " Koers\n", $stock->{id}, get_cur_stock_idx();
print " \n";
printf " Advies\n", $stock->{id}, get_cur_stock_idx();
print " \n";
if ($stock->{dft_forum} ne "")
{
printf " Forum\n", $stock->{id}, get_cur_stock_idx();
}
else
{
print "Forum\n";
}
# RT removed as SNS does not give RT anymore
if (0)
{
print " \n";
my $rt = 0;
if ($stock->{sns_fc} ne "")
{
my $refresh = set_refreshday();
if (defined($refresh))
{
my @loc_time = localtime(time());
if ($refresh != (@loc_time[7] + 1))
{
$rt = 1;
if ($refresh != 0)
{
set_refreshday(0);
write_user_rec();
}
}
}
else
{
$rt = 1;
}
}
if ($rt != 0)
{
printf " Koers RT\n", $stock->{id}, get_cur_stock_idx();
}
else
{
print "Koers RT\n";
}
}
print " \n";
print_newline(3, 2, 6);
print " \n";
print " \n";
print "\n";
}
sub print_ref2(@)
{
my ($stock, $adds) = @_;
return if ($is_old);
print "\n";
print " \n";
printf " Intraday + actieve vergelijkig met de laatste 5 dagen.\n", $stock->{id}, get_cur_stock_idx();
print " \n";
print "\n";
if (!defined($adds) || (($adds != 0) && ($adds != 1)))
{
print_link_unit("aandeel", $stock->{market}, undef, 1) if (show_adds("aandeel_link"));
}
}
sub info_block(@)
{
return "";
my $text = "";
my $yes = " ";
$text = "
\n";
$text .= "\"$yes\"
\n";
$text .= "We beschouwen een kantelpunt pas geslaagd vanaf +1 % winst.
\n";
$text .= "Winsten tussen de 0.01 % en 0.99 % rekenen wij bij de foute handelingen.
\n";
$text .= "Geteld vanaf onze trigger.
\n";
$text .= "
\n";
$text .= "\" Max% \"
\n";
$text .= "Dit is niet het rendement tussen kooptrigger en stoploss.
\n";
$text .= "Dit is de hoogste % winst die mogelijk was. Geteld vanaf onze trigger.
\n";
$text .= "Aan deze prijzen werden aandelen verhandeld.
\n";
$text .= "
\n";
$text .= "Geslaagde stoplossen krijgen de groene kleur. Lager inkopen is winst.
\n";
my $twee = "verdubbeld";
$text .= "Wanneer terug op Uw oude verkoopprijs bent, is Uw winst $twee !Voorbeeld.
\n";
$text .= "
\n";
$text .= "\" Days# \"
\n";
$text .= "Aantal kalenderdagen tussen trigger/stoploss en \" Max% \".
\n";
$text .= "Het aantal beursdagen is dus sowieso vaak minder.
\n";
$text .= "De dag van de trigger rekenen we als eerste dag ( en niet als dag 0 ).
\n";
$text .= "\n";
return $text;
}