Beim Speichern einfach in allen Einheiten nach der ausgewählten Einheit suchen.
[kivitendo-erp.git] / SL / Common.pm
1 #====================================================================
2 # LX-Office ERP
3 # Copyright (C) 2004
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
6 #
7 #====================================================================
8
9 package Common;
10
11 use Time::HiRes qw(gettimeofday);
12
13 use vars qw(@db_encodings %db_encoding_to_charset);
14
15 @db_encodings = (
16   { "label" => "ASCII",          "dbencoding" => "SQL_ASCII", "charset" => "ASCII" },
17   { "label" => "UTF-8 Unicode",  "dbencoding" => "UNICODE",   "charset" => "UTF-8" },
18   { "label" => "ISO 8859-1",     "dbencoding" => "LATIN1",    "charset" => "ISO-8859-1" },
19   { "label" => "ISO 8859-2",     "dbencoding" => "LATIN2",    "charset" => "ISO-8859-2" },
20   { "label" => "ISO 8859-3",     "dbencoding" => "LATIN3",    "charset" => "ISO-8859-3" },
21   { "label" => "ISO 8859-4",     "dbencoding" => "LATIN4",    "charset" => "ISO-8859-4" },
22   { "label" => "ISO 8859-5",     "dbencoding" => "LATIN5",    "charset" => "ISO-8859-5" },
23   { "label" => "ISO 8859-15",    "dbencoding" => "LATIN9",    "charset" => "ISO-8859-15" },
24   { "label" => "KOI8-R",         "dbencoding" => "KOI8",      "charset" => "KOI8-R" },
25   { "label" => "Windows CP1251", "dbencoding" => "WIN",       "charset" => "CP1251" },
26   { "label" => "Windows CP866",  "dbencoding" => "ALT",       "charset" => "CP866" },
27 );
28
29 %db_encoding_to_charset = map { $_->{dbencoding}, $_->{charset} } @db_encodings;
30
31 use constant DEFAULT_CHARSET => 'ISO-8859-15';
32
33 sub unique_id {
34   my ($a, $b) = gettimeofday();
35   return "${a}-${b}-${$}";
36 }
37
38 sub tmpname {
39   return "/tmp/lx-office-tmp-" . unique_id();
40 }
41
42 sub retrieve_parts {
43   $main::lxdebug->enter_sub();
44
45   my ($self, $myconfig, $form, $order_by, $order_dir) = @_;
46
47   my $dbh = $form->dbconnect($myconfig);
48
49   my (@filter_values, $filter);
50   if ($form->{"partnumber"}) {
51     $filter .= qq| AND (partnumber ILIKE ?)|;
52     push(@filter_values, '%' . $form->{"partnumber"} . '%');
53   }
54   if ($form->{"description"}) {
55     $filter .= qq| AND (description ILIKE ?)|;
56     push(@filter_values, '%' . $form->{"description"} . '%');
57   }
58   substr($filter, 1, 3) = "WHERE" if ($filter);
59
60   $order_by =~ s/[^a-zA-Z_]//g;
61   $order_dir = $order_dir ? "ASC" : "DESC";
62
63   my $query =
64     qq|SELECT id, partnumber, description | .
65     qq|FROM parts $filter | .
66     qq|ORDER BY $order_by $order_dir|;
67   my $sth = $dbh->prepare($query);
68   $sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");
69   my $parts = [];
70   while (my $ref = $sth->fetchrow_hashref()) {
71     push(@{$parts}, $ref);
72   }
73   $sth->finish();
74   $dbh->disconnect();
75
76   $main::lxdebug->leave_sub();
77
78   return $parts;
79 }
80
81 sub retrieve_projects {
82   $main::lxdebug->enter_sub();
83
84   my ($self, $myconfig, $form, $order_by, $order_dir) = @_;
85
86   my $dbh = $form->dbconnect($myconfig);
87
88   my (@filter_values, $filter);
89   if ($form->{"projectnumber"}) {
90     $filter .= qq| AND (projectnumber ILIKE ?)|;
91     push(@filter_values, '%' . $form->{"projectnumber"} . '%');
92   }
93   if ($form->{"description"}) {
94     $filter .= qq| AND (description ILIKE ?)|;
95     push(@filter_values, '%' . $form->{"description"} . '%');
96   }
97   substr($filter, 1, 3) = "WHERE" if ($filter);
98
99   $order_by =~ s/[^a-zA-Z_]//g;
100   $order_dir = $order_dir ? "ASC" : "DESC";
101
102   my $query =
103     qq|SELECT id, projectnumber, description | .
104     qq|FROM project $filter | .
105     qq|ORDER BY $order_by $order_dir|;
106   my $sth = $dbh->prepare($query);
107   $sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");
108   my $projects = [];
109   while (my $ref = $sth->fetchrow_hashref()) {
110     push(@{$projects}, $ref);
111   }
112   $sth->finish();
113   $dbh->disconnect();
114
115   $main::lxdebug->leave_sub();
116
117   return $projects;
118 }
119
120 sub retrieve_employees {
121   $main::lxdebug->enter_sub();
122
123   my ($self, $myconfig, $form, $order_by, $order_dir) = @_;
124
125   my $dbh = $form->dbconnect($myconfig);
126
127   my (@filter_values, $filter);
128   if ($form->{"name"}) {
129     $filter .= qq| AND (name ILIKE ?)|;
130     push(@filter_values, '%' . $form->{"name"} . '%');
131   }
132   substr($filter, 1, 3) = "WHERE" if ($filter);
133
134   $order_by =~ s/[^a-zA-Z_]//g;
135   $order_dir = $order_dir ? "ASC" : "DESC";
136
137   my $query =
138     qq|SELECT id, name | .
139     qq|FROM employee $filter | .
140     qq|ORDER BY $order_by $order_dir|;
141   my $sth = $dbh->prepare($query);
142   $sth->execute(@filter_values) || $form->dberror($query . " (" . join(", ", @filter_values) . ")");
143   my $employees = [];
144   while (my $ref = $sth->fetchrow_hashref()) {
145     push(@{$employees}, $ref);
146   }
147   $sth->finish();
148   $dbh->disconnect();
149
150   $main::lxdebug->leave_sub();
151
152   return $employees;
153 }
154
155 sub retrieve_delivery_customer {
156   $main::lxdebug->enter_sub();
157
158   my ($self, $myconfig, $form, $order_by, $order_dir) = @_;
159
160   my $dbh = $form->dbconnect($myconfig);
161
162   my (@filter_values, $filter);
163   if ($form->{"name"}) {
164     $filter .= qq| (name ILIKE ?) AND|;
165     push(@filter_values, '%' . $form->{"name"} . '%');
166   }
167
168   $order_by =~ s/[^a-zA-Z_]//g;
169   $order_dir = $order_dir ? "ASC" : "DESC";
170
171   my $query =
172     qq!SELECT id, name, customernumber, (street || ', ' || zipcode || city) AS address ! .
173     qq!FROM customer ! .
174     qq!WHERE $filter business_id = (SELECT id FROM business WHERE description = 'Endkunde') ! .
175     qq!ORDER BY $order_by $order_dir!;
176   my $sth = $dbh->prepare($query);
177   $sth->execute(@filter_values) ||
178     $form->dberror($query . " (" . join(", ", @filter_values) . ")");
179   my $delivery_customers = [];
180   while (my $ref = $sth->fetchrow_hashref()) {
181     push(@{$delivery_customers}, $ref);
182   }
183   $sth->finish();
184   $dbh->disconnect();
185
186   $main::lxdebug->leave_sub();
187
188   return $delivery_customers;
189 }
190
191 sub retrieve_vendor {
192   $main::lxdebug->enter_sub();
193
194   my ($self, $myconfig, $form, $order_by, $order_dir) = @_;
195
196   my $dbh = $form->dbconnect($myconfig);
197
198   my (@filter_values, $filter);
199   if ($form->{"name"}) {
200     $filter .= qq| (name ILIKE ?) AND|;
201     push(@filter_values, '%' . $form->{"name"} . '%');
202   }
203
204   $order_by =~ s/[^a-zA-Z_]//g;
205   $order_dir = $order_dir ? "ASC" : "DESC";
206
207   my $query =
208     qq!SELECT id, name, customernumber, (street || ', ' || zipcode || city) AS address FROM customer ! .
209     qq!WHERE $filter business_id = (SELECT id FROM business WHERE description = 'Händler') ! .
210     qq!ORDER BY $order_by $order_dir!;
211   my $sth = $dbh->prepare($query);
212   $sth->execute(@filter_values) ||
213     $form->dberror($query . " (" . join(", ", @filter_values) . ")");
214   my $vendors = [];
215   while (my $ref = $sth->fetchrow_hashref()) {
216     push(@{$vendors}, $ref);
217   }
218   $sth->finish();
219   $dbh->disconnect();
220
221   $main::lxdebug->leave_sub();
222
223   return $vendors;
224 }
225
226 sub mkdir_with_parents {
227   $main::lxdebug->enter_sub();
228
229   my ($full_path) = @_;
230
231   my $path = "";
232
233   $full_path =~ s|/+|/|;
234
235   foreach my $part (split(m|/|, $full_path)) {
236     $path .= "/" if ($path);
237     $path .= $part;
238
239     die("Could not create directory '$path' because a file exists with " .
240         "the same name.\n") if (-f $path);
241
242     if (! -d $path) {
243       mkdir($path, 0770) || die("Could not create the directory '$path'. " .
244                                 "OS error: $!\n");
245     }
246   }
247
248   $main::lxdebug->leave_sub();
249 }
250
251 sub webdav_folder {
252   $main::lxdebug->enter_sub();
253
254   my ($form) = @_;
255
256   return $main::lxdebug->leave_sub()
257     unless ($main::webdav && $form->{id});
258
259   my ($path, $number);
260
261   $form->{WEBDAV} = {};
262
263   if ($form->{type} eq "sales_quotation") {
264     ($path, $number) = ("angebote", $form->{quonumber});
265   } elsif ($form->{type} eq "sales_order") {
266     ($path, $number) = ("bestellungen", $form->{ordnumber});
267   } elsif ($form->{type} eq "request_quotation") {
268     ($path, $number) = ("anfragen", $form->{quonumber});
269   } elsif ($form->{type} eq "purchase_order") {
270     ($path, $number) = ("lieferantenbestellungen", $form->{ordnumber});
271   } elsif ($form->{type} eq "credit_note") {
272     ($path, $number) = ("gutschriften", $form->{invnumber});
273   } elsif ($form->{vc} eq "customer") {
274     ($path, $number) = ("rechnungen", $form->{invnumber});
275   } else {
276     ($path, $number) = ("einkaufsrechnungen", $form->{invnumber});
277   }
278
279   return $main::lxdebug->leave_sub() unless ($path && $number);
280
281   $path = "webdav/${path}/${number}";
282
283   if (!-d $path) {
284     mkdir_with_parents($path);
285
286   } else {
287     my $base_path = substr($ENV{'SCRIPT_NAME'}, 1);
288     $base_path =~ s|[^/]+$||;
289
290     foreach my $file (<$path/*>) {
291       my $fname = $file;
292       $fname =~ s|.*/||;
293       $form->{WEBDAV}{$fname} =
294         ($ENV{"HTTPS"} ? "https://" : "http://") .
295         $ENV{'SERVER_NAME'} . "/" . $base_path . $file;
296     }
297   }
298
299   $main::lxdebug->leave_sub();
300 }
301
302 1;