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

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

	return undef unless check_perm("rechnung");

	my $konto = line_in "Konto: ";
	return undef if $konto eq "";
	if($konto eq "-") {
		$konto = "NULL";
	} else {
		return problem "'$konto' ist keine Zahl.\n" if $konto !~ /^\d+$/;
	}
	
	log_update("rechnungen","rnr",$rech,undef,"konto",undef,DoFn("select konto from rechnungen where rnr=$rech"));
	Do("update rechnungen set konto=$konto where rnr=$rech");
}
1;
