use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Help qw(DoSelect);
use Fehler qw(warnung);
use Loader qw(check_perm export_fibunet export_kunde);

sub export_kunden(;$$) {
	my($flag,$kn) = @_;
	$flag=0 unless $flag;
	return unless check_perm("verwaltung");

	export_fibunet( sub {
		DoSelect {
			my($kid) = @_;
			export_kunde($kid,$flag|1|8,$kn);
		} "select id from kunde";
		"";
	}, "Stammdaten alle Kunden",$flag,$kn );
}

1;
