bin/mozilla/arap.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 #=====================================================================
   8 # SQL-Ledger Accounting
   9 # Copyright (c) 2002
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #
  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.
  20 #
  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 #======================================================================
  29 #
  30 # common routines for gl, ar, ap, is, ir, oe
  31 #
  32
  33 use SL::Projects;
  34
  35 use strict;
  36
  37 # any custom scripts for this one
  38 if (-f "bin/mozilla/custom_arap.pl") {
  39   eval { require "bin/mozilla/custom_arap.pl"; };
  40 }
  41 if (-f "bin/mozilla/$main::form->{login}_arap.pl") {
  42   eval { require "bin/mozilla/$main::form->{login}_arap.pl"; };
  43 }
  44
  45 1;
  46
  47 require "bin/mozilla/common.pl";
  48
  49 # end of main
  50
  51 sub check_name {
  52   $main::lxdebug->enter_sub();
  53
  54   my $form     = $main::form;
  55   my %myconfig = %main::myconfig;
  56   my $locale   = $main::locale;
  57
  58   $main::auth->assert('general_ledger               | vendor_invoice_edit       | sales_order_edit    | invoice_edit |' .
  59                 'request_quotation_edit       | sales_quotation_edit      | purchase_order_edit | cash         |' .
  60                 'purchase_delivery_order_edit | sales_delivery_order_edit');
  61
  62   my ($name) = @_;
  63
  64   $name = $name eq "customer" ? "customer" : "vendor";
  65
  66   my ($new_name, $new_id) = split /--/, $form->{$name};
  67   my $i = 0;
  68   # if we use a selection
  69   if ($form->{"select$name"}) {
  70     if ($form->{"old$name"} ne $form->{$name}) {
  71
  72       # this is needed for is, ir and oe
  73       $form->{update} = 0;
  74       # for credit calculations
  75       $form->{oldinvtotal}  = 0;
  76       $form->{oldtotalpaid} = 0;
  77       $form->{calctax}      = 1;
  78
  79       $form->{"${name}_id"} = $new_id;
  80
  81       IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
  82       IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
  83
  84       $form->{$name} = $form->{"old$name"} = "$new_name--$new_id";
  85
  86       $i = 1;
  87     }
  88   } else {
  89
  90     # check name, combine name and id
  91     if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) {
  92
  93       # this is needed for is, ir and oe
  94       $form->{update} = 0;
  95
  96       # for credit calculations
  97       $form->{oldinvtotal}  = 0;
  98       $form->{oldtotalpaid} = 0;
  99       $form->{calctax}      = 1;
 100
 101       # return one name or a list of names in $form->{name_list}
 102       if (($i = $form->get_name(\%myconfig, $name)) > 1) {
 103         &select_name($name);
 104         exit;
 105       }
 106
 107       if ($i == 1) {
 108
 109         # we got one name
 110         $form->{"${name}_id"} = $form->{name_list}[0]->{id};
 111         $form->{$name}        = $form->{name_list}[0]->{name};
 112         $form->{"old$name"}   = qq|$form->{$name}--$form->{"${name}_id"}|;
 113
 114         IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
 115         IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
 116
 117       } else {
 118
 119         # name is not on file
 120         # $locale->text('Customer not on file or locked!')
 121         # $locale->text('Vendor not on file or locked!')
 122         my $msg = ucfirst $name . " not on file or locked!";
 123         $form->error($locale->text($msg));
 124       }
 125     }
 126   }
 127   $form->language_payment(\%myconfig);
 128
 129   $main::lxdebug->leave_sub();
 130
 131   return $i;
 132 }
 133
 134 # $locale->text('Customer not on file!')
 135 # $locale->text('Vendor not on file!')
 136
 137 sub select_name {
 138   $main::lxdebug->enter_sub();
 139
 140   my $form     = $main::form;
 141   my $locale   = $main::locale;
 142
 143   $main::auth->assert('general_ledger         | vendor_invoice_edit  | sales_order_edit    | invoice_edit |' .
 144                 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
 145
 146   my ($table) = @_;
 147
 148   my @column_index = qw(ndx name address);
 149
 150   my $label             = ucfirst $table;
 151   my %column_data;
 152   $column_data{ndx}  = qq|<th>&nbsp;</th>|;
 153   $column_data{name} =
 154     qq|<th class=listheading>| . $locale->text($label) . qq|</th>|;
 155   $column_data{address} =
 156     qq|<th class=listheading>| . $locale->text('Address') . qq|</th>|;
 157
 158   # list items with radio button on a form
 159   $form->header;
 160
 161   my $title = $locale->text('Select from one of the names below');
 162
 163   print qq|
 164 <body>
 165
 166 <form method=post action=$form->{script}>
 167
 168 <table width=100%>
 169   <tr>
 170     <th class=listtop>$title</th>
 171   </tr>
 172   <tr space=5></tr>
 173   <tr>
 174     <td>
 175       <table width=100%>
 176         <tr class=listheading>|;
 177
 178   map { print "\n$column_data{$_}" } @column_index;
 179
 180   print qq|
 181         </tr>
 182 |;
 183
 184   my $i = 0;
 185   my $j;
 186   foreach my $ref (@{ $form->{name_list} }) {
 187     my $checked = ($i++) ? "" : "checked";
 188
 189     $ref->{name} =~ s/\"/&quot;/g;
 190
 191     $column_data{ndx} =
 192       qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
 193     $column_data{name} =
 194       qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|;
 195     $column_data{address} = qq|<td>$ref->{address}&nbsp;</td>|;
 196
 197     $j++;
 198     $j %= 2;
 199     print qq|
 200         <tr class=listrow$j>|;
 201
 202     map { print "\n$column_data{$_}" } @column_index;
 203
 204     print qq|
 205         </tr>
 206
 207 <input name="new_id_$i" type=hidden value=$ref->{id}>
 208
 209 |;
 210
 211   }
 212
 213   print qq|
 214       </table>
 215     </td>
 216   </tr>
 217   <tr>
 218     <td><hr size=3 noshade></td>
 219   </tr>
 220 </table>
 221
 222 <input name=lastndx type=hidden value=$i>
 223
 224 |;
 225
 226   # delete variables
 227   map { delete $form->{$_} } qw(action name_list header);
 228
 229   # save all other form variables
 230   foreach my $key (keys %${form}) {
 231     next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
 232     $form->{$key} =~ s/\"/&quot;/g;
 233     print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
 234   }
 235
 236   print qq|
 237 <input type=hidden name=nextsub value=name_selected>
 238
 239 <input type=hidden name=vc value=$table>
 240 <br>
 241 <input class=submit type=submit name=action value="|
 242     . $locale->text('Continue') . qq|">
 243 </form>
 244
 245 </body>
 246 </html>
 247 |;
 248
 249   $main::lxdebug->leave_sub();
 250 }
 251
 252 sub name_selected {
 253   $main::lxdebug->enter_sub();
 254
 255   my $form     = $main::form;
 256   my %myconfig = %main::myconfig;
 257
 258   $main::auth->assert('general_ledger         | vendor_invoice_edit  | sales_order_edit    | invoice_edit |' .
 259                 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash');
 260
 261   # replace the variable with the one checked
 262
 263   # index for new item
 264   my $i = $form->{ndx};
 265
 266   $form->{ $form->{vc} }    = $form->{"new_name_$i"};
 267   $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
 268   $form->{"old$form->{vc}"} =
 269     qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
 270
 271   # delete all the new_ variables
 272   for $i (1 .. $form->{lastndx}) {
 273     map { delete $form->{"new_${_}_$i"} } qw(id name);
 274   }
 275
 276   map { delete $form->{$_} } qw(ndx lastndx nextsub);
 277
 278   IS->get_customer(\%myconfig, \%$form) if ($form->{vc} eq 'customer');
 279   IR->get_vendor(\%myconfig, \%$form) if ($form->{vc} eq 'vendor');
 280
 281   &update(1);
 282
 283   $main::lxdebug->leave_sub();
 284 }
 285
 286 sub check_project {
 287   $main::lxdebug->enter_sub();
 288
 289   my $form     = $main::form;
 290   my $locale   = $main::locale;
 291
 292   $main::auth->assert('general_ledger         | vendor_invoice_edit  | sales_order_edit    | invoice_edit |' .
 293                 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash         | report');
 294
 295   my $nextsub = shift || 'update';
 296
 297   for my $i (1 .. $form->{rowcount}) {
 298     my $suffix = $i ? "_$i" : "";
 299     my $prefix = $i ? "" : "global";
 300     $form->{"${prefix}project_id${suffix}"} = "" unless $form->{"${prefix}projectnumber$suffix"};
 301     if ($form->{"${prefix}projectnumber${suffix}"} ne $form->{"old${prefix}projectnumber${suffix}"}) {
 302       if ($form->{"${prefix}projectnumber${suffix}"}) {
 303
 304         # get new project
 305         $form->{projectnumber} = $form->{"${prefix}projectnumber${suffix}"};
 306         my %params             = map { $_ => $form->{$_} } qw(projectnumber description active);
 307         my $rows;
 308         if (($rows = Projects->search_projects(%params)) > 1) {
 309
 310           # check form->{project_list} how many there are
 311           $form->{rownumber} = $i;
 312           &select_project($i ? undef : 1, $nextsub);
 313           exit;
 314         }
 315
 316         if ($rows == 1) {
 317           $form->{"${prefix}project_id${suffix}"}       = $form->{project_list}->[0]->{id};
 318           $form->{"${prefix}projectnumber${suffix}"}    = $form->{project_list}->[0]->{projectnumber};
 319           $form->{"old${prefix}projectnumber${suffix}"} = $form->{project_list}->[0]->{projectnumber};
 320         } else {
 321
 322           # not on file
 323           $form->error($locale->text('Project not on file!'));
 324         }
 325       } else {
 326         $form->{"old${prefix}projectnumber${suffix}"} = "";
 327       }
 328     }
 329   }
 330
 331   $main::lxdebug->leave_sub();
 332 }
 333
 334 sub select_project {
 335   $main::lxdebug->enter_sub();
 336
 337   my $form     = $main::form;
 338   my $locale   = $main::locale;
 339   my $cgi      = $main::cgi;
 340
 341   $main::auth->assert('general_ledger         | vendor_invoice_edit  | sales_order_edit    | invoice_edit |' .
 342                 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash         | report');
 343
 344   my ($is_global, $nextsub) = @_;
 345
 346   my @column_index = qw(ndx projectnumber description);
 347
 348   my %column_data;
 349   $column_data{ndx}           = qq|<th>&nbsp;</th>|;
 350   $column_data{projectnumber} = qq|<th>| . $locale->text('Number') . qq|</th>|;
 351   $column_data{description}   =
 352     qq|<th>| . $locale->text('Description') . qq|</th>|;
 353
 354   # list items with radio button on a form
 355   $form->header;
 356
 357   my $title = $locale->text('Select from one of the projects below');
 358
 359   print qq|
 360 <body>
 361
 362 <form method=post action=$form->{script}>
 363
 364 <input type=hidden name=rownumber value=$form->{rownumber}>
 365
 366 <table width=100%>
 367   <tr>
 368     <th class=listtop>$title</th>
 369   </tr>
 370   <tr space=5></tr>
 371   <tr>
 372     <td>
 373       <table width=100%>
 374         <tr class=listheading>|;
 375
 376   map { print "\n$column_data{$_}" } @column_index;
 377
 378   print qq|
 379         </tr>
 380 |;
 381
 382   my $i = 0;
 383   my $j;
 384   foreach my $ref (@{ $form->{project_list} }) {
 385     my $checked = ($i++) ? "" : "checked";
 386
 387     $ref->{name} =~ s/\"/&quot;/g;
 388
 389     $column_data{ndx} =
 390       qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
 391     $column_data{projectnumber} =
 392       qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|;
 393     $column_data{description} = qq|<td>$ref->{description}</td>|;
 394
 395     $j++;
 396     $j %= 2;
 397     print qq|
 398         <tr class=listrow$j>|;
 399
 400     map { print "\n$column_data{$_}" } @column_index;
 401
 402     print qq|
 403         </tr>
 404
 405 <input name="new_id_$i" type=hidden value=$ref->{id}>
 406
 407 |;
 408
 409   }
 410
 411   print qq|
 412       </table>
 413     </td>
 414   </tr>
 415   <tr>
 416     <td><hr size=3 noshade></td>
 417   </tr>
 418 </table>
 419
 420 <input name=lastndx type=hidden value=$i>
 421
 422 |;
 423
 424   # delete action variable
 425   map { delete $form->{$_} } qw(action project_list header update);
 426
 427   # save all other form variables
 428   foreach my $key (keys %${form}) {
 429     next if (($key eq 'login') || ($key eq 'password') || ('' ne ref $form->{$key}));
 430     $form->{$key} =~ s/\"/&quot;/g;
 431     print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
 432   }
 433
 434   print
 435       $cgi->hidden('-name' => 'is_global',                '-default' => [$is_global])
 436     . $cgi->hidden('-name' => 'project_selected_nextsub', '-default' => [$nextsub])
 437     . qq|<input type=hidden name=nextsub value=project_selected>
 438
 439 <br>
 440 <input class=submit type=submit name=action value="|
 441     . $locale->text('Continue') . qq|">
 442 </form>
 443
 444 </body>
 445 </html>
 446 |;
 447
 448   $main::lxdebug->leave_sub();
 449 }
 450
 451 sub project_selected {
 452   $main::lxdebug->enter_sub();
 453
 454   my $form     = $main::form;
 455
 456   $main::auth->assert('general_ledger         | vendor_invoice_edit  | sales_order_edit    | invoice_edit |' .
 457                 'request_quotation_edit | sales_quotation_edit | purchase_order_edit | cash         | report');
 458
 459   # replace the variable with the one checked
 460
 461   # index for new item
 462   my $i = $form->{ndx};
 463
 464   my $prefix = $form->{"is_global"} ? "global" : "";
 465   my $suffix = $form->{"is_global"} ? "" : "_$form->{rownumber}";
 466
 467   $form->{"${prefix}projectnumber${suffix}"} =
 468     $form->{"new_projectnumber_$i"};
 469   $form->{"old${prefix}projectnumber${suffix}"} =
 470     $form->{"new_projectnumber_$i"};
 471   $form->{"${prefix}project_id${suffix}"} = $form->{"new_id_$i"};
 472
 473   # delete all the new_ variables
 474   for $i (1 .. $form->{lastndx}) {
 475     map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description);
 476   }
 477
 478   my $nextsub = $form->{project_selected_nextsub} || 'update';
 479
 480   map { delete $form->{$_} } qw(ndx lastndx nextsub is_global project_selected_nextsub);
 481
 482   call_sub($nextsub);
 483
 484   $main::lxdebug->leave_sub();
 485 }
 486
 487 sub continue       { call_sub($main::form->{"nextsub"}); }
 488