From aabdf0b235eb520521e6b85f066705b74dc73172 Mon Sep 17 00:00:00 2001
From: Erik Huelsmann <ehuels@gmail.com>
Date: Thu, 16 Nov 2023 21:54:31 +0100
Subject: [PATCH] Fix transaction reversal failing REVERSED state

---
 old/bin/aa.pl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/old/bin/aa.pl b/old/bin/aa.pl
index 14a12960f9..2ab345ad24 100644
--- a/old/bin/aa.pl
+++ b/old/bin/aa.pl
@@ -176,6 +176,9 @@ sub reverse {
     $form->{title}     = $locale->text('Add');
     $form->{reversing_reference} = $form->{invnumber};
     $form->{invnumber} .= '-VOID';
+    my $wf = $form->{_wire}->get( 'workflows' )
+        ->fetch_workflow( 'AR/AP', $form->{workflow_id} );
+    $wf->execute_action( 'reverse' );
 
     &create_links;