my $transdate = $::form->{transdate} ? DateTime->from_lxoffice($::form->{transdate}) : undef;
$transdate ||= DateTime->today;
my $transdate = $::form->{transdate} ? DateTime->from_lxoffice($::form->{transdate}) : undef;
$transdate ||= DateTime->today;