From 526095511932c413bb012aac5d6092bdb1d14c3c Mon Sep 17 00:00:00 2001
From: =?utf8?q?Jan=20B=C3=BCren?= <jan@lx-office-hosting.de>
Date: Fri, 10 Dec 2010 11:54:02 +0100
Subject: [PATCH] Zahlungsverkehr: Bei der Suche nach offenen Rechnungen auch
 eine Suche nach Rechnungsnummer zulassen. HINWEIS: Es wird nur der erste
 Treffer (falls vorhanden) angezeigt

---
 bin/mozilla/cp.pl | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/bin/mozilla/cp.pl b/bin/mozilla/cp.pl
index 1f8f83aff..b3efdec57 100644
--- a/bin/mozilla/cp.pl
+++ b/bin/mozilla/cp.pl
@@ -34,6 +34,8 @@
 use SL::CP;
 use SL::IS;
 use SL::IR;
+use SL::AR;
+use SL::AP;
 use strict ("vars", "subs");
 #use warnings;
 
@@ -239,6 +241,10 @@ sub form_header {
                 <input type=hidden name="$form->{vc}_id" value="|    . H($form->{"$form->{vc}_id"}) . qq|">
                 <input type=hidden name="old$form->{vc}" value="|    . H($form->{"old$form->{vc}"}) . qq|">
               </tr>
+              <tr>
+                <th align=right>| . $locale->text('Invoice Number') . qq|</th>
+                <td><input name="invnumber" size="35"</td>
+              </tr>
               <tr valign=top>
                 <th align=right nowrap>| . $locale->text('Address') . qq|</th>
                 <td colspan=2>
@@ -518,7 +524,19 @@ sub update {
       }
     }
   }
-
+  # Falls Suche über Rechnungsnummer und kein Kundenname vorhanden
+  if ($form->{invnumber} && !($form->{$form->{vc}})){
+  $form->{open} ='Y'; # nur die offenen rechnungen
+  if ($form->{ARAP} eq 'AR'){
+    AR->ar_transactions(\%myconfig, \%$form);
+    # den ersten treffen nehmen und mit dem namen überschreiben
+    $form->{$form->{vc}} = $form->{AR}[0]{name};
+  } else {
+    # s.o. nur für zahlungsausgang
+    AP->ap_transactions(\%myconfig, \%$form);
+    $form->{$form->{vc}} = $form->{AP}[0]{name};
+    }
+  }
   # get customer and invoices
   $updated = &check_name($form->{vc});
 
-- 
2.20.1