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

sub set_buchung_datum($$;$) {
	my($rech,$seq,$kn) = @_;
	my $done;
	return undef unless check_perm("verwaltung");
	my $datum;

	$datum = select_date(256,"Startdatum",undef,qw(= jetzt));
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";
		log_update("buchung","rnr",$rech,"seq",$seq,undef,"beginn",undef, scalar isotime DoFn "select ende from buchung where rnr=$rech and seq=$seq");
		Do("update buchung set beginn=$datum where rnr=$rech and seq=$seq");
		$done += 2;
	}
	$datum = select_date(16|256,"Enddatum",undef,qw(= jetzt));
	if(defined $datum) {
		$datum = DoTime if $datum eq "=";
		$datum = "NULL" if $datum == 0;
		log_update("buchung","rnr",$rech,"seq",$seq,undef,"ende",undef, scalar isotime DoFn "select ende from buchung where rnr=$rech and seq=$seq");
		Do("update buchung set ende=$datum where rnr=$rech and seq=$seq");
		$done++;
	}
	$done;
}
1;
