Revision b5953ee5
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/TransNumber.pm | ||
|---|---|---|
| 15 | 15 |
scalar => [ qw(type id number save dbh dbh_provided business_id) ], |
| 16 | 16 |
); |
| 17 | 17 |
|
| 18 |
my @SUPPORTED_TYPES = qw(invoice credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation part service assembly assortment letter); |
|
| 18 |
my @SUPPORTED_TYPES = qw(invoice invoice_for_advance_payment credit_note customer vendor sales_delivery_order purchase_delivery_order sales_order purchase_order sales_quotation request_quotation part service assembly assortment letter);
|
|
| 19 | 19 |
|
| 20 | 20 |
sub new {
|
| 21 | 21 |
my $class = shift; |
| ... | ... | |
| 37 | 37 |
my $type = $self->type; |
| 38 | 38 |
my %filters = ( where => '' ); |
| 39 | 39 |
|
| 40 |
if (any { $_ eq $type } qw(invoice credit_note)) {
|
|
| 40 |
if (any { $_ eq $type } qw(invoice invoice_for_advance_payment credit_note)) {
|
|
| 41 | 41 |
$filters{trans_number} = "invnumber";
|
| 42 | 42 |
$filters{numberfield} = $type eq 'credit_note' ? "cnnumber" : "invnumber";
|
| 43 | 43 |
$filters{table} = "ar";
|
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: neuen Typ bei Nummergenerierung berücksichtigen