Revision a9b2cbe2
Von Jan Büren vor etwa 9 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1235 | 1235 |
sales_delivery_order => $main::locale->text('Delivery Order'),
|
| 1236 | 1236 |
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
| 1237 | 1237 |
dunning => $main::locale->text('Dunning'),
|
| 1238 |
letter => $main::locale->text('Letter')
|
|
| 1238 | 1239 |
); |
| 1239 | 1240 |
|
| 1240 | 1241 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 1249 | 1250 |
(first { $self->{type} eq $_ } qw(invoice credit_note)) ? 'inv'
|
| 1250 | 1251 |
: ($self->{type} =~ /_quotation$/) ? 'quo'
|
| 1251 | 1252 |
: ($self->{type} =~ /_delivery_order$/) ? 'do'
|
| 1253 |
: ($self->{type} =~ /letter/) ? 'letter'
|
|
| 1252 | 1254 |
: 'ord'; |
| 1253 | 1255 |
|
| 1256 |
# better default like this? |
|
| 1257 |
# : ($self->{type} =~ /(sales|purcharse)_order/ : 'ord';
|
|
| 1258 |
# : 'prefix_undefined'; |
|
| 1259 |
|
|
| 1254 | 1260 |
$main::lxdebug->leave_sub(); |
| 1255 | 1261 |
return $prefix; |
| 1256 | 1262 |
} |
| ... | ... | |
| 2387 | 2393 |
if ($params{contacts} || $params{shipto}) {
|
| 2388 | 2394 |
$vc = 'customer' if $self->{"vc"} eq "customer";
|
| 2389 | 2395 |
$vc = 'vendor' if $self->{"vc"} eq "vendor";
|
| 2390 |
die "invalid use of get_lists, need 'vc'"; |
|
| 2396 |
die "invalid use of get_lists, need 'vc'" unless $vc;
|
|
| 2391 | 2397 |
$vc_id = $self->{"${vc}_id"};
|
| 2392 | 2398 |
} |
| 2393 | 2399 |
|
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