#======================================================================
use SL::IR;
+use SL::IS;
use SL::PE;
require "$form->{path}/io.pl";
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
+ my $show_storno = !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ap");
+
print qq|<input class=submit type=submit name=action value="|
. $locale->text('Post Payment') . qq|">
|;
print qq|<input class=submit type=submit name=action value="|
. $locale->text('Storno') . qq|">
-| unless ($form->{storno});
+| if ($show_storno);
if ($form->{radier}) {
print qq|
<input class=submit type=submit name=action value="|
$form->error($locale->text('Cannot storno storno invoice!'));
}
- if (IR->has_storno(\%myconfig, $form)) {
+ if (IS->has_storno(\%myconfig, $form, "ap")) {
$form->error($locale->text("Invoice has already been storno'd!"));
}
+ invoice_links();
+ prepare_invoice();
+ relink_accounts();
+
$form->{storno_id} = $form->{id};
$form->{storno} = 1;
$form->{id} = "";