Fehlermeldung ausgeben, wenn Kunde/Lieferant mit "EU mit UStID" aber ohne UStID gespe...
[kivitendo-erp.git] / bin / mozilla / invoice_io.pl
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 # Veraendert 2005-01-05 - Marco Welter <mawe@linux-studio.de> - Neue Optik  #
8 #############################################################################
9 # SQL-Ledger, Accounting
10 # Copyright (c) 1998-2002
11 #
12 #  Author: Dieter Simader
13 #   Email: dsimader@sql-ledger.org
14 #     Web: http://www.sql-ledger.org
15 #
16 #
17 # This program is free software; you can redistribute it and/or modify
18 # it under the terms of the GNU General Public License as published by
19 # the Free Software Foundation; either version 2 of the License, or
20 # (at your option) any later version.
21 #
22 # This program is distributed in the hope that it will be useful,
23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
25 # GNU General Public License for more details.
26 # You should have received a copy of the GNU General Public License
27 # along with this program; if not, write to the Free Software
28 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
29 #
30 #######################################################################
31 #
32 # common routines used in is, ir but not in oe
33 #
34 #######################################################################
35
36 use CGI;
37 use CGI::Ajax;
38 use List::Util qw(max);
39
40 use SL::Common;
41 use SL::CT;
42 use SL::IC;
43
44 require "bin/mozilla/common.pl";
45
46 use strict;
47
48 # any custom scripts for this one
49 if (-f "bin/mozilla/custom_invoice_io.pl") {
50   eval { require "bin/mozilla/custom_invoice_io.pl"; };
51 }
52 if (-f "bin/mozilla/$main::form->{login}_invoice_io.pl") {
53   eval { require "bin/mozilla/$main::form->{login}_invoice_io.pl"; };
54 }
55
56 1;
57
58 # end of main
59
60 # this is for our long dates
61 # $locale->text('January')
62 # $locale->text('February')
63 # $locale->text('March')
64 # $locale->text('April')
65 # $locale->text('May ')
66 # $locale->text('June')
67 # $locale->text('July')
68 # $locale->text('August')
69 # $locale->text('September')
70 # $locale->text('October')
71 # $locale->text('November')
72 # $locale->text('December')
73
74 # this is for our short month
75 # $locale->text('Jan')
76 # $locale->text('Feb')
77 # $locale->text('Mar')
78 # $locale->text('Apr')
79 # $locale->text('May')
80 # $locale->text('Jun')
81 # $locale->text('Jul')
82 # $locale->text('Aug')
83 # $locale->text('Sep')
84 # $locale->text('Oct')
85 # $locale->text('Nov')
86 # $locale->text('Dec')
87 use SL::IS;
88 use SL::PE;
89 use SL::AM;
90 use Data::Dumper;
91
92 sub set_pricegroup {
93   $main::lxdebug->enter_sub();
94
95   my $form     = $main::form;
96   my %myconfig = %main::myconfig;
97   my $locale   = $main::locale;
98
99   my $rowcount = shift;
100   for my $j (1 .. $rowcount) {
101     my $pricegroup_old = $form->{"pricegroup_old_$j"};
102     if ($form->{PRICES}{$j}) {
103       my $len    = 0;
104       my $prices = '<option value="--">' . $locale->text("none (pricegroup)") . '</option>';
105       my $price  = 0;
106       foreach my $item (@{ $form->{PRICES}{$j} }) {
107
108         #$price = $form->round_amount($myconfig,  $item->{price}, 5);
109         #$price = $form->format_amount($myconfig, $item->{price}, 2);
110         my $price         = $item->{price};
111         my $pricegroup_id = $item->{pricegroup_id};
112         my $pricegroup    = $item->{pricegroup};
113
114         # build drop down list for pricegroups
115         $prices .=
116           qq|<option value="$price--$pricegroup_id"$item->{selected}>$pricegroup</option>\n|;
117
118         $len += 1;
119
120         #        map {
121         #               $form->{"${_}_$j"} =
122         #               $form->format_amount(\%myconfig, $form->{"${_}_$j"})
123         #              } qw(sellprice price_new price_old);
124
125         # set new selectedpricegroup_id and prices for "Preis"
126         if ($item->{selected} && ($pricegroup_id != 0)) {
127           $form->{"pricegroup_old_$j"} = $pricegroup_id;
128           $form->{"price_new_$j"}      = $price;
129           $form->{"sellprice_$j"}      = $price;
130         }
131         if ($pricegroup_id == 0) {
132           $form->{"price_new_$j"} = $form->{"sellprice_$j"};
133         }
134       }
135       $form->{"prices_$j"} = $prices;
136     }
137   }
138   $main::lxdebug->leave_sub();
139 }
140
141 sub display_form {
142   $main::lxdebug->enter_sub();
143
144   my $form     = $main::form;
145   my %myconfig = %main::myconfig;
146
147   $main::auth->assert('part_service_assembly_edit   | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .
148                 'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | '.
149                 'purchase_delivery_order_edit | sales_delivery_order_edit');
150
151   relink_accounts();
152   retrieve_partunits() if ($form->{type} =~ /_delivery_order$/);
153
154   my $new_rowcount = $form->{"rowcount"} * 1 + 1;
155   $form->{"project_id_${new_rowcount}"} = $form->{"globalproject_id"};
156
157   $form->language_payment(\%myconfig);
158
159   # if we have a display_form
160   if ($form->{display_form}) {
161     call_sub($form->{"display_form"});
162     ::end_of_request();
163   }
164
165   Common::webdav_folder($form) if ($main::webdav);
166
167   #   if (   $form->{print_and_post}
168   #       && $form->{second_run}
169   #       && ($form->{action} eq "display_form")) {
170   #     for (keys %$form) { $old_form->{$_} = $form->{$_} }
171   #     $old_form->{rowcount}++;
172   #
173   #     #$form->{rowcount}--;
174   #     #$form->{rowcount}--;
175   #
176   #     $form->{print_and_post} = 0;
177   #
178   #     &print_form($old_form);
179   #     ::end_of_request();
180   #   }
181   #
182   #   $form->{action}   = "";
183   #   $form->{resubmit} = 0;
184   #
185   #   if ($form->{print_and_post} && !$form->{second_run}) {
186   #     $form->{second_run} = 1;
187   #     $form->{action}     = "display_form";
188   #     $form->{rowcount}--;
189   #     my $rowcount = $form->{rowcount};
190   #
191   #     # get pricegroups for parts
192   #     IS->get_pricegroups_for_parts(\%myconfig, \%$form);
193   #
194   #     # build up html code for prices_$i
195   #     set_pricegroup($rowcount);
196   #
197   #     $form->{resubmit} = 1;
198   #
199   #   }
200   &form_header;
201
202   {
203     no strict 'refs';
204
205     my $numrows    = ++$form->{rowcount};
206     my $subroutine = "display_row";
207
208     if ($form->{item} eq 'part') {
209
210       #set preisgruppenanzahl
211       $numrows    = $form->{price_rows};
212       $subroutine = "price_row";
213
214       &{$subroutine}($numrows);
215
216       $numrows    = ++$form->{makemodel_rows};
217       $subroutine = "makemodel_row";
218     }
219     if ($form->{item} eq 'assembly') {
220       $numrows    = $form->{price_rows};
221       $subroutine = "price_row";
222
223       &{$subroutine}($numrows);
224
225       $numrows    = ++$form->{makemodel_rows};
226       $subroutine = "makemodel_row";
227
228       # create makemodel rows
229       &{$subroutine}($numrows);
230
231       $numrows    = ++$form->{assembly_rows};
232       $subroutine = "assembly_row";
233     }
234     if ($form->{item} eq 'service') {
235       $numrows    = $form->{price_rows};
236       $subroutine = "price_row";
237
238       &{$subroutine}($numrows);
239
240       $numrows = 0;
241     }
242
243     # create rows
244     &{$subroutine}($numrows) if $numrows;
245   }
246
247   &form_footer;
248
249   $main::lxdebug->leave_sub();
250 }