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

sub list_arechnungen($;$$) {
	my($id,$flag,$kn) = @_;
	$flag=0 unless $flag;
	line_printer;

	my($hdr,$hdi,$sdi);
    my $ha;

	DoSelect {
		my($rnr,$datum,$storno,$betrag) = @_;
		print $Db::pr_fh <<END unless $hdr++ or $flag&1;
    ID     Betrag     ID Auftrag                          Datum     Rechnungsnr
END
			goto out unless
		printf $Db::pr_fh "%6s %10.2f %6s %-32.32s %10s %1s %8d\n", "",$betrag/100,"-","",scalar isodate $datum,$storno?"S":" ",$rnr;
	} "select rnr,datum,storniert,betrag from rechnungen where kunde = $id order by datum"
		or do { print "(leer)\n" unless $flag&1; };

out:
	$hdr;
}
1;
