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

sub set_ktarif_nextrechnung($;$) {
	my($tari,$kn) = @_;
	my($id,$onr) = DoFn("select kunde,nextrech from tarifkunde where id=$tari");

	my $datum = select_date(256|512,"Nächste Berechnung",undef,qw(- jetzt x =Beginn));
	return unless defined $datum;
	$datum = DoTime if $datum eq "-";
	$datum = "NULL" if $datum eq "x";
		
	log_update("tarifkunde","id",$tari,undef,"nextrech",undef,scalar isotime $onr);
	Do("update tarifkunde set nextrech=$datum where id=$tari");
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
}
1;
