use utf8;
use warnings; no warnings "redefine";
use strict;
use Fehler qw(problem);
use Loader qw(line_printer);
use Dbase::Help qw(DoSelect DoFn isotime);
use Dbase::Globals qw(name_dienst name_kunde rund);

sub list_recheinheit($;$) {
	my($id,$kn) = @_;
	line_printer;

	DoSelect {
	    my($timestamp,$rechstep,$start,$faktor,$name,$info) = @_;
		my($d,$k) = DoFn("select dienst,kunde from rechstep where id=$rechstep");
		$d = name_dienst $d;
		$k = $k ? name_kunde($k) : "-";
		print  $Db::pr_fh "ID        : $id\n";
		print  $Db::pr_fh "Timestamp : ".isotime($timestamp)."\n";
		print  $Db::pr_fh "Schritt   : #$rechstep ($k/$d)\n";
		printf $Db::pr_fh "Anzeige ab: %.3f\n",rund($start)/1000;
		printf $Db::pr_fh "Faktor    : %.3f\n",rund($faktor)/1000;
		print  $Db::pr_fh "Name      : $name\n";
		print  $Db::pr_fh "Info      : $info\n" if defined $info;
	} "select timestamp,rechstep,start,faktor,name,info from recheinheit where id = $id"
		or problem "Schritt '$id' unbekannt";
}
1;
