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

sub list_rechsteps_kunden() {
	line_printer;
	my $ksel = "kunde is not NULL";

	my $hdr;
	my $res = DoSelect {
		my($id,$step,$dienst,$flags,$info,$kunde) = @_;
		$info="" unless defined $info;

		print $Db::pr_fh <<END unless $hdr++;
Pos Kunde        Dienst          Flags+Info
END
		goto out unless
		printf $Db::pr_fh "%3d %-12s %-15s %s %s\n",$step,name_kunde($kunde),name_dienst($dienst),scalar flag_names($flags,"acctflag"),$info;
	} "select id,step,dienst,flags,info,kunde from rechstep where $ksel order by step,dienst,kunde"
		or print "(leer)\n";
out:
	$res;
}
1;
