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

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

	my $modu;
	while(1) {
		$modu = line_in "Rechnung für JJJJMM> ";
		return if $modu eq "";
		if($modu eq "?") {
			print "JJJJMM  Monat der nächsten Rechnung\n";
			next;
		}
		if($modu eq "-") {
			$modu = "NULL";
			last;
		} elsif($modu !~ /^\d{6}$/) {
			print "Abbruch...\n";
			return;
		}
		last;
	}
	log_update("kunde","id",$id,undef,"zuletzt",undef,
		DoFn("select zuletzt from kunde where id=$id"));
	Do("update kunde set zuletzt=$modu, geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
}
1;
