use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update check_perm select_descr);
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(get_descr);
use Fehler qw(problem);

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

	return undef unless check_perm("verwaltung");

	my $einh = select_descr("einheit",4,undef,"Einheit","!hide");
	return undef unless defined $einh;
	$einh="NULL" if $einh eq "-";
	
	log_update("buchung","rnr",$rech,"seq",$seq,undef,"meinheit",undef,
		get_descr("einheit",DoFn("select meinheit from buchung where rnr=$rech and seq=$seq"),1));
	Do("update buchung set meinheit=$einh where rnr=$rech and seq=$seq");
}
1;
