Reversing a credit/debit invoice should result in a sales/purchase in…

…voice...
ledgersmb · Apr 25, 2023 · 161c747 · 161c747
1 parent 01c2c9e
commit 161c747
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 7 deletions.
diff --git a/old/bin/ir.pl b/old/bin/ir.pl
@@ -542,7 +542,7 @@ sub form_header {
 }
 
 sub reverse {
-    $form->{reverse} = 1;
+    $form->{reverse} = not $form->{reverse};
     $form->{paidaccounts} = 1;
     if ($form->{paid_1}){
        warn $locale->text(

diff --git a/old/bin/is.pl b/old/bin/is.pl
@@ -612,13 +612,8 @@ sub form_header {
 }
 
 sub void {
-    if ($form->{invnumber} =~ /-VOID$/){
-       $form->error($locale->text(
-           "Can't void a voided invoice!"
-       ));
-    }
     my $invnumber = $form->{invnumber} . '-VOID';
-    $form->{reverse} = 1;
+    $form->{reverse} = not $form->{reverse};
     $form->{paidaccounts} = 1;
     if ($form->{paid_1}){
        warn $locale->text(