use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update edit_kunden check_perm);
use Dbase::Help qw(Do DoFn);

sub set_buchung_kunde($$;$) {
	my($rech,$seq,$kn) = @_;

	return undef unless check_perm("verwaltung");

	my $akn = edit_kunden(1,"für"); return unless defined $akn;
	log_update("buchung","rnr",$rech,"seq",$seq,undef,"kunde",undef,DoFn("select kunde from buchung where rnr=$rech and seq=$seq"));
	Do("update buchung set kunde=$akn where rnr=$rech and seq=$seq");
}
1;
