From 161c747e8319ca0fcfc059a9ea31d98afb3ff691 Mon Sep 17 00:00:00 2001
From: Erik Huelsmann <ehuels@gmail.com>
Date: Sun, 23 Apr 2023 21:57:09 +0200
Subject: [PATCH] Reversing a credit/debit invoice should result in a
 sales/purchase invoice...

---
 old/bin/ir.pl | 2 +-
 old/bin/is.pl | 7 +------
 2 files changed, 2 insertions(+), 7 deletions(-)

diff --git a/old/bin/ir.pl b/old/bin/ir.pl
index 10977587380..021306eb24f 100644
--- 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
index 74db33a9a39..566f4f1b05f 100644
--- 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(