use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_printer);
use Dbase::Help qw(DoSelect qquote);
use Dbase::Globals qw(get_descr);

sub list_recheinheiten($$;$) {
	my($sid,$typ,$kn) = @_;
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my($id,$name,$info,$start,$faktor) = @_;
		$info="" unless defined $info;
		if($start == $faktor) {
			$start = "=    ";
		} elsif($start) {
			$start = sprintf("%.3f",$start/1000);
			$start =~ s/\.000/    /;
		} else {
			$start = "0    ";
		}
		if($faktor) {
			$faktor = sprintf("%.3f",$faktor/1000);
			$faktor =~ s/\.000/    /;
		} else {
			$faktor = "0    ";
		}

		print $Db::pr_fh <<END unless $hdr++;
 ID Name           Faktor                 ab     Info
END
		goto out unless
		printf $Db::pr_fh "%3d %-6s %18s %18s %s\n",$id,$name,$faktor,$start,$info;
	} "select id,name,info,start,faktor from recheinheit where rechstep=$sid and typ=${\qquote $typ} order by start"
		or print "(leer)\n";
out:
	$res;
}
1;
