+sub _max_datepaid {
+ my $form = $main::form;
+
+ my @dates = sort { $b->[1] cmp $a->[1] }
+ map { [ $_, $main::locale->reformat_date(\%main::myconfig, $_, 'yyyy-mm-dd') ] }
+ grep { $_ }
+ map { $form->{"datepaid_${_}"} }
+ (1..$form->{rowcount});
+
+ return @dates ? $dates[0]->[0] : undef;
+}
+
+