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);
use Dbase::Globals qw(content);

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

	content ( my $modu = line_in "Zahlungsziel (Tage):" )
		or return undef;
	if($modu eq "-") {
		$modu = "NULL";
	} else {
		return problem "'$modu' ist keine Zahl > 0" if $modu !~ /^[1-9]\d?$/;
	}

	log_update("kunde","id",$id,undef,"zahlung",undef,
		DoFn("select zahlung from kunde where id=$id"));
	Do("update kunde set zahlung=$modu where id=$id");
}
1;
