sub get_openbalance_date {
my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_;
sub get_openbalance_date {
my ($closedto, $target) = map { $::locale->parse_date_to_object(\%::myconfig, $_) } @_;
$closedto->subtract(years => 1) while ($target - $closedto)->is_negative;
$closedto->add(days => 1);
return $::locale->format_date(\%::myconfig, $closedto);
$closedto->subtract(years => 1) while ($target - $closedto)->is_negative;
$closedto->add(days => 1);
return $::locale->format_date(\%::myconfig, $closedto);
# get date of last opening balance
my $startdate = get_openbalance_date($closedto, $form->{asofdate});
# get date of last opening balance
my $startdate = get_openbalance_date($closedto, $form->{asofdate});