1 #=====================================================================
4 # Based on SQL-Ledger Version 2.1.9
5 # Web http://www.lx-office.org
7 #=====================================================================
8 # SQL-Ledger Accounting
11 # Author: Dieter Simader
12 # Email: dsimader@sql-ledger.org
13 # Web: http://www.sql-ledger.org
16 # This program is free software; you can redistribute it and/or modify
17 # it under the terms of the GNU General Public License as published by
18 # the Free Software Foundation; either version 2 of the License, or
19 # (at your option) any later version.
21 # This program is distributed in the hope that it will be useful,
22 # but WITHOUT ANY WARRANTY; without even the implied warranty of
23 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 # GNU General Public License for more details.
25 # You should have received a copy of the GNU General Public License
26 # along with this program; if not, write to the Free Software
27 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
28 #======================================================================
30 # common routines for gl, ar, ap, is, ir, oe
33 # any custom scripts for this one
34 if (-f "bin/mozilla/custom_arap.pl") {
35 eval { require "bin/mozilla/custom_arap.pl"; };
37 if (-f "bin/mozilla/$form->{login}_arap.pl") {
38 eval { require "bin/mozilla/$form->{login}_arap.pl"; };
43 require "bin/mozilla/common.pl";
48 $lxdebug->enter_sub();
50 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
51 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
55 $name = $name eq "customer" ? "customer" : "vendor";
57 my ($new_name, $new_id) = split /--/, $form->{$name};
59 # if we use a selection
60 if ($form->{"select$name"}) {
61 if ($form->{"old$name"} ne $form->{$name}) {
63 # this is needed for is, ir and oe
65 # for credit calculations
66 $form->{oldinvtotal} = 0;
67 $form->{oldtotalpaid} = 0;
70 $form->{"${name}_id"} = $new_id;
72 IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
73 IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
75 $form->{$name} = $form->{"old$name"} = "$new_name--$new_id";
81 # check name, combine name and id
82 if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) {
84 # this is needed for is, ir and oe
87 # for credit calculations
88 $form->{oldinvtotal} = 0;
89 $form->{oldtotalpaid} = 0;
92 # return one name or a list of names in $form->{name_list}
93 if (($i = $form->get_name(\%myconfig, $name)) > 1) {
101 $form->{"${name}_id"} = $form->{name_list}[0]->{id};
102 $form->{$name} = $form->{name_list}[0]->{name};
103 $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|;
105 IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
106 IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
110 # name is not on file
111 # $locale->text('Customer not on file or locked!')
112 # $locale->text('Vendor not on file or locked!')
113 $msg = ucfirst $name . " not on file or locked!";
114 $form->error($locale->text($msg));
118 $form->language_payment(\%myconfig);
120 $lxdebug->leave_sub();
125 # $locale->text('Customer not on file!')
126 # $locale->text('Vendor not on file!')
129 $lxdebug->enter_sub();
131 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
132 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
136 @column_index = qw(ndx name address);
138 $label = ucfirst $table;
139 $column_data{ndx} = qq|<th> </th>|;
141 qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
142 $column_data{address} =
143 qq|<th class=listheading>| . $locale->text('Address') . qq|</th>|;
145 # list items with radio button on a form
148 $title = $locale->text('Select from one of the names below');
153 <form method=post action=$form->{script}>
157 <th class=listtop>$title</th>
163 <tr class=listheading>|;
165 map { print "\n$column_data{$_}" } @column_index;
172 foreach $ref (@{ $form->{name_list} }) {
173 $checked = ($i++) ? "" : "checked";
175 $ref->{name} =~ s/\"/"/g;
178 qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
180 qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
181 $column_data{address} = qq|<td>$ref->{address} </td>|;
186 <tr class=listrow$j>|;
188 map { print "\n$column_data{$_}" } @column_index;
193 <input name="new_id_$i" type=hidden value=$ref->{id}>
204 <td><hr size=3 noshade></td>
208 <input name=lastndx type=hidden value=$i>
213 map { delete $form->{$_} } qw(action name_list header);
215 # save all other form variables
216 foreach $key (keys %${form}) {
217 next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
218 $form->{$key} =~ s/\"/"/g;
219 print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
223 <input type=hidden name=nextsub value=name_selected>
225 <input type=hidden name=vc value=$table>
227 <input class=submit type=submit name=action value="|
228 . $locale->text('Continue') . qq|">
235 $lxdebug->leave_sub();
239 $lxdebug->enter_sub();
241 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
242 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
244 # replace the variable with the one checked
249 $form->{ $form->{vc} } = $form->{"new_name_$i"};
250 $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
251 $form->{"old$form->{vc}"} =
252 qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
254 # delete all the new_ variables
255 for $i (1 .. $form->{lastndx}) {
256 map { delete $form->{"new_${_}_$i"} } qw(id name);
259 map { delete $form->{$_} } qw(ndx lastndx nextsub);
261 IS->get_customer(\%myconfig, \%$form) if ($form->{vc} eq 'customer');
262 IR->get_vendor(\%myconfig, \%$form) if ($form->{vc} eq 'vendor');
266 $lxdebug->leave_sub();
270 $lxdebug->enter_sub();
272 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
273 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
275 for $i (1 .. $form->{rowcount}) {
276 my $suffix = $i ? "_$i" : "";
277 my $prefix = $i ? "" : "global";
278 $form->{"${prefix}project_id${suffix}"} = "" unless $form->{"${prefix}projectnumber$suffix"};
279 if ($form->{"${prefix}projectnumber${suffix}"} ne $form->{"old${prefix}projectnumber${suffix}"}) {
280 if ($form->{"${prefix}projectnumber${suffix}"}) {
283 $form->{projectnumber} = $form->{"${prefix}projectnumber${suffix}"};
284 if (($rows = PE->projects(\%myconfig, $form)) > 1) {
286 # check form->{project_list} how many there are
287 $form->{rownumber} = $i;
288 &select_project($i ? undef : 1);
293 $form->{"${prefix}project_id${suffix}"} = $form->{project_list}->[0]->{id};
294 $form->{"${prefix}projectnumber${suffix}"} = $form->{project_list}->[0]->{projectnumber};
295 $form->{"old${prefix}projectnumber${suffix}"} = $form->{project_list}->[0]->{projectnumber};
299 $form->error($locale->text('Project not on file!'));
302 $form->{"old${prefix}projectnumber${suffix}"} = "";
307 $lxdebug->leave_sub();
311 $lxdebug->enter_sub();
313 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
314 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
316 my ($is_global) = @_;
318 @column_index = qw(ndx projectnumber description);
320 $column_data{ndx} = qq|<th> </th>|;
321 $column_data{projectnumber} = qq|<th>| . $locale->text('Number') . qq|</th>|;
322 $column_data{description} =
323 qq|<th>| . $locale->text('Description') . qq|</th>|;
325 # list items with radio button on a form
328 $title = $locale->text('Select from one of the projects below');
333 <form method=post action=$form->{script}>
335 <input type=hidden name=rownumber value=$form->{rownumber}>
339 <th class=listtop>$title</th>
345 <tr class=listheading>|;
347 map { print "\n$column_data{$_}" } @column_index;
354 foreach $ref (@{ $form->{project_list} }) {
355 $checked = ($i++) ? "" : "checked";
357 $ref->{name} =~ s/\"/"/g;
360 qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
361 $column_data{projectnumber} =
362 qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
363 $column_data{description} = qq|<td>$ref->{description}</td>|;
368 <tr class=listrow$j>|;
370 map { print "\n$column_data{$_}" } @column_index;
375 <input name="new_id_$i" type=hidden value=$ref->{id}>
386 <td><hr size=3 noshade></td>
390 <input name=lastndx type=hidden value=$i>
394 # delete action variable
395 map { delete $form->{$_} } qw(action project_list header update);
397 # save all other form variables
398 foreach $key (keys %${form}) {
399 next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
400 $form->{$key} =~ s/\"/"/g;
401 print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
405 <input type="hidden" name="is_global" value="$is_global">
406 <input type=hidden name=nextsub value=project_selected>
409 <input class=submit type=submit name=action value="|
410 . $locale->text('Continue') . qq|">
417 $lxdebug->leave_sub();
420 sub project_selected {
421 $lxdebug->enter_sub();
423 $auth->assert('general_ledger | vendor_invoice_edit | sales_order_edit | invoice_edit |' .
424 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash | report');
426 # replace the variable with the one checked
431 my $prefix = $form->{"is_global"} ? "global" : "";
432 my $suffix = $form->{"is_global"} ? "" : "_$form->{rownumber}";
434 $form->{"${prefix}projectnumber${suffix}"} =
435 $form->{"new_projectnumber_$i"};
436 $form->{"old${prefix}projectnumber${suffix}"} =
437 $form->{"new_projectnumber_$i"};
438 $form->{"${prefix}project_id${suffix}"} = $form->{"new_id_$i"};
440 # delete all the new_ variables
441 for $i (1 .. $form->{lastndx}) {
442 map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description);
445 map { delete $form->{$_} } qw(ndx lastndx nextsub is_global);
447 if ($form->{update}) {
448 call_sub($form->{"update"});
453 $lxdebug->leave_sub();
456 sub continue { call_sub($form->{"nextsub"}); }