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

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

sub export_acct_kunden(;$$$) {
	my($flag,$kn,$mrnr) = @_;
	$flag=0 unless $flag;
	return unless check_perm("rechnung");
	my $xrnr = $mrnr ? " ab Re $mrnr" : "";

	$flag &= ~8;

	export_fibunet( sub {
		DoSelect {
			my($kid) = @_;
			export_acct_kunde($kid,$flag,$kn,$mrnr);
		} "select id from kunde";
		"";
	}, "buche alle Kunden$xrnr",$flag,$kn );
}

1;
