Revision a9b2cbe2
Von Jan Büren vor etwa 9 Jahren hinzugefügt
| SL/TransNumber.pm | ||
|---|---|---|
| 14 | 14 |
scalar => [ qw(type id number save dbh dbh_provided business_id) ], |
| 15 | 15 |
); |
| 16 | 16 |
|
| 17 |
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); |
|
| 17 |
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 letter);
|
|
| 18 | 18 |
|
| 19 | 19 |
sub new {
|
| 20 | 20 |
my $class = shift; |
| ... | ... | |
| 71 | 71 |
$filters{numberfield} = $type eq 'service' ? 'servicenumber' : 'articlenumber';
|
| 72 | 72 |
$filters{numberfield} = $type eq 'assembly' ? 'assemblynumber' : $filters{numberfield};
|
| 73 | 73 |
$filters{table} = "parts";
|
| 74 |
} elsif ($type =~ /letter/) {
|
|
| 75 |
$filters{trans_number} = "letternumber";
|
|
| 76 |
$filters{numberfield} = "letternumber";
|
|
| 77 |
$filters{table} = "letter";
|
|
| 74 | 78 |
} |
| 75 | 79 |
|
| 76 | 80 |
return %filters; |
Auch abrufbar als: Unified diff
Brieffunktion erste Version
Verkaufsbriefe können jetzt auch mit LaTeX erstellt werden.
Ferner gibt es eine Briefentwurfs-Funktion, die aussieht wie drafts, aber
zumindestens auf einer eigenen Tabelle beruht. Zusätzlich wurden zwei neue Rechte
gesetzt