=head2 Aenderungen

2001-12-19 smurf Beruecksichtige nur aktive Tarife, wenn nicht Flag
2001-12-20 smurf Importe

=cut

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

sub list_tarif_kunden($;$$) {
	my($tarif,$flag,$kn) = @_;
	line_printer;

	my $all;
	if($flag & 1) {
		$all = "";
	} else {
		$all = "and (tarifkunde.ende is NULL or tarifkunde.ende > UNIX_TIMESTAMP(NOW()))";
	}

	my $hdr;

	my $res = DoSelect {
		my($kunde,$ukunde,$name) = @_;

		print $Db::pr_fh <<END unless $hdr++;
Nr.   UK?  Kunde
==========================================
END

		if($ukunde) {
			$ukunde = sprintf "%4d",$ukunde;
		} else {
			$ukunde = "-";
		}
		goto out unless
		printf $Db::pr_fh "%4d %4s  %s\n",$kunde,$ukunde,$name;
	} "select distinct kunde.id,kunde.kunde,kunde.name from kunde,tarif,tarifklasse,tarifkunde where kunde.id = tarifkunde.kunde and tarif.klasse=tarifklasse.id and tarifklasse.tarifname = tarifkunde.tarifname and tarif.id = $tarif and tarifkunde.dienst = tarif.dienst $all order by kunde.id"
		or print "(leer)\n";
out:
	$res;
}
1;
