From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 30 Dec 2010 12:51:40 +0000 (+0100)
Subject: Taxbird-export: Mit Heuristik versuchen PLZ und Stadt aus dem Firmenadressfeld zu... 
X-Git-Tag: release-2.6.2beta1~32
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9a1c5b19d56a9a543ce6b2c3aa0463d12764b406;p=kivitendo-erp.git

Taxbird-export: Mit Heuristik versuchen PLZ und Stadt aus dem Firmenadressfeld zu extrahieren

Teilfix für Bug 1488
---

diff --git a/bin/mozilla/ustva.pl b/bin/mozilla/ustva.pl
index f04c8ee05..1bbf93145 100644
--- a/bin/mozilla/ustva.pl
+++ b/bin/mozilla/ustva.pl
@@ -919,14 +919,30 @@ sub generate_ustva {
         ::end_of_request();
       }
 
+      # heuristics for address splitting
+      # lx-office holds the entire address in a single field.
+      # taxbird expects it to be splitted into street, zipcode and city
+      if ($form->{co_street} =~ /\n/) {
+        my $new_co_street;
+        for (split /\n/, $form->{co_street}) {
+          if (/(\d{3,5})\s+(\w+)/) {
+            $form->{co_zip}  = $1;
+            $form->{co_city} = $2;
+          } else {
+            $new_co_street .= $_;
+          }
+        }
+        $form->{co_street} = $new_co_street;
+      } else {
+        $form->{co_zip} = $form->{co_city};
+        $form->{co_zip} =~ s/\D//g;
+        $form->{co_city} =~ s/\d//g;
+        $form->{co_city} =~ s/^\s//g;
+      }
+
       my $tax_office           = first { $_->{name} eq $form->{elsterland} } @{ $ustva->{tax_office_information} };
       $form->{taxbird_land_nr} = $tax_office->{taxbird_nr} if $tax_office;
 
-      $form->{co_zip} = $form->{co_city};
-      $form->{co_zip} =~ s/\D//g;
-      $form->{co_city} =~ s/\d//g;
-      $form->{co_city} =~ s/^\s//g;
-
       ($form->{co_phone_prefix}, $form->{co_phone}) = split("-", $form->{tel});
       $form->{co_phone_prefix} =~ s/\s//g;
       $form->{co_phone} =~ s/\s//g;