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

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

	return undef unless check_perm("rechnung");

	log_update("buchung","rnr",$rech,undef,"-");
	Do("delete from buchung where rnr = $rech");
}
1;
