use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoSelect DoFn);
use Dbase::Globals qw(name_kunde content);
use Loader qw(line_printer);

sub list_buchungen($;$) {
	my($rech,$kn) = @_;
	my $first=0;
	my $okunde = DoFn("select kunde from rechnungen where rnr = $rech");
	line_printer;

	my $res = DoSelect {
		my($seq,$konto,$kunde,$betrag,$inhalt) = @_;
		print $Db::pr_fh <<END unless $first++;
ID  Konto     Betrag Text
END
		if($kunde == $okunde) {
			$kunde = "";
		} else {
			$kunde = name_kunde($kunde).": ";
		}
		$inhalt="??" unless content($inhalt);
			goto out unless 
		printf $Db::pr_fh "%2d %6d %10.2f %s%s\n",$seq,$konto,$betrag/100,$kunde,$inhalt;

	} "select seq,konto,kunde,betrag,buchtext from buchung where rnr = $rech"
		or print "(leer)\n";
out:
	$res;
}

1;
