X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ee9f9f9aa4c3b9d5d20ab10a45c12bcaa6aa78d0..54ddc03:/SL/AR.pm

diff --git a/SL/AR.pm b/SL/AR.pm
index fe3e4431b..11333cef0 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -446,6 +446,11 @@ sub ar_transactions {
     $where .= " AND c.name ILIKE ?";
     push(@values, $form->like($form->{customer}));
   }
+  if ($form->{business_id}) {
+    my $business_id = $form->{business_id};
+    $where .= " AND c.business_id = ?";
+    push(@values, $business_id);
+  }
   if ($form->{department_id}) {
     my $department_id = $form->{department_id};
     $where .= " AND a.department_id = ?";