1 files changed, 3 insertions, 1 deletions
diff --git a/LedgerSMB/IR.pm b/LedgerSMB/IR.pm
index ff0b2704..f3008ef3 100644
--- a/LedgerSMB/IR.pm
+++ b/LedgerSMB/IR.pm
@@ -406,6 +406,8 @@ sub post_invoice {
                     $form->update_balance( $dbh, "invoice", "allocated",
                         qq|id = $ref->{id}|,
                         $qty * -1 );
+                    $form->update_balance( $dbh, "invoice", "allocated",
+				qq|id =$invoice_id|,$qty);
 
                     $allocated += $qty;
 
@@ -1411,4 +1413,4 @@ sub toggle_on_hold {
     }
 }
 
-1;
-\ No newline at end of file
+1;