SL/PE.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 # SQL-Ledger Accounting
   9 # Copyright (C) 1998-2002
  10 #
  11 #  Author: Dieter Simader
  12 #   Email: dsimader@sql-ledger.org
  13 #     Web: http://www.sql-ledger.org
  14 #
  15 #  Contributors:
  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 # Project module
  32 # also used for partsgroups
  33 #
  34 #======================================================================
  35
  36 package PE;
  37
  38 use Data::Dumper;
  39
  40 use SL::DBUtils;
  41
  42 sub projects {
  43   $main::lxdebug->enter_sub();
  44
  45   my ($self, $myconfig, $form) = @_;
  46
  47   # connect to database
  48   my $dbh = $form->dbconnect($myconfig);
  49
  50   my ($where, @values);
  51
  52   foreach my $column (qw(projectnumber description)) {
  53     if ($form->{$column}) {
  54       $where .= qq|AND $column ILIKE ? |;
  55       push(@values, '%' . $form->{$column} . '%');
  56     }
  57   }
  58
  59   if ($form->{status} eq 'orphaned') {
  60     my %col_prefix = ("ar" => "global", "ap" => "global", "oe" => "global");
  61     my $first = 1;
  62
  63     $where .= qq|AND id NOT IN (|;
  64     foreach my $table (qw(acc_trans invoice orderitems rmaitems ar ap oe)) {
  65       $where .= "UNION " unless ($first);
  66       $first = 0;
  67       $where .=
  68         qq|SELECT DISTINCT $col_prefix{$table}project_id FROM $table | .
  69         qq|WHERE NOT $col_prefix{$table}project_id ISNULL |;
  70     }
  71     $where .= qq|) |;
  72   }
  73
  74   if ($form->{active} eq "active") {
  75     $where .= qq|AND active |;
  76   } elsif ($form->{active} eq "inactive") {
  77     $where .= qq|AND NOT active |;
  78   }
  79
  80   substr($where, 0, 4) = "WHERE " if ($where);
  81
  82   my $sortorder = $form->{sort} ? $form->{sort} : "projectnumber";
  83   $sortorder =~ s/[^a-z_]//g;
  84   my $query =
  85     qq|SELECT id, projectnumber, description, active | .
  86     qq|FROM project | .
  87     $where .
  88     qq|ORDER BY $sortorder|;
  89
  90   $form->{project_list} =
  91     selectall_hashref_query($form, $dbh, $query, @values);
  92   $dbh->disconnect;
  93
  94   $main::lxdebug->leave_sub();
  95
  96   return scalar(@{ $form->{project_list} });
  97 }
  98
  99 sub get_project {
 100   $main::lxdebug->enter_sub();
 101
 102   my ($self, $myconfig, $form) = @_;
 103
 104   # connect to database
 105   my $dbh = $form->dbconnect($myconfig);
 106
 107   my $query =
 108     qq|SELECT * FROM project | .
 109     qq|WHERE id = ?|;
 110         my @values = ($form->{id});
 111   my $sth = $dbh->prepare($query);
 112   $sth->execute(@values) || $form->dberror($query);
 113
 114   my $ref = $sth->fetchrow_hashref(NAME_lc);
 115
 116   map { $form->{$_} = $ref->{$_} } keys %$ref;
 117
 118   $sth->finish;
 119
 120   # check if it is orphaned
 121   my %col_prefix = ("ar" => "global", "ap" => "global", "oe" => "global");
 122   @values = ();
 123   $query = qq|SELECT |;
 124   my $first = 1;
 125   foreach my $table (qw(acc_trans invoice orderitems rmaitems ar ap oe)) {
 126     $query .= " + " unless ($first);
 127     $first = 0;
 128     $query .=
 129       qq|(SELECT COUNT(*) FROM $table | .
 130       qq| WHERE $col_prefix{$table}project_id = ?) |;
 131     push(@values, $form->{id});
 132   }
 133
 134   ($form->{orphaned}) = selectrow_query($form, $dbh, $query, @values);
 135   $form->{orphaned} = !$form->{orphaned};
 136
 137   $dbh->disconnect;
 138
 139   $main::lxdebug->leave_sub();
 140 }
 141
 142 sub save_project {
 143   $main::lxdebug->enter_sub();
 144
 145   my ($self, $myconfig, $form) = @_;
 146
 147   # connect to database
 148   my $dbh = $form->dbconnect($myconfig);
 149
 150   my @values = ($form->{projectnumber}, $form->{description});
 151
 152   if ($form->{id}) {
 153     $query =
 154       qq|UPDATE project SET projectnumber = ?, description = ?, active = ? | .
 155       qq|WHERE id = ?|;
 156     push(@values, ($form->{active} ? 't' : 'f'), $form->{id});
 157   } else {
 158     $query =
 159       qq|INSERT INTO project (projectnumber, description, active) | .
 160       qq|VALUES (?, ?, 't')|;
 161   }
 162   do_query($form, $dbh, $query, @values);
 163
 164   $dbh->disconnect;
 165
 166   $main::lxdebug->leave_sub();
 167 }
 168
 169 sub partsgroups {
 170   $main::lxdebug->enter_sub();
 171
 172   my ($self, $myconfig, $form) = @_;
 173
 174   # connect to database
 175   my $dbh = $form->dbconnect($myconfig);
 176
 177   my ($where, @values);
 178
 179   if ($form->{partsgroup}) {
 180     $where .= qq| AND partsgroup ILIKE ?|;
 181     push(@values, '%' . $form->{partsgroup} . '%');
 182   }
 183
 184   if ($form->{status} eq 'orphaned') {
 185     $where .=
 186       qq| AND id NOT IN | .
 187       qq|  (SELECT DISTINCT partsgroup_id FROM parts | .
 188       qq|   WHERE NOT partsgroup_id ISNULL) |;
 189   }
 190
 191   substr($where, 0, 4) = "WHERE " if ($where);
 192
 193   my $sortorder = $form->{sort} ? $form->{sort} : "partsgroup";
 194   $sortorder =~ s/[^a-z_]//g;
 195
 196   my $query =
 197     qq|SELECT id, partsgroup FROM partsgroup | .
 198     $where .
 199     qq|ORDER BY $sortorder|;
 200
 201   $form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
 202
 203   $dbh->disconnect;
 204
 205   $main::lxdebug->leave_sub();
 206
 207   return scalar(@{ $form->{item_list} });
 208 }
 209
 210 sub save_partsgroup {
 211   $main::lxdebug->enter_sub();
 212
 213   my ($self, $myconfig, $form) = @_;
 214
 215   # connect to database
 216   my $dbh = $form->dbconnect($myconfig);
 217
 218   $form->{discount} /= 100;
 219
 220   my @values = ($form->{partsgroup});
 221
 222   if ($form->{id}) {
 223     $query = qq|UPDATE partsgroup SET partsgroup = ? WHERE id = ?|;
 224                 push(@values, $form->{id});
 225   } else {
 226     $query = qq|INSERT INTO partsgroup (partsgroup) VALUES (?)|;
 227   }
 228   do_query($form, $dbh, $query, @values);
 229
 230   $dbh->disconnect;
 231
 232   $main::lxdebug->leave_sub();
 233 }
 234
 235 sub get_partsgroup {
 236   $main::lxdebug->enter_sub();
 237
 238   my ($self, $myconfig, $form) = @_;
 239
 240   # connect to database
 241   my $dbh = $form->dbconnect($myconfig);
 242
 243   my $query =
 244     qq|SELECT pg.*, | .
 245     qq|(SELECT COUNT(*) FROM parts WHERE partsgroup_id = ?) = 0 AS orphaned | .
 246     qq|FROM partsgroup pg | .
 247     qq|WHERE pg.id = ?|;
 248   my $sth = prepare_execute_query($form, $dbh, $query, $form->{id},
 249                                   $form->{id});
 250   my $ref = $sth->fetchrow_hashref(NAME_lc);
 251
 252   map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));
 253   $sth->finish;
 254
 255   $dbh->disconnect;
 256
 257   $main::lxdebug->leave_sub();
 258 }
 259
 260 sub delete_tuple {
 261   $main::lxdebug->enter_sub();
 262
 263   my ($self, $myconfig, $form) = @_;
 264
 265   # connect to database
 266   my $dbh = $form->dbconnect($myconfig);
 267
 268   my $table =
 269     $form->{type} eq "project" ? "project" :
 270     $form->{type} eq "pricegroup" ? "pricegroup" :
 271     "partsgroup";
 272
 273   $query = qq|DELETE FROM $table WHERE id = ?|;
 274   do_query($form, $dbh, $query, $form->{id});
 275
 276   $dbh->disconnect;
 277
 278   $main::lxdebug->leave_sub();
 279 }
 280
 281 ##########################
 282 # get pricegroups from database
 283 #
 284 sub pricegroups {
 285   $main::lxdebug->enter_sub();
 286
 287   my ($self, $myconfig, $form) = @_;
 288
 289   # connect to database
 290   my $dbh = $form->dbconnect($myconfig);
 291
 292   my ($where, @values);
 293
 294   if ($form->{pricegroup}) {
 295     $where .= qq| AND pricegroup ILIKE ?|;
 296     push(@values, '%' . $form->{pricegroup} . '%');
 297   }
 298
 299   if ($form->{status} eq 'orphaned') {
 300     my $first = 1;
 301
 302     $where .= qq| AND id NOT IN (|;
 303     foreach my $table (qw(invoice orderitems prices rmaitems)) {
 304       $where .= "UNION " unless ($first);
 305       $first = 0;
 306       $where .=
 307         qq|SELECT DISTINCT pricegroup_id FROM $table | .
 308         qq|WHERE NOT pricegroup_id ISNULL |;
 309     }
 310     $where .= qq|) |;
 311   }
 312
 313   substr($where, 0, 4) = "WHERE " if ($where);
 314
 315   my $sortorder = $form->{sort} ? $form->{sort} : "pricegroup";
 316   $sortorder =~ s/[^a-z_]//g;
 317
 318   my $query =
 319     qq|SELECT id, pricegroup FROM pricegroup | .
 320     $where .
 321     qq|ORDER BY $sortorder|;
 322
 323   $form->{item_list} = selectall_hashref_query($form, $dbh, $query, @values);
 324
 325   $dbh->disconnect;
 326
 327   $main::lxdebug->leave_sub();
 328
 329   return scalar(@{ $form->{item_list} });
 330 }
 331
 332 ########################
 333 # save pricegruop to database
 334 #
 335 sub save_pricegroup {
 336   $main::lxdebug->enter_sub();
 337
 338   my ($self, $myconfig, $form) = @_;
 339
 340   # connect to database
 341   my $dbh = $form->dbconnect($myconfig);
 342   my $query;
 343
 344   $form->{discount} /= 100;
 345
 346   my @values = ($form->{pricegroup});
 347
 348   if ($form->{id}) {
 349     $query = qq|UPDATE pricegroup SET pricegroup = ? WHERE id = ? |;
 350                 push(@values, $form->{id});
 351   } else {
 352     $query = qq|INSERT INTO pricegroup (pricegroup) VALUES (?)|;
 353   }
 354   do_query($form, $dbh, $query, @values);
 355
 356   $dbh->disconnect;
 357
 358   $main::lxdebug->leave_sub();
 359 }
 360
 361 ############################
 362 # get one pricegroup from database
 363 #
 364 sub get_pricegroup {
 365   $main::lxdebug->enter_sub();
 366
 367   my ($self, $myconfig, $form) = @_;
 368
 369   # connect to database
 370   my $dbh = $form->dbconnect($myconfig);
 371
 372   my $query = qq|SELECT id, pricegroup FROM pricegroup WHERE id = ?|;
 373   my $sth = prepare_execute_query($form, $dbh, $query, $form->{id});
 374   my $ref = $sth->fetchrow_hashref(NAME_lc);
 375
 376   map({ $form->{$_} = $ref->{$_} } keys(%{$ref}));
 377
 378   $sth->finish;
 379
 380   my $first = 1;
 381
 382   my @values = ();
 383   $query = qq|SELECT |;
 384   foreach my $table (qw(invoice orderitems prices rmaitems)) {
 385     $query .= " + " unless ($first);
 386     $first = 0;
 387     $query .= qq|(SELECT COUNT(*) FROM $table WHERE pricegroup_id = ?) |;
 388     push(@values, $form->{id});
 389   }
 390
 391   ($form->{orphaned}) = selectrow_query($form, $dbh, $query, @values);
 392   $form->{orphaned} = !$form->{orphaned};
 393
 394   $dbh->disconnect;
 395
 396   $main::lxdebug->leave_sub();
 397 }
 398
 399 1;
 400