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

sub set_acct_datum($$;$) {
	my($hash,$seq,$kn) = @_;
    my($id,$ojjmm,$ott) = DoFn("select kunde,jjmm,tt from acct where `hash`=$hash and seq=$seq");
	my $ojmt = sprintf("%4d-%02d-%02d",int($ojjmm/100),$ojjmm%100,$ott);

	my $datum = select_date(1|256,"Datum",undef,qw(= jetzt));
	return unless defined $datum;
	$datum = DoTime if $datum eq "-";

	my($jj,$mm,$tt) = isodate($datum);
	my $jjmm = $jj*100+$mm;


	log_update("acct","hash",$hash,"seq",$seq,undef,"datum",undef,$ojmt);
	Do("update acct set jjmm=$jjmm, tt=$tt where `hash`=$hash and seq=$seq");

    if($id > 0) {
        Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
    }
    ($hash,$seq);
}
1;
