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_arechnung_kunde($;$) {
	my($rech,$kn) = @_;

	return undef unless check_perm("rechnung");

	my $akn = edit_kunden(1,"Kunde"); return unless defined $akn;

	log_update("rechnungen","rnr",$rech,undef,"kunde",undef,DoFn("select kunde from rechnungen rnr=$rech"));
	Do("update rechnungen set kunde=$akn where rnr=$rech");
}
1;
