1 package SL::TransNumber;
5 use parent qw(Rose::Object);
8 use List::MoreUtils qw(any none);
12 use Rose::Object::MakeMethods::Generic
14 scalar => [ qw(type id number save dbh dbh_provided) ],
17 # has 'type' => ( is => 'rw', required => 1 );
18 # has 'id' => ( is => 'rw' );
19 # has 'number' => ( is => 'rw' );
20 # has 'save' => ( is => 'rw', default => 1 );
21 # has 'dbh' => ( is => 'rw' );
22 # has 'dbh_provided' => ( is => 'rw' );
24 Readonly my @SUPPORTED_TYPES => qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation);
28 my $self = $class->SUPER::new(@_);
30 croak "Invalid type " . $self->type if none { $_ eq $self->type } @SUPPORTED_TYPES;
32 $self->dbh_provided($self->dbh);
33 $self->dbh($::form->get_standard_dbh) if !$self->dbh;
34 $self->save(1) unless defined $self->save;
42 my $type = $self->type;
43 my %filters = ( where => '' );
45 if (any { $_ eq $type } qw(invoice credit_note)) {
46 $filters{trans_number} = "invnumber";
47 $filters{numberfield} = $type eq 'credit_note' ? "cnnumber" : "invnumber";
48 $filters{table} = "ar";
50 } elsif (any { $_ eq $type } qw(customer vendor)) {
51 $filters{trans_number} = "${type}number";
52 $filters{numberfield} = "${type}number";
53 $filters{table} = $type;
55 } elsif ($type =~ /_delivery_order$/) {
56 $filters{trans_number} = "donumber";
57 $filters{numberfield} = $type eq 'sales_delivery_order' ? "sdonumber" : "pdonumber";
58 $filters{table} = "delivery_orders";
59 $filters{where} = $type =~ /^sales/ ? '(customer_id IS NOT NULL)' : '(vendor_id IS NOT NULL)';
61 } elsif ($type =~ /_order$/) {
62 $filters{trans_number} = "ordnumber";
63 $filters{numberfield} = $type eq 'sales_order' ? "sonumber" : "ponumber";
64 $filters{table} = "oe";
65 $filters{where} = 'NOT COALESCE(quotation, FALSE)';
66 $filters{where} .= $type =~ /^sales/ ? ' AND (customer_id IS NOT NULL)' : ' AND (vendor_id IS NOT NULL)';
69 $filters{trans_number} = "quonumber";
70 $filters{numberfield} = $type eq 'sales_quotation' ? "sqnumber" : "rfqnumber";
71 $filters{table} = "oe";
72 $filters{where} = 'COALESCE(quotation, FALSE)';
73 $filters{where} .= $type =~ /^sales/ ? ' AND (customer_id IS NOT NULL)' : ' AND (vendor_id IS NOT NULL)';
82 return undef if !$self->number;
84 my %filters = $self->_get_filters();
87 my @values = ($self->number);
89 push @where, $filters{where} if $filters{where};
92 push @where, qq|id <> ?|;
93 push @values, conv_i($self->id);
96 my $where_str = @where ? join(' AND ', map { "($_)" } @where) : '';
98 SELECT $filters{trans_number}
100 WHERE ($filters{trans_number} = ?)
104 my ($existing_number) = selectfirst_array_query($main::form, $self->dbh, $query, @values);
106 return $existing_number ? 0 : 1;
112 my $form = $main::form;
113 my %filters = $self->_get_filters();
115 do_query($form, $self->dbh, qq|LOCK TABLE defaults|);
117 my $where = $filters{where} ? ' WHERE ' . $filters{where} : '';
119 SELECT DISTINCT $filters{trans_number}, 1 AS in_use
124 my %numbers_in_use = selectall_as_map($form, $self->dbh, $query, $filters{trans_number}, 'in_use');
126 my ($number) = selectfirst_array_query($form, $self->dbh, qq|SELECT $filters{numberfield} FROM defaults|);
130 if ($number =~ m/\d+$/) {
131 my $new_number = substr($number, $-[0]) * 1 + 1;
132 my $len_diff = length($number) - $-[0] - length($new_number);
133 $number = substr($number, 0, $-[0]) . ($len_diff > 0 ? '0' x $len_diff : '') . $new_number;
136 $number = $number . '1';
138 } while ($numbers_in_use{$number});
141 do_query($form, $self->dbh, qq|UPDATE defaults SET $filters{numberfield} = ?|, $number);
142 $self->dbh->commit if !$self->dbh_provided;