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

sub set_kunde_erloeskonto($;$) {
	my($id,$kn) = @_;
	my($oerloes) = DoFn("select erloeskonto from kunde where id=$id");

	my $konto = line_in "Konto: ";
	return undef if $konto eq "";
	if($konto eq "-") {
		$konto = "NULL";
	} else {
		return problem "keine Zahl" unless $konto =~ /^\d+$/;
	}
	log_update("kunde","id",$id,undef,"erloeskonto",undef,$oerloes);
	Do("update kunde set erloeskonto=$konto, geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");

	$konto;
}
1;
